podm1st.spr Podmioty gospodarcze podmioty podmioty podm1st.spr with 1 podm1st.spr with 2 nazwa:21 :H = 'Nazwa firmy',miasto:21:H = 'Miejscowo'+pl[16]+pl[11], ad=alltrim(adres)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu) :21 :H = ' Ulica ' nazwa Podmioty gospodarcze podmioty podmioty kasuj podm1st.spr with 2 nazwa:21 :H = 'Nazwa firmy',miasto:21:H = 'Miejscowo'+pl[16]+pl[11], ad=alltrim(adres)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu) :21 :H = ' Ulica ' nazwa Podmioty gospodarcze podmioty podmioty podm1st.spr with 0 podm1st.spr with 1 podm1st.spr with 2 kasuj nazwa:21 :H = 'Nazwa firmy',miasto:21:H = 'Miejscowo'+pl[16]+pl[11], ad=alltrim(adres)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu) :21 :H = ' Ulica ' nazwa fVRIBBON PODM1ST STARTLIS VPODMPATH LISTA CLEARRIB firma firma \rach.pod !echo y | del &mypath >nul firma !rd &mypath MYPATH fVSYMBOL FIRMNR TAKNIE PYTANIE VCZEKAJ MAINPATH TWODIG NNOTICE KASUJ exactz _lowzorzec _lolistabr _lowzorzec PFCOL INTROW POLTCOL INDETYTUL YQUIDLWZORCA MYILOSC ALIAS TOMENTER TOMPODGLADINFO GLAWYCZYBLOK POMOC 5POLA1 INDEX1 POLA2 INDEX2 POLA3 TINDEX3 POLA4 INDEX4 !POLA5 INDEX5 NUMER IIOPEN EXACT WIERSZE _LOWZORZEC_LOLISTABRSETRIB ZECPROPRZEGLASTARTPRO CLEARRIB {DNARROW} {UPARROW} {TAB} Koniec danych PoczF tek danych Koniec danych PoczF tek danych Zapis jest zablokowany DO &tomenter DO &tompodglad STRING PMYDO INMYQUIT POLWIERSZE DEZNAK QUI_LOWZORZECDLWZORCA LOKATA MYSZR MYSZC GLADTCOL GLAWYTROW FROW TOMENTER CZYBLOK BLOKADA MYILOSC TPROPRZEGLATOMPODGLADSETRIB !POMOC NUMER PPROWYKAZ NPOLA1 POLINDEX1 DEPOLA2 IINDEX2 ZECPOLA3 INDEX3 INDEX4 POLA5 INDEX5 LADMYILOSC SET ORDER TO &kolejnosc _olistast BROWSE NOWAIT WINDOW _olistast IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola {INS} PKOLEJNOSC _OLISTAST DEFCOL ITROW ZECTCOL STARTPRO PROPRZEGLA PROWYKAZ exactz Razem _lowzorzec _olistabr _losumy TYTUL DLWZORCA MYILOSC ALIAS TOMPLUS TOMENTER TOMDRUK TOMPODGLADTOMMINUS TOMBLOKUJ TOMANULUJ POMOC SUMGDZIE SUMILE SUMWYR POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 POLA4 INDEX4 POLA5 INDEX5 NUMER IOPEN EXACT _LOSUMY _LOWZORZEC_OLISTABR SETRIB ZECREFRSUMY PRZEGLAD CLEARRIB {DNARROW} {UPARROW} {TAB} Koniec danych PoczF tek danych Koniec danych PoczF tek danych MiesiF c jest zablokowany Zapis jest zablokowany Nie moF esz poprawia DO &tomenter DO &tomenter MiesiF c jest zablokowany Zapis jest zablokowany Nie moF esz usuwa DO &tomminus do &tomminus MiesiF c jest zablokowany Nie moF esz dodawa DO &tomplus do &tomplus DO &tomdruk DO &tomblokuj DO &tomanuluj DO &tompodglad STRING LOKATA WIERSZE MYQUIT MYSZR MYSZC SUMILE DLWZORCA DGLADTROW TOMENTER TOMBLOKUJ BLOKUJ BLOKADA REFRSUMY SETRIB POMOC _LOWZORZECTOMMINUS BLOKUJ TOMPLUS BLOKUJ MYILOSC ECPRZEGLAD TOMDRUK TOMANULUJ TOMPODGLAD NUMER WYKAZ POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 INDEX4 POLA5 INDEX5 MYILOSC SET ORDER TO &kolejnosc BROWSE NOWAIT WINDOW _dlabrow IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola {INS} KOLEJNOSC _DLABROW SUM ALL &sumwyr TO ARRAY sumy FOR not poprawka and typ <> 50 SUM ALL &sumwyr TO ARRAY sumy Razem 99,999,999,999.99 LEJNOSC ILREC SUMWYR SUMILE TOMANULUJ _LOSUMY SUMGDZIE PRZEGLAD WYKAZ REFRSUMY urzedy urzedy urzedy.app urzedy, UrzF dy skarbowe urzedy us_nazwa, us_id Brak urzedF us_nazwa:20:H='Nazwa urzedu', ad=alltrim(us_ulica)+' '+alltrim(us_nrdomu):20:H='Adres',us_kodzip:6:H='Kod',us_miasto:20:H='Miasto' us_nazwa RIBBON IOPEN US_ID URZEDY PODMPATH URZAD_NR WYBIERZ exactz LISTAZW _olistazw _owzorzec TYTUL DLWZORCA ILOSC TOMPODGLADZWROT POMOC POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 POLA4 INDEX4 POLA5 INDEX5 MYQUIT NUMER IOPEN EXACT WZWIERSZE LISTAZW _OLISTAZW _OWZORZEC SETRIB WYBPRZEGLAWYBPRO CLEARRIB {DNARROW} {UPARROW} {TAB} Koniec danych PoczF tek danych Koniec danych PoczF tek danych SCATTER FIELDS &coret MEMVAR DO &tompodglad CORET STRING LOKATA MYSZR MYSZC DBLTIME MYQUIT CHANGED DGLAD_OWZORZEC DLWZORCA WZWIERSZE ILOSC WYBPRZEGLATOMPODGLADSETRIB POMOC NUMER WYBWYKAZ POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 INDEX4 DPOLA5 INDEX5 ILOSC SET ORDER TO &kolejnosc _olbrow BROWSE NOWAIT WINDOW _olbrow IN WINDOW _olistazw TITLE "Wybierz" COLOR SCHEM 10 FIELDS &pola _olistazw {INS} KOLEJNOSC _OLBROW WZWIERSZE WYBPRO WYBPRZEGLA WYBWYKAZ _curobj=objnum(m.exitok) retry retry _curobj=objnum(m.exiterr) podmioty podmioty nazwa urzedy us_id TALKz COMPATIBLEz mypodm Dane podmiotu gospodarczego mypodm Nr lokalu: Gmina/dzielnica: Nazwa podmiotu: Ulica : MiejscowoF Kod : Telefon : Fax : NIP : Bank Nazwa : Konto : Opis : @K 99-999 @*HN UrzF d skarbowy @*HN Zapisz @*HN Zaniechaj Adres prowadzenia dziaF Nr domu : Poczta : Telex : REGON : mypodm podmioty RIBBON US_NAZWA URZAD_NR IOPEN MYPATH TYTUL PODMIOTY PODMPATH \NAZWA ROLDREK URZEDY dUS_ID CURRAREA TALKSTAT COMPSTAT MYPODM REGON BezADRES 32/NR_DOMU NR_LOKALU MIASTO POCZTA 51-TELEFON TELEX GMINA OTY_R5O0TCP9ZBANK |KONTO EXITOK _R5O0TCPDKEXITERR _R5O0TCPGN_R5O0TCPLY symbol nazwa OLDREK SYMBOL _NAZWA NAZWA wyb_us.prg WYB_US podmioty firma !md &mypath \rach.pod Musisz podaF nazw firmy NAZWA SYMBOL FFREESYM MYPATH MAINPATH TWODIG HANDLE Musisz zapisaF dane podmiotu EXITOK MYPODM CURRWIND MYPODM US_NAZWA FFREESYM _R5O0TCP9Z _R5O0TCPDK _R5O0TCPGN _R5O0TCPLY @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col RIBBON SETRIB TCLEARRIB m.xloc = m.xloc errors \