home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
MOD79E.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-01-08
|
9KB
|
283 lines
m_param
m4_uc_o
m7_kasa
datum
m7_fadod
vars_s
m7_faodb
vars_s
m7_meny
uza_dne
Den-uz
Rekap.
rekapit
mod79e
ehled pohybu v pokladn
dne: F
RIIS 7.9
' '+m7_meny.mena
m7_meny.mena
Za den: Po
.stav
' '+str(m7_meny.stav_d,10,2)
m7_meny.stav_d
P
str(m7_meny.prij_d,10,2)
m7_meny.prij_d
V
str(m7_meny.vyd_d,10,2)
m7_meny.vyd_d
Kon.stav
str(m7_meny.zasoba,10,2)
m7_meny.zasoba
j.dokl.
' '+str(m7_meny.poc_pd,5)
m7_meny.poc_pd
d.dokl.
' '+str(m7_meny.poc_vd,5)
m7_meny.poc_vd
c: Po
. stav
' '+str(m7_meny.stav_m,10,2)
m7_meny.stav_m
P
str(m7_meny.prij_m,10,2)
m7_meny.prij_m
V
str(m7_meny.vyd_m,10,2)
m7_meny.vyd_m
Kon. stav
str(m7_meny.zasoba,10,2)
m7_meny.zasoba
j.dokl.
' '+str(m7_meny.poc_pm,5)
m7_meny.poc_pm
d.dokl.
' '+str(m7_meny.poc_vm,5)
m7_meny.poc_vm
KONEC
,uceANSI
kcs,;M_PARAM
PAR_POLE
,POLE7
r,stMAJICO
t_aICO
tor, dMAJZAV
ZAVOD
vM4_UC_O
PUCET
UCET
im(m7M7_KASA
ikDATUM
im(sM7_FADOD
.VARS_S
5))M7_FAODB
M7_MENY
MENA
,m7_kPOLEX
t,puFREEZE
pv=F1
m7_kasaF2
m7_kasaF3
(-1)),;F4
F5
iif(pv=F6
'NP','AF7
m7_kasaF8
_spl,'1F9
F10
dateENTER
autoDETAIL
DET_JM
F10_JM
ndiF10PRG
sPS_ZAZN
saPROCX
ce uRAMECEK
.NAZEVT
canRIIS
NADPIS
estLEVA
reen PRAVA
*--DOL
------ZAHL
-----JMENO
----HODN
----I
----MOD_PSV
. . #
RIIS 7.9
Prob
hne uz
rka dne.
Bude vyti
na denn
rekapitulace
ip. tisk
rnu).
Pokra
ovat (A/N):
Datum uzav
raneho dne:
Nebylo zad
no datum uz
rky.
mod_fun
german
O.K. - prob
rka dne F
m7_plat
m7_plat
,uceDAT_UZ
s,;PUSTIT
OBR1
,stHLASKA
t_aMOD_FUN
dMOD_SYS
GERMAN
vANSI
TISK_R
M7_MENY
m7DRUH_MC
ikM7_KASA
(sDAT_SPL
.MENA
))UZAVR
PPRIJ
m7_kTYP_DOK
puPVYD
pv=PPOCP
saPPOCV
saSTAV_D
,;ZASOBA
PRIJ_D
pv=VYD_D
','APOC_PD
asaPOC_VD
,'1DOD
ODB
dateGENER
autoPVARS
PAR_POLE
VARIAB
ndiPV
sM7_FAODB
aM7_FADOD
uVARS_S
.CIS_PLAT
nCIS_RAD
UCET_ORG
tUCET_UST
ZNAK_P
*--DAT_UHR
--STAV_PL
--DAT_AKT
--AUTOR
----DAT_UCT
--DENIK
pCIS_DOK
reUCET
sPUCET
een MM_AUTOR
german
Rekapitulace p
dne: F
Pocatecni stav
9999999.99
9999999.99
9999999.99
stav
9999999.99
et: p
ch doklad
99999
v
dajov
ch dokladu:
99999
,uceGERMAN
s,;DATUM
M7_MENY
,MENA
,stSTAV_D
_aPRIJ_D
dVYD_D
ZASOBA
vPOC_PD
POC_VD
german
ipravena tisk
p_kody
p_name
Epson LX-810
ch nejsou koruny
Rekapitulace p
dne:
stav
9999999.99
9999999.99
9999999.99
stav
9999999.99
et: p
ch doklad
99999
v
dajov
ch doklad
99999
GERMAN
uceTISK
s,;MODTESTT
,HLASKA
,stSOUBOR
_aP_KODY
dP_NAME
W_TISKARNABOLD_ON
NAP_BOLDON
BOLD_OFF
7P_BOLDOFF
DOUBLE
(sP_DBST_ON
NDOUBLE
))P_DBST_OFFNLQ
P_LETRQUALDRAFT
puP_DRAFT
v=SUB_OFF
saP_SUBOFF
aSUPER_ON
;P_SUPERON
SUPER_OFF
P_SUPEROFFHUSTE_ON
aP_10CPI
'1P_COMPRESSHUSTE_OFF
P_COMP_OFFPICA
ELITE
P_12CPI
diMALE
sP_SUBON
aRESET
uP_SETUP
.R8LPI
nP_8LPI
R6LPI
tP_6LPI
PRESSNEWPAGE
FFP_NEWPAGE
---DATUM
--M7_MENY
pMENA
reSTAV_D
sPRIJ_D
n VYD_D
eZASOBA
mPOC_PD
olPOC_VD
bgMOD79E
UZA_DNE
REKAPIT
TISK_R
W:\07\
MOD79E.FXP
W:\07\MOD79E.PRG