home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
05
/
MOD54C.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-06
|
43KB
|
1,186 lines
W_archivf
w_volf
VYROBA
RIIS 5.4
MATERIAL
RIIS 4.8
RIIS 2.4
ediska
Archiv odv
ediska
m_param
v1_str
x1_str
edisko neexistuje v souboru st
edisek
mod_proc
Prob
prava dat ...
termin_ob
edisek
Archiv odv
edisek
ediska
Archiv odv
ediska
mod54c
Funkce
funkce
c4_pomq
u1_kalk
ident
m1_kalk
x1_kalk
m1_plan
x1_plan
m1_ident
ident
m1_obr_a
u1_obr
m1_obr
Chybn
nastaven
prom
w_vol a w_archiv
MATERIAL
xc_obrq
xc_obrq
EXPEDICE
xc_obrq
xc_obrq
xc_obrq
xc_obrq
Prob
r ceny ...
MNTUXYZ
FPSABCRVIO
xc_obrq<
Datum
tran(m1_obr.termin_ob,'@E')
(m1_obr.termin_ob )
ka
m1_obr.ident
m1_obr.ident
zev polo
m1_ident.nazev
m1_ident.nazev
m1_obr.stred_obr
m1_obr.stred_obr
Mno
str(m1_obr.skut_mnoz,12,3)
m1_obr.skut_mnoz
VN/1ks
str(m1_obr.naklad,12,2)
m1_obr.naklad
Celkem
str(m1_obr.naklad * m1_obr.skut_mnoz,12,2)
m1_obr.naklad * m1_obr.skut_mnoz
Hmot./1ks
str(m1_plan.vaha_mj,10,3)
m1_plan.vaha_mj
Hmot.celkem
str(m1_plan.vaha_mj * m1_obr.skut_mnoz,11,3)
m1_plan.vaha_mj * m1_obr.skut_mnoz
Sklad
m1_obr.vydal_skl+'/'+m1_obr.vyd_um_skl+'/'+m1_obr.typ_um_v
m1_obr.vydal_skl
zka
m1_obr.ident_zak
m1_obr.ident_zak
Doklad
m1_obr.dokl_cis
m1_obr.dokl_cis
n.mno
str(m1_obr.plan_mnoz,12,3)
m1_obr.plan_mnoz
Rozp.vy
m1_obr.ident_vys
m1_obr.ident_vys
mka
m1_obr.popis_obr
m1_obr.popis_obr
no
' '+m1_obr.jmeno
m1_obr.jmeno
m1_ident.rada
m1_ident.rada
W_ARCHIV
pW_VOL
hodW_MODUL
pqW_TYP
_sklRIISQ
'ZM_PARAM
POLE4
i) =W_PRUMER
dV1_STR
hX1_STR
c4_HLASKA
zW_STRED
i+ZOBR_STR
MOD_PROC
'MOD_SYS
) MESS
_pq1.POLEX
PROCX
= RTOP
1.dokRBOT
i =CLEFT
ahl(CRIGHT
nFREEZE
ORDER
) =HOR
(c4_pqDOL
n_mnozLEVA
hoPRAVA
= "cNADPIS
an_ZAHL
i = JMENO
hl(iHODN
Rozp.SOUC
jTITLE
= TITLECOLORPOC0
) = "cF1
1.identF2
i = F3
zahl(iF4
'Pozn
'F7
eno(i) F9
c4_pq1.F10
_obr"
F0PRG
) =F1ON
q1.poF1PRG
F4_JM
_psvF4PRG
se zTISKPRG
o,F7_JM
soucF7PRG
&& F9PRG
selF9KEY
pomqF9KEY1
F10_JM
scrF10PRG
obRAMECEK
_rRIIS
NAZEVT
***KLICO
****KLNAZ
****SPACEBAR
TR_HL1
re TR_HL2
ve TR_HL3
o oTR_HL4
zazTR_HL5
TR_HL6
TR_HL7
rpoTR_HL8
strTR_HL9
o cDET_JM
useENTER
DETAIL
opgDETPRG
ivePS_LINE
arPS_RETURN
PS_ZAZN
hlID_ORG
niW_OBDOBI
C4_POMQ
ntTERMIN
q.tCENA
) +IDENT
'HMOTNOST
eU1_KALK
q.M1_KALK
X1_KALK
nM1_PLAN
chX1_PLAN
niM1_IDENT
M1_OBR_A
tM1_OBR
q.tU1_OBR
+TERMIN_OB
XC_OBRQ
yeKOD_OB
mq.TYP_UM_V
STRED_OBR
POCET
dnadPOCETC
KOD_POL
kPL_OD
TYP_NAKL
W_NAKLAD
'NAKLAD
PROCENTA
UVMOD_PSV
colora
set color to &color
pCOLOR
hodOBR
orderz
ehled odv
po dnech
Detail odv
dle kalk.vzorce
ty za polo
ty za polo
ky a st
ediska
ty za v
rob.
ty za v
ady a st
ediska
Konec
set order to &m_trideni
OBRZ1
p_ZAZ
hodVOLBA
pqM1_OBR
sklFILT
M_TRIDENI
_VETA
CELKEM
) =HMOT_CEL
dKUS_CEL
hVZNIKLSOUBM
zOBRZ2
i+MOD_SYS
PREHLED
'DETAIL
) SUMACE
1.C4SPOL
OUBPS_RETURN
Prob
prava dat ...
c4_pomq
pC4_POMQ
odM1_OBR
pq_VETA
sklS_MNOZ
S_CELKEM
CELKEM
S_HMOTNOSTHMOT_CEL
dW_IDENT
hIDENT
SOUBW_TERMIN
zTERMIN_OB
SKUT_MNOZ
M1_KALK
'PL_OD
) TYP_NAKL
.W_UVN
M1_PLAN
okVAHA_MJ
STS_UVN
hl(REKAP2
- Esc
Konec
Prob
prava dat ...
pC2_A
odTERMIN_OB
IN_OB
MATER
KUSOV
NOSTVR
T_CEL
SOUBOR
ERMIN
IN_OB
_MNOZ
M1_OBR
'_VETA
) W1_UVN
.W2_UVN
BW1_MATER
W2_MATER
kW1_KOOP
STW2_KOOP
l(W1_PRIP
STW2_PRIP
W1_KUSOV
=W2_KUSOV
qW1_VR
mnozW2_VR
hoW1_SR
= "cW2_SR
an_W1_ZR
i = W2_ZR
hl(iW1_OR
ozp.W2_OR
jW1_OPM
= W2_OPM
LORW1_OPN
hoW2_OPN
"cW_IDENT
ntIDENT
i = W_TERMIN
iS_MNOZ
SKUT_MNOZ
M1_KALK
) PL_OD
1.TYP_NAKL
W_UVN
=KUSY_D
oDETODV
mod_lib
mod_lib
Prob
tisk ...
P_SETUP
pP_RESET
odP_6LPI
P_8LPI
P_10CPI
P_12CPI
P_16CPI
P_20CPI
STP_BOLDON
dP_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
.P_SUBOFF
BP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
l(P_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
"cMOD_LIB
n_W_TISK
= NASTAV_PRNOBRT
p.MESS
jSTRANA
= RAD1
LORTISK_HL1
oTISK_S1
"cZAZT
ech st
edisek v detailn
kalkulaci
Archiv odv
ech st
edisek v detailn
kalkulaci
ediska
v detailn
kalkulaci
Archiv odv
ediska
v detailn
kalkulaci
Datum
Materi
Klobouky
Kooperace
Mat.vl.v.
Mzda p
Mzda kusov.
sob.re
Odbyt.re
pSTRW
odW_ARCHIV
NAZEVT
W_VOL
W_OBDOBI
P_10CPI
P_SUBON
STRIISQ
dPODNIK
P_SUBOFF
NEOFFP_LETRQUALP_BOLDON
P_BOLDOFF
P_DRAFT
FFP_12CPI
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
Celkem
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
99999999999.99
K o n e c s e s t a v y
pRAD1
odPOC
P_DRAFT
P_BOLDOFF
P_10CPI
P_12CPI
dTERMIN_OB
MATER
EOFFKOOP
RQUALPRIP
KUSOV
ST_OFFOPN
TRQUALTISK_HL1
(P_LETRQUALP_BOLDON
W2_UVN
W2_MATER
W2_KOOP
FFW2_PRIP
W2_KUSOV
cW2_VR
n_W2_SR
= W2_ZR
_PRNW2_OR
p.W2_OPM
jW2_OPN
10CPI
ORSTRANA
oP_SUPERON
P_SUPEROFF
ehled odv
ehled archivu odv
ehled odv
ehled archivu odv
ehled odv
ehled archivu odv
Detail
Deta__il
mod54c
Datum
tran(c4_pomq.termin,'@E')
c4_pomq.termin
VN celkem
str(C4_pomq.cena,12,2)
c4_pomq.cena
Hmot.celkem
str(C4_pomq.hmotnost,11,3)
c4_pomq.hmotnost
Celkem:
centuryz
99999999999.99
99999999.999
OBRB2
pOBRZ1
odPOLEX
PROCX
CLEFT
CRIGHT
STFREEZE
dORDER
EOFFLEVA
RQUALPRAVA
NADPIS
FFJMENO
BSOUC
TITLE
_OFFTITLECOLORPOC0
ETRQUALF1
OLDON
MATER
KUSOV
n_F10
= F0PRG
_PRNF1ON
p.F1PRG
jF4_JM
= F4PRG
ORTISKPRG
oF7_JM
F7PRG
ROFFF9PRG
i = F9KEY
iF9KEY1
F10_JM
F10PRG
) RAMECEK
1.RIIS
NAZEVT
=KLICO
oKLNAZ
SPACEBAR
vTR_HL1
e zTR_HL2
o,TR_HL3
oucTR_HL4
&& TR_HL5
selTR_HL6
omqTR_HL7
TR_HL8
scrTR_HL9
obDET_JM
_rENTER
DETAIL
***DETPRG
***PS_LINE
**PS_RETURN
PS_ZAZN
e ID_ORG
ve STRW
oW_ARCHIV
zW_VOL
W_OBDOBI
RIISQ
trN_1
o cN_2
useCELKEM
HMOT_CEL
gHELP3
iveMOD_PSV
Konec
Pohyb
-Enter
,PgUp,PgDn
c4_pq1+
c4_pq1
termin_ob
datez
german
ehled odv
ech st
edisek dne
ehled odv
ech st
edisek dne
Archiv odv
ech st
edisek dne
Archiv odv
ech st
edisek dne
ehled odv
ediska
dne
ehled odv
ediska
dne
Archiv odv
ediska
dne
Archiv odv
ediska
dne
set date to &_ddd
mod54c
Funkce
funkce
Datum
tran(c4_pq1.termin_ob,'@E')
(c4_pq1.termin_ob )
ka
c4_pq1.ident
c4_pq1.ident
zev polo
ky
m1_ident.nazev
m1_ident.nazev
c4_pq1.stred_obr
c4_pq1.stred_obr
Mno
str(c4_pq1.skut_mnoz,12,3)
c4_pq1.skut_mnoz
VN/1ks
str(c4_pq1.naklad,12,2)
c4_pq1.naklad
Celkem
str(c4_pq1.naklad * c4_pq1.skut_mnoz,12,2)
c4_pq1.naklad * c4_pq1.skut_mnoz
Sklad
c4_pq1.vydal_skl+'/'+c4_pq1.vyd_um_skl+'/'+c4_pq1.typ_um_v
c4_pq1.vydal_skl
zka
c4_pq1.ident_zak
c4_pq1.ident_zak
Doklad
c4_pq1.dokl_cis
c4_pq1.dokl_cis
n.mno
str(c4_pq1.plan_mnoz,12,3)
c4_pq1.plan_mnoz
Rozp. vy
c4_pq1.ident_vys
c4_pq1.ident_vys
mka
c4_pq1.popis_obr
c4_pq1.popis_obr
OBR_DET
p_VET
odM1_OBR
C4_POMQ
TERMIN
C4_PQ1
TERMIN_OB
IDENT
STM1_IDENT
dPOLEX
PROCX
EOFFRBOT
RQUALCLEFT
CRIGHT
FREEZE
FFORDER
_OFFPRAVA
OLORNADPIS
(ZAHL
RQUALJMENO
TITLE
FFTITLECOLORPOC0
= F2
_PRNF3
= F7
F0PRG
ROFFF1ON
i = F1PRG
iF4_JM
F4PRG
TISKPRG
) F7_JM
1.F7PRG
F9PRG
=F9KEY
oF9KEY1
F10_JM
vF10PRG
e zRAMECEK
o,RIIS
oucNAZEVT
&& KLICO
selKLNAZ
omqSPACEBAR
TR_HL1
scrTR_HL2
obTR_HL3
_rTR_HL4
TR_HL5
***TR_HL6
***TR_HL7
**TR_HL8
TR_HL9
e DET_JM
ve ENTER
oDETAIL
zDETPRG
PS_LINE
PS_RETURN
PS_ZAZN
tr_DDD
cGERMAN
use_DAT
gW_ARCHIV
eRIISQ
MOD_PSV
m_dgrpop
c_popgr
c_popgr
Prehled odvadeni vyroby za FF
Archiv odvadeni vyroby za FF
UVN celkem (Kc) Vsechna strediska
UVN celkem (Kc) Stredisko:
SoWA
UVN (Kc)
dgrpop
m_dgrdat
c_datgr
c_datgr
c_datgr
dgrdat
mm_dgr2d
!&mmgr 1 6306270498 2
OBRGR
p_QZAZ
odM_DGRPOP
C_POPGR
W_ARCHIV
NAZGR
C4_POMQ
TERMIN
STSTRW
dPODNADPIS
POPIS_X
FFDRUH
RQUALYMIN
POPIS_N
FFNAZEV
PRVNI
BTRETI
RIISQ
_OFFCTVRTY
LORDRUHY
(POPIS_Y
DGRPOP
M_DGRDAT
C_DATGR
NOR_Y
PIS_X
ORCENA
cDGRDAT
n_MM_DGR2D
MMGR
_PRNPTH
POCET
pPOCETC
odPOC
colorz
pM1COLOR
edisek
Archiv odv
edisek
ediska
Archiv odv
ediska
Detail odv
mod54c
tisk1
c_soucet
Ter.obr.
tran(c2_a.termin_ob,'@e')
c2_a.termin_ob
str(c2_a.UVN,14,2)
c2_a.uvn
Materi
str(c2_a.mater,14,2)
c2_a.mater
Klobouky
Kooperace
Mat.vl.v.
str(c2_a.koop,14,2)
c2_a.koop
Mzda p
str(c2_a.prip,14,2)
c2_a.prip
Mzda kus.
str(c2_a.kusov,14,2)
c2_a.kusov
V
str(c2_a.vr,14,2)
c2_a.vr
Spr
str(c2_a.sr,14,2)
c2_a.sr
sob.re
str(c2_a.zr,14,2)
c2_a.zr
Odbyt.re
str(c2_a.or,14,2)
c2_a.or
OPM
str(c2_a.opm,14,2)
c2_a.opm
OPN
str(c2_a.opn,14,2)
c2_a.opn
pRIISQ
odPOLEX
PROCX
CLEFT
CRIGHT
STFREEZE
dORDER
FFLEVA
RQUALPRAVA
NADPIS
FFJMENO
BSOUC
TITLE
_OFFTITLECOLORPOC0
GRDAT
n_F10
F0PRG
_PRNF1ON
p.F1PRG
jF4_JM
= F4PRG
ORTISKPRG
oF7_JM
F7PRG
ROFFF9PRG
i = F9KEY
iF9KEY1
F10_JM
F10PRG
) RAMECEK
1.RIIS
NAZEVT
=KLICO
oKLNAZ
SPACEBAR
vTR_HL1
e zTR_HL2
o,TR_HL3
oucTR_HL4
&& TR_HL5
selTR_HL6
omqTR_HL7
TR_HL8
scrTR_HL9
obDET_JM
_rENTER
DETAIL
***DETPRG
***PS_LINE
**PS_RETURN
PS_ZAZN
e STRW
e W_ARCHIV
oW_VOL
zW_OBDOBI
PODNIK
MOD_PSV
double
Celkov
Esc,^End
VN : K
Materi
l : K
Kooperace: K
Mzda p
p: K
Mzda kus.: K
ie: K
Spr.re
ie: K
ie: K
Odb.re
ie: K
OPM : K
OPN : K
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
SCRQ1
pMOD_WIN
odRIISQ
W2_UVN
W2_MATER
W2_KOOP
W2_PRIP
W2_KUSOV
TW2_VR
dW2_SR
W2_ZR
W2_OR
FFW2_OPM
UALW2_OPN
Prob
prava dat ...
ehled odv
polo
ehled archivu odv
polo
ehled odv
polo
ek st
ehled archivu odv
polo
ek st
ident
et za polo
c4_xx
c4_xx
ident+str
Za polo
et za polo
ky a st
ediska
c4_xx
c4_xx
et za
c4_xx
c4_xx
ident
et za
ady a st
ediska
c4_xx
c4_xx
pVZNIKLSOUBZAKLSUMA
POLEX
PROCX
CLEFT
TCRIGHT
dFREEZE
ORDER
FFDOL
UALLEVA
PRAVA
NADPIS
FFZAHL
JMENO
BHODN
_OFFTITLE
OLORTITLECOLORPOC0
GRDAT
_PRNF0PRG
p.F1ON
jF1PRG
= F4_JM
ORF4PRG
oTISKPRG
F7_JM
ROFFF7PRG
i = F9PRG
iF9KEY
F9KEY1
F10_JM
) F10PRG
1.RAMECEK
=NAZEVT
oKLICO
KLNAZ
vSPACEBAR
zTR_HL1
o,TR_HL2
oucTR_HL3
&& TR_HL4
selTR_HL5
omqTR_HL6
TR_HL7
scrTR_HL8
obTR_HL9
_rDET_JM
ENTER
***DETAIL
***DETPRG
**PS_LINE
PS_RETURN
PS_ZAZN
e STRW
oW_ARCHIV
zW_VOL
W_OBDOBI
C4SPOL
VOLBA
trIDENT
cC4_XX
useREKAP34
gRADA
eREKAP56
c4Spol
orderz
xc_!q
index on ident + dtos(termin_ob) to xc_!q for &filt additive
c4Spol
set order to &m_trideni
C4SPOL
pKUSY
LSOUBCENA
IDENT
HMOTNOST
HMOT_MJ
TM1_OBR
dFILT
M_TRIDENI
_VETA
FFTERMIN_OB
S_MNOZ
S_CELKEM
FS_KUSY
S_HMOTNOSTCELKEM
HMOT_CEL
FKUS_CEL
ORW_IDENT
ORW_TERMIN
C_STRED
STRED_OBR
M1_IDENT
W_RADA
FSKUT_MNOZ
M1_KALK
cPL_OD
n_TYP_NAKL
W_UVN
p.M1_PLAN
jVAHA_MJ
STHMOT
ORS_UVN
oVZNIKLSOUB
mod54c
Identifikace
ident
c4_xx.str
c4_xx.str
zev polo
m1_ident.nazev
m1_ident.nazev
Mno
str(c4_xx.kusy,10,3)
c4_xx.cena
VN celkem
str(c4_xx.cena,12,2)
c4_xx.cena
Hmot.celkem
str(c4_xx.hmotnost,13,3)
c4_xx.hmotnost
Hmotnost/MJ
str(c4_xx.hmot_mj,11,3)
c4_xx.hmot_mj
Celkem:
99999999999.99
99999999999.99
999999999.999
Hmot.celkem: FF
OBRZ1
pID_ORG
OUBPOLEX
RAMECEK
TR_HL1
TITLE
RIISQ
TRTOP
dRBOT
CLEFT
CRIGHT
FFFREEZE
C4_XX
IDENT
M1_IDENT
FPS_ZAZN
KLICO
NOSTF1
ERMIN
ED_OBR
IDENT
PROCX
FF9KEY
cJMENO
n_HODN
SOUC
p.VOLBA
jCELKEM
STHMOT_CEL
RHELPIK
oMOD_PSV
UBPS_RETURN
Konec
Pohyb
,PgUp,PgDn
VOLBA
p1_rada
xp1_rada
mod54c
c4_xx.rada
c4_xx.rada
p1_rada.nazev
p1_rada.nazev
VN celkem
str(c4_xx.cena,13,2)
c4_xx.cena
Hmot.celkem
str(c4_xx.hmotnost,13,3)
c4_xx.hmotnost
.celkem
str(c4_xx.kusy,13,3)
c4_xx.kusy
Specifikace
p1_rada.specif
p1_rada.specif
c4_xx.rada
c4_xx.rada
c4_xx.str
c4_xx.str
p1_rada.nazev
p1_rada.nazev
VN celkem
str(c4_xx.cena,13,2)
c4_xx.cena
Hmot.celkem
str(c4_xx.hmotnost,13,3)
c4_xx.hmotnost
.celkem
str(c4_xx.kusy,13,3)
c4_xx.kusy
Specifikace
p1_rada.specif
p1_rada.specif
Celkem :
999999999999.99
999999999999.99
999999999.999
999999999.999
999999999.999
999999999.999
ID_ORG
pPOLEX
OUBRAMECEK
TR_HL1
TITLE
RIISQ
TRBOT
dCLEFT
CRIGHT
FREEZE
FFP1_RADA
XP1_RADA
C4_XX
FPS_ZAZN
KLICO
NOSTF1
ERMIN
ED_OBR
IDENT
PROCX
FZAHL
JMENO
cHODN
n_SOUC
VOLBA
p.PODNIK
jCELKEM
STHMOT_CEL
RKUS_CEL
oHELPIK
UBMOD_PSV
PS_RETURN
MOD54C
24,%
HLASKA
FUNKCE
PREHLED
set9!
DETAIL
TISK1
'SoW
TISK_HL1
TISK_S1
toH7
REKAP2
HELP3
o w+/`J
DETA__IL
if w_a6[
PROCENTA
DETODV
C_SOUCET
SUMACE
ZAKLSUMA
REKAP34
HELPIK
REKAP56
W:\05\
MOD54C.FXP
W:\05\MOD54C.PRG