home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
system.arj
/
EWZAKVAT.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
96KB
|
1,856 lines
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
<SouINDEX5
NUMER
IOPEN
..\UEXACT
OWY.AREA
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
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
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
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
MONTH
ROKNR
MIESNR
ilacjaFULLYEAR
\ROKNR
CURDMIESNR
replace &fldname with .t.
MIESIACE
MIESIAC
MIESNR
FLDNAME
VATFIELD
replace &fldname with .f.
MIESIACE
MIESIAC
MIESNR
FLDNAME
VATFIELD
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
lacjaWIND
IEGA\COL
N\SETR
ksvfk
ksvrk
kzvfk
kzvrk
faktury VAT
rachunki uproszczone
faktury korygujF
rachunki korygujF
Zakupy wg ewidencji:
_curobj=objnum(m.exitok)
_curobj=objnum(m.exiterr)
TALKz
COMPATIBLEz
_qz90oqbez
Dane ksiF
gowania zakup
w VAT
_qz90oqbez
Kategoria:
Uwagi:
Data ksiF
gowania:
guj jako
Kolumna:
@*RVN jeden zapis zbiorczy;pojedyncze dokumenty
@KL 99
@!TK XXXXXXXXXX
@KZ 99
@K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
@*HN KsiF
@*HT Zaniechaj
Opis :
_qz90oqbez
DERIBBON
LEWDZIEN
CEWUKAT
1EWREDOK
2EWZVFOPIS
UWAGI
HNAZWA
2EF10
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OQBEZFULLYEAR
ZROKNR
TWODIG
MIESNR
_QZ90OQBXBACT
_QZ90OQC0Y_QZ90OQC57_QZ90OQC82_QZ90OQCBD_QZ90OQCE4_QZ90OQCHT_QZ90OQCKKEXITOK
_QZ90OQCOR_QZ90OQCRFEXITERR
_QZ90OQCVW(
kolumnyn
Brak opisu kolumn
Nr:R:2 :H = 'Nr',Nazwa:50:H='Opis'
Nrzak
LEWWYBIERZ
WUSYSPATH
RERIBBON
VFKOL
DEDZIEN
Musisz podaF
a data
DZIEN
LEWMAXDAY
WUMIESNR
do wpiskat.prg
do dodkat.prg
DEACT
do wybkolumna
Nie moF
esz wybra
tej kolumny
DEKOL
LEWFULLYEAR
UROKNR
do wpisopis.prg
do dodopis.prg
Musisz podaF
a data
ksieguj.prg
DZIEN
LEWMAXDAY
UMIESNR
REKSIEGUJ
VFPRG
2EUWAGI
DEWYBKOLUMNA
_QZ90OQBXB
_QZ90OQC0Y
_QZ90OQC57
_QZ90OQC82
_QZ90OQCBD
_QZ90OQCE4
_QZ90OQCHT
_QZ90OQCKK
_QZ90OQCOR
_QZ90OQCRF
_QZ90OQCVW
@L 99c
wzakup
wkoszty
wpodatek
wprzerob
wreklama
wwyplata
wnatura
winne
PrzeglF
danie danych kontrahenta
TALKz
COMPATIBLEz
_qz90oqekx
CURSORz
listazw
ewfirmy
firma
_qz90oqekx
Kod firmy:
Nazwa :
Ulica :
Kod :
Telefon :
Telex :
Fax :
NIP :
MiejscowoF
Adres
Bank
Nazwa :
Konto :
Opis :
@K 99-999
_qz90oqekx
set cursor &curs
A_QOKTAG1
fOY_TAG2
fIOPEN
682QEXITOK
K16EXITERR
QOTYTKON
f;1TAG
6834O
OK1683CURS
_QOK1FIRMA
;2_QULICA
f;MIASTO
3GYKOD
QOK168NIP
;2_QOKNAZWA
f;2_CODE
fOPIS
1683QRIBBON
K16PL
f;2_QOCURRAREA
3TALKSTAT
COMPSTAT
_QZ90OQEKXSETRIB
3NELISTAZW
f;MAINPATH
WZAKVTELEFON
KXFAX
f;3TTELEX
BANK
AKVATKONTO
IEN2CLEARRIB
kateg
kateg
kateg
Brak kategorii
kateg:H = 'Kategoria', opiskat:H='Opis'
kateg
RIBBON
KATEG
WYBIERZ
MAINPATH
kat.app
RIBBON
KATEG
opis.app
NURIBBON
IONAZWA
UMEXOPIS
Y.SARAPP
Opisy zdarzeF
opisy
nazwa
Brak opisF
nazwa:R:70 :H = 'Nazwa zdarzenia'
nazwa
RIBBON
NAZWA
WYBIERZ
MAINPATH
druk.app
ewzakdet
druk.app
ewzakvat
lacjaPYTANIE
A\DRUK
AT\ZAAPP
TALKz
COMPATIBLEz
m.netinw1i
m.netinw2i
m.vatinw2i
m.netinw3i
m.vatinw3i
m.exitok
m.exiterr
_qz90oqggx
Zakupy VAT - inwestycyjne
_curobj=objnum(m.exitok)
_curobj=objnum(m.exiterr)
_qz90oqggx
Zakupy nie podlegajF
ce odliczeniu,
Zakupy opodatkowane zwiF
Zakupy opodatkowane zwiF
zane ze
cznie :
podatek :
wartoF
wartoF
podatek :
wartoF
podatek :
wartoF
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
nie opodatkowane lub objF
te stawk
0% :
cznie ze sprzeda
opodatkowan
:
sprzedaF
zwolnion
i opodatkowan
:
Razem :
@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
@*HT Zapisz
@*HT Zaniechaj
_qz90oqggx
WHICH
RIBBON
EXITOK
EXITERR
NETINW1I
NETINW2I
NETINW3I
VATINW2I
VATINW3I
CURRAREA
TALKSTAT
_COMPSTAT
& m.va__OBJS
ALI__NUMOBJ
_QZ90OQGGXF10
* ESC
NETINW1
NETINW2
NETINW3
VATINW2
VATINW3
_QZ90OQHAI_QZ90OQHDZ_QZ90OQHH2_QZ90OQHKE_QZ90OQHNN_QZ90OQHQZ_QZ90OQHU3_QZ90OQHXG_QZ90OQI0J_QZ90OQI3V_QZ90OQI7G_QZ90OQIBN_QZ90OQIBQIOPEN
XAREA
m.exiterrFF
m.exitok
m.netinw2i8
SETRIB
RIBBON
GF
NETINW1I
WHICH
m.netinw1i
m.vatinw2i
WHICH
SETRIB
RIBBON
GF
NETINW2I
m.netinw2i
m.netinw3i
WHICH
SETRIB
RIBBON
GF
VATINW2I
m.vatinw2i
m.vatinw3i
WHICH
SETRIB
RIBBON
GF
NETINW3I
m.netinw3i
m.exitok
WHICH
SETRIB
RIBBON
GF
VATINW3I
NETINW1
NETINW1I
NETINW2
NETINW2I
NETINW3
NETINW3I
VATINW2
VATINW2I
VATINW3
VATINW3I
WHICH
NETINW2I
NETINW3I
VATINW2I
VATINW3I
_QZ90OQGGX
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
CURRWIND
_QZ90OQGGXNETINW1I
NETINW2I
NETINW3I
VATINW2I
VATINW3I
_QZ90OQHAI
_QZ90OQHDZ
_QZ90OQHH2
_QZ90OQHKE
_QZ90OQHNN
_QZ90OQHQZ
_QZ90OQHU3
_QZ90OQHXG
_QZ90OQI0J
_QZ90OQI3V
_QZ90OQI7G
_QZ90OQIBN
_QZ90OQIBQ
TALKz
COMPATIBLEz
m.netkoszt1i
m.netkoszt2i
m.vatkoszt2i
m.netkoszt3i
m.vatkoszt3i
m.exitok
m.exiterr
_qz90oqjme
Zakupy VAT - koszty
_curobj=objnum(m.exitok)
_curobj=objnum(m.exiterr)
_qz90oqjme
Zakupy nie podlegajF
ce odliczeniu,
Zakupy opodatkowane zwiF
Zakupy opodatkowane zwiF
zane ze
cznie :
podatek :
wartoF
wartoF
podatek :
wartoF
podatek :
wartoF
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
nie opodatkowane lub objF
te stawk
0% :
cznie ze sprzeda
opodatkowan
:
sprzedaF
zwolnion
i opodatkowan
:
Razem :
@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
@*HT Zapisz
@*HT Zaniechaj
_qz90oqjme
OS.SPRWHICH
RIBBON
EXITOK
EXITERR
NETKOSZT1INETKOSZT2INETKOSZT3IVATKOSZT2IVATKOSZT3ICURRAREA
TALKSTAT
COMPSTAT
__OBJS
__NUMOBJ
_QZ90OQJMEF10
NETKOSZT1
NETKOSZT2
NETKOSZT3
VATKOSZT2
VATKOSZT3
_QZ90OQKFH_QZ90OQKIY_QZ90OQKM1_QZ90OQKPD_QZ90OQKSU_QZ90OQKW7_QZ90OQKZB_QZ90OQL2N_QZ90OQL5Q_QZ90OQL93_QZ90OQLCH_QZ90OQLFA_QZ90OQLJD_QZ90OQLMH_QZ90OQLMKIOPEN
EAREA
m.exiterrFF
m.exitok
m.netkoszt2i8
OS.SPRSETRIB
RIBBON
NETKOSZT1IWHICH
m.netkoszt1i
m.vatkoszt2i
OS.SPRWHICH
SETRIB
RIBBON
T1INETKOSZT2I
m.netkoszt2i
m.netkoszt3i
OS.SPRWHICH
SETRIB
RIBBON
T1IVATKOSZT2I
m.vatkoszt2i
m.vatkoszt3i
OS.SPRWHICH
SETRIB
RIBBON
T1INETKOSZT3I
m.netkoszt3i
m.exitok
OS.SPRWHICH
SETRIB
RIBBON
T1IVATKOSZT3I
OS.SPRACT
NETKOSZT1
NETKOSZT1INETKOSZT2
NETKOSZT2INETKOSZT3
NETKOSZT3IVATKOSZT2
VATKOSZT2IVATKOSZT3
VATKOSZT3I
KOSZT1
WHICH
NETKOSZT2INETKOSZT3IVATKOSZT2IVATKOSZT3IH
_QZ90OQJME
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
CURRWIND
_QZ90OQJMENETKOSZT1INETKOSZT2INETKOSZT3IVATKOSZT2IVATKOSZT3I_QZ90OQKFH
_QZ90OQKIY
_QZ90OQKM1
_QZ90OQKPD
_QZ90OQKSU
_QZ90OQKW7
_QZ90OQKZB
_QZ90OQL2N
_QZ90OQL5Q
_QZ90OQL93
_QZ90OQLCH
_QZ90OQLFA
_QZ90OQLJD
_QZ90OQLMH
_QZ90OQLMK
TALKz
COMPATIBLEz
m.zao1
m.zao2
m.zao3
m.exitok
m.exiterr
_r79101pky
Zakupy VAT - zaopatrzeniowe
_curobj=objnum(m.exitok)
_curobj=objnum(m.exiterr)
_r79101pky
Zakupy opodatkowane zwiF
Zakupy opodatkowane zwiF
zane ze
cznie :
podatek :
wartoF
wartoF
podatek :
wartoF
podatek :
wartoF
@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
Zakupy nie podlegajF
ce odliczeniu,
nie opodatkowane lub objF
te stawk
0% :
cznie ze sprzeda
opodatkowan
:
sprzedaF
zwolnion
i opodatkowan
:
Razem :
@*IVN
@*IVN
@*IVN
@*HT Zapisz
@*HT Zaniechaj
_r79101pky
WHICH
do sRIBBON
pr EXITOK
ct,EXITERR
, NETZAO1_2INETZAO1_7IVATZAO1_2IVATZAO1_7INETZAO1_0INETZAO1_ZINETZAO2_2INETZAO2_7IVATZAO2_2IVATZAO2_7INETZAO3_2INETZAO3_7IVATZAO3_2IVATZAO3_7INETZAO1_1IVATZAO1_1INETZAO2_1IVATZAO2_1INETZAO3_1IVATZAO3_1ICURRAREA
aTALKSTAT
COMPSTAT
__OBJS
__NUMOBJ
_R79101PKYF10
NETZAO1_22NETZAO1_7
VATZAO1_22VATZAO1_7
NETZAO1_0
NETZAO1_ZWNETZAO2_22NETZAO2_7
VATZAO2_22VATZAO2_7
NETZAO3_22NETZAO3_7
VATZAO3_22VATZAO3_7
NETZAO1_12NETZAO2_12NETZAO3_12VATZAO1_12VATZAO2_12VATZAO3_12NETZAO1
NETZAO2
1INETZAO3
1IVATZAO2
1IVATZAO3
1IZAO1
KY_R79101QB4ZAO2
_R79101QD1ZAO3
_R79101QEX_R79101QH2_R79101QKT_R79101QKUIOPEN
YAREA
m.act\
stawki1.spr
STAWKI1
do sACT
pr NETZAO1_2INETZAO1_1INETZAO1_7IVATZAO1_2IVATZAO1_1IVATZAO1_7INETZAO1_0INETZAO1_ZIQ
stawki23.spr
STAWKI23
do sACT
pr NETZAO2_2INETZAO2_1INETZAO2_7IVATZAO2_2IVATZAO2_1IVATZAO2_7IQ
stawki23.spr
STAWKI23
do sACT
pr NETZAO3_2INETZAO3_1INETZAO3_7IVATZAO3_2IVATZAO3_1IVATZAO3_7IW
NETZAO1_22NETZAO1_2INETZAO1_7
NETZAO1_7IVATZAO1_22VATZAO1_2IVATZAO1_7
VATZAO1_7INETZAO1_0
NETZAO1_0INETZAO1_ZWNETZAO1_ZINETZAO2_22NETZAO2_2INETZAO2_7
NETZAO2_7IVATZAO2_22VATZAO2_2IVATZAO2_7
VATZAO2_7INETZAO3_22NETZAO3_2INETZAO3_7
NETZAO3_7IVATZAO3_22VATZAO3_2IVATZAO3_7
VATZAO3_7INETZAO1_12NETZAO1_1INETZAO2_12NETZAO2_1INETZAO3_12NETZAO3_1IVATZAO1_12VATZAO1_1IVATZAO2_12VATZAO2_1IVATZAO3_12VATZAO3_1I:
WHICH
1_22ZAO2
O1_2IZAO3
_R79101PKY
@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
CURRWIND
2NETZAO1
INETZAO1_ZINETZAO1_0INETZAO1_2INETZAO1_7IVATZAO1_2IVATZAO1_7INETZAO1_1IVATZAO1_1INETZAO2
ZWNETZAO2_2INETZAO2_7INETZAO2_1INETZAO3
NETZAO3_2INETZAO3_7INETZAO3_1IVATZAO2
VATZAO2_2IVATZAO2_7IVATZAO2_1IVATZAO3
VATZAO3_2IVATZAO3_7IVATZAO3_1I_R79101PKY_R79101QB4
_R79101QD1
_R79101QEX
_R79101QH2
_R79101QKT
_R79101QKU
TALKz
COMPATIBLEz
m.net22i
m.vat22i
m.net12i
m.vat12i
m.net7i
m.vat7i
m.net0i
m.netzwi
m.exitok
m.exiterr
stawki
_curobj=objnum( m.exitok )
_curobj=objnum( m.exiterr )
stawki
Stawka 22% :
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
Kwota netto
Stawka 0% :
Zwolnione :
Stawka 7% :
Stawka 12% :
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
@*HT Zapisz
@*HT Zaniechaj
stawki
NET22
NET12
VAT22
VAT12
NETZW
NET22I
NET12I
NET7I
VAT22I
VAT12I
VAT7I
NET0I
NETZWI
RIBBON
CURRAREA
TALKSTAT
COMPSTAT
__OBJS
__NUMOBJ
STAWKI
_R79101RRK_R79101RU9_R79101RWP_R79101RZ3_R79101S4G_R79101S6U_R79101S9B_R79101SBFEXITOK
_R79101SDUEXITERR
m.exiterr
m.vat22i
SETRIB
RIBBON
NET22I
VAT22I
m.net22i
m.net12i
VAT22I
NET22I
SETRIB
RIBBON
m.vat22i
m.vat12i
SETRIB
RIBBON
NET12I
VAT12I
m.net12i
m.net7i
VAT12I
NET12I
SETRIB
RIBBON
m.vat12i
m.vat7i
SETRIB
RIBBON
NET7I
VAT7I
m.net7i
m.net0i
VAT7I
NET7I
SETRIB
RIBBON
m.vat7i
m.netzwi
SETRIB
RIBBON
NET0I
m.net0i
m.exitok
SETRIB
RIBBON
NETZWI
NET7I
NET12
NET12I
NET22
NET22I
NET0I
NETZW
NETZWI
VAT7I
VAT22
VAT22I
VAT12
VAT12I
_R79101RRK
_R79101RU9
_R79101RWP
_R79101RZ3
_R79101S4G
_R79101S6U
_R79101S9B
_R79101SBF
_R79101SDU
TALKz
COMPATIBLEz
m.net22i
m.vat22i
m.net7i
m.vat7i
m.exitok
m.exiterr
m.net12i
m.vat12i
stawki
_curobj=objnum( m.exitok )
_curobj=objnum( m.exiterr )
stawki
Stawka 22% :
Stawka 7% :
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
@*HT Zapisz
@*HT Zaniechaj
Kwota netto
99,999,999,999.99
99,999,999,999.99
Stawka 12% :
stawki
#REGIOY
IF WVINET22
stawNET12
ACTINET7
INDOWVAT22
SAMVAT12
AVAT7
E WINNET22I
ki NET7I
ENDVAT22I
1 SVAT7I
wka NET12I
@ 3VAT12I
StaRIBBON
CURRAREA
5TALKSTAT
4COMPSTAT
SIZE__OBJS
D__NUMOBJ
STAWKI
999,99ESC
.99" ;_R79101TGH_R79101TJ9_R79101TLQ_R79101TO3EXITOK
.va_R79101TRMEXITERR
_R79101TUN_R79101TX0
m.exiterr
m.vat22i
SETRIB
GIORIBBON
WVIGF
tawNET22I
CTIVAT22I
m.net22i
m.net12i
VAT22I
GIONET22I
WVISETRIB
tawRIBBON
CTIGF
m.vat12i
m.vat7i
SETRIB
GIORIBBON
WVIGF
tawNET7I
CTIVAT7I
m.net7i
m.exitok
VAT7I
GIONET7I
WVISETRIB
tawRIBBON
CTIGF
NET7I
GIONET22
WVINET22I
tawNET12
CTINET12I
DOWVAT12
SAMVAT12I
AVAT7
E WINVAT7I
ki VAT22
ENDVAT22I
m.vat22i
m.vat12i
SETRIB
GIORIBBON
WVIGF
tawNET12I
CTIVAT12I
m.net12i
m.net7i
VAT12I
GIONET12I
WVISETRIB
tawRIBBON
CTIGF
DOW_R79101TGH
_R79101TJ9
_R79101TLQ
_R79101TO3
_R79101TRM
_R79101TUN
_R79101TX0
errors
komunikF
QUEST
KOMUNIK1
KOMUNIK2
KOMUNIK3
ILOSC
IOPEN
SYSPATH
INFOTOM
FOTOM
ERRORS
ERRCODE
MESSAGE
CZYTAK
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
wzakup
wkoszty
wreklama
wwyplata
winne
..\EWZAKVAT\EWZAKVAT.PRG
C:\KSIEGA\SYSTEM\
..\EWZAKVAT\EWZAKVAT.SPR
..\COMMSCR\TYPVAT.SPR
..\EWZAKVAT\ZAKDEC.PRG
..\EWZAKVAT\KSIEGUJ.PRG
..\EWZAKVAT\ODKSIEG.PRG
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\COMMON\WYBIERZ.PRG
..\EWZAKVAT\ZAKKASUJ.PRG
..\COMMON\MAKEDATA.PRG
..\COMMON\DZI2DATA.PRG
..\COMMON\DODFIRME.PRG
..\COMMON\WPISZFIR.PRG
..\COMMON\GF.PRG
..\COMMON\VATNAME.PRG
..\COMMON\GETKSIEG.PRG
..\COMMON\NOTICE.PRG
..\COMMON\VATALIAS.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\IDENT.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\MAXDAY.PRG
..\COMMON\CURDATE.PRG
..\COMMON\SETKSIEG.PRG
..\COMMON\DELKSIEG.PRG
..\COMMON\SETRIB.PRG
..\COMMON\VATFIELD.PRG
..\EWZAKVAT\DOKSIEGI.SPR
..\COMMON\TWODIG.PRG
..\COMMON\KOLNAME.PRG
..\COMMSCR\FIRMA.SPR
..\COMMON\WPISKAT.PRG
..\COMMON\DODKAT.PRG
..\COMMON\DODOPIS.PRG
..\COMMON\WPISOPIS.PRG
..\COMMON\FULLYEAR.PRG
..\EWZAKVAT\ZAKDRUK.PRG
..\EWZAKVAT\EWZAKINW.SPR
..\EWZAKVAT\EWZAKKOS.SPR
..\EWZAKVAT\EWZAKZAO.SPR
..\COMMSCR\STAWKI1.SPR
..\COMMSCR\STAWKI23.SPR
..\COMMON\PYTANIE.PRG
..\COMMON\CZYTAK.PRG
..\COMMON\KOLNAME1.PRG
EWZAKVAT.FXP
EWZAKVAT.SPX
TYPVAT.SPX
ZAKDEC.FXP
KSIEGUJ.FXP
ODKSIEG.FXP
STARTLIS.FXP
LISTA.FXP
WYBIERZ.FXP
ZAKKASUJ.FXP
MAKEDATA.FXP
DZI2DATA.FXP
DODFIRME.FXP
WPISZFIR.FXP
GF.FXP
VATNAME.FXP
GETKSIEG.FXP
NOTICE.FXP
VATALIAS.FXP
CLEARRIB.FXP
IDENT.FXP
TAKNIE.FXP
MAXDAY.FXP
CURDATE.FXP
SETKSIEG.FXP
DELKSIEG.FXP
SETRIB.FXP
VATFIELD.FXP
DOKSIEGI.SPX
TWODIG.FXP
KOLNAME.FXP
FIRMA.SPX
WPISKAT.FXP
DODKAT.FXP
DODOPIS.FXP
WPISOPIS.FXP
FULLYEAR.FXP
ZAKDRUK.FXP
EWZAKINW.SPX
EWZAKKOS.SPX
EWZAKZAO.SPX
STAWKI1.SPX
STAWKI23.SPX
PYTANIE.FXP
CZYTAK.FXP
KOLNAME1.FXP