home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S711D.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-12-22
|
35KB
|
853 lines
w_rokf
Nelze aktualizovat
obraty jin
ho ne
minul
ho roku
m7_ucto
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
W_ROK
----W_ROK_VYB
W_ROK_MIN
HLASKA
t dX_ROK
cM7_UCTO
KONTROLA
rNOVY_R
denOBRAT
s m7ZMENA
sTEXT_DEN
tPMSTR
_rokPMTUP
topPMSKUP
W_SK
_obruPMDAT
deniMHOD1
sMHOD2
ifMNAZ1
L_STMNAZ2
PMCASTKA
W_DENIK
upCISLO_P
pW_DOKLAD
kBARVAS
aceBARVAR
n_lBARVAT
BARVAZ
BARVAU
z=5BARVAN
mezBARVAH
n_pANSI
l_tupR7_OBRU
odDENIK
ina+M7_OBRU
R7_UCET
'6UCET
n_texM7_UCET
edR7_DENIK
M7_DENIK
uR1_STR
NSTR
V1_STR
R4_SKLAD
SKLAD
DALV4_SKLAD
aX1_STR
eskX4_SKLAD
M_DAT
_tupX_DAT
7_deM_CIS1
+' X_CIS1
+' M_PARAM
PAR_POLE
'POLE7
TUPR7_STAV
zM7_STAV
n R7_SSTAV
M7_SSTAV
(M7_USKUP
SKUPINA
p M7_DESK
skM7_TUP
DET_TUP
mC7_OBRU
_tOBD
@OBDC
5 sayW_OBD
_GENER
4,3CIS_G
mtupPLAT_OBDOBW_TEXT
OBW_NED_VYR
W_PAR_ZNAKW_CINNOST
W_SPLATNOSW_UC_MD
W_UC_DAL
endif
ect c7_oOBRATUCT
&barvah
&barvau
----Q2
OK_VYB
OK_MIN
t dQ5
CISELNIK
denDOL
s m7POCET1
sPOOCET2
tMD_CELK
okDAL_CELK
P_ZOB
obruPOMOC
deniMENU1
sBARVA
ifBARVAZ
_STBARVA1
BARVAS
BARVA2
upKONEC
mezPOCET2
n_pHLAV1
_tupHLAV2
odPROC1
ina+PROC2
ZMENY
&barvau
&barvas
&barvaz
&barvar
&barvar
pis na v
ce st
edisek
&barvaz
&barvat
Doklad:
Var.symbol:
innost:
Splatnost:
&barvau
----1
&barvas
&barvau
&barvar
&barvaz
&barvar
pis na v
ce st
edisek
&barvat
&barvaz
Celkem:
&barvat
&barvan
D A L
&barvau
&barvau
&barvas
&barvaz
&barvar
&barvar
&barvaz
&barvat
Text:
Var.symbol:
innost:
Splatnost:
&barvau
----ZAZ
K_VYB
&barvau
&barvaz
Esc - Konec
^End - Generuj
&barvaz
stka:
edisko:
Skupina:
TUP:
Dat.vyst.:
&barvau
----`
&barvau
&barvas
99999
&barvau
----W_DENIK
W_TEXT
W_DOKLAD
dW_NED_VYR
W_PAR_ZNAKW_CINNOST
W_SPLATNOSW_UC_MD
rW_UC_DAL
nM7_UCET
m7NAZEV
sC7_OBRU
&barvat
&barvaz
&barvas
&barvau
&barvas
&barvau
999999999999.99
999999999999.99
&barvau
----R
DENIK
DOKLAD
dRADEK2
PAR_ZNAKMD
INNOST
LATNOSMD_CELK
rDAL_CELK
_UCET
----CIS_POL
OKLAD
SKLAD
ZNAKTEXT
&barvau
&barvas
&barvau
----X_TEXT
X_NED_VYR
X_PAR_ZNAKX_CINNOST
X_SPLATNOS
&barvau
999999999.99
----PMCASTKA
PMSTR
PMSKUP
NAKPMTUP
PMDAT
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,70 &vloz w_splatnost picture '@E'
uc_md
@ 6,25 &vloz w_uc_md
uc_dal
@ 7,25 &vloz w_uc_dal
----P_ZOB
NAKM7_DENIK
W_DENIK
SW_TEXT
ATNOSW_DOKLAD
rDOKLAD
nHLASKA
L_CELK
_CELK
Q6
obruQ7
deniQ8
sPROC1
@ x,8 &vloz nstr picture '9999'
@ x,15 &vloz md
@ x,32 &vloz dal
sklad
@ x,48 &vloz sklad picture '9999'
@x,53 &vloz text
999999999999.99
999999999999.99
999999999999.99
&barvau
----P_ZOB
NASTAV_Q
NAKC7_OBRU
_OBRU
TNOSCIS_POL
S_POL
_CELK
okST_ZAZ
DAL
obruMD_CELK
niDAL_CELK
@ 18,10 &vloz x_text
@ 19,10 &vloz x_ned_vyr
@ 19,33 &vloz x_par_znak
@ 19,55 &vloz x_cinnost
@ 19,70 &vloz x_splatnost picture '@E'
----P_ZOB
STAV_Q
NAKQ2
TNOSb
@m+1,35 &vloz pmcastka picture '999999999.99'
vypln
@m+2,35 &vloz pmstr
@m+3,35 &vloz pmskup
@m+4,35 &vloz pmtup
@m+5,35 &vloz pmdat picture '@E'
vypln
no datum
----P_ZOB
STAV_Q
NAKPMCASTKA
HLASKA
TNOSPMSTR
rPAR_POLE
nKONTR_STREQ3
_CELK
sPMSKUP
tKONTR_SKUPQ4
pPMTUP
KONTR_TUP
niPMDAT
do proc&n
do zmen&n with 'get'
do zmen&n with 'say'
&barvau
&barvau
ehled
ch den
tu MD
tu DAL
Konec
mod7_lib
mod7_lib
mod7_lib
&barvau
ehled st
edisek
ehled sklad
Konec
mod_proc
mod_proc
&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
do hlav&n
do proc&n
&barvau
it pr
ci beze zm
n? (a/N)
&barvau
KONEC
----N
TAV_Q
NAKQ3
ASTKA
TNOSQ7
_POLE
nPOCET1
TRENASTAV_Q
sPOCET3
tPOCET4
NTR_TUP
upOBR1
pMM_LK
kKONTROLA1
KONTROLA
lPRIDEJ_C7
HLAV1
PROC1
z=5HLAV2
mezPROC2
n_pMENU2
_tupQ
odNAP_HOD
a+P_ZOB
'6VOLBA
_texZOBR_DENIKW_DENIK
W_DOKLAD
uX_ROK
MOD7_LIB
ZOBR_UCET
W_UC_MD
W_UC_DAL
W_STRED
aNSTR
eskZOBR_STR
MOD_PROC
pC7_OBRU
deW_SKLAD
' SKLAD
+' ZOBR_SKL
TUPX_PAR_ZNAKPAR_ZNAK
X_NED_VYR
NED_VYROBAX_CINNOST
CINNOST
p X_SPLATNOSSPLATNOST
X_TEXT
mTEXT
_tPOCET2
NOSKONTROLA2
NOVY_R
ZMENA
4,3ALL
mtupCIS_POL
OBOBR5
D_VYR
ZAPIS
KONTR_CTUPGENERUJ
SHLAV4
PROC4
----C7_OBRU
ST_ZAZ
IDENT_DEN
W_DENIK
DOKLAD
SW_DOKLAD
DATUM
TNOSPAR_ZNAK
rW_PAR_ZNAKNED_VYROBAW_NED_VYR
CINNOST
tW_CINNOST
SPLATNOST
W_SPLATNOSOBDOBI_MM
W_OBD
niTEXT
sW_TEXT
_STX_ROK
CIS_POL
Chybn
identifikace den
Chybn
Chybn
et DAL
Shodn
TI a DAL
KONTROLA
-M7_DENIK
W_DENIK
HLASKA
DENIK
SC7_OBRU
M7_UCET
OSW_UC_MD
rW_UC_DAL
Chybn
zadan
kladov
edisko
vypln
Nelze vyplnit sou
TI a DAL
Chybn
identifikace skladu
KONTROLA
-PAR_POLE
V1_STR
C7_OBRU
HLASKA
_OBRU
_UCET
ASKLAD
V4_SKLAD
tUCET
W_UC_MD
W_UC_DAL
KONTROLA
Chybn
identifikace den
KONTROLA
-M7_DENIK
W_DENIK
W_DOKLAD
DOKLAD
W_TEXT
STEXT
HLASKA
Chybn
Chybn
et DAL
KONTROLA
-M7_UCET
W_UC_MD
HLASKA
SC7_OBRU
W_UC_DAL
KONTROLA
-KLIC
PAR_POLE
P_STR
V1_STR
C7_OBRU
SNSTR
KONTR_STR
_OBRU
Chybn
identifikace skladu
KONTROLA
-V4_SKLAD
HLASKA
_OBRU
SC7_OBRU
vyrovn
no MD a DAL
MD_CELK
-DAL_CELK
HLASKA
KONTROLA
_OBRU
colora
set color to &color
-COLOR
c7_obruQ
Prob
...
Nejsou vyrovn
ny strany M
TI a DAL
znam o
stupn
znam o
edisku
stupn
znam den
ku nen
stupn
slo dokladu je ji
obsazeno, bude pou
ito nov
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
MD_CELK
rDAL_CELK
KHLASKA
_OBRU
_SKLAD
tM7_STAV
SX_ROK
PAR_POLE
iM7_SSTAV
sNSTR
STM7_DENIK
W_DENIK
DOKLAD
upW_DOKLAD
c7_vstup
c7_vstup
m7_vstup
c7_vstup
c7_vstup
c7_obru
c7_obru
c7_obru
c7_vstup
m7_chyby
Neni skupina nebo detail v m7_desk
m7_chyby
Neni denik, doklad=1
m7_chyby
Neni skupina nebo detail v m7_tup
mod79a
&barvau
-_MD2
_DAL1
_DAL2
S_ST1
rC7_VSTUP
KM7_VSTUP
AC7_OBRU
OBR_DOK
tM7_OBRU
SKUPINA
DET_TUP
SSTR_N
HODNOTA
iDAT_VYST
sPMSKUP
fPMTUP
STPMSTR
PMCASTKA
PMDAT
upKLIC
pM7_DESK
kPOPIS
SPATNE
lKLIC_POL
CIS_G
CISLO
=5_GENER
mezW_SK
n_pW_DENIK
upDENIK
odNAZEV
a+M7_DENIK
_DOK
6_POR
_texDOKLAD
IKM7_TUP
VYTVOR_OB
MOD79A
KONTR_OB
M7_UCTO
MD_CELK
aDAL_CELK
p_str
ehled st
edisek
ed. N
zev
nstr+' '+nazev_str
edisko
mod_fun
P_STR
N_LMEZ
N_PMEZ
N_HMEZ
SN_DMEZ
N_PROM
N_HOD
rN_POC
KN_TEXT
AN_HLAV
N_RAD
tN_NVYH
V1_STR
ZOBR_NAP
SMOD_FUN
kl_tup
skupina+det_tup
ehled TUP
Skup. Kl
N
zev
ty MD DAL
m7_desk.skupina+' '+det_tup+' '+m7_desk.nazev+' '+ucet_1+' '+ucet_2
Skupina TUP
mod_fun
KONTROLA
-M7_DESK
PMSKUP
PMTUP
M7_TUP
KL_TUP
SN_LMEZ
N_PMEZ
N_HMEZ
rN_DMEZ
KN_PROM
AN_HOD
N_POC
tN_TEXT
N_HLAV
N_RAD
SN_NVYH
ZOBR_NAP
iMOD_FUN
sSKUPINA
fDET_TUP
NTROLA
pC7_OBRU
m7_chyby
vygenerovan
edisko
m7_chyby
vygenerovan
C7_OBRU
-CHYB
V1_STR
POPIS
SPATNE
SKLIC_POL
CIS_G
SKUPINA
rCISLO
KRAD_TUP
AW_SK
M7_UCET
tUCET
KONTROLA
-P_STR
V1_STR
PMSTR
KONTR_STR
C7_OBRU
_OBRU
UPINA
KONTROLA
-M7_USKUP
PMSKUP
KONTR_TUP
C7_OBRU
vypln
vypln
no datum
PMCASTKA
-HLASKA
NTR_TUP
KONTROLA
SPMSTR
PAR_POLE
KONTR_STREPMSKUP
KKONTR_SKUPPMTUP
KONTR_TUP
PMDAT
-
- F8
- ^End,Esc
- F10
- F2
Pohyb
Konec
Funkce
Bloky
,PgDn,PgUp
- ^PgDn
- ^Home
- F3
- F8
- ^End,Esc
Pohyb
idat
Texty
Konec
-
- F3
Pohyb
-
- F9
- Enter
Pohyb
Vyhled
colora
set color to &color
-COLOR
-POCET2
TR_TUP
TROLA
denik
mod7_lib
&barvau
uc_md
mod7_lib
uc_dal
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
KZOBR_UCET
W_UC_MD
7_LIB
W_UC_DAL
7_LIB
W_STRED
SNSTR
ZOBR_STR
iMOD_PROC
sC7_OBRU
fW_SKLAD
STSKLAD
ZOBR_SKL
pHLASKA
pOBRATUCT
HLAV1
HLAV2
HLAV3
HLAV4
PROC1
cleap
PROC2
RADEK2
PROC3
PROC4
lor tt!
ZMEN1
]"
ZMEN2
ZMEN3
prom
ZMEN4
obra`+
ZMENY
PRIDEJ_C7
KONTROLA1
KONTROLA2
KONTROLA3
KONTR1
KONTR2
KONTR3
KONTR4
rat= Q
KONTR5
HLASKA
ZAPIS
GENERUJ
KONTR_STR
KONTR_TUP
KONTR_OB
KONTR_STRE
KONTR_SKUP
KONTR_CTUP
MENU1
`l
MENU2
= sp
MENU3
MENU4
NASTAV_Q
NAP_HOD
X:\OBEC\07\
S711D.FXP
X:\OBEC\07\S711D.PRG