typvat.spr netinw1 + netinw2 + netinw3 + netzao1_zw + netzao1_0 + netzao1_7 + netzao1_12 + netzao1_22 + vatzao1_7 + vatzao1_12 + vatzao1_22 + netzao2_7 + netzao2_12 + netzao2_22 + netzao3_7 + netzao3_12 + netzao3_22 + netkoszt1 + netkoszt2 + netkoszt3 vatinw2 + vatinw3 + vatzao2_7 + vatzao2_12 + vatzao2_22 + vatzao3_7 + vatzao3_12 + vatzao3_22 + vatkoszt2 + vatkoszt3 zakdec.prg Zakupy VAT zakdec.prg with 1,F zakdec.prg with 2,F Nie ma F adnych zapis dz=day(data):2:H ='Dz',dowod:10 :H = 'Nr dokumentu',firma:16:H='Kontrahent',nip:10:H='NIP', :H='Warto'+pl[16]+pl[11]:P='99,999,999,999.99', :H='VAT':P='99,999,999,999.99' dzien firma:16:H='Kontrahent',dz=day(data):2:H ='Dz',dowod:10 :H = 'Nr dokumentu',nip:10:H='NIP', :H='Warto'+pl[16]+pl[11]:P='99,999,999,999.99', :H='VAT':P='99,999,999,999.99' firma Zakupy VAT zakkasuj zakdec.prg with 2,F Nie ma F adnych zapis dz=day(data):2:H ='Dz',dowod:10 :H = 'Nr dokumentu',firma:16:H='Kontrahent',nip:10:H='NIP', :H='Warto'+pl[16]+pl[11]:P='99,999,999,999.99', :H='VAT':P='99,999,999,999.99' dzien firma:16:H='Kontrahent',dz=day(data):2:H ='Dz',dowod:10 :H = 'Nr dokumentu',nip:10:H='NIP', :H='Warto'+pl[16]+pl[11]:P='99,999,999,999.99', :H='VAT':P='99,999,999,999.99' firma dz=day(data):2:H ='Dz',dowod:10 :H = 'Nr dokumentu',firma:16:H='Kontrahent',nip:10:H='NIP', :H='Warto'+pl[16]+pl[11]:P='99,999,999,999.99', :H='VAT':P='99,999,999,999.99' firma:16:H='Kontrahent',dz=day(data):2:H ='Dz',dowod:10 :H = 'Nr dokumentu',nip:10:H='NIP', :H='Warto'+pl[16]+pl[11]:P='99,999,999,999.99', :H='VAT':P='99,999,999,999.99' Zakupy VAT zakdec.prg with 0,F zakdec.prg with 1,F zakdruk.prg with " zakdec.prg with 2,F zakkasuj dzien firma zakdruk.prg doksiegi.spr odksieg.prg qRIBBON DBFNAME ANETTOT VATTOT TYPVAT VATNAME GETKSIEG NOTICE ZAKDEC STARTLIS MAINPATH VATALIAS LISTA ZAKDRUK DOKSIEGI eODKSIEG CLEARRIB TALKz COMPATIBLEz _r79101kzg Zakupy VAT _curobj=objnum(m.exitok) _curobj=objnum(m.exiterr) _r79101kzg Koszty : Zaopatrzeniowe : rodki trwa e : Numer dowodu: @L 99 Razem : Kod firmy : Nazwa : Ulica : Miasto : NIP : Data zakupu: z dnia : @K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX @K 99-999 @K XXXXXXXXXXXXXXXXXXXX 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 wartoF wartoF wartoF wartoF podatek : podatek : podatek : podatek : cznie : @*IVN @*IVN @*IVN @*HN Zapisz i kontynuuj @*HT Zaniechaj @*HN Zapisz i zakoF _r79101kzg rnal aWHICH bbonCONT ate mRIBBON m.EXITOK m.EXITERR m.EXITFIN m.DBFNAME opAREA m.vIOPEN m.oVATAREA ubOLDCODE e,CODE , m.fNIP m.oFIRMA = ""CURRAREA NTALKSTAT ACOMPSTAT .talkst_R79101KZGF10 EXTERNESC RAY PLVATNAME "TVATALIAS NMAINPATH LPODM m.tDZIEN "PRZEZN MAKEDATA tMIESNR EROKNR .comDATATOW ETDATA ATIBLNETTOT CONETINW1 FONETINW2 * NETINW3 NETZAO1_ZWNETZAO1_0 NETZAO1_7 NETZAO1_22NETZAO1_12VATZAO1_7 VATZAO1_22VATZAO1_12NETZAO2_7 NETZAO2_22NETZAO2_12NETZAO3_7 NETZAO3_22NETZAO3_12NETKOSZT1 NETKOSZT2 NETKOSZT3 VATTOT VATINW2 VATINW3 VATZAO2_7 VATZAO2_22VATZAO2_12VATZAO3_7 VATZAO3_22VATZAO3_12VATKOSZT2 VATKOSZT3 FULLYEAR GDOWOD _R79101LKV_R79101LMH_R79101LOH_R79101LPYULICA r79_R79101LTK_R79101LV1MIASTO 23,_R79101LWS_R79101LY9KOD _R79101M00_R79101M1I_R79101M38_R79101M4QINW _R79101MKDZAOP _R79101MM0KOSZT _R79101MNL_R79101MPP_R79101MR7_R79101MTR_R79101MV5_R79101MXY_R79101N04_R79101N05 ewzakvat rnal aID bbonIDENT te mZAKSIEG m.IDKSIEGI .DATA m.MAKEDATA .DZIEN opMIESNR m.vROKNR m.oMAINPATH bPODM e,DBFNAME .fDZI2DATA ICODE al aIFIRMA bonIULICA e mIMIASTO m.IKOD .INIP m.NIP .CODE opFIRMA m.vULICA m.oMIASTO e,WPISZFIR OLDOPIS aICODE bonIFIRMA e mIULICA m.IMIASTO .IKOD m.INIP opCODE m.vFIRMA m.oULICA bMIASTO e,KOD fDODFIRME Nie ma firmy o takim kodzie aEWFIRM bonFIRMA e mULICA m.MIASTO m.NIP do _wpiszfirme do _dodfirme aOLDCODE onCODE e mACT aCODE onOLDCODE mFINDFIRM DO _WPISZFIRme do _dodfirme aACT DO _WPISZFIRme do _dodfirme aACT DO _WPISZFIRme do _dodfirme aACT DO _WPISZFIRme do _dodfirme aACT do _wpiszfirme do _dodfirme aACT Musisz wpisaF NIP konrahenta! WHICH aNIP ewzakinw.spr EWZAKINW onACT mWHICH ewzakzao.spr EWZAKZAO onACT mWHICH ewzakkos.spr EWZAKKOS onACT mWHICH AKKOS Musisz wpisaF NIP kontrahenta! WHICH mCOMMIT Musisz wpisaF NIP kontrahenta! WHICH mCOMMIT .CONT WHICH aPRZEZN onNIP mACT .EXITFIN _R79101KZG 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 99,999,999,999.99 CURRWIND aNETTOT nNETINW1 mNETINW2 .NETINW3 .NETZAO1_ZWNETZAO1_0 NETZAO1_7 NETZAO1_22NETZAO1_12VATZAO1_7 VATZAO1_22VATZAO1_12NETZAO2_7 NETZAO2_22NETZAO2_12NETZAO3_7 NETZAO3_22NETZAO3_12NETKOSZT1 NETKOSZT2 NETKOSZT3 VATTOT "TVATINW2 NVATINW3 LVATZAO2_7 VATZAO2_22VATZAO2_12VATZAO3_7 VATZAO3_22VATZAO3_12VATKOSZT2 VATKOSZT3 _R79101KZGCOMMIT _WPISZFIRM _DODFIRME FINDFIRM _R79101LKV _R79101LMH _R79101LOH _R79101LPY _R79101LTK _R79101LV1 _R79101LWS _R79101LY9 _R79101M00 _R79101M1I _R79101M38 _R79101M4Q _R79101MKD _R79101MM0 _R79101MNL _R79101MPP _R79101MR7 _R79101MTR _R79101MV5 _R79101MXY _R79101N04 _R79101N05 Wybierz typ dokumentu TALKz COMPATIBLEz _qz90oq4c3 Wybierz typ dokumentu _qz90oq4c3 Faktury VAT Rachunki uproszczone Faktury korygujF Rachunki korygujF @*IVT @*IVT @*IVT @*IVT _qz90oq4c3 RIBBON TITLE CURRAREA TALKSTAT COMPSTAT _QZ90OQ4C3_QZ90OQ4OZ_QZ90OQ4RX_QZ90OQ4UU_QZ90OQ4XR _QZ90OQ4OZ _QZ90OQ4RX _QZ90OQ4UU _QZ90OQ4XR .zaksieg .idksiegi form.app ewzakvat.spr ewzakvat.spr TTYPE IOPEN ALIAS DZIEN OMPAGETKSIEG NOTICE VATALIAS ,TAKNIE MAINPATH FPODM EWZAKVAT zaksieg TYPKS DZIEN netKAT UWAGI 1AREA IOPEN ALIAS 5TAG1 VATNAME NAZWAKOL wVATALIAS MAINPATH FULLYEAR "ROKNR KOLNAME1 ;KOLNAME GETKSIEG NOTICE >ZAKSIEG KSIEGALL TAKNIE KSIEGPART faktury VAT rachunki uproszczone faktury korygujF rachunki korygujF insert into work (id, data, typ, kateg, poprawka, blokada, opis, &nazwakol, uwagi ) values ( ident("work"), makedata( m.dzien, m.miesnr, m.roknr ), 20+m.typ, m.kat, .f., .f., m.opis, m.nettotal, m.uwagi ) idksiegi .zaksieg TODEL IOPENW NETTOTAL tNAZWA NETZAO1_ZWNETZAO1_0 NETZAO1_7 NETZAO1_12NETZAO1_22VATZAO1_7 VATZAO1_12VATZAO1_22NETZAO2_7 NETZAO2_12NETZAO2_22NETZAO3_7 NETZAO3_12NETZAO3_22NETKOSZT1 NETKOSZT2 NETKOSZT3 MAINPATH >NAME ALIAS IDKSIEGI SETKSIEG .netzao1_zw+ .netzao1_0+ .netzao1_7+ .netzao1_12+ .netzao1_22 .vatzao1_7+ .vatzao1_12+ .vatzao1_22 .netzao2_7+ .netzao2_12+ .netzao2_22 .netzao3_7+ .netzao3_12+ .netzao3_22 .netkoszt1+ .netkoszt2+ .netkoszt3 insert into work (id, data, dowod, typ, kateg, poprawka, blokada, opis, &nazwakol, uwagi, firma, ulica, miasto, kod ) values ( m.idksiegi, eval(m.alias+".data"), eval(m.alias+".dowod"), m.typ, m.kat, .f., .f., m.opis, m.netval, m.uwagi, eval(m.alias+".firma"), eval(m.alias+".ulica"), eval(m.alias+".miasto"), eval(m.alias+".kod") ) IOPENW IDKSIEGI NETVAL MAINPATH O1_ZWNAME ALIAS 1_12DATA _22ZAKSIEG IDENT 2KSIEGALL KSIEGPART IOPEN MYALIAS MAINPATH GETKSIEG VATALIAS ZAKSIEG DELKSIEG NOTICE exactz _lowzorzec _lolistabr _lowzorzec TYTUL DLWZORCA MYILOSC ALIAS TOMENTER TOMPODGLADINFO CZYBLOK POMOC POLA1 INDEX1 POLA2 INDEX2 POLA3 INDEX3 POLA4 INDEX4 POLA5 50 SUM ALL &sumwyr TO ARRAY sumy Razem 99,999,999,999.99 LEJNOSC ILREC SUMWYR SUMILE TOMANULUJ _LOSUMY SUMGDZIE PRZEGLAD WYKAZ REFRSUMY 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 ZAKALIAS SPALIAS GETKSIEG NOTICE IDKSIEGI VATALIAS ZAKSIEG TAKNIE 9WORK EWWYPOS DZIEN MIESIAC GIROK TALIASFULLYEAR DZIEN ewfirmy.app EWFIRMY 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 F__OBJS HBEFPOINTOLKEYESC KEYF10 KURSOR danSELECTCOLOGETCOLOR MFIRSTSHOT MOUSEQUIT FULLWIDTH ZAKROPKA KJESTKROPKAPRZEDKROPKMINUS ALUEOLDPK ALUEOLDMINUS KOLDZK NEWLOOK KONIEC UPDATEFULLMOUSEX MOUSEY LLWIDTH __NUMOBJ aGETNAME ROPKA 999,999,999,999c pointz PRZED WORKSTR INUPDATEFULLMINUS JESTKROPKAFULLWIDTH MINUS BEFOREPOINBEFPOINTOLWITHMINUS NEWLOOK UPDATEFULL ilacjaACT SIEGA\EWSVF VATNEWSVR EWSVFK EWSVRK EWZVF EWZVR EWZVFK EWZVRK miesiace. RETVAL FLDNAME MIESIACE MIESIAC MIESNR VATFIELD CURSORz errors WciF nij dowolny klawisz ... ECodeF SET CURSOR &curstat ECODE1 cjaECODE2 GA\ECODE3 OTIOLDALIAS 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 lacjaAREA IEGA\RETVAL DENIDENT m.xloc = m.xloc errors \