home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S731B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1997-04-04
|
12KB
|
339 lines
m7_obrp
cis_dok
m7_pokl
ident_pok
m7_poklo
pokladn
ch doklad
, pokladna :
RIIS 7.31
mod_proc
Pokladna neexistuje
mod_proc
Pro zadanou pokladnu nem
te opr
mod_proc
ehled pokladn
ch obrat
, pokladna: F
ehled pokladn
ch obrat
RIIS 7.31
Den,dokl.,pol
s731b
pok_rada+' '
pok_rada
Doklad
' '+str(cis_dok,5)
cis_dok
typ_dok+' '
typ_dok
klic+' '
klic_d
klic_d
tran(dat_uct,'@E')
dat_uct
str(castka_men,12,2)
castka_men
' '+mena
Kurz
str(kurz,8,3)
stka K
str(castka_kc,12,2)
castka_kc
klad dan
str(zakl_d,12,2)
zakl_d
Da
str(dan,12,2)
' '+str(poc_priloh,2)
poc_priloh
poznamka
poznamka
Identif.
totoznost
totoznost
Faktura
vars_s
vars_s
zavod+' '
zavod
hrada
tran(dat_spl,'@E')+' '
dat_spl
tran(dat_zdanp,'@E')
dat_zdanp
' '+str(mesic,2)
mesic
str(rok,4)
str(cis_g,5)
cis_g
Dat.akt.
tran(dat_akt,'@E')
dat_akt
Autor
autor
autor
Aktual.
aktual
aktual
M7_OBRP
?CIS_DOK
20M7_POKL
10IDENT_POK
PAR_732
M7_POKLO
2UZIV
F201PRIHLAS
W_POKL
ZOBR_POKL
MOD_PROC
1HLASKA
03POLEX
FREEZE
LRAMECEK
20NAZEVT
10RIIS
NADPIS
R2PRAVA
S201HOR
T20104DOL
KLICO
X20F2
Y2010F3
Z20104
^202F7
_20201F8
20201
c20F9KEY
2020PROCX
h2JMENO
i202HODN
0201I
MOD_PSV
mOBSAH
m_cis1
x_cis1
m_dat
x_dat
m4_organ
m7_kasa
cis_g
mod79d
mod79d
M_CIS1
?X_CIS1
20M_DAT
10X_DAT
M4_ORGAN
2M7_KASA
01CIS_G
C7_OBRU
DETAIL
MOD79D
1CIS_GD
p_uzavf
m7_pokp
m7_kasa
cis_g
m7_vdra
cis_pok
u7_kasa
cis_g
u7_vdra
cis_pok
funkce
mod79f
ehled DPH pokladny za obdob
RIIS 7.9.
Pok.doklad
dok_pok
dok_pok
Proc.
str(proc_d,5,2)
proc_d
Z
klad
str(zakl_d,12,2)
zakl_d
Da
str(dan,12,2)
Splat.
tran(kasa.dat_spl,'@E')
(kasa.dat_spl )
klic_d
klic_d
DI
Text
kasa.text
kasa.text
P_UZAV
?M7_POKP
20P_RK
10ROK_POK
MESIC_POK
M7_KASA
01CIS_G
M7_VDRA
CIS_POK
03CIS_G_P
U7_KASA
LU7_VDRA
20POLEX
S201F5
T20104F6
X20F9
Y2010F10
20104
F10_JM
F10PRG
]2PROCX
^202RAMECEK
01NAZEVT
bNADPIS
c20LEVA
2020PRAVA
h2KLICO
i202ZAHL
0201SOUC
JMENO
mHODN
MOD_PSV
OBSAH
no(it
Celkem za p
ehled FF
ZAKL_D
20_SOUC
mod79f
a7_obru
ca7_zak
a7_obru
ca7_dan
a7_vstup
ca7_ddan
ca7_zak
ca7_dan
ca7_cdan
c7_cdan
soucet
ehled DPH pokladny za obdob
RIIS 7.9.
Pok. doklad
ca7_cdan.par_znak
ca7_cdan.par_znak
' '+ca7_cdan.cinnost
ca7_cdan.cinnost
Proc.
str(ca7_cdan.dan,5,2)
ca7_cdan.dan
Z
klad
str(ca7_cdan.zakl,13,2)
ca7_cdan.zakl
Da
str(ca7_cdan.kc_dan,13,2)
ca7_cdan.kc_dan
Splat.
tran(ca7_cdan.datum,'@E')
(ca7_cdan.datum )
ca7_cdan.nstr
ca7_cdan.nstr
str(ca7_cdan.obdobi_mm,2)
ca7_cdan.obdobi_mm
Text.
ca7_cdan.text
ca7_cdan.text
POLEX
?PROCX
20RTOP
10RBOT
CLEFT
CRIGHT
FREEZE
01ORDER
JMENO
1TITLE
03TITLECOLORF1
S201F10
T20104DETAIL
F1PRG
WF4_JM
X20F4PRG
2010F7_JM
F7PRG
F9KEY
]2F10_JM
202F10PRG
01DET_JM
DETPRG
bRAMECEK
20NAZEVT
020RIIS
TISKPRG
PS_RETURN
KLICO
i202POC0
0201F5
mPAR_ZNAK
no(iZAKL
(dan,CIS_POL
odA7_OBRU
SKUPINA
.tUCET
OBDOBI_MM
plat.'_DO
BI_MM
CA7_ZAK
a.KC_DAN
ECINNOST
(iNSTR
daDATUM
)TEXT
polozCA7_DAN
= i+1CIDOK
(iZAK_DAN
mHODNOTA
trSKL2
i)=STR_N
= DAT_VYST
hIDENT_VS
OBDOBI
)="A7_VSTUP
CA7_DDAN
R_ZNAK
(CA7_CDAN
M7_POKP
)MESIC_POK
C7_CDAN
cpROK_POK
NADPIS
(i)LEVA
jPRAVA
='kaHOR
)="kasSOUC
_psvMOD_PSV
zOBSAH
eno,p
Celkem za p
ehled FF
CA7_CDAN
?ZAKL
20KC_DAN
0_SOUC
colora
set color to &color
?COLOR
20OBR
0DETAIL
MOD79F2
FUNKCE
menou
OBD_DPH
SOUCET
HLASKA
L:\OBEC\07\
S731B.FXP
L:\OBEC\07\S731B.PRG