home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
MOD79A1.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-01-08
|
92KB
|
2,177 lines
set color to b/bg,w+/rb
set color to b/bg
m_param
m7_ucto
m_cis1
x_cis1
m_dat
x_dat
v1_str
x1_str
v4_sklad
x4_sklad
m7_tup
skupina
m7_desk
skupina
m7_uskup
skupina
m7_ucet
m4_organ
m4_uc_o
m7_obru
denik
m7_stav
m7_sstav
m7_meny
m7_pokl
ident_pok
m7_denik
denik
m7_kasa
cis_dok
c7_kasa
c7_kasa
c7_kasa
CIS
returnA2
eBARVAU
BARVA1
W_POLE
M_PARAM
PAR_POLE
SPOLE7
PFIRMA
c7FIRMA
iPUC_POKL
sUC_POKL
rM7_UCTO
s_CIS_POK
_uM_CIS1
okX_CIS1
eleM_DAT
cto X_DAT
if cV1_STR
999X1_STR
ty(V4_SKLAD
X4_SKLAD
lM7_TUP
pokSKUPINA
M7_DESK
M7_USKUP
aM7_UCET
k UCET
is_poM4_ORGAN
endM4_UC_O
seM7_OBRU
asDENIK
eek M7_STAV
nM7_SSTAV
kM7_MENY
okMENA
if fM7_POKL
IDENT_POK
M7_DENIK
M7_KASA
mCIS_DOK
C7_KASA
_kSTR
DAT_SPL
unTYP_DOK
UC_OBD
DAT_AKT
AUTOR
bstrS_UCT
a.tyDOKLAD
STR_POK
PLAT_POK
eMM_AUTOR
_W_SK2
ijOPRAVA
RIIS 7.9
pokladn
ho dokladu za
Pokladn
doklady za
&barva1
P_SROZ
M7_UCTO
rnPLAT_POK
eROK_POK
QA1
QA2
c7QA7
iQA8
rQA10
s_QA11
_uQA12
okQA13
eleQA14
cto QA15
if cQA16
999QA17
ty(QA18
QA19
lQA20
pokQA21
QA22
QA23
aQA24
k QA25
is_poQA26
eQA27
endQA28
seQA29
asPOCETA
ek P_OPR_KC
nMENUP
kPORADIP1
kKONEC
if fPROCP1
ZVOL_DOK
KON_AKT
KONECA
OK_CA
DOLA
bstrHORA
a.tyXA
NASTAV
ZMENYP
eVOL_POK
doklad
Tisk dokladu
Storno dokladu
Konec
c7_kasa
mod79d
lo denn
rkou, nelze stornovat
mod_fun
C7_KASA
rnP_SROZ
eVOLBA
DENIK
CIS_DOK
SDAT_SPL
TYP_DOK
c7UC_OBD
iDAT_AKT
sAUTOR
rS_UCT
s_M7_POKL
_uIDENT_POK
DOKLAD
leM7_UCTO
o STR_POK
cPLAT_POK
9MM_AUTOR
(KONEC
PROCP1
lZVOL_DOK
kKON_AKT
TISK
MOD79D
aUZAVR
k TXT
is_poHLASKA
eMOD_FUN
ndDOK_ZRUS
p_rada
ident_pok
ehled pokladn
ada N
zev pokl.
ady Doklad
' '+ident_pok+' '+text+' '+str(doklad,3)
mod_fun
Nelze vkl
dat nov
doklad
mod_fun
Doklad byl stornov
n, nelze aktualizovat
mod_fun
c7_kasa
p_den
denik+str(cis_dok,5)
ehled doklad
ada Doklad Typ
stka Kli
Stav
denik+' '+str(cis_dok,5)+' '+typ_dok+' '+str(kc,12,2)+' '+ klic+' '+iif(s_uct='1','Roz
n',iif(s_uct='2','Stornov
n','Ne
ada,doklad
mod_fun
c7_kasa
c7_obru
c7_obru+
c7_obru
c7_obru
c7_obru
c7_obru
DENIK
CIS_DOK
S_DOK
M7_POKL
IDENT_POK
C7_KASA
DOKLAD
P_RADA
N_LMEZ
c7N_PMEZ
iN_HMEZ
sN_DMEZ
rN_PROM
s_N_HOD
_uN_POC
N_TEXT
leN_HLAV
o N_RAD
cN_NVYH
9ZOBR_NAP
(MOD_FUN
P_SROZ
kHLASKA
M7_KASA
S_UCT
aW_POLE
k P_DEN
poP_DENIK
eP_CIS_DOK
asDAT_SPL
k TYP_DOK
nUC_OBD
kDAT_AKT
kAUTOR
if fM7_UCTO
STR_POK
PLAT_POK
MM_AUTOR
mKONEC
M7_OBRU
_kUCT
W_SK2
unCIS_G
C7_OBRU
SKUPINA
trDAL
a.tyP_MD
P_DAL
P_OPR_KC
&sq2
P_SROZ
rnUZAVR
eS_UCT
MENA
TYP_DOK
c7POCETA
N
da hodnot
F8 -
Funkce
F10 -
^End,Esc
Pohyb -
Konec -
german
&barva1
99999
DOKLAD
Druh cenin :
cenina
Druh m
ny :
999999999.99
Nenalezena organizace
GERMAN
DENIK
rnCIS_DOK
eTYP_DOK
M_CIS1
C7_KASA
M7_MENY
CENINA
c7DEJ_STAV
i_MNOZ
rSTRED
s_STR
_uKLIC
DAT_SPL
lePRILOH
o IDENTIF
cVARIAB
9TOTOZ
(DICP
ZAVOD
kP_UST
M4_ORGAN
NAZEV_ORG
M7_MENY
C7_KASA
rnMENA
eZASOBA
Den :
na : Stav :
Poklad.
Doklad :
Typ dokladu:
Druh m
ny :
edisko :
stka:
Zpracov
loh :
Text :
Osob.
slo :
nost :
P :
Var.symbol :
vod : /
Pen.
stav :
Organizace :
@6,15 &vloz typ_dok pict '@!'
DOKLAD
DOKLAD
p_typ_dok
Druh cenin :
cenina
Druh m
ny :
@7,15 &vloz mena pict '@!'
Cenina neexistuje
Nespravn
mod_fun
@8,15 &vloz str pict '@!'
edisko neexistuje!
mod_fun
c7_obru
@9,10 &vloz kc pict '999999999.99'
Nevypln
mod_fun
Stav m
ny je v pokladn
mod_fun
stka neodpov
tu kus
mod_fun
Ceninu nelze nakoupit
mod_fun
cenina
cenina
c7_obru
@10,10 &vloz klic pict '@!'
neexistuje
mod_fun
c7_obru
@11,15 &vloz dat_spl pict '@E'
@11,38 &vloz priloh pict '99'
@12,15 &vloz text
@14,15 &vloz variab pict '@!'
m6_zam.dbf2
m6_zam
Osobn
slo neexistuje
mod_fun
@15,15 &vloz totoz
@16,15 &vloz dicp
to organizace je naveden jin
mod_fun
@17,15 &vloz variab
m7_faodb
vars_s
m7_fadod
vars_s
m7_fadod
cis_fak
m7_faodb
cis_fak
slo faktury neexistuje
mod_fun
@18,15 &vloz identif
@18,30 &vloz zavod
@17,53 &vloz ucet
@18,53 &vloz p_ust
KONT
TV_C7
P_TYP_DOK
TYP_DOK
M_CIS1
C7_KASA
iTEXT
sJMENO_C
WJMENO_C
_TYP_C
_uOK_C
MOD_C2
leRADEK_C
o SLOUPEC_C
MOD_C1
9VARIAB
M7_MENY
CENINA
kDEJ_STAV
NASTAV
V_ORG
P_POM
k TXT
poHLASKA
eMOD_FUN
asPAR_POLE
V1_STR
nKLIC
kC7_OBRU
fNSTR
mZASOBA
P_OPR_KC
k_MNOZ
STRED
unZAZN
QA5
M7_DESK
W_SK2
trNAZEV
tyQA6
QA8
_M6_ZAM
ijOSC
sa.TOTOZ
PRIJMENI
JMENO
ij_QA10
ijQA11
kasa.DICP
P_TYP_ORG
_pM7_FAODB
_VARS_S
_pdFAKT
poc_pM7_FADOD
IDENTIF
ICO
zasoZAVOD
zasZAV
_kasaUCET
UCET_DOD
sP_UST
7_kaP_DF
k,DEJ_FAKTURCIS_FAK
QA13
URQA14
AKTURQA15
AKTURQA16
AKTURC7_GENER
Organizace nenalezena!
mod_fun
Nenalezena organizace F
et nenalezen!
mod_fun
et nenalezen
M4_ORGAN
nC7_KASA
eIDENTIF
ZAVOD
TXT
HLASKA
MOD_FUN
P_TYP_ORG
NAZEV_ORG
sM4_UC_O
P_UST
_USTAV
_uICO
mod_fun
P_POM
P_TYP_DOK
TYP_DOK
eP_TYP_ORG
KONECA
YP_ORG
V_ORG
lePROCP1
o ZMENP1
NAPOVEDA
9POK_FUN
POCETA
kROZHODNI
MOD_FUN
K_UDAJUP
OK_CA
k P_ZAPIS
poZAPIS_D
cenina
mod_fun
POZOR chyba v datech volejte firmu SoWA
m7_kasa
m7_kasa
cenina
replace md_&obd1 with md_&obd1-m7_obru.md
replace dal_&obd1 with dal_&obd1-m7_obru.dal
replace md_&obd1 with md_&obd1-m7_obru.md
replace dal_&obd1 with dal_&obd1-m7_obru.dal
m7_obru
m7_stav.dbf
replace md_&obd1 with md_&obd1+c7_obru.md
replace dal_&obd1 with dal_&obd1+c7_obru.dal
m7_sstav.dbf
replace md_&obd1 with md_&obd1+c7_obru.md
replace dal_&obd1 with dal_&obd1+c7_obru.dal
P_S_UCT
C7_OBRU
eINDIK
LOCK_STAV
LOCK_SSTAVNSTR
C7_KASA
S_UCT
M7_OBRU
IDENT_DEN
DOKLAD
sCIS_G
AVM7_UCTO
_CIS_POK
_uM7_KASA
DENIK
leCIS_DOK
o M7_MENY
9TYP_DOK
PRIJ_M
PRIJ_D
kPOC_PM
POC_PD
ZASOBA
VYD_M
k VYD_D
poPOC_VM
ePOC_VD
STRED
eCENINA
asW_POLE
HLASKA
nMOD_FUN
kM7_POKL
kW_SK2
fSKUPINA
OBDOBI_MM
PAR_POLE
mM7_STAV
M7_SSTAV
kM7_DENIK
PK_DOKLAD
CINNOST
SPLATNOST
DAT_SPL
trPAR_ZNAK
P_ZAPIS
edisko neexistuje!
mod_fun
mod_fun
Nevypln
mod_fun
vypln
na toto
nost
Nevypln
na organizace
mod_fun
Nevypln
slo faktury
mod_fun
OK_CA
STR
PAR_POLE
eV1_STR
C7_KASA
_SSTAVHLASKA
MOD_FUN
NT_DEN
AVTOTOZ
_QA10
_uTYP_DOK
IDENTIF
leQA14
o VARIAB
DOKLAD
p_typ_dok
p_pom
ehled cenin
ehled m
na N
kup Prodej St
ed Dat. akt.
' '+mena+str(nakup,10,2)+str(prodej,10,2) +str(stred,10,2)+' '+tran(dat_akt,'@E')
mod_fun
p_str
ehled st
edisek
ed. N
zev
nstr+' '+nazev_str
edisko
mod_fun
c7_tup
c7_tup+
c7_tup
c7_tup
p_pom
det_tup
ehled TUP
KC N
zev
ty MD DAL
det_tup+' '+m7_desk.kc+' '+m7_desk.nazev+' '+ucet_1+' '+ucet_2
mod_fun
m6_zam.dbf2
m6_zam
jmeno
p_pom
ehled zam
stnanc
ijmen
Jm
no Os.
prijmeni+' '+jmeno+' '+osc
hled_zam in mod79a1
mod_fun
U tohoto
daje nen
mod_fun
m7_faodb
vars_s
m7_fadod
vars_s
p_pom
vars_s
ehled odb
ratelsk
ch faktur
Vars.sym. Znak Organizace
stka
vars_s+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+' '+ucet_dod
ehled dodavatelsk
ch faktur
Vars.sym. Znak Organizace
stka
vars_s+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+' '+ucet_dod
mod_fun
nazev
p_pom
Organizace
o Z
vod N
ico+' '+zavod+' '+nazev_org
hled_organ
mod_fun
Neuvedeno I
O
mod_fun
c4_uc_o
c4_uc_o
Neexistuje zadny ucet u teto organizace
mod_fun
p_pom
ty pro ICO:
vod:
stav
substr(ustav,1,20)+' '+ucet
mod_fun
U tohoto
daje nen
mod_fun
M_CIS1
JMENO_C
eWJMENO_C
TYP_C
RADEK_C
AVSLOUPEC_C
MOD_C1
C7_KASA
P_TYP_DOK
TYP_DOK
YP_DOK
_P_POM
_uN_LMEZ
N_PMEZ
leN_HMEZ
o N_DMEZ
N_PROM
9N_HOD
N_POC
N_TEXT
N_HLAV
kN_RAD
N_NVYH
M7_MENY
k ZOBR_NAP
oMOD_FUN
eMENA
DEJ_STAV
asP_STR
V1_STR
kC7_TUP
fM7_TUP
W_SK2
SKUPINA
DET_TUP
mM7_DESK
KLIC
kNAZEV
DOKLAD
C7_GENER
M6_ZAM
trJMENO
yN_VYB
VARIAB
eTOTOZ
_PRIJMENI
.HLASKA
QA12
M7_FAODB
_VARS_S
ijFAKT
kasa.M7_FADOD
IDENTIF
_pZAVOD
_pdUCET
poc_pUCET_DOD
DICP
P_UST
zasoP_DF
asDEJ_FAKTURQA13
QA14
sM4_ORGAN
aP_TYP_ORG
NAZEV_ORG
AKTURM4_UC_O
URC4_UC_O
URUSTAV
Vyhled
Zadejte p
stnance
mod_fun
stnanec nebyl nalezen
ZAU
eW_CESTINA
HLASKA
AVMOD_FUN
c7_obru
m7_vstup
c7_vstup
c7_vstup
c7_vstup
mod_fun
- neni zadefinovan TUP !
mod_fun
- neni zadefinovan TUP
C7_OBRU
P_DOK
DOKLAD
eC7_KASA
W_UC1
W_UC2
AVW_ST1
W_ST2
W_MD1
W_MD2
W_DAL1
W_DAL2
s_OBD
M7_UCTO
_PLAT_POK
uM7_VSTUP
C7_VSTUP
eSKUPINA
DET_TUP
STR_N
9HODNOTA
DAT_VYST
PAR_ZNAK
W_SK2
kKLIC
DAT_SPL
k CIS_DOK
oKLICG
e_HODNOTA
M7_DESK
eHLASKA
asMOD_FUN
W_TEXT
n_DENIK
kDENIK
kNAZEV
f_DOK
W_POR
M7_DENIK
M7_TUP
VYTVOR_OB
NAPLN_COBR
c7_obru
c7_obru
IDENT_DEN
DOKLAD
eCIS_POL
DATUM
AVSKLAD
OBDOBI_MM
PAR_ZNAK
sCIS_G
RAD_TUP
_NED_VYROBASKUPINA
SPLATNOST
W_UC1
_DENIK
9W_POR
W_ST1
C7_VSTUP
kW_MD1
W_DAL1
W_TEXT
k M7_TUP
oW_SK2
ROBADAT_VYST
W_UC2
W_ST2
asSKL2
W_MD2
nW_DAL2
edpis
Doklady - p
ehled
Stav pokladny
Konec
Nelze
tovat ciz
mod_fun
999999999.99
KON1
VOL11
TYP_DOK
AVTXT
HLASKA
MOD_FUN
RUC_UCT
ZOBR_OBR
ZOBR_DOK
sZOBR_POK
C7_KASA
BAKLIC
c7_obru.dbf2
Doklad nen
mod_fun
c7_obru
c7_obru
Doklad nen
mod_fun
mod79a1
edpis
ident_den+' '
ident_den
Doklad
str(doklad,6)
doklad
' '+cis_pol
cis_pol
' '+c7_obru.ucet
c7_obru.ucet
' '+c7_obru.nstr
c7_obru.nstr
MD
str(c7_obru.md,15,2)
c7_obru.md
DAL
str(c7_obru.dal,15,2)
c7_obru.dal
Obdob
' '+str(c7_obru.obdobi_mm,2)
c7_obru.obdobi_mm
TYP_DOK
eHLASKA
MOD_FUN
C7_OBRU
AVPOLEX
PROCX
CLEFT
CRIGHT
sFREEZE
ORDER
_ZAHL
BAJMENO
TITLE
TITLECOLORF1
VSTUP
DETAIL
k F1PRG
oF4_JM
ROBAF4PRG
F7_JM
F7PRG
asF9KEY
F10_JM
nF10PRG
kDET_JM
ADETPRG
fRAMECEK
NAZEVT
TISKPRG
mPS_RETURN
LN_COBRNADPIS
MENUP3
MOD_PSV
OBSAH
-
- ^End,Esc
Pohyb
Konec
mod79a1
RIIS 7.9
Stav cenin:
Stav pokladny:
cenina
' '+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
POLEX
PROCX
eRBOT
CLEFT
CRIGHT
AVFREEZE
ORDER
JMENO
TITLE
sTITLECOLORF1
LECOLORF9
DETAIL
F1PRG
F4_JM
kF4PRG
F7_JM
F7PRG
F9KEY
k F10_JM
oF10PRG
OBADET_JM
DETPRG
RAMECEK
asNAZEVT
RIIS
nTISKPRG
kPS_RETURN
PS_ZAZN
mDATUM
TYP_DOK
NADPIS
OBRM7_MENY
C7_KASA
CENINA
trMENUP3
yMOD_PSV
mod79a1
Prehled pokladniho deniku
RIIS 7.9
ehled doklad
pokladny - aktu
obdob
' '+m7_kasa.denik
m7_kasa.denik
s.dokl.
' '+str(m7_kasa.cis_dok,5)
m7_kasa.cis_dok
' '+m7_kasa.klic
m7_kasa.klic
' '+m7_kasa.typ_dok
m7_kasa.typ_dok
' '+m7_kasa.mena
m7_kasa.mena
str(m7_kasa.kc,12,2)
m7_kasa.kc
m7_kasa.str
m7_kasa.str
s.faktury
m7_kasa.variab
m7_kasa.variab
Identifikace
m7_kasa.identif
m7_kasa.identif
m7_kasa.totoz
m7_kasa.totoz
m7_kasa.text
m7_kasa.text
Pen.
m7_kasa.p_ust
m7_kasa.p_ust
m7_kasa.ucet
m7_kasa.ucet
.obd.
' '+str(m7_kasa.uc_obd,2)
m7_kasa.uc_obd
Splatnost
' '+tran(m7_kasa.dat_spl,'@E')
(m7_kasa.dat_spl )
Dat.aktual.
' '+tran(m7_kasa.dat_akt,'@E')
(m7_kasa.dat_akt )
POLEX
PROCX
eRBOT
CLEFT
CRIGHT
AVFREEZE
ORDER
JMENO
TITLE
sTITLECOLORF1
LECOLORF9
DETAIL
F1PRG
F4_JM
kF4PRG
F7_JM
F7PRG
F9KEY
k F10_JM
oF10PRG
OBADET_JM
DETPRG
RAMECEK
asNAZEVT
RIIS
nTISKPRG
kPS_RETURN
fM7_KASA
ZAZPOK
DATUM
PS_ZAZN
OBRNADPIS
PRAVA
yMENUP3
MOD_PSV
c7_obru
M7_UCTO
DEN_POK
MIDENT_DENM7_DENIK
MDOKLAD
DOKLAD
AVCIS_POL
ENDATUM
OBDOBI_MM
CINNOST
PAR_ZNAK
sTEXT
COLORIDENT_DEN
SPLATNOST
SKUPINA
ORPLAT_POK
9C7_KASA
TYP_DOK
CIS_DOK
PUC_POKL
kSTR_POK
DAT_SPL
W_SK2
k C7_OBRU
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
RIIS 7.1
e t n
obraty za
&barvah
ZMENY
T_DENNOVY_Z
ZMENA1
ZMENA2
S_POL
OBI_MM
_ZNAK
sPOC_ZAZ
ORZOBR_ZAZ
RADEK
INDIK
TNOST
ORPOCET
9DOP1
C_POKL
KONTROLA
oOK_K
BANOVY_R
OBRAT
as_TST
ZMENA
n_UCET
kPMSTR
PMTUP
fPMSKUP
PMDAT
W_POLE
mPMCASTKA
BARVAS
BARVAR
OBRBARVAT
BARVAZ
BARVAU
BARVAN
BARVAH
trM7_UCTO
yW_ROK
ePLAT_POK
_OBDC
j_OBD
._GENER
CIS_G
BARVA
_C7_OBRU
ijUCET
a.NAPLN_C7_OW_DENIK
IDENT_DEN
DEN_POK
_W_TEXT
_pdC7_KASA
_pTEXT
M7_DENIK
W_DOKLAD
oDOKLAD
asW_NED_VYR
NED_VYROBAW_PAR_ZNAKPAR_ZNAK
aW_CINNOST
CINNOST
W_SPLAT
URSPLATNOST
M7_UCET
URMD_CELK
DAL_CELK
dMENU1
vydKONEC
X
R
poc_vZ
h poc_T
1,poc_vdA
th poc_vU
POCET1
POCET2
with zasQ6
m7_kasaHLAV1
PROC1
se mHLAV2
typ_PROC2
&barvah
&barvau
ZMENY
T_DENQ3
ENCISELNIK
BI_MM
POCET1
POOCET2
sMD_CELK
ORDAL_CELK
BAPOMOC
MENU1
BARVA
BARVAZ
ORKONEC
POCET2
HLAV1
oHLAV2
BAPROC1
PROC2
&barvau
&barvas
&barvaz
&barvar
&barvar
pis na obou stran
&barvaz
&barvat
Doklad:
Var.symbol:
innost:
Splatnost:
&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:
Splatnost:
&barvau
ZAZ
&barvau
&barvaz
Esc - Konec
^End - Generuj
&barvaz
stka:
edisko:
Skupina:
TUP:
Dat.vyst.:
&barvau
&barvas
99999
&barvau
W_DENIK
W_TEXT
DENW_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
SKLAD
C7_OBRU
sST_ZAZ
ORMD_CELK
DAL_CELK
AM7_UCET
NAZEV
&barvau
&barvas
&barvau
X_TEXT
X_NED_VYR
X_PAR_ZNAKX_CINNOST
X_SPLAT
&barvau
999999999.99
PMCASTKA
PMSTR
PMSKUP
NAKPMTUP
PMDAT
@ 4,9 &vloz w_denik picture '@!X'
mod_fun
Chybn
identifikace den
@ 4,13 &vloz w_text picture '@X'
@ 5,10 &vloz w_ned_vyr
@ 5,34 &vloz w_par_znak
@ 5,55 &vloz w_cinnost
@ 5,70 &vloz w_splat picture '@E'
CASTKA
M7_DENIK
KW_DENIK
W_TEXT
AKTEXT
W_DOKLAD
DOKLAD
HLASKA
MOD_FUN
_OBRU
_CELK
PROC1
@ x,8 &vloz ucet picture '@!X'
@ x,16 &vloz md
@ x,33 &vloz dal
@ x,49 &vloz nstr picture 'XXXX'
@ x,55 &vloz sklad picture 'XXXX'
999999999999.99
999999999999.99
NASTAV_Q
M7_UCET
KNAZEV
C7_OBRU
_OBRU
OKLAD
CIS_POL
S_POL
_CELK
AST_ZAZ
MD_CELK
ORDAL_CELK
@ 18,10 &vloz x_text
@ 19,10 &vloz x_ned_vyr
@ 19,34 &vloz x_par_znak
@ 19,55 &vloz x_cinnost
@ 19,70 &vloz x_splat picture '@E'
STAV_Q
@m+1,35 &vloz pmcastka picture '999999999.99'
mod_fun
vypln
@m+2,35 &vloz pmstr
@m+3,35 &vloz pmskup
@m+4,35 &vloz pmtup
@m+5,35 &vloz pmdat picture '@E'
mod_fun
vypln
no datum
STAV_Q
PMCASTKA
KHLASKA
MOD_FUN
OKLAD
PMSTR
PAR_POLE
KONTR_STREQ3
sPMSKUP
ORKONTR_SKUPQ4
_CELK
APMTUP
KONTR_TUP
PMDAT
do proc&n
do zmen&n with 'get'
do zmen&n with 'say'
mod7_lib
99999
&barvau
ehled
ehled st
edisek
ehled sklad
Konec
mod7_lib
mod_proc
mod_proc
&barvau
&barvau
&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
Nelze pou
- chyba v obratech
mod_fun
do hlav&n
do proc&n
&barvau
KONEC
STAV_Q
ZMENY
POCET1
OKLAD
_POLE
NASTAV_Q
EPOCET3
sPOCET4
TR_SKUPA
_CELK
R_TUP
MM_LK
kOBR1
ENC7_KASA
S_UCT
POM1
oW_DENIK
BAPOM2
W_DOKLAD
ZOBR_DENIKW_ROK
MOD7_LIB
nC7_OBRU
kIDENT_DEN
M7_DENIK
fW_TEXT
DOKLAD
mVOLBA
W_UCET
OBRZOBR_UCET
W_STRED
ZOBR_STR
MOD_PROC
rW_SKLAD
ySKLAD
ZOBR_SKL
KONTROLA1
KONTROLA
_PRIDEJ_C7
HLAV1
.PROC1
HLAV2
PROC2
_MENU2
a.OBR4
7_OZAZ
X_PAR_ZNAKPAR_ZNAK
_X_NED_VYR
NED_VYROBAX_CINNOST
CINNOST
X_SPLAT
oSPLATNOST
X_TEXT
POCET2
KONTROLA2
NOVY_R
ZMENA
CIS_POL
KONTROLA4
PREP_DAN
KONTR_SUM
KONTR_CTUPOK_K
GENERUJ
dCHYB
vydTXT
sa.HLASKA
MOD_FUN
C7_OBRU
ST_ZAZ
IDENT_DEN
W_DENIK
DOKLAD
AKW_DOKLAD
DATUM
PAR_ZNAK
W_PAR_ZNAKNED_VYROBAW_NED_VYR
CINNOST
ORW_CINNOST
SPLATNOST
W_SPLAT
OBDOBI_MM
M7_UCTO
PLAT_POK
RTEXT
9W_TEXT
CIS_G
C7_KASA
SKUPINA
kW_SK2
CIS_POL
mod_fun
Chybn
identifikace den
KONTROLA
M7_DENIK
W_DENIK
HLASKA
MOD_FUN
DOKLAD
C7_OBRU
mod_fun
Chybn
mod_fun
vypln
mod_fun
Nelze vyplnit sou
TI a DAL
mod_fun
Chybn
zadan
kladov
edisko
mod_fun
Chybn
identifikace skladu
KONTROLA
M7_UCET
HLASKA
MOD_FUN
OKLAD
_OBRU
C7_OBRU
AKDAL
VYROBAQ2
V1_STR
ORNSTR
SKLAD
V4_SKLAD
c7_obruQ
Prob
...
mod_fun
Nejsou vyrovn
ny strany M
TI a DAL
mod_fun
znam den
ku nen
stupn
mod_fun
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
OKLAD
MD_CELK
DAL_CELK
KHLASKA
AMOD_FUN
INDIK
LOCK_STAV
LOCK_SSTAVNSTR
RZMENY
9M7_OBRU
W_DENIK
W_DOKLAD
IDENT_DEN
DOKLAD
ENALL
AVM7_DENIK
M7_STAV
PAR_POLE
oM7_SSTAV
FFFZ^D
mod_fun
znam o
stupn
select &st_sel
select &st_sel
L_UCET
W_INDIK
ST_SEL
M7_STAV
HLASKA
AKMOD_FUN
FFFZ^D
mod_fun
znam o
edisku
stupn
select &st_sel
select &st_sel
L_UCET
L_NSTR
W_INDIK
ST_SEL
PAR_POLE
M7_SSTAV
KUCET
HLASKA
MOD_FUN
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
&barvau
_MD2
_DAL1
_DAL2
K_ST1
KC7_VSTUP
AM7_VSTUP
C7_OBRU
ROBR_DOK
M7_OBRU
SKUPINA
DET_TUP
STR_N
STAVHODNOTA
RDAT_VYST
9PMSKUP
PMTUP
PMSTR
PMCASTKA
PMDAT
ENKLIC
VM7_DESK
POPIS
SPATNE
oKLIC_POL
ACIS_G
CISLO
_GENER
NIKW_SK
_DENIK
nDENIK
kNAZEV
f_POR
DOKLAD
M7_TUP
_HODNOTA
mVYTVOR_OB
NAPLN_POBRM7_UCTO
W_POLE
p_str
ehled st
edisek
ed. N
zev
nstr+' '+nazev_str
edisko
mod_fun
P_STR
N_LMEZ
N_PMEZ
N_HMEZ
KN_DMEZ
N_PROM
N_HOD
N_POC
KN_TEXT
AN_HLAV
N_RAD
RN_NVYH
V1_STR
ZOBR_NAP
MOD_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
M7_DESK
PMSKUP
PMTUP
M7_TUP
KL_TUP
KN_LMEZ
N_PMEZ
N_HMEZ
N_DMEZ
KN_PROM
AN_HOD
N_POC
RN_TEXT
N_HLAV
N_RAD
N_NVYH
ZOBR_NAP
VMOD_FUN
RSKUPINA
9DET_TUP
CASTKA
ENC7_OBRU
m7_chyby
vygenerovan
edisko
m7_chyby
vygenerovan
C7_OBRU
CHYB
V1_STR
POPIS
SPATNE
KKLIC_POL
CIS_G
SKUPINA
CISLO
KRAD_TUP
AW_SK
M7_UCET
RUCET
P_STR
V1_STR
PMSTR
KONTR_STR
C7_OBRU
_OBRU
UPINA
M7_USKUP
PMSKUP
KONTR_TUP
C7_OBRU
mod_fun
vypln
mod_fun
vypln
no datum
PMCASTKA
HLASKA
MOD_FUN
NTR_TUP
KOK_K
PMSTR
PAR_POLE
KONTR_STREPMSKUP
AKONTR_SKUPPMTUP
RKONTR_TUP
PMDAT
-
- ^End,Esc
- F2
Pohyb
Konec
Bloky
- F10
C7_KASA
S_UCT
,PgDn,PgUp
- ^PgDn
- ^Home
- F3
- F10
- ^End,Esc
Pohyb
idat
Texty
Funkce
Konec
-
- F3
Pohyb
-
- F9
- Enter
Pohyb
Vyhled
mod_fun
edisko neexistuje
mod_fun
edisko neexistuje
mod_fun
et neexistuje
mod_fun
et neexistuje
c7_obru
c7_obru
V1_STR
_ST1
HLASKA
MOD_FUN
W_POLE
K_ST2
REIDENT_DEN
DOKLAD
KUPCIS_POL
RDATUM
SKLAD
VTEXT
ROBDOBI_MM
PAR_ZNAK
CIS_G
RAD_TUP
NED_VYROBACINNOST
ENSKUPINA
VSPLATNOST
_DENIK
o_DOK
A_POR
C7_VSTUP
NIK_MD1
_DAL1
n_TEX
k_OBD
_GENER
fM7_TUP
ADAT_VYST
_DAL2
colora
set color to &color
COLOR
POCET2
mod_fun
Nejsou vyrovn
ny strany M
TI a DAL
Strany M
TI a DAL nejsou shodn
stkou dokladu : F
mod_fun
KONTROLA
C7_OBRU
ST_ZAZ
MD_CELK
KDAL_CELK
HLASKA
MOD_FUN
ENT_DEN
C7_KASA
PUZAVR
Esc - konec
Bez dan
z celkov
stky
ze z
kladu dan
Zadej
stku:
9999999.99
Zadej % dan
klad dan
9999999.99
:
9999999.99
Zadej
stku:
9999999.99
Zadej % dan
klad dan
9999999.99
:
9999999.99
999999999999.99
999999999999.99
_PCAST
_PDANP
VOL11
_PDAN
K_PZAKL
DRUHY_R
MIDENT_DENC7_OBRU
IDENT_DEN
MDOKLAD
RDOKLAD
CIS_POL
DATUM
OBDOBI_MM
M7_UCTO
VPLAT_POK
RCINNOST
C7_KASA
TYP_DOK
CIS_G
PAR_ZNAK
ACIS_DOK
oSPLATNOST
DAT_SPL
SKUPINA
W_SK2
NIKWHILE
_DENNOVY_Z
nM7_KASA
ENDALC
mod_fun
Doklad nebyl ulo
en, nelze stornovat
Opravdu stornovat tento z
znam? (a/n)
cenina
replace md_&obd1 with md_&obd1-c7_obru.md
replace dal_&obd1 with dal_&obd1-c7_obru.dal
replace md_&obd1 with md_&obd1-c7_obru.md
replace dal_&obd1 with dal_&obd1-c7_obru.dal
STORNO POKLADNA
STORNO POKLADNA
M7_KASA
C7_KASA
DENIK
CIS_DOK
HLASKA
MOD_FUN
KOBR2
M7_MENY
ENTYP_DOK
PRIJ_M
RPRIJ_D
ZASOBA
VYD_M
VYD_D
STRED
VCENINA
RC7_OBRU
OBDOBI_MM
PAR_POLE
M7_STAV
AUCET
ENM7_SSTAV
VNSTR
M7_OBRU
oW_SK2
CIS_G
SKUPINA
IKDAL
_DENTEXT
nS_UCT
case ts_&w='SDA'
w_st&w=c7_vstup.str_d
case ts_&w='SKL'
seek c7_vstup.skl&w
w_st&w=nstr
do chyba with '04', c7_vstup.skl&w, klic
w_st&w=space(4)
case ts_&w='SNA'
w_st&w=c7_vstup.str_n
case ts_&w='SNV'
w_st&w=space(4)
m7_rene.dbf2
m7_rene
m7_rene
w_st&w=space(4)
w_st&w=m7_rene.stred
w_st&w=space(4)
case ts_&w='SPR'
w_st&w=c7_vstup.str_p
case ts_&w='ZAD'
w_st&w=str_&w
case ts_&w=' '
w_st&w=space(4)
case tu_&w='ZAD'
w_uc&w=ucet_&w
case tu_&w='KU'
w_pole(pr)=iif(substr(ucet_&w,pr,1)=' ',substr(c7_vstup.kc,1,1), substr(ucet_&w,pr,1))
w_uc&w=w_pole(1)+w_pole(2)+w_pole(3)+w_pole(4)+w_pole(5)+w_pole(6)
case tu_&w='S+A'
seek c7_vstup.skl&w
w_pole(pr)=iif(substr(ucet_&w,pr,1)=' ',substr(w_puc,pr,1), substr(ucet_&w,pr,1))
w_uc&w=w_pole(1)+w_pole(2)+w_pole(3)+w_pole(4)+w_pole(5)+w_pole(6)
w_uc&w=space(6)
do chyba with '04', c7_vstup.skl&v, klic
case tu_&w='SK'
seek c7_vstup.skl&w
do chyba with '04', c7_vstup.skl&v, klic
w_uc&w=w_puc
case tu_&w='ST'
seek w_st&w
do chyba with '05', w_st&w, klic
w_uc&w=w_puc
case tu_&w='T+A'
seek w_st&w
w_pole(pr)=iif(substr(ucet_&w,pr,1)=' ',substr(w_puc,pr,1), substr(ucet_&w,pr,1))
w_uc&w=w_pole(1)+w_pole(2)+w_pole(3)+w_pole(4)+w_pole(5)+w_pole(6)
do chyba with '05', w_st&w, klic
w_uc&w=space(6)
W_MD1
_HODNOTA
W_DAL1
W_MD2
W_DAL2
DNOTA
V4_SKLAD
M7_TUP
NC7_VSTUP
NED_VYROBACHYBA
RKLIC
M7_RENE
OBAW_PUC
VUCET_POM
RUCET
V1_STR
UCET_HK
AU_POM
U_HOD
AKOEF
ENW_ST1
VREZIE_SPR
W_ST2
REZIE_VYR
REZIE_ZAS
REZIE_ODB
W_REZ1
W_REZ2
TUP nen
definov
k neexistuje, doklad=1
Nejsou zadefinov
dky TUP
Sklad nebyl nalezen
edisko nebylo nalezeno
Nulov
Nulov
Nulov
sobovac
Nulov
odbytov
vygenerovan
edisko, neexistuje
vygenerovan
et, neexistuje
VP nen
vypln
n, nelze pou
t SNV
VP neexistuje, nelze pou
t SNV
Neexistuje soubor ned. v
roby, SNV nelze pou
znam stavu
tu nen
stupn
znam stavu
tu st
ediska nen
stupn
znam den
ku nen
stupn
Nedefinovan
chyba, informujte, pros
m, firmu SoWA
m7_chyby
select &sel
W_KOD
W_SPATNE
W_KLIC
W_TXT
POPIS
KSPATNE
KLIC_POL
CIS_G
SKUPINA
NCISLO
W_CIS_G
AW_SK
RC7_VSTUP
ST_ZAZ
ST_KLIC
DET_TUP
BAKLIC_TR
VCHYBA
RWHILE
MOD79A1
OPRAVA
VOL_POK
ZVOL_DOK
NASTAV
MENUP
ay lt
PROCP1
eft(O"
DEJ_STAV
PORADIP1
ZMENP1
ay sY+
DEJ_FAKTUR
ZMENYP
ZAPIS_D
K_UDAJUP
NAPOVEDA
HLED_ZAM
C7_GENER
NAPLN_COBR
POK_FUN
ZOBR_OBR
MENUP3
ZOBR_POK
ZOBR_DOK
NAPLN_C7_O
RUC_UCT
OBRATUCT
HLAV1
selec
HLAV2
HLAV3
pictW
HLAV4
PROC1
PROC2
PROC3
kc/m7
PROC4
ZMEN1
ay 'M
ZMEN2
space
ZMEN3
color
ZMEN4
@ 10
ZMENY
r(_mnK
PRIDEJ_C7
KONTROLA1
KONTROLA2
KONTROLA3
ZAPIS
!'
LOCK_STAV
LOCK_SSTAV
GENERUJ
KONTR_STR
KONTR_TUP
KONTR_OB
KONTR_STRE
KONTR_SKUP
KONTR_CTUP
KONTR_CTUP
MENU1
MENU2
ntif)
MENU3
5 say
MENU4
ct '@y
NAPLN_POBR
variab;
NASTAV_Q
KONTR_SUM
PREP_DAN
DOK_ZRUS
VYTVOR_OB
CHYBA
i
W:\07\
MOD79A1.FXP
W:\07\MOD79A1.PRG