home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S711C.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-12-22
|
28KB
|
603 lines
s711c
w_rokf
Nelze aktualizovat
obraty jin
ho ne
minul
ho roku
m7_ucto
zmenyf
novyf
set color to b/w
set color to bg/n
set color to w+/w
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
r7_obru
denik
m7_obru
denik
r7_ucet
m7_ucet
r7_denik
denik
m7_denik
denik
r1_str
r4_sklad
sklad
v1_str
x1_str
v4_sklad
x4_sklad
m_dat
x_dat
m_cis1
x_cis1
m7_ucto
m_param
r7_stav
m7_stav
r7_sstav
m7_sstav
m7_uskup
skupina
m7_desk
skupina
m7_tup
skupina
c7_obru
c7_obru
RIIS 7.1
e t n
obraty za
obrat den
Konec
VOLANI
W_ROK
W_ROK_VYB
W_ROK_MIN
HLASKA
X_ROK
st_M7_UCTO
md_cZMENY
_celNOVY
estoZAZ
een fNOVY_R
OBRAT
laskZMENA
NejKONTROLA
any MBARVAS
DABARVAR
= BARVAT
= BARVAZ
turBARVAU
*BARVAN
---BARVAH
zamANSI
zaznaR7_OBRU
v DENIK
----M7_OBRU
mR7_UCET
oUCET
selecM7_UCET
R7_DENIK
M7_DENIK
1R1_STR
zaz =V1_STR
eR4_SKLAD
oSKLAD
V4_SKLAD
iX1_STR
X4_SKLAD
kM_DAT
ith X_DAT
.uceM_CIS1
X_CIS1
dikM_PARAM
esPAR_POLE
nPOLE7
apisR7_STAV
etM7_STAV
ndR7_SSTAV
M7_SSTAV
M7_USKUP
dSKUPINA
taM7_DESK
_oM7_TUP
cDET_TUP
trC7_OBRU
OBD
rest_OBD
een PLAT_OBDOBW_DENIK
OBW_TEXT
ndiW_DOKLAD
W_NED_VYR
W_PAR_ZNAKW_CINNOST
W_SPLAT
W_CIS_G
omW_RAD_TUP
W_SKUP
enN
else OBRATUCT
&barvah
&barvau
ZMENY
OK_VYB
OK_MIN
Q5
st_Q6
CISELNIK
_celDOL
estoPOCET1
n fPOOCET2
MD_CELK
skDAL_CELK
POMOC
ny MP_ZOB
DAMENU1
= BARVA
= BARVAZ
turBARVA1
*BARVAS
---BARVA2
zamKONEC
----R
selecA
_UCET
_DENIK
POCET2
1HLAV1
HLAV2
az =PROC1
ePROC2
&barvau
&barvas
&barvaz
&barvar
&barvar
pis na obou stran
&barvaz
&barvat
Doklad:
Var.symbol:
innost:
Splat.:
&barvau
&barvas
&barvau
&barvar
&barvaz
&barvar
pis na obou stran
&barvat
&barvaz
Celkem:
&barvat
&barvan
D A L
&barvau
&barvau
&barvas
&barvaz
&barvar
&barvar
&barvaz
&barvat
Text:
Var.symbol:
innost:
Splat.:
&barvau
ZAZ
&barvau
&barvas
99999
&barvau
W_DENIK
W_TEXT
W_DOKLAD
W_NED_VYR
W_PAR_ZNAKW_CINNOST
W_SPLAT
&barvat
&barvaz
&barvas
&barvau
&barvas
&barvau
999999999999.99
999999999999.99
&barvau
DENIK
DOKLAD
CIS_POL
_ZNAKMD
INNOST
cNSTR
_celSKLAD
estoJ
n fC7_OBRU
ST_ZAZ
skMD_CELK
jDAL_CELK
M7_UCET
MNAZEV
&barvau
&barvas
&barvau
X_TEXT
X_NED_VYR
X_PAR_ZNAKX_CINNOST
X_SPLAT
denik
@ 4,9 &vloz w_denik picture '@!X'
Chybn
identifikace den
@ 4,13 &vloz w_text picture '@X'
@ 5,10 &vloz w_ned_vyr
@ 5,33 &vloz w_par_znak
@ 5,55 &vloz w_cinnost
@ 5,68 &vloz w_splat picture '@E'
P_ZOB
NED_VYR
AR_ZNAKM7_DENIK
W_DENIK
KW_TEXT
cW_DOKLAD
lDOKLAD
stoHLASKA
_OBRU
_CELK
DAPROC1
@ x,8 &vloz ucet picture '@!X'
@ x,16 &vloz md
@ x,33 &vloz dal
@ x,49 &vloz nstr picture 'XXXX'
sklad
@ x,55 &vloz sklad picture 'XXXX'
999999999999.99
999999999999.99
P_ZOB
NASTAV_Q
AR_ZNAKM7_UCET
NAZEV
KC7_OBRU
_OBRU
OKLAD
stoCIS_POL
S_POL
MST_ZAZ
= DAL
= MD_CELK
urDAL_CELK
@ 18,10 &vloz x_text
@ 19,10 &vloz x_ned_vyr
@ 19,33 &vloz x_par_znak
@ 19,55 &vloz x_cinnost
@ 19,68 &vloz x_splat picture '@E'
P_ZOB
STAV_Q
AR_ZNAKQ2
do proc&n
do zmen&n with 'get'
do zmen&n with 'say'
ehled
ch den
Konec
mod7_lib
&barvau
ehled
ehled st
edisek
ehled sklad
Konec
mod7_lib
mod_proc
mod_proc
&barvau
&barvau
c7_obruQ
&barvau
do hlav&n
do proc&n
do menu&n
&barvau
if q<pocet&n .and.i#55
if q<pocet&n .and.i#55
it pr
ci beze zm
n? (a/N)
KONEC
ZMENY
POCET1
NAKQ1
OKLAD
stoNASTAV_Q
fPOCET3
DAHOR
_CELK
-OBR1
zamMM_LK
znaNAP_HOD
v P_ZOB
----OBR
mVOLBA
oPOM1
elecW_DENIK
W_DOKLAD
1ZOBR_DENIKX_ROK
=MOD7_LIB
eW_UCET
oUCET
ZOBR_UCET
C7_OBRU
W_STRED
kNSTR
ith ZOBR_STR
eMOD_PROC
W_SKLAD
ikSKLAD
esZOBR_SKL
nKONTROLA1
KONTROLA
tPRIDEJ_C7
HLAV1
PROC1
HLAV2
dPROC2
taMENU2
cOBR4
trZAZ
X_PAR_ZNAKPAR_ZNAK
tX_NED_VYR
NED_VYROBAX_CINNOST
CINNOST
diX_SPLAT
SPLATNOST
X_TEXT
NAKTEXT
POCET2
omKONTROLA2
NOVY_R
ZMENA
enALL
else CIS_POL
oZAPIS
ST_OBRU
C7_OBRU
ST_ZAZ
IDENT_DEN
W_DENIK
DOKLAD
KW_DOKLAD
DATUM
cPAR_ZNAK
lW_PAR_ZNAKNED_VYROBAW_NED_VYR
CINNOST
skW_CINNOST
SPLATNOST
W_SPLAT
MOBDOBI_MM
= TEXT
= W_TEXT
urCIS_G
*W_CIS_G
-RAD_TUP
amW_RAD_TUP
SKUPINA
v W_SKUP
---ROK
mX_ROK
oALL
elecCIS_POL
Chybn
identifikace den
KONTROLA
M7_DENIK
W_DENIK
HLASKA
DENIK
KC7_OBRU
Chybn
vypln
Nelze vyplnit sou
TI a DAL
Chybn
zadan
kladov
edisko
EUTIT
m7_pokl
m7_pokl
ident_pok
Chybn
identifikace pokladny
Chybn
identifikace skladu
KONTROLA
M7_UCET
C7_OBRU
HLASKA
NTROLA
R_ZNAKQ2
OBAPAR_POLE
V1_STR
skNSTR
SKLAD
MW_SKUP
PODNIK
= M7_POKL
= IDENT_POK
*V4_SKLAD
colora
set color to &color
ST_I
_OBRU
COLOR
c7_obruQ
Prob
...
Nejsou vyrovn
ny strany M
TI a DAL
znam den
ku nen
stupn
slo dokladu je ji
obsazeno, bude pou
ito nov
replace md_&obd with md_&obd-m7_obru.md, dal_&obd with dal_&obd-m7_obru.dal
replace md_&obd with md_&obd-m7_obru.md, dal_&obd with dal_&obd-m7_obru.dal
m7_obru
replace md_&obd with md_&obd+c7_obru.md, dal_&obd with dal_&obd+c7_obru.dal
replace md_&obd with md_&obd+c7_obru.md, dal_&obd with dal_&obd+c7_obru.dal
W_ZAPIS
ZAPIS
MOD_SYS
C7_OBRU
ST_ZAZ
cMD_CELK
lDAL_CELK
KHLASKA
R_POLE
skINDIK
LOCK_STAV
MLOCK_SSTAVNSTR
= ZMENY
= M7_OBRU
W_DENIK
*W_DOKLAD
-IDENT_DEN
DOKLAD
AVM7_DENIK
-RUS_CELD
mM7_STAV
PAR_POLE
cM7_SSTAV
X_ROK
FFFZ^D
znam o
stupn
select &st_sel
select &st_sel
L_UCET
W_INDIK
ST_SEL
M7_STAV
KX_ROK
HLASKA
FFFZ^D
znam o
edisku
stupn
select &st_sel
select &st_sel
L_UCET
L_NSTR
W_INDIK
ST_SEL
PAR_POLE
M7_SSTAV
KUCET
lX_ROK
KHLASKA
-
- F8
- ^End,Esc
- F10
- F2
Pohyb
Konec
Funkce
Bloky
ZMENY
,PgDn,PgUp
- ^PgDn
- ^Home
- F2
- F3
- F10
- ^End,Esc
Pohyb
idat
Bloky
Texty
Funkce
Konec
-
- F3
Pohyb
colora
set color to &color
COLOR
POCET2
_POLE
SSTAV
denik
mod7_lib
&barvau
mod7_lib
mod_proc
sklad
mod_proc
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
ZOBR_DENIKW_DENIK
W_DOKLAD
X_ROK
MOD7_LIB
lW_UCET
KUCET
AZOBR_UCET
C7_OBRU
W_STRED
MZOBR_STR
VMOD_PROC
= W_SKLAD
SKLAD
*ZOBR_SKL
HLASKA
OBRATUCT
HLAV1
eplac
HLAV2
with &
HLAV3
-pom)i
PROC1
is_po&
PROC2
@ x,3f
PROC3
ol piM
ZMEN1
ZMEN2
@ x,N"
ZMEN3
cet p,&
ZMENY
PRIDEJ_C7
KONTROLA1
KONTROLA2
KONTROLA3
HLASKA
ZAPIS
@ x,3
LOCK_STAV
LOCK_SSTAV
MENU1
ob='n
MENU2
x,49~V
MENU3
r picyX
NASTAV_Q
NAP_HOD
X:\OBEC\07\
S711C.FXP
X:\OBEC\07\S711C.PRG