home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
MOD14P1.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1997-01-04
|
10KB
|
322 lines
fun_tisk
zme_kusy
vyp_nor
Zadejte rozpisku:
Rozpisky k souhrnn
materi
norm
RIIS 1.1
mod14p1
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
Ident. odb
ratele
m1_ident.ident_odb
m1_ident.ident_odb
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
SKP
m1_ident.skp
m1_ident.skp
Stav
m1_ident.stav+' '
m1_ident.stav
POLEX
v C(PROCX
uba_RTOP
0,5),RBOT
CLEFT
CRIGHT
p NFREEZE
nakORDER
), mZAHL
JMENO
uHODN
plan SOUC
x1_plTITLE
ect TITLECOLORNAZEVT
x1F1
selecF2
ela to F4
es intoF6
ident, F7
es intoF9
plan, vF10
into DETAIL
kl2F1PRG
F4_JM
ot=0F4PRG
topF7_JM
ile F7PRG
F9KEY
#'M'F10_JM
skiF10PRG
loDET_JM
ndiDETPRG
RAMECEK
=RIIS
KLICO
t m1PS_ZAZN
sPS_RETURN
F8
selecNADPIS
LEVA
st_PRAVA
m1_HOR
.nazevDOL
if m1_IDENT
od_pA
# 'T'
_nakM1_IDENT
nKOD_POL
C1_IDENT
M_ORD1
=M_DAT
endiX_DAT
st_mM_CIS1
denX_CIS1
nMOD_PSV
jOBSAH
Nenulov
Tisk p
ehledu
Konec
et kus
mod_psv
mod_psv
W_REC
v C(O1
uba_W_TISK
5),VKS
PP_R
HLASKA
p NTISK
nakMOD_PSV
Rozpiska :
zev :
:
Po
et kus
materi
normy
P
- Esc, Zaps
- Enter
999999
NOROBR
C(IDENT
uba_M1_IDENT
,NAZEV
VKS
m1_kusov
vykres
P_NOROBR
(NOROBR
ba_M1_KUSOV
,VYKRES
W_DATUM
DATUM_OD
NDATUM_DO
kMOD_SYS
mDELEJ
strom
c1_pol
c1_pol
c1_strom
c1_strom
c1_pol
xc1_sm
STROM
(UROVEN
ba_VYROBEK
,VYKRES
KUSY
POR
NDRUH
kSPOTREBA
mKUSY_DE
ROZMER
uPOSUNUTI
CISTA_SP
ect C1_POL
LORNORMA
x1C1_IDENT
cST_REC
la to ROZKLAD
toC1_STROM
XC1_SM
oPOLE1
n, vK
mod12p
M_VYKRES
(C1_IDENT
_IDENT
,MOD11BS
MOD12P
ALL
NKUSY
c_kum
m1_plan
x1_plan
m1_zas
x1_zas
c_kum
RIIS 1.4
mod14p1
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
Spot
str(hruba_sp,12,5)
hruba_sp
K
str(c_kum.nakl*hruba_sp,13,4)
c_kum.nakl*hruba_sp
Ident. odb
ratele
m1_ident.ident_odb
m1_ident.ident_odb
norma
m1_ident.rozm_csn
m1_ident.rozm_csn
Jakostn
norma
m1_ident.jak_csn
m1_ident.jak_csn
C_KUM
(C_VYKRESU
NAZEV
HRUBA_SP
CISTA_SP
NAKL
kM1_PLAN
mX1_PLAN
M1_ZAS
uX1_ZAS
C1_POL
lVYKRES
ct M1_IDENT
1ST_CSPOT
cDRUH
sST_HSPOT
ST_NAZEV
oKOD_POL
ST_NAKL
oNAKLAD
vST_MJ
ST_VYKRES
C_VYKRES
POLEX
PROCX
ile RTOP
RBOT
#'M'CLEFT
skiCRIGHT
loFREEZE
ndiORDER
ZAHL
=JMENO
HODN
t m1SOUC
sTITLE
TITLECOLORNAZEVT
lecF1
st_F3
m1_F4
.nazevF6
if m1_F7
od_pF9
_nakDETAIL
nF1PRG
F4_JM
F4PRG
=F7_JM
endiF7PRG
st_mF9KEY
denF10_JM
* F10PRG
nDET_JM
jDETPRG
kceRAMECEK
vaRIIS
t_vKLICO
vykPS_ZAZN
o PS_RETURN
_vyF8
=vykresI
stMOD_PSV
stM1_KUSOV
uNOROBR
sC1_IDENT
dP_NOROBR
Norma celkem:
(M_SCR
KC_CEL
C_TBC1
MOD_SYS
CELKEM
NNAKL
kHRUBA_SP
KLOBOUKYF
(PODNIK
MKOOP
D_KOOP
decimalsz
(ST_DEC
W_ROZMER1
M1_KUSOV
ROZMER
W_ROZMER2
Z_KUSY_DE
KUSY_DE
mMOD14P1
FUN_TISK
ZME_KUSY
VYP_NOR
DELEJ
identm
ROZKLAD
POLE1
me jm
SOUCTY1
KOOPERACE
SPOTR
zahl(["
L:\OBEC\01\
MOD14P1.FXP
L:\OBEC\01\MOD14P1.PRG