home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
09
/
MOD91C.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-08-17
|
92KB
|
2,441 lines
m_param
M_PARAM
W_PODNIK
FIRMA
) =POLE4
tav,W_PRUMER
dW_OCEN_EXPPOLE2
W_OCEN_VYRPOLE5
W_OBDOBI
mTER_UZAV
"GET_OBD
m,MOD91BX
mod_lib
RIIS 9
Tisk protokolu inventury 25
Tisk p
skl. polo
ek 25
Tisk skladov
ch reglet 39
Tisk reglet skl. um
39
Tisk rekapitulace reglety 25
Tisk souhrnn
rekap. reglety 25
Tisk protokolu v
sklad
Tisk protokolu p
jmu sklad
Tisk protokolu odv
h do NV 25
h do nedokon
roby 25
z NV - fin
25
z NV - zak
25
esuny 25
ediska 25
r skladov
ch obrat
25
Konec
do tisk with 'tisk1'
do tisk with 'tisk2'
do tisk with 'tisk3'
do tisk with 'tisk9'
do tisk with 'tisk4'
do tisk with 'tisk5'
do tisk with 'tisk6'
do tisk with 'tisk7'
EUTIT
do tisk with 'tisk12'
do tisk with 'tisk8'
do tisk with 'TiskNaOd_N_1'
do tisk with 'TiskNaOd_O_1'
do tisk with 'TiskNaOd_O_2'
do tisk with 'tiskpre'
do tisk with 'mod54c'
do tisk with 'tisk_obr'
deactivate popup volba
P_SETUP
P_RESET
P_6LPI
=P_8LPI
av,P_10CPI
dP_12CPI
XPP_16CPI
P_20CPI
YRP_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
dP_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
P_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
"vP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
hMOD_LIB
i=VOL
zahNAVRAT
'InKONTROLA
'M_SKLAD
) W_TYP_SKL
OTEVRI_DBFOBR
hodn(iVOLBA
nv_rPODNIK
mod54c
VYROBA
TiskNaOd_N_1
TiskNaOd_O_1
TiskNaOd_O_2
W_TISK
TISKS
VOLBA
=W_MODUL
v,W_ARCHIV
dW_VOL
XPMOD54C
OTEVRI_DBFTISKNAOD
Prob
r obrat
...
c_inv:9
c_inv:9
x_inv
Prob
VN ...
W_SKLAD
W_TYP
=OBR
v,C_INV
dKOD_OB
XPVYDAL_SKL
TYP_UM_V
FVYD_UM_SKLIDENT
X_INV
M1_IDENT
FKOD_POL
dW_PRUMER
W_NAKL_S
W_NAKL_N
FSTAN_NAKL2NAKLAD
mod4_lib
substr(obr.kod_ob,1,2)='IS' and substr(obr.kod_ob,3,1)#'*'
typ_um_v='V'
inventura nebyla provedena
Protokol inventarizace skladov
ch polo
Protokol inventarizace skladov
ch polo
ek, sklad :
RIIS 4.2
mod91c
ttisk1
Zadejte sklad :
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
vydal_skl
vydal_skl
vyd_um_skl
vyd_um_skl
N
str(naklad,11,2)
naklad
Z
str(plan_mnoz,12,3)
plan_mnoz
Inv.stav
str(skut_mnoz,12,3)
skut_mnoz
Rozd
str(skut_mnoz-plan_mnoz,12,3)
skut_mnoz-plan_mnoz
Rozd
str(round(naklad*(skut_mnoz-plan_mnoz),2),11,2)
round(naklad*(skut_mnoz-plan_mnoz),2)
Datum
tran(termin_ob,'@E')
termin_ob
VYBER_OBR
M_SKLAD
MOD4_LIB
=C_OBR
v,VYDAL_SKL
VYD_UM_SKLIDENT
HLASKA
M1_IDENT
LPOLEX
FREEZE
FPRAVA
RAMECEK
FNAZEVT
L2W_OBDOBI
NADPIS
OFFPROCX
QUALF1
OMP_OFFF3
IDT_ON
IDT_OFFF4PRG
EIG_OFFF7
EWPAGE
F9KEY
"ZAHL
i=JMENO
zahHODN
'MOD_PSV
) OBSAH
mod_lib
Prob
tisk ...
mod91t1
W_TISK
NASTAV_PRNMOD_LIB
v,OBRT
M_SKLMOD91T1
mod4_lib
xc_prec
Ve sklad
nedo
lo k p
polo
skladov
ch polo
skladov
ch polo
ek, sklad :
RIIS 4.2
mod91c
ttisk2
Zadejte sklad :
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
sklad
sklad
um_skl
um_skl
Stav
str(stav,12,3)
Star
cena
str(round(st_cena*stav,2),11,2)
round(st_cena*stav,2)
Nov
cena
str(round(no_cena*stav,2),11,2)
round(no_cena*stav,2)
Rozd
str(rozdil,11,2)
rozdil
VYBER_PRECM_SKLAD
W_TYP_SKL
MOD4_LIB
,C_PREC
SKLAD
SKLUM_SKL
IDENT
XC_PREC
LM1_IDENT
HLASKA
POLEX
FFREEZE
dLEVA
PRAVA
L2RAMECEK
NAZEVT
W_OBDOBI
FRIIS
LNADPIS
"vPROCX
_OFFF1
IDT_ON
IDT_OFFF3
EIG_OFFF4PRG
"F9KEY
zahZAHL
'InJMENO
'HODN
MOD_PSV
BFOBSAH
mod_lib
Prob
tisk ...
mod91t2
_PRECW_TISK
NASTAV_PRNMOD_LIB
,OBRT
SKLMOD91T2
mod4_lib
Ve sklad
polo
Regleta skladu
Regleta skladu :
RIIS 4.2
mod91c
ttisk3
Zadejte sklad :
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
sklad
sklad
Cena/MJ
str(cena,11,2)
Stav/MJ
str(stav,12,3)
jem/MJ
str(prijem,12,3)
prijem
V
dej/MJ
str(vydej,12,3)
vydej
esun/MJ
str(presun,12,3)
presun
Inv.rozd./MJ
str(inv_rozdil,12,3)
inv_rozdil
soba/MJ
str(zasoba,12,3)
zasoba
Stav/K
str(stav_kcs,11,2)
stav_kcs
str(preceneni,11,2)
preceneni
jem/K
str(prijem_kcs,11,2)
prijem_kcs
dej/K
str(vydej_kcs,11,2)
vydej_kcs
esun/K
str(presun_kcs,11,2)
presun_kcs
Inv.roz./K
str(in_roz_kcs,11,2)
in_roz_kcs
soba/K
str(zasoba_kcs,11,2)
zasoba_kcs
K_SKLAD
ECM_SKLAD
W_TYP_SKL
MOD_SYS
,S_STAV
S_PRECEN
LS_PRIJEM
S_VYDEJ
S_PRESUN
LS_INV
S_ZASOBA
S_HAL
FTV_REG
dMOD4_LIB
C_REGL
HLASKA
FIDENT
L2M1_IDENT
POLEX
FREEZE
FLEVA
LPRAVA
"vHOR
_OFFDOL
DT_ON
RAMECEK
FFNAZEVT
W_OBDOBI
FRIIS
NADPIS
hPROCX
zahF3
'InF4
'F4PRG
BFF9KEY
dn(iF9
nv_rZAHL
i=iJMENO
zahlHODN
' I
MOD_PSV
OBSAH
mod_lib
Prob
tisk ...
mod91t3
ECW_TISK
NASTAV_PRNMOD_LIB
,OBRT
LMOD91T3
mod4_lib
Ve sklad
polo
Regleta skladov
ch um
Regleta skladov
ch um
, sklad :
RIIS 4.2
mod91c
ttisk9
Zadejte sklad :
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
sklad
sklad
umist
umist
Cena/MJ
str(cena,11,2)
Stav/MJ
str(stav,12,3)
jem/MJ
str(prijem,12,3)
prijem
V
dej/MJ
str(vydej,12,3)
vydej
esun/MJ
str(presun,12,3)
presun
Inv.rozd./MJ
str(inv_rozdil,12,3)
inv_rozdil
soba/MJ
str(zasoba,12,3)
zasoba
Stav/K
str(stav_kcs,11,2)
stav_kcs
str(preceneni,11,2)
preceneni
jem/K
str(prijem_kcs,11,2)
prijem_kcs
dej/K
str(vydej_kcs,11,2)
vydej_kcs
esun/K
str(presun_kcs,11,2)
presun_kcs
Inv.roz./K
str(in_roz_kcs,11,2)
in_roz_kcs
soba/K
str(zasoba_kcs,11,2)
zasoba_kcs
VOLBA
ECK_SKLAD
M_SKLAD
RNW_TYP_SKL
MOD_SYS
S_STAV
LS_PRECEN
S_PRIJEM
S_VYDEJ
LS_PRESUN
S_INV
S_ZASOBA
FS_HAL
dTV_REGUM
MOD4_LIB
C_REGL
FHLASKA
L2IDENT
M1_IDENT
POLEX
FFREEZE
LLEVA
"vPRAVA
_OFFHOR
DT_ON
FFRAMECEK
NAZEVT
FW_OBDOBI
hNADPIS
"PROCX
zahF2
'InF3
) F4PRG
dn(iF9KEY
nv_rF9
i=iZAHL
zahlJMENO
' HODN
MOD_PSV
soOBSAH
mod_lib
Prob
tisk ...
mod91t9
ECW_TISK
NASTAV_PRNMOD_LIB
LMOD91T9
m_param
m_param
mod4_lib
Ve sklad
polo
c_regl_r
c_regl_r
c_rekap
xc_rekap
Prob
kumulace dat ...
mod4_lib
c_rekp
c_rekv
c_rekp
xc_rekp
c_rekv
xc_rekv
Rekapitulace reglety sklad
RIIS 9.2
mod91c
ttisk4
Zadejte sklad :
sklad
sklad
zev skladu
v4_sklad.nazev
v4_sklad.nazev
kod_ob
kod_ob
str(pocet,6)
pocet
Celkem K
str(kcs,11,2)
W_ZAV
ECM_PARAM
W_HMT
RNPOLE5
S_STAV
S_PRECEN
LS_PRIJEM
S_VYDEJ
S_PRESUN
LS_INV
S_ZASOBA
S_HAL
FTV_REGUM
dW_TYP_SKL
MOD4_LIB
C_REGL
FHLASKA
L2PODNIK
SKLAD
V4_SKLAD
FKONSIG
LC_REGL_R
vIDENT
FM1_PLAN
STSKLAD
FFSTAV_KCS
PRECENENI
PRIJEM_KCSVYDEJ_KCS
PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR
CSSTAV
'VAHA_MJ
) PRIJEM
VYDEJ
BFPRESUN
(iINV_ROZDILZASOBA
ILC_REKAP
SKOD_OB
POCET
XC_REKAP
POC_P
= POC_V
zaPOCETC
' TYP_UM_V
TYP_UM_P
PROCENTA
aM1_IDENT
)KOD_POL
W_PRUMER
cW_NO_CENA
NAKLAD
i) W_ST_CENA
STAN_NAKL
VYDAL_SKL
SKUT_MNOZ
PLAN_MNOZ
PRIJAL_SKLC_REKP
C_REKV
zXC_REKP
'XC_REKV
POLEX
)FREEZE
(prLEVA
cs,11PRAVA
odn(HOR
"prijDOL
i=RAMECEK
ahNAZEVT
' W_OBDOBI
(i) NADPIS
ydePROCX
1,2)F1
odn(i) F2
vydej_kF3
i=i+1
zahl(i)F4PRG
jmeF7
) = "sF9KEY
un_kF9
1,2)"
) = JMENO
_kcsHODN
i) MOD_PSV
z.OBSAH
menor
mod_lib
Prob
tisk ...
C_REKAP
ECST_ZAZ
W_TISK
RNNASTAV_PRNMOD_LIB
LMESS
STRANA
PRESUN
C_REGL_R
STSKLAD
FSKLAD
dW_ROZ_KCS
TISK_HL4
TISK_S40
FTISK_S4
L2P_SETUP
R e k a p i t u l a c e r e g l e t y s k l a d u
MTZ-04
Sklad:
ECNAZEVT
W_OBDOBI
NP_SETUP
RNP_COMP_OFFP_SUBON
LW_PODNIK
P_SUBOFF
LP_LETRQUALP_BOLDON
P_BOLDOFF
P_DRAFT
dSTSKLAD
ALV4_SKLAD
C_REGL_R
FNAZEV
2P_10CPI
stav
999 999 999.99
999 999 999.999
999 999 999.99
999 999 999.99
999 999 999.999
999 999 999.99
999 999 999.999
999 999 999.99
999 999 999.999
Inventurn
rozd
999 999 999.99
999 999 999.999
999 999 999.99
999 999 999.999
vyrovn
999 999 999.99
stav
999 999 999.99
999 999 999.99
999 999 999.99
999 999 999.99
999 999 999.99
Inventurn
rozd
999 999 999.99
999 999 999.99
vyrovn
999 999 999.99
C_REGL_R
CW_HMT
NP_BOLDON
NP_BOLDOFF
LSTAV_KCS
PRECENENI
PRIJEM_KCSPRIJEM
VYDEJ_KCS
VYDEJ
dPRESUN_KCSPRESUN
IN_ROZ_KCSINV_ROZDILZASOBA_KCSZASOBA
HAL_VYR
========== P
j e m ==========
========== V
d e j ==========
Dr.o.
Dr.o.
ZZZZZ
99999
999 999 999.99
ZZZZZ
99999
999 999 999.99
K o n e c s k l a d u
K o n e c s e s t a v y
EGL_R
P_BOLDON
NP_BOLDOFF
LDOFF
P_10CPI
LKONEC_P
KONEC_V
C_REKP
STSKLAD
CSC_REKV
SKLAD
SUN_KCSKOD_OB
POCET
KCSKCS
DILC_REGL_R
SP_LETRQUALP_DRAFT
P_COMP_OFFL
REGL_R
vSTRANA
FP_SUBON
pom_Aktf
mod4_lib
Ve sklad
polo
c_regl_r
c_regl_r
xc_r_r
Rekapitulace reglety sklad
- aktu
obdob
RIIS 4.3
Rekapitulace reglety sklad
RIIS 9.2
mod91c
ttisk5
Zadejte sklad :
Suma in mod43e
sklad
sklad
zev skladu
v4_sklad.nazev
v4_sklad.nazev
Stav
str(stav_kcs,12,2)
stav_kcs
str(preceneni,12,2)
preceneni
P
str(prijem_kcs,12,2)
prijem_kcs
V
str(vydej_kcs,12,2)
vydej_kcs
P
str(presun_kcs,12,2)
presun_kcs
Inv.rozd
str(in_roz_kcs,12,2)
in_roz_kcs
Z
str(zasoba_kcs,12,2)
zasoba_kcs
Hal.vyr.
str(hal_vyr,12,2)
hal_vyr
POM_AKT
CS_STAV
S_PRECEN
NS_PRIJEM
S_VYDEJ
S_PRESUN
LS_INV
S_ZASOBA
S_HAL
SKLAD
CSTV_REGUM
W_TYP_SKL
MOD4_LIB
dC_REGL
KCSHLASKA
PODNIK
KCSSKLAD
DILV4_SKLAD
SKONSIG
LC_REGL_R
STSKLAD
FSTAV_KCS
vPRECENENI
PRIJEM_KCSVYDEJ_KCS
PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR
CSXC_R_R
SPOLEX
SFREEZE
KCSLEVA
CSPRAVA
) DOL
RAMECEK
BFNAZEVT
(iRIIS
OZDILW_OBDOBI
LNADPIS
SPROCX
F1
REKAP
F4PRG
= F6
zaF9KEY
' F9
_UM_V
F10_JM
aF10PRG
)ZAHL
JMENO
cHODN
i) MOD_PSV
OBSAH
mod_lib
Prob
tisk ...
mod91b_2
mod91b_2
ST_ZAZ
CW_TISK
NASTAV_PRNMOD_LIB
LSTRANA
REGUM
YP_SKL
4_LIB
KCSS7
KCSP_RESET
ILTISK_HL5
SMOD91B_2
LTISK_S5
C_REGL_R
mod4_lib
inlist(left(kod_ob,1),'V','R')
typ_um_v='V'
Ve skladech nebyl realizov
dej u
polo
Protokol v
RIIS 9.2
mod91c
ttisk6
Zadejte st
edisko obratu :
stred_obr
stred_obr
kod_ob
kod_ob
Datum
tran(termin_ob,'@E')
termin_ob
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
vydal_skl
vydal_skl
v4_sklad.konsig+' '
v4_sklad.konsig
ident_zak
ident_zak
Rozpiska
ident_vys
ident_vys
Doklad
dokl_cis
dokl_cis
Cena/MJ
str(naklad,11,2)
naklad
Skut.mno
str(skut_mnoz,12,3)
skut_mnoz
Cena celkem
str(round(naklad*skut_mnoz,2),11,2)
round(naklad*skut_mnoz,2)
VYBER_OBR
M_SKLAD
MOD4_LIB
NC_OBR
STRED_OBR
KOD_OB
LIDENT
HLASKA
M1_IDENT
VYDAL_SKL
V4_SKLAD
PODNIK
POLEX
dFREEZE
KCSLEVA
PRAVA
KCSHOR
ILDOL
SRAMECEK
LNAZEVT
W_OBDOBI
FRIIS
vNADPIS
PROCX
_KCSF1
EJ_KCS
SUN_KCSF3
ROZ_KCSF4
OBA_KCSF4PRG
SF9KEY
KCSF9
CSZAHL
'JMENO
) HODN
BFMOD_PSV
(iOBSAH
mod_lib
Prob
tisk ...
mod91t61
mod91t6
W_TISK
NASTAV_PRNMOD_LIB
LPODNIK
MOD91T61
MOD91T6
mod4_lib
inlist(left(kod_ob,1),'P','O')
typ_um_v='V'
Ve skladech nebyl realizov
jem u
polo
Protokol p
RIIS 9.2
mod91c
ttisk7
Zadejte k
d obratu :
kod_ob
kod_ob
Datum
tran(termin_ob,'@E')
termin_ob
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
vydal_skl
vydal_skl
ident_zak
ident_zak
Rozp.vy
ident_vys
ident_vys
Doklad
dokl_cis
dokl_cis
Cena/MJ
str(naklad,11,2)
naklad
Skut.mno
str(skut_mnoz,12,3)
skut_mnoz
Cena celkem
str(round(naklad*skut_mnoz,2),11,2)
round(naklad*skut_mnoz,2)
VYBER_OBR
M_SKLAD
MOD4_LIB
NC_OBR
STRED_OBR
KOD_OB
LIDENT
STRED_OB
HLASKA
M1_IDENT
POLEX
FREEZE
dPRAVA
KCSHOR
KCSRAMECEK
ILNAZEVT
SW_OBDOBI
LRIIS
NADPIS
FPROCX
_KCSF3
EJ_KCS
SUN_KCSF4PRG
_KCSF6
OBA_KCSF7
CSF9KEY
SZAHL
KCSJMENO
CSHODN
) MOD_PSV
OBSAH
mod_lib
Prob
tisk ...
mod91t7v
W_TISK
NASTAV_PRNMOD_LIB
LMOD91T7V
J.PORKERTFF
mod4_lib
inlist(kod_ob,'V11','V35','V36')
typ_um_v='V'
mod4_lib
left(kod_ob,1)='V' and left(kod_ob,2)#'VE'
typ_um_v='V'
Ve skladech nebyl realizov
dej u
polo
h materi
lu do NV
RIIS 9.2
mod91c
ttisk8
Zadejte k
d obratu :
stred_obr
stred_obr
ident_zak
ident_zak
kod_ob
kod_ob
stka/K
str(celkem,11,2)
celkem
W_PODNIK
VYBER_OBR
M_SKLAD
RNMOD4_LIB
C_OBR
STRED_OBR
IDENT_ZAK
KOD_OB
IDENT
STRED
HLASKA
POLEX
FREEZE
dLEVA
KCSPRAVA
KCSDOL
ILRAMECEK
SNAZEVT
LW_OBDOBI
FNADPIS
vPROCX
_KCSF2
EJ_KCS
SUN_KCSF4
_KCSF4PRG
_KCSF6
SF9KEY
KCSZAHL
CSJMENO
'HODN
MOD_PSV
BFOBSAH
mod_lib
Prob
tisk ...
mod91t8
W_TISK
NASTAV_PRNMOD_LIB
MOD91T8
mod4_lib
inlist(left(kod_ob,1),'O')
typ_um_v='V'
Ve skladech nebylo realizov
no odv
polo
Protokol odv
edisek
RIIS 9.2
mod91c
ttisk12
Zadejte st
edisko obratu :
stred_obr
stred_obr
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
kod_ob
kod_ob
Datum
tran(termin_ob,'@E')
termin_ob
vydal_skl
vydal_skl
ident_zak
ident_zak
Rozpiska
ident_vys
ident_vys
Doklad
dokl_cis
dokl_cis
Cena/MJ
str(naklad,11,2)
naklad
Skut.mno
str(skut_mnoz,12,3)
skut_mnoz
Cena celkem
str(round(naklad*skut_mnoz,2),11,2)
round(naklad*skut_mnoz,2)
VYBER_OBR
M_SKLAD
MOD4_LIB
NC_OBR
STRED_OBR
IDENT
KOD_OB
STRED
HLASKA
M1_IDENT
POLEX
FREEZE
dPRAVA
KCSHOR
KCSRAMECEK
ILNAZEVT
SW_OBDOBI
LRIIS
NADPIS
FPROCX
_KCSF3
EJ_KCS
SUN_KCSF4PRG
_KCSF6
_KCSF7
CSF9KEY
SZAHL
KCSJMENO
CSHODN
) MOD_PSV
OBSAH
mod_lib
Prob
tisk ...
mod91t12
W_TISK
NASTAV_PRNMOD_LIB
MOD91T12
colora
set color to &color
COLOR
STAV_PRNOBR
POCET
POCETC
Zadejte sklad :
Sklad neexistuje
mod_proc
Nepovolen
druh skladu
M_SKLAD
W_TYP_SKL
K_SKLAD
RNV4_SKLAD
HLASKA
ZOBR_SKL
MOD_PROC
DRUH_SKL
colora
set color to &color
COLOR
roby do NV podle n
kl.st
.a zak
z NV podle n
kl.st
.a zak
zek - fin
z NV podle n
kl.st
.a zak
zek - zak
Prob
r obrat
...
c1_nab
m7_rene
c1_nab
c1_nab
c1_nab
Ve skladech nebyl realizov
n dan
pohyb u
polo
C1_NAB
C1_NABEH
Str_Zak_Ob
C1_NABEH
C1_NAB1
Zak_Str
C1_NABEH
C1_NAB2
Str_Zak
RIIS 9.2
mod91c
TiskniN
Zadejte st
edisko, zak
zku a k
d obratu:
|...|.........|..
Kumul.n
NabKumul
stred_obr
stred_obr
ident_zak
ident_zak
kod_ob
kod_ob
ident
ident
MNO
str(Skut_Mnoz,11,3)
Skut_Mnoz
Mat1
str(Mat1,13,2)
Mat2
str(Mat2,13,2)
Mzdy
str(Mzdy,13,2)
VR
str(VR,13,2)
OPM
str(OPM,13,2)
OPN
str(OPN,13,2)
Celkem
str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2)
Mat1+Mat2+Mzdy+VR+OPM+OPN
NAB_ODV
POM_JAKY
NAZEVT
NW_OBDOBI
C1_NAB
IDENT
KOD_OB
IDENT_ZAK
SKUT_MNOZ
TYP_UM_V
STRED_OBR
DOKL_CIS
dNAKLAD
KCSSTRED_NV
KCSMAT2
ILMZDY
BDOBI
FJ_MAT1
vJ_MAT2
J_MZDY
KCSJ_VR
J_OPM
_KCSJ_OPN
_KCSOBR
_KCSM1_KALKS
SPOM_NASEL
M7_RENE
STRED
KCSMATER
SKOOP
'PRIP
KUSY_D
KUSOV
FHLASKA
ZDILM7_NVPAR
C1_NABEH
STR_ZAK_OBC1_NAB1
ZAK_STR
C1_NAB2
STR_ZAK
POLEX
PROCX
iRTOP
zaRBOT
' CLEFT
CRIGHT
FREEZE
aORDER
cLEVA
PRAVA
i) NADPIS
JMENO
TITLE
_SKLTITLECOLORPOC0
(prF4
cs,11F6
odn(F7
"prijF9
i=F10
ahF0PRG
' F1ON
F1PRG
i) F4_JM
ydeF4PRG
1,2)TISKPRG
) F7_JM
ej_kF7PRG
F9PRG
l(i)F9KEY
esF9KEY1
jmeF10_JM
"sF10PRG
n_kRAMECEK
) = KLICO
kcsKLNAZ
*SPACEBAR
TR_HL1
z.TR_HL2
enoTR_HL3
rTR_HL4
kcsTR_HL5
hoTR_HL6
"iTR_HL7
TR_HL8
TR_HL9
= DET_JM
a/KENTER
no(iDETAIL
r(zDETPRG
s,1PS_LINE
dnPS_RETURN
PS_ZAZN
doMOD_PSV
rOBSAH
colorz
ty za st
edisko
ty za st
., zak
ty za st
., zak
zku, k
Kumulace n
kl.st
. po zak
Kumulace zak
zek pro st
Konec
MMCOLOR
NSUMY
C1_NABEH
C1_NAB1
KUMUL
C1_NAB2
RIIS 9.2
mod91c
ident_zak
Celkem za zak
Kumul.n
kl.st
edisek po zak
ch (v
roba)
Kumul.odv
kl.st
edisek po zak
ch - fin
Kumul.odv
kl.st
edisek po zak
ch - zak
Zadejte zak
|.........
ident_zak
ident_zak
' '+stred_obr
stred_obr
stred_NV
Celkem za st
Kumul.n
hy zak
zek pro st
ediska NV (v
roba)
Kumul.odv
zek pro st
ediska NV - fin
Kumul.odv
zek pro st
ediska NV - zak
Zadejte st
edisko NV:
' '+stred_NV
stred_NV
ident_zak
ident_zak
Mat1
str(Mat1,13,2)
Mat2
str(Mat2,13,2)
Mzdy
str(Mzdy,13,2)
VR
str(VR,13,2)
OPM
str(OPM,13,2)
OPN
str(OPN,13,2)
Celkem
str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2)
Mat1+Mat2+Mzdy+VR+OPM+OPN
POM_CO
POLEX
PROCX
NRTOP
CLEFT
CRIGHT
FREEZE
ORDER
_MNOZ
PRAVA
dNADPIS
KCSZAHL
JMENO
KCSHODN
ILSOUC
STITLE
LTITLECOLORPOC0
KCSF3
_KCSF6
_KCSF7
_KCSF9
KALKS
NASEL
F0PRG
KCSF1PRG
SF4_JM
'F4PRG
TISKPRG
F7_JM
FF7PRG
F9PRG
ZDILF9KEY
F9KEY1
F10_JM
_OBF10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
iSPACEBAR
aTR_HL1
' TR_HL2
TR_HL3
TR_HL4
aTR_HL5
)TR_HL6
TR_HL7
cTR_HL8
TR_HL9
i) DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
ORNAB_ODV
zW_OBDOBI
'POM_JAKY
)MOD_PSV
rOBSAH
prava dat ...
roby do NV podle n
kl.st
edisek a zak
Odv
z NV podle n
kl.st
edisek a zak
zek - fin
Odv
z NV podle n
kl.st
edisek a zak
zek - zak
ty za st
ediska
ty za st
ediska
Zadejte st
edisko:
C1_NABEH
C1_NAB
Stred_Obr
ty za st
ediska a zak
ty za st
ediska a zak
Zadejte st
edisko a zak
|...|.........
stred_obr
Celkem st
C1_NABEH
C1_NAB
Str_Zak
ty za st
ediska, zak
zku a k
d obratu
ty za st
ediska, zak
zku a k
d obratu
Zadejte st
edisko, zak
zku a k
d obratu:
|...|.........|..
stred_obr
Celkem st
C1_NABEH
C1_NAB
Str_Zak_Ob
RIIS 9.2
mod91c
Suma_C
' '+stred_obr
stred_obr
ident_zak
ident_zak
kod_ob
kod_ob
Mat1
str(Mat1,15,2)
Mat2
str(Mat2,15,2)
Mzdy
str(Mzdy,13,2)
VR
str(VR,13,2)
OPM
str(OPM,13,2)
OPN
str(OPN,13,2)
Celkem
str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2)
Mat1+Mat2+Mzdy+VR+OPM+OPN
Vyhled
Konec
- Enter
- Esc, ^End
POM_CO
NS_MAT1
S_MAT2
S_MZDY
S_OPM
S_OPN
S_CELKEM
POLEX
PROCX
dRBOT
KCSCLEFT
CRIGHT
KCSFREEZE
ILORDER
ECOLORLEVA
FPRAVA
vNADPIS
KCSJMENO
_KCSSOUC
_KCSTITLE
_KCSTITLECOLORPOC0
KCSF2
ZDILF0PRG
F1PRG
_OBF4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
iF9KEY
aF9KEY1
' F10_JM
F10PRG
RAMECEK
aRIIS
)NAZEVT
KLICO
cKLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
ORTR_HL8
zTR_HL9
'DET_JM
ENTER
)DETAIL
rDETPRG
,11PS_LINE
n(PS_RETURN
PS_ZAZN
i=MESS
ahNAB_ODV
W_OBDOBI
POM_JAKY
C1_NABEH
eSTRED_OBR
kMZDY
NABEH
eC1_NAB
IDENT_ZAK
STR_ZAK
KOD_OB
STR_ZAK_OBI
BMOD_PSV
Mod_Lib
Mod_Lib
Prob
tisk p
ehledu ...
mod91c(!9
POM_VETA
P_SETUP
NP_RESET
P_6LPI
P_8LPI
P_10CPI
P_12CPI
P_16CPI
P_20CPI
P_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
LP_SUBOFF
RP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
CSP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
MOD_LIB
CSW_TISK
SNASTAV_PRNMESS
MOD91C
soubor !
colorz
double
Celkov
Esc,^End
Mat1 : K
Mat2 : K
Mzdy : K
VR : K
OPM : K
OPN : K
Celkem: K
9999999999.99
MMCOLOR
NHLASKA
MOD_WIN
S_MAT1
S_MAT2
S_MZDY
S_OPM
S_OPN
Prob
r obrat
...
c1_nab
m7_rene
c1_nab
c1_nab
c1_nab
Ve skladech nebyl realizov
n dan
pohyb u
polo
C1_NAB
C1_NABEH
Meziskl
esuny meziskladu do expedic
RIIS 9.2
mod91c
TiskniP
Zadejte mezisklad, expedici a k
d obratu:
|...|...|..
Funkce
PreKumul
meziskl
meziskl
exped
exped
kod_ob
kod_ob
ident
ident
MNO
str(Skut_Mnoz,11,3)
Skut_Mnoz
Mat1
str(Mat1,13,2)
Mat2
str(Mat2,13,2)
Mzdy
str(Mzdy,13,2)
VR
str(VR,13,2)
OPM
str(OPM,13,2)
OPN
str(OPN,13,2)
Celkem
str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2)
Mat1+Mat2+Mzdy+VR+OPM+OPN
C1_NAB
IDENT
NKOD_OB
SKUT_MNOZ
MEZISKL
EXPED
INEOFFOPN
ALOFF
M1_KALKS
POM_J_M1
FPOM_J_M2
LPOM_J_MZDYPOM_J_VR
POM_J_M
FFPOM_J_N
ALPOM_M1
CSPOM_M2
OFFPOM_MZDY
POM_VR
OFFPOM_M
POM_N
_OFFPOM_2M1
POM_2M2
POM_2MZDY
POM_2VR
SPOM_2M
PRNPOM_2N
POM_NASEL
IDENT_ZAK
TYP_UM_V
TYP_UM_P
LMATER
YKUSY_D
KUSOV
M7_NVPAR
VYDAL_SKL
PRIJAL_SKLHLASKA
C1_NABEH
POLEX
PROCX
aCLEFT
)CRIGHT
FREEZE
cORDER
PRAVA
NADPIS
JMENO
ORSOUC
zTITLE
'TITLECOLORPOC0
,11F2
RETURN
BDOBI
F0PRG
eF1ON
F1PRG
F4_JM
kF4PRG
TISKPRG
)F7_JM
sF7PRG
eF9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
_OBRAMECEK
BRIIS
NAZEVT
z.KLICO
enoKLNAZ
rSPACEBAR
sTR_HL1
hoTR_HL2
"iTR_HL3
TR_HL4
TR_HL5
= TR_HL6
a/KTR_HL7
o(iTR_HL8
r(zTR_HL9
s,1DET_JM
dnENTER
DETAIL
iDETPRG
doPS_LINE
rPS_RETURN
PS_ZAZN
obW_OBDOBI
rnMOD_PSV
**OBSAH
colorz
ty za mezisklad
ty za meziskl., exped.
ty za meziskl., exped., k
esuny do exped. z meziskl.
Konec
MMCOLOR
NPRESUMY
C1_NABEH
PRESUN
esuny do expedice z mezisklad
RIIS 9.2
mod91c
TiskniP
Zadejte expedici, mezisklad a k
d obratu:
|...|...|..
Funkce
Pre2Kumul
exped
exped
meziskl
meziskl
kod_ob
kod_ob
ident
ident
MNO
str(Skut_Mnoz,11,3)
Skut_Mnoz
Mat1
str(Mat1,13,2)
Mat2
str(Mat2,13,2)
Mzdy
str(Mzdy,13,2)
VR
str(VR,13,2)
OPM
str(OPM,13,2)
OPN
str(OPN,13,2)
Celkem
str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2)
Mat1+Mat2+Mzdy+VR+OPM+OPN
Exped
Meziskl
POM_VETA
POLEX
PROCX
NRTOP
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
NADPIS
OFFZAHL
JMENO
FTITLE
LTITLECOLORPOC0
OFFF4
_MZDY
OFFF7
_OFFF10
F0PRG
F1PRG
SF4_JM
PRNF4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
LF9KEY
F9KEY1
F10_JM
YF10PRG
RAMECEK
NAZEVT
KLICO
_SKLKLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
aTR_HL5
)TR_HL6
TR_HL7
cTR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
ORW_OBDOBI
'EXPED
RMOD_PSV
)MEZISKL
colorz
ty za expedici
ty za exped., meziskl.
ty za exped., meziskl., k
Konec
MMCOLOR
NPRESUMY
C1_NABEH
Mod_Lib
Mod_Lib
Prob
tisk p
ehledu ...
mod91c2(!9
mod91c3(!9
POM_VETA
P_SETUP
NP_RESET
P_6LPI
P_8LPI
P_10CPI
P_12CPI
P_16CPI
P_20CPI
P_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
LP_SUBOFF
RP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
CSP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
MOD_LIB
W_TISK
SNASTAV_PRNMESS
MOD91C2
MOD91C3
prava dat ...
C1_NABEH
C1_NAB
Meziskl
esuny meziskladu do expedic
ty za mezisklad
ty za mezisklad
Zadejte mezisklad:
Exped
esuny do expedic z meziskladu
ty za expedici
ty za expedici
Zadejte expedici:
C1_NABEH
C1_NAB
Meziskl
esuny meziskladu do expedic
ty za mezisklad a expedici
ty za mezisklad a expedici
Zadejte meziskl. a exped.:
|...|...
Meziskl
esuny do expedic z meziskladu
ty za expedici a mezisklad
ty za expedici a mezisklad
Zadejte exped. a meziskl.:
|...|...
C1_NABEH
C1_NAB
Meziskl
esuny meziskladu do expedic
ty za mezisklad, expedici a k
ty za mezisklad, expedici a k
Zadejte meziskl., exped. a k
|...|...
Meziskl
esuny do expedic z meziskladu
ty za expedici, mezisklad a k
ty za expedici, mezisklad a k
Zadejte exped., meziskl. a k
|...|...|..
RIIS 9.2
mod91c
Suma_C
meziskl
meziskl
meziskl
Celkem MSKL:
exped
exped
exped
Celkem EXP:
exped
exped
meziskl
meziskl
kod_ob
kod_ob
Mat1
str(Mat1,15,2)
Mat2
str(Mat2,15,2)
Mzdy
str(Mzdy,13,2)
VR
str(VR,13,2)
OPM
str(OPM,13,2)
OPN
str(OPN,13,2)
Celkem
str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2)
Mat1+Mat2+Mzdy+VR+OPM+OPN
Vyhled
Konec
- Enter
- Esc, ^End
POM_CO
NS_MAT1
S_MAT2
S_MZDY
S_OPM
S_OPN
S_CELKEM
POLEX
PROCX
NEOFFCLEFT
CRIGHT
FREEZE
ORDER
ROFFHOR
RLEVA
PRAVA
_OFFNADPIS
UALZAHL
CSJMENO
_OFFHODN
T_OFFTITLE
TITLECOLORPOC0
TAV_PRNF4
LF0PRG
F1PRG
YF4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
_SKLF9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
aRIIS
)NAZEVT
KLICO
cKLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
ORTR_HL8
zTR_HL9
'DET_JM
RENTER
)DETAIL
rDETPRG
1PS_LINE
n(PS_RETURN
PS_ZAZN
i=MESS
ahC1_NABEH
IDENT
KOD_OB
MEZISKL
eEXPED
NABEH
kMAT1
)MZDY
NABEH
C1_NAB
W_OBDOBI
BMOD_PSV
soubor !
colorz
double
Celkov
Esc,^End
Mat1 : K
Mat2 : K
Mzdy : K
VR : K
OPM : K
OPN : K
Celkem: K
9999999999.99
MMCOLOR
NHLASKA
MOD_WIN
S_MAT1
S_MAT2
S_MZDY
S_OPM
S_OPN
FFFZ^D
select &st_sel
W_IDENT
W_NAKL_S
W_NAKL_N
NST_SEL
KALKS
W_OCEN_VYRM7_NVPAR
MATER
MAT2_KOOP
MAT2_MVV
KUSY_D
FKUSOV
NVPAR
LKALK
RPL_OD
TYP_NAKL
FIDENT
FFFZ^D
select &st_sel
W_TYP
W_IDENT
W_NAKL_S
NW_NAKL_N
ST_SEL
KALKS
VYRW_OCEN_VYRM7_NVPAR
MATER
MAT2_KOOP
MAT2_MVV
KUSY_D
FPRIP
KUSOV
NVPAR
RW_OCEN_EXPKALK
PL_OD
ALTYP_NAKL
IDENT
u1_obr
ident
u1_um
ident
u1_zas
ident
u1_kalk
ident
m1_plan
x1_plan
v4_sklad
x4_sklad
u1_kalks
ident
m1_ident
ident
m1_kalks
x1_kalks
m7_nvpar.dbf2
m7_nvpar
m7_rene.dbf2
m7_rene
U1_OBR
IDENT
NU1_UM
U1_ZAS
VYRU1_KALK
YRKALK
M1_PLAN
X1_PLAN
V4_SKLAD
X4_SKLAD
U1_KALKS
KALKS
FM1_IDENT
M1_KALKS
X1_KALKS
M7_NVPAR
FM7_RENE
FFFZ^D
m_cis1
x_cis1
KOD_OB
obrat
neexistuje
select &st_sel
c_kod+
KOD_OB
c_kod
k obrat
RIIS 0.0
mod91c
d obratu
hodnota
hodnota
c_oznac.dbf2
c_oznac
zaznam
select &st_sel
sele &st_sel
inlist(kod_ob
Ozna
it lze maxim
24 z
sele &st_sel
mod4_lib
typ_um_v='V'
Ve skladech nebyl realizov
n vybran
obrat u
polo
sele &st_sel
J.PORKERT
EUTIT
r skladov
ch obrat
RIIS 9.2
mod91c
ttisk_obr
Zadejte k
d obratu :
zobr_rek in mod91b_2
Rekap.
kod_ob
kod_ob
Identifikace
ident
ident
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
vydal_skl
vydal_skl
stred_obr
stred_obr
Datum
tran(termin_ob,'@E')
termin_ob
ident_zak
ident_zak
Rozp./Faktura
ident_vys+' '
ident_vys
Doklad
dokl_cis
dokl_cis
Cena/MJ
str(naklad,11,2)
naklad
J.PORKERT
EUTIT
Hmotnost
str(m1_plan.vaha_mj,10,3)
m1_plan.vaha_mj
Skut.mno
str(skut_mnoz,12,3)
skut_mnoz
Cena celkem
str(round(naklad*skut_mnoz,2),11,2)
round(naklad*skut_mnoz,2)
J.PORKERT
EUTIT
Hmot. celkem
str(round(m1_plan.vaha_mj*skut_mnoz,2),12,2)
round(m1_plan.vaha_mj*skut_mnoz,2)
select &st_sel
ST_SEL
K_SKLAD
M_SKLAD
NW_TYP_SKL
MOD_SYS
M_CIS1
VYRX_CIS1
YRHLASKA
C_KOD
S_RIIS
HODNOTA
POLEX
FPRAVA
RAMECEK
FTITLE
LNAZEVT
RRIIS
N_EXPNADPIS
PROCX
_NAKL
SPACEBAR
FZAHL
JMENO
_OFFHODN
OLORMOD_PSV
C_OZNAC
ZAZNAM
W_KODY
SNPOC
V_PRNVYBER_OBR
MOD4_LIB
C_OBR
KOD_OB
IDENT
LM1_IDENT
M1_PLAN
PODNIK
YFREEZE
W_OBDOBI
_SKLF4PRG
F9KEY
F10PRG
aF10_JM
)OBSAH
mod_lib
Prob
tisk ...
J.PORKERT
mod91t13
EUTIT
mod91t15
mod91t14
W_TISK
NASTAV_PRNMOD_LIB
VYRPODNIK
YRMOD91T13
MOD91T15
MOD91T14
za FFF
P_OBD
MOD91BX
(obr.k
VYBER_INV
TISK1
r(obr^
TTISK1
)#'*u
TISK2
TTISK2
skl=G!
TISK3
d typS"
TTISK3
TISK9
nsole\/
TTISK9
TISK4
elect
TTISK4
TISK_HL4
TISK_S40
TISK_S4
TISK5
and s
TTISK5
od_ojp
TISK6
TTISK6
nd tk|
TISK7
typ ;
TTISK7
onsom
TISK8
endiz
TTISK8
lectM
TISK12
ex oY
TTISK12
HLASKA
PROCENTA
K_SKLAD
o mess
TISKNAOD
NABKUMUL
KUMUL
m1_id
TISKNIN
SUMA_C
i.
TISKPRE
PREKUMUL
PRESUN
PRE2KUMUL
TISKNIP
PRESUMY
SUMA_C2
STAN_NAKL
STAN_NAKL2
OTEVRI_DBF
TISK_OBR
TTISK_OBR
GET_OBD
X:\OBEC\09\
MOD91C.FXP
X:\OBEC\09\MOD91C.PRG