home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
MOD14P.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-02-26
|
20KB
|
566 lines
MM_odpadf
m1_ident
ident
RIIS 1.4
kresu:
/ks:
999999
Datum platnosti:
colorz
mod_proc
inlist (kod_pol, 'F','P', 'S','A','B','C','R','V','I','O','J','K','G')
ident
m1_kusov
vykres
NORMA
r, pW_KUSY
VATM_NAZEV
2,MM_ODPAD
7CNAKLTYP
RM1_IDENT
gIDENT
f1prM_VYKRES
fW_DATUM
kpW_IDENT
fW_NAZEV
VAW_MJ
rg, fMCOLOR
keyM_OBRQ
m, ZOBR_POL
IMOD_PROC
eNAZEV
aMOD_SYS
coM1_KUSOV
pVYKRES
PRIKUSOV
_hl1DATUM_OD
rDATUM_DO
lM_POSTUP
C_POSTUP
hVYPOC
hl8,ROZKLAD
c1_sm
c1_sv
c1_sv
xc1_sv
c1_sm
xc1_sm
Typ :
Ex.ident.:
zev : F
Rozpiska: F
, materi
norma:
Rozpiska: F
ST, materi
norma:
Rozpiska: F
postup:
KU v
k.norma:
c1_sv
xc1_sv
MOD11BS1
pSTROM
VATC1_SM
2,DRUH
7C1_SV
RVYKRES
gXC1_SV
1prXC1_SM
fPODNIK
kpTITLE2
fM_NAZEV
VAM1_IDENT
keyIDENT_ODB
NORMA
INAZEVT2
eM_VYKRES
aCNAKLTYP
oW_KUSY
pPOLE1
PRIM_POSTUP
1POLE2
pozice<
Prob
rozklad sou
sti...
strom
strom
strom
KUSOV
pPOZICE
VATC1_S
2,UROVEN
7VYROBEK
RVYKRES
1prKUSY
kpDRUH
fSTROM
VAIDENT
fPPOC
keyVYK
T_ODB
KUSYS
ISTUPEN
eNORMA
oC_VYKRESU
MM_ODPAD
ISPOTREBA
german
soucty1
RIIS 1.4
mod14p
m1_plan
x1_plan
Identifikace
vykres
vykres
a->nazev
a->nazev
Spot
str(kusy*w_kusy,14,5)
kusy*w_kusy
a->mj
a->mj
Cena/K
iif(a->kod_pol="T",str(0,12,3),str(e->naklad*kusy*w_kusy,14,2))
iif(a->kod_pol='T',0,e->naklad*kusy*w_kusy)
TYP
a.typ
a.typ
norma
a->rozm_csn
a->rozm_csn
Jakostn
norma
a->jak_csn
a->jak_csn
GERMAN
pPOLEX
VATPROCX
2,RTOP
7RBOT
RCLEFT
gCRIGHT
1prFREEZE
fORDER
kpHOR
VALEVA
fPRAVA
keyNADPIS
IJMENO
eHODN
aSOUC
oTITLE
TITLECOLORPOC0
UM_DO
OSTUP
OSTUP
hl8,F6
det_jmF9
er,detaF10
tprg, F0PRG
, psF1ON
n, psF1PRG
privF4_JM
poF4PRG
TISKPRG
odF7_JM
top F7PRG
ot =F9PRG
eft F9KEY
ightF9KEY1
reeF10_JM
ordF10PRG
RAMECEK
. RIIS
f2,f3NAZEVT
KLICO
jm =KLNAZ
SPACEBAR
sTR_HL1
ramTR_HL2
TR_HL3
IISTR_HL4
rocTR_HL5
4p'TR_HL6
nsiTR_HL7
polTR_HL8
no(TR_HL9
hodDET_JM
, sENTER
DETAIL
DETPRG
iisPS_LINE
vvPS_RETURN
PS_ZAZN
NAZEVT2
raNORMA
bstHLAVA6R
,1TITLE2
F5
.t.F8
else
M1_PLAN
prX1_PLAN
ifSTROM
p=diP_VYKR_S
uVYKRES
eP_KUSY_S
eKUSY
vv\m1M1_IDENT
postPODNIK
toMOD_PSV
Cena celkem :
Esc,^End
pM_SCR
VATKC_CEL
2,C_TBC1
7MOD_SYS
RCEL_MAN
gM1_IDENT
rKOD_POL
fNAKLAD
kpKUSY
fW_KUSY
VAPOM
german
soucty2
mod14p
RIIS 1.4
zakladni\m1_hlava
postup
VykNor
VykNor
.polo
ky
VykNor.vykres
VykNor.vykres
VykNor.nazev
VykNor.nazev
str(VykNor.kusy,6)
VykNor.kusy
str(VykNor.KcPrip,9,2)
VykNor.KcPrip
-kusov.
str(VykNor.KcKusov,10,2)
VykNor.KcKusov
-celkem
str(VykNor.KcCelk,11,2)
VykNor.KcCelk
Nmin-p
str(VykNor.NminPrip,9,2)
VykNor.NminPrip
Nmin-kus.
str(VykNor.NminKus,10,2)
VykNor.NminKus
Nmin-celkem
str(VykNor.NminCelk,11,2)
VykNor.NminCelk
GERMAN
pPOLEX
VATPROCX
2,RTOP
7RBOT
RCLEFT
gCRIGHT
rFREEZE
fORDER
kpHOR
VALEVA
fPRAVA
keyNADPIS
IJMENO
eHODN
aSOUC
oTITLE
TITLECOLORPOC0
UM_DO
OSTUP
OSTUP
hl8,F6
det_jmF9
er,detaF10
tprg, F0PRG
, psF1ON
n, psF1PRG
privF4_JM
poF4PRG
TISKPRG
odF7_JM
top F7PRG
ot =F9PRG
eft F9KEY
ightF9KEY1
reeF10_JM
ordF10PRG
RAMECEK
. RIIS
f2,f3NAZEVT
KLICO
jm =KLNAZ
SPACEBAR
sTR_HL1
ramTR_HL2
TR_HL3
IISTR_HL4
rocTR_HL5
4p'TR_HL6
nsiTR_HL7
polTR_HL8
no(TR_HL9
hodDET_JM
, sENTER
DETAIL
DETPRG
iisPS_LINE
vvPS_RETURN
PS_ZAZN
NAZEVT2
raTITLE2
bstF5
ZAKLADNI
.POSTUP
STROM
prP_VYKR_S
fVYKRES
iP_KUSY_S
uKUSY
eVYKNOR
\m1NAZEV
eKCPRIP
KCKUSOV
stKCCELK
toNMINPRIP
wNMINKUS
upNMINCELK
pM1_IDENT
M_NAZ
_M1_HLAVA
eC_POSTUP
KCSBC_C
rKCSAC_C
W_KUSY
p tTBC_C
TAC_C
tMOD_PSV
Esc,^End
S O U
T Y :
Nmin-p
p. Nmin-kusov. Nmin-celkem
--------------------------------------------------
K
p. K
-kusov. K
-celkem
--------------------------------------------------
pM_SCR
VATKC_CEL
2,C_TBC1
7MOD_SYS
RNMINPRIP
gNMINKUS
rNMINCELK
fKCPRIP
kpKCKUSOV
fKCCELK
VANM_TBC
fNM_TAC
keyNM_CEL
KC_PRI
IKC_KUS
mod14p
soucty
RIIS 1.4
mod14p
zakladni
m_param
use &nazevv\m1_normy order operace
c1_normy+
c1_normy
Rozpiska: F
postup:
ST v
k.norma:
zev :
zev :
c1_normy.oper
c1_normy.oper
zev oper.
c1_normy.nazev_op
c1_normy.nazev_op
c1_normy.dop
c1_normy.dop
c1_normy.prac
c1_normy.prac
c1_normy.ptr
c1_normy.ptr
edpis
c1_normy.predpis
c1_normy.predpis
str(c1_normy.tbc,4)
c1_normy.tbc
TAC
str(c1_normy.kooperace,10,4)
c1_normy.kooperace
TAC*ks
str(c1_normy.tac,10,4)
c1_normy.tac)
Kusy/h
c1_normy.nc
c1_normy.nc
-celkem
str(c1_normy.kcsac+c1_normy.kcsbc,10,4)
(c1_normy.kcsac+c1_normy.kcsbc)
str(((c1_normy.kcsac*w_kusy)+c1_normy.kcsbc),14,4)
((c1_normy.kcsac*w_kusy)+c1_normy.kcsbc)
POLEX
pPROCX
VATRTOP
2,RBOT
7CLEFT
RCRIGHT
gFREEZE
rORDER
kpDOL
fLEVA
VAPRAVA
fNADPIS
keyZAHL
JMENO
IHODN
eSOUC
aTITLE
oTITLECOLORPOC0
COLORF0
UM_DO
OSTUP
OSTUP
hl8,F7
det_jmF10
r,detaF0PRG
rg, F1ON
, psF1PRG
, psF4_JM
privF4PRG
poTISKPRG
F7_JM
odF7PRG
top F9PRG
ot =F9KEY
eft F9KEY1
ghtF10_JM
reeF10PRG
ordRAMECEK
. NAZEVT
,f3KLICO
KLNAZ
jm =SPACEBAR
TR_HL1
sTR_HL2
ramTR_HL3
TR_HL4
IISTR_HL5
rocTR_HL6
4p'TR_HL7
nsiTR_HL8
polTR_HL9
no(DET_JM
hodENTER
, sDETAIL
DETPRG
PS_LINE
isPS_RETURN
PS_ZAZN
_ZAZN
NAZEVV
raM_PARAM
stPOLE1
,1KONT_PR
D_KOOP
.DILNA_KOOPM_POSTUP
rC1_NORMY
fPOSTUP
eW_KUSY
eM_VYKRES
1M_NAZEV
ePRIPRAVKY
KOOPERACE
toMOD_PSV
Esc,^End
S O U
T Y :
Nmin-p
p. Nmin-kusov. K
/celk/1ks K
Pracov. "1*" :
Ostatn
prac. :
------------------------------------------------------------
Celkem :
pM_SCR
VATKC_CEL
2,C_TBC1
7MOD_SYS
RC_TAC1
gKC_CEL1
rKC_CEL_M1
PODNIK
kpTBC
VAKCSAC
fKCSBC
keyW_KUSY
IC_TBC
C_TAC
aKC_CEL_M
COLOR
KLOBOUKYF
pPODNIK
VATMKOOP
2,D_KOOP
kladn
daje rozpisky F
Se.id:
Ex.id:
SKP :
Akt. : -
Autor:
Post.:
WTEXT
pM_VYKRES
TM1_IDENT
,KUSOV
7NAZEV
RKOD_POL
IDENT
rSEK_IDENT
IDENT_ODB
fJAK_CSN
AROZM_CSN
yAKTUAL
DATUM
IAUTOR
IDENT
aRADA
oSTAV
C_POSTUP
RSTROM
1MOD14P
ROZKLAD
MOD11BS1
POLE1
SOUCTY1
POLE2
o(i)=l
SOUCTY2
hod](
VYPOC
SOUCTY
KOOPERACE
HLAVA6R
X:\OBEC\01\
MOD14P.FXP
X:\OBEC\01\MOD14P.PRG