typvat.spr spdec.prg SprzedaF VAT spdec.prg with 1,F spdec.prg with 2,F Nie ma F adnych zapis dz=day(data):2:H = 'Dz',dowod:R:10 :H = 'Nr dokumentu',firma:16:H='Kontrahent',nip:10:H='NIP', net=net22+net12+net7+net0+netzw+netexp:H='Netto':P='99,999,999,999.99',vat=vat22+vat12+vat7:H='VAT':P='99,999,999,999.99' dzien firma:16:H='Kontrahent',dz=day(data):2:H = 'Dz',dowod:R:10 :H = 'Nr dokumentu',nip:10:H='NIP', net=net22+net12+net7+net0+netzw+netexp:H='Netto':P='99,999,999,999.99',vat=vat22+vat12+vat7:H='VAT':P='99,999,999,999.99' firma SprzedaF VAT spkasuj spdec.prg with 2,F Nie ma F adnych zapis dz=day(data):2:H = 'Dz',dowod:R:10 :H = 'Nr dokumentu',firma:16:H='Kontrahent',nip:10:H='NIP', net=net22+net12+net7+net0+netzw+netexp:H='Netto':P='99,999,999,999.99',vat=vat22+vat12+vat7:H='VAT':P='99,999,999,999.99' dzien firma:16:H='Kontrahent',dz=day(data):2:H = 'Dz',dowod:R:10 :H = 'Nr dokumentu',nip:10:H='NIP', net=net22+net12+net7+net0+netzw+netexp:H='Netto':P='99,999,999,999.99',vat=vat22+vat12+vat7:H='VAT':P='99,999,999,999.99' firma SprzedaF VAT spdec.prg with 0,F spdec.prg with 1,F spdruk.prg with " spdec.prg with 2,F spkasuj net22+net12+net7+net0+netzw+netexp,vat22+vat12+vat7 dz=day(data):2:H = 'Dz',dowod:R:10 :H = 'Nr dokumentu',firma:16:H='Kontrahent',nip:10:H='NIP', net=net22+net12+net7+net0+netzw+netexp:H='Netto':P='99,999,999,999.99',vat=vat22+vat12+vat7:H='VAT':P='99,999,999,999.99' dzien firma:16:H='Kontrahent',dz=day(data):2:H = 'Dz',dowod:R:10 :H = 'Nr dokumentu',nip:10:H='NIP', net=net22+net12+net7+net0+netzw+netexp:H='Netto':P='99,999,999,999.99',vat=vat22+vat12+vat7:H='VAT':P='99,999,999,999.99' firma spdruk.prg doksiegi.spr odksieg.prg RIBBON DBFNAME TYPVAT VATNAME GETKSIEG RNOTICE SPDEC STARTLIS MAINPATH VATALIAS GLISTA SPDRUK DOKSIEGI ODKSIEG CLEARRIB SprzedaF VAT TALKz COMPATIBLEz m.dowod m.dzien m.datatow m.code m.firma m.ulica m.miasto m.kod m.nip m.net22 m.vat22 m.brut22 m.net12 m.vat12 m.brut12 m.net7 m.vat7 m.brut7 m.net0 m.netexp m.netzw m.exitok m.exiterr m.exitfin _r79101wkr _curobj=objnum(m.exitok) _curobj=objnum(m.exiterr) _r79101wkr Numer dowodu: Kod firmy : Razem z dnia: Nazwa : Ulica : Miasto : NIP : @K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX @K 99-999 @K XXXXXXXXXXXXXXXXXXXX Data sprzedaF VAT 22% VAT 7% VAT 0% Eksport Zwolnione netto brutto VAT 12% @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 @K 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 @*HN Zapisz i kontynuuj @*HT Zaniechaj @*HN Zapisz i zakoF _r79101wkr WHICH CONT RIBBON TITLE EXITOK EXITERR DBFNAME AREA IOPEN TAG1 17 TAG2 5 VATAREA EXITFIN OLDCODE NIP CODE 0 FIRMA PL CURRAREA TALKSTAT COMPSTAT __OBJS __NUMOBJ _R79101WKRF10 ESC VATNAME VATALIAS MAINPATH PODM DZIEN MAKEDATA MIESNR 0 ROKNR 7 DATATOW DATA BRUT22 VAT22 NET22 BRUT12 VAT12 NET12 BRUT7 VAT7 NET7 DOWOD WKR_R79101X8G_R79101XA2_R79101XC3_R79101XDKULICA _R79101XFL_R79101XH3MIASTO 4 _R79101XIT_R79101XKAKOD 63_R79101XM2_R79101XNK_R79101XPB_R79101XQU_R79101XXO_R79101XZM_R79101Y1B_R79101Y3G_R79101Y55_R79101Y84_R79101Y9T_R79101YBP_R79101YDE_R79101YFG_R79101YH5_R79101YK4_R79101YLS_R79101YNP_R79101YPD_R79101YS6_R79101YTW_R79101YWVNET0 1 _R79101YYJ_R79101Z0FNETEXP _R79101Z23_R79101Z40NETZW _R79101Z5P_R79101Z7L_R79101ZCN_R79101ZE5_R79101ZGP_R79101ZI3_R79101ZKX_R79101ZN2_R79101ZN5 ewspvat VATAREA ACT IDENT ZAKSIEG IDKSIEGI DATA MAKEDATA DZIEN MIESNR ROKNR 7 DZI2DATA ICODE IFIRMA IULICA IMIASTO IKOD INIP CODE FIRMA ULICA MIASTO KOD WPISZFIR NET22 OLDOPIS ICODE IFIRMA IULICA IMIASTO IKOD INIP NIP CODE FIRMA ULICA MIASTO DODFIRME NET22 Nie ma firmy o takim kodzie EWFIRM FIRMA ULICA MIASTO KOD NET22 do _wpiszfirme do _dodfirme OLDCODE CODE ACT CODE OLDCODE FINDFIRM DO _WPISZFIRme do _dodfirme ACT DO _WPISZFIRme do _dodfirme ACT DO _WPISZFIRme do _dodfirme ACT DO _WPISZFIRme do _dodfirme ACT do _wpiszfirme do _dodfirme ACT Musisz wpisaF NIP konrahenta! WHICH NIP m.nip m.kod8 m.vat22 SETRIB RIBBON NET22 WHICH m.net22 m.brut22 SETRIB RIBBON VAT22 NET22 m.vat22 m.net12 SETRIB RIBBON BRUT22 NET22 VAT22 m.brut22 m.vat12 SETRIB RIBBON NET12 m.net12 m.brut12 SETRIB RIBBON VAT12 NET12 m.vat12 m.net7 SETRIB RIBBON BRUT12 NET12 VAT12 m.brut12 m.vat7 SETRIB RIBBON NET7 m.net7 m.brut7 SETRIB RIBBON VAT7 NET7 m.vat7 m.net0 SETRIB RIBBON BRUT7 NET7 VAT7 m.brut7 m.netexp SETRIB RIBBON NET0 m.net0 m.netzw SETRIB RIBBON NETEXP m.netexp m.exitok SETRIB RIBBON NETZW ACT Musisz wpisaF NIP kontrahenta! WHICH NIP COMMIT Musisz wpisaF NIP kontrahenta! WHICH NIP COMMIT CONT WHICH NIP ACT EXITFIN _R79101WKR 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 CURRWIND _R79101WKRNET22 NET12 NET7 NET0 NETZW NETEXP VAT22 VAT12 VAT7 BRUT22 BRUT12 BRUT7 COMMIT _WPISZFIRM _DODFIRME FINDFIRM _R79101X8G _R79101XA2 _R79101XC3 _R79101XDK _R79101XFL _R79101XH3 _R79101XIT _R79101XKA _R79101XM2 _R79101XNK _R79101XPB _R79101XQU _R79101XXO _R79101XZM _R79101Y1B _R79101Y3G _R79101Y55 _R79101Y84 _R79101Y9T _R79101YBP _R79101YDE _R79101YFG _R79101YH5 _R79101YK4 _R79101YLS _R79101YNP _R79101YPD _R79101YS6 _R79101YTW _R79101YWV _R79101YYJ _R79101Z0F _R79101Z23 _R79101Z40 _R79101Z5P _R79101Z7L _R79101ZCN _R79101ZE5 _R79101ZGP _R79101ZI3 _R79101ZKX _R79101ZN2 _R79101ZN5 zaksieg TYPKS DZIEN UWAGI IOPEN ALIAS VATNAME VATALIAS MAINPATH GETKSIEG NOTICE ZAKSIEG KSIEGALL TAKNIE KSIEGPART idksiegi .zaksieg TODEL IOPENW NETTOTAL NAZWA NET22 NET12 NETZW NETEXP MAINPATH ALIAS KATEG POPRAWKA BLOKADA PTOWAR UWAGI IDENT MAKEDATA DZIEN MIESNR ROKNR IDKSIEGI SETKSIEG .data .dowod .net22+ .net12+ .net7+ .net0+ .netzw+ .netexp .firma .ulica .miasto IOPENW IDKSIEGI NRREK MAINPATH ALIAS ZAKSIEG IDENT KATEG DOWOD POPRAWKA BLOKADA PTOWAR UWAGI FIRMA ULICA MIASTO KSIEGALL KSIEGPART exactz Razem _lowzorzec _olistabr _losumy TYTUL DLWZORCA MYILOSC ALIAS TOMPLUS TOMENTER TOMDRUK *TOMPODGLADTOMMINUS TOMBLOKUJ TOMANULUJ POMOC SUMGDZIE SUMILE 6SUMWYR POLA1 INDEX1 FPOLA2 0opzINDEX2 POLA3 INDEX3 POLA4 INDEX4 POLA5 ty INDEX5 NUMER :IOPEN EXACT trzenio_LOSUMY _LOWZORZEC_OLISTABR SETRIB ZECREFRSUMY iPRZEGLAD e DANE 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 *TCOL DGLADTROW TOMENTER TOMBLOKUJ BLOKUJ BLOKADA FREFRSUMY zSETRIB POMOC _LOWZORZECTOMMINUS BLOKUJ TOMPLUS BLOKUJ MYILOSC ECPRZEGLAD ZTOMDRUK ioTOMANULUJ 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 IOPEN MYALIAS MAINPATH GETKSIEG VATALIAS ZAKSIEG DELKSIEG NOTICE .zaksieg .idksiegi form.app ewspvat.spr ewspvat.spr IOPEN ALIAS DZIEN GETKSIEG NOTICE VATALIAS TAKNIE MAINPATH EWSPVAT exactz _lowzorzec _lolistabr _lowzorzec TYTUL DLWZORCA MYILOSC ALIAS TOMENTER TOMPODGLADINFO CZYBLOK POMOC POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 POLA4 INDEX4 POLA5 INDEX5 NUMER IOPEN 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 MYQUIT WIERSZE _LOWZORZECDLWZORCA LOKATA MYSZR MYSZC GLADTCOL TOMENTER CZYBLOK BLOKADA MYILOSC PROPRZEGLATOMPODGLADSETRIB POMOC NUMER PROWYKAZ POLA1 INDEX1 POLA2 INDEX2 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} KOLEJNOSC _OLISTAST ZECTCOL STARTPRO PROPRZEGLA PROWYKAZ Wybierz typ dokumentu TALKz COMPATIBLEz _qz90or4ws Wybierz typ dokumentu _qz90or4ws Faktury VAT Rachunki uproszczone Faktury korygujF Rachunki korygujF @*IVT @*IVT @*IVT @*IVT _qz90or4ws RIBBON TITLE CURRAREA TALKSTAT COMPSTAT _QZ90OR4WS_QZ90OR59H_QZ90OR5CF_QZ90OR5FD_QZ90OR5I9 _QZ90OR59H _QZ90OR5CF _QZ90OR5FD _QZ90OR5I9 Firmy ewfirmy firma.spr Brak firm code:15:H='Kod firmy', firma:R:21 :H = 'Nazwa firmy',miasto:H = 'Miejscowosc' firma:R:21 :H = 'Nazwa firmy',code:15:H='Kod firmy', miasto:H = 'Miejscowosc' firma miasto:R:21 :H = 'Miejscowosc',firma:H = 'Nazwa firmy', code:15:H='Kod firmy' miasto RIBBON WYBIERZ MAINPATH exactz LISTAZW _olistazw _owzorzec TYTUL DLWZORCA ILOSC ja CPLIK TOMPODGLADZWROT KOINFO _OPOMOC FRPOLA1 FCINDEX1 TRPOLA2 TCINDEX2 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 a CCHANGED DGLAD_OWZORZEC DLWZORCA OFCOL FRTCOL FCTROW TRFROW WZWIERSZE ILOSC WYBPRZEGLATOMPODGLADSETRIB POMOC NUMER WYBWYKAZ POLA1 INDEX1 POLA2 INDEX2 POLA3 CINDEX3 INDEX4 DPOLA5 INDEX5 OILOSC SET ORDER TO &kolejnosc _olbrow BROWSE NOWAIT WINDOW _olbrow IN WINDOW _olistazw TITLE "Wybierz" COLOR SCHEM 10 FIELDS &pola _olistazw {INS} KOLEJNOSC _OLBROW CWZWIERSZE WYBPRO WYBPRZEGLA WYBWYKAZ ewfirmy.app EWFIRMY IOAPP ZAKALIAS SPALIAS GETKSIEG NOTICE CIDKSIEGI VATALIAS DZAKSIEG TAKNIE OWORK FCEWWYPOS DZIEN MIESIAC FULLYEAR DZIEN Firmy ewfirmy firma.spr firma, ulica, miasto, kod, nip, code Brak firm code:15:H='Kod firmy', firma:21 :H = 'Nazwa firmy',miasto:H = 'Miejscowosc' firma:21 :H = 'Nazwa firmy',code:15:H='Kod firmy', miasto:H = 'Miejscowosc' firma miasto:21 :H = 'Miejscowosc',firma:H = 'Nazwa firmy', code:15:H='Kod firmy' miasto RIBBON WYBIERZ MAINPATH cursorz _curobj = objnum( &getname ) show get &getname &KeyEsc _curobj = objnum(&nextobj) &KeyF10 _curobj = objnum(&prevobj) pointz @y0,x0 say guma color &GetColor @y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor @y0,x0 say guma color &GetColor @y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor set cursor &Kursor BEFOREPOINSTARTVALUEWITHMINUS WITHULAMEKCOLORSCHEMPREVOBJ NEXTOBJ __OBJS BEFPOINTOLKEYESC KEYF10 KURSOR SELECTCOLOGETCOLOR MFIRSTSHOT MOUSEQUIT FULLWIDTH ZAKROPKA KJESTKROPKAPRZEDKROPKMINUS ALUEOLDPK ALUEOLDMINUS KOLDZK NEWLOOK KONIEC UPDATEFULLMOUSEX MOUSEY LLWIDTH __NUMOBJ GETNAME ROPKA 999,999,999,999c pointz PRZED WORKSTR INUPDATEFULLMINUS JESTKROPKAFULLWIDTH MINUS BEFOREPOINBEFPOINTOLWITHMINUS NEWLOOK UPDATEFULL EWSVF EWSVR EWSVFK EWSVRK EWZVF EWZVR EWZVFK EWZVRK miesiace. RETVAL FLDNAME MIESIACE MIESIAC MIESNR VATFIELD CURSORz errors WciF nij dowolny klawisz ... ECodeF SET CURSOR &curstat ECODE1 ECODE2 ECODE3 OLDALIAS ILOSC CURSTAT SYSPATH ERRWIN ERRORS ERRCODE MESSAGE ewsvf ewsvr ewsvfk ewsvrk ewzvf ewzvr ewzvfk ewzvrk @ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col RIBBON SETRIB CLEARRIB RETVAL IDENT m.xloc = m.xloc errors \