home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
MOD14P2.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1997-07-01
|
16KB
|
472 lines
fun_tisk
zme_kusy
vyp_nor
Rozpisky k souhrnn
materi
norm
RIIS 1.1
mod14p2
m_param
m1_ident
c1_ident
m1_ident
ident
c1_ident
ident
m1_ident
c1_ident
m1_ident
ident
c1_ident
ident
m_dat
x_dat
m_cis1
x_cis1
Rozpiska
ident
ident
str(vks,6)
m1_ident.nazev
m1_ident.nazev
m1_ident.kod_pol
m1_ident.kod_pol
m1_ident.typ
m1_ident.typ
Sek.identif.
m1_ident.sek_ident
m1_ident.sek_ident
space(4)+m1_ident.rada
m1_ident.rada
m1_ident.mj
m1_ident.mj
Ident. odb
ratele
m1_ident.ident_odb
m1_ident.ident_odb
SKP
m1_ident.skp
m1_ident.skp
Stav
m1_ident.stav+' '
m1_ident.stav
POLEX
PROCX
eno(RTOP
f(cisRBOT
0,spaCLEFT
str(CRIGHT
,12FREEZE
odnORDER
sta_ZAHL
i=iJMENO
l(i)HODN
eficiSOUC
jmenoTITLE
f(koTITLECOLORNAZEVT
koeF1
,6))"
(i)="koF3
i=iF4
zahl(i)F6
i)='m1_F10
.rozm_DETAIL
dn(F1PRG
idenF4_JM
csn"F4PRG
F7_JM
)='JF7PRG
norF9KEY
eno(F10_JM
denF10PRG
DET_JM
="mDETPRG
jakRAMECEK
iRIIS
hl(KLICO
jmePS_ZAZN
f(PS_RETURN
)="znakNADPIS
+1LEVA
(i)='PRAVA
sobHOR
meno(iDOL
str(m1M_PARAM
baD_KOOP
hoDILNA_KOOPPAR_POLE
POLE1
IDENT
Alokace'VKS
(i) M1_IDENT
zKOD_POL
ezC1_IDENT
oM_ORD1
zM_DAT
zX_DAT
M_CIS1
(i)X_CIS1
MOD_PSV
= OBSAH
nt.i
Nenulov
Tisk p
ehledu
Konec
et kus
mod_fun
mod_psv
mod_psv
W_REC
eno(W_TISK
cisVKS
spaPP_R
str(TXT
,12HLASKA
odnMOD_FUN
a_TISK
i=iMOD_PSV
Rozpiska :
zev :
:
Po
et kus
materi
normy
P
- Esc, Zaps
- Enter
999999
NOROBR
IDENT
eno(M1_IDENT
sNAZEV
spaVKS
m1_kusov
vykres
P_NOROBR
NOROBR
no(M1_KUSOV
sVYKRES
spaKUSOV
str(W_DATUM
12DATUM_OD
nDATUM_DO
_MOD_SYS
iDELEJ
strom
c1_sm
c1_sv
c1_sm
c1_sv
c1_sm2
c1_sv2
c1_sm2
c1_sv2
xc1_sv
c1_sm
xc1_sm
STROM
UROVEN
no(VYROBEK
sVYKRES
spaKUSY
str(POR
12DRUH
nSPOTREBA
_KUSY_DE
iROZMER
i)POSUNUTI
iNAZEV_P
noCISTA_SP
ECOLORZNAK
koeKOEF
C1_SM
="koC1_SV
i=iNORMA
l(i)C1_IDENT
mROZKLAD
1_C1_SM2
zm_C1_SV2
dn(XC1_SV
denXC1_SM
sn"POLE1
vykres<
Prob
rozklad sou
sti...
strom
strom
strom
KUSOV
VYKRES
no(STROM
sUROVEN
spaKUSY
tr(DRUH
12C1_IDENT
nIDENT
iPPOC
i)VYK
iKUSYS
noSTUPEN
LORNORMA
koeCV
C_VYKRESU
VYROBEK
=iKUSY_DE
i)ROZMER
POSUNUTI
mNAZEV_P
1_CISTA_SP
dn(SPOTREBA
nZNAK
sn"KOEF
SPOTR
c_kum
m1_plan
x1_plan
m1_zas
x1_zas
c_kum
proc_det
Detail
RIIS 1.4
mod14p2
soucty1
Souhrnn
materi
norma KU
c_vykresu
c_vykresu
zev polo
nazev
nazev
m1_ident.mj
m1_ident.mj
Cena/MJ
str(c_kum.nakl,8,2)
c_kum.nakl
Hrub
spot.
str(hruba_sp,12,5)
hruba_sp
K
str(c_kum.nakl*hruba_sp,13,4)
c_kum.nakl*hruba_sp
iif(cista_sp=0,space(12),str(cista_sp,12,5))
cista_sp
Koeficient
iif(koef=0,space(12),str(koef,12,6))
norma
m1_ident.rozm_csn
m1_ident.rozm_csn
Jakostn
norma
m1_ident.jak_csn
m1_ident.jak_csn
iif(znak='1','M','K')
Z
str(m1_zas.zasoba,12,3)
m1_zas.zasoba
Alokace
str(m1_zas.alokace,12,3)
m1_zas.alokace
Ident. odb
ratele
m1_ident.ident_odb
m1_ident.ident_odb
C_KUM
no(C_VYKRESU
NAZEV
spaHRUBA_SP
(CISTA_SP
2NAKL
_KOEF
iM1_PLAN
i)X1_PLAN
iM1_ZAS
noX1_ZAS
oSTROM
LORVYKRES
koeM1_IDENT
ST_CSPOT
iST_VYKRES
ST_HSPOT
mW_ZNAK
1_P_KOD
KOD_POL
n(ST_NAZEV
nST_NAKL
"NAKLAD
ST_MJ
JST_KOEF
rSPOTREBA
POLEX
PROCX
="mRBOT
jakCLEFT
iCRIGHT
hl(FREEZE
jmeORDER
f(ZAHL
JMENO
hoHODN
"znakSOUC
+1TITLE
i)='TITLECOLORNAZEVT
o(iF1
str(m1F2
NA_KOOPF6
_POLE
okace'DETAIL
i) F1PRG
zF4_JM
ezF4PRG
oF7_JM
zF7PRG
zF9KEY
F10_JM
(i)F10PRG
odDET_JM
DETPRG
= RAMECEK
.iRIIS
KLICO
="m1PS_ZAZN
enPS_RETURN
in m1_ENTER
e inI
uMOD_PSV
ovKUSOV
stC1_SV
e inNOROBR
useC1_IDENT
P_NOROBR
detailn
pozice neexistuj
mod_fun
czz_stro+
czz_stro
mod14p2
Detail materi
normy
Rozpiska
vyrobek
vyrobek
zev pozice
nazev_p
nazev_p
Kusy
str(kusy_de,6)
kusy_de
Rozm
rozmer
rozmer
Hrub
spot.
str(spotreba,12,5)
spotreba
iif(cista_sp=0,space(15),str(cista_sp,15,5))
cista_sp
Koeficient
iif(koef=0,space(11),str(koef,11,5))
OBRXXX
STROM
no(C_KUM
C_VYKRESU
(HLASKA
2MOD_FUN
nCZZ_STRO
_VYKRES
POZICE
iM1_PLAN
noNORMA
PS_LINE
ORPOLEX
ePROCX
iCLEFT
CRIGHT
FREEZE
mORDER
1_ZAHL
JMENO
n(HODN
nSOUC
"TITLE
TITLECOLORNAZEVT
TREBA
="mF6
jakF7
hl(F10
jmeDETAIL
f(F1PRG
F4_JM
hoF4PRG
znakF7_JM
+1F7PRG
i)='F9KEY
OLORF10_JM
o(iF10PRG
(m1DET_JM
baDETPRG
hoRAMECEK
OPRIIS
KLICO
PS_ZAZN
PS_RETURN
OBSAHX
i) ENTER
ezHELPMN
oMOD_PSV
Konec
Pohyb
- Esc
,PgUp,PgDn
Materi
l manipulace :
Materi
l konfekce :
Norma celkem :
M_SCR
no(KC_CEL
C_TBC1
MOD_SYS
(CEL_MAN
2CEL_KON
nZNAK
_NAKL
iHRUBA_SP
KLOBOUKYF
PODNIK
no(MKOOP
D_KOOP
decimalsz
ST_DEC
no(W_ROZMER1
KUSOV
ROZMER
(W_ROZMER2
Z_KUSY_DE
KUSY_DE
_Z_KOEF
iKOEF
SPOTREBA
MOD14P2
FUN_TISK
ZME_KUSY
VYP_NOR
DELEJ
top
ROZKLAD
POLE1
PROC_DET
HELPMN
SOUCTY1
ze=o2
KOOPERACE
SPOTR
razenY6
L:\OBEC\01\
MOD14P2.FXP
L:\OBEC\01\MOD14P2.PRG