home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
MOD11B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-03-24
|
14KB
|
357 lines
german
hl_ident with m1_ident.ident
Funkce
mod11bd
Aktual
akt_ident
e h l e d rozpisek
e n
rozpisek
e h l e d vyr
ch polo
ek (rozpisek)
e h l e d rozpisek
RIIS 1.1
mod11b
m_param
w_modulf
RECEPTURY
m1_ident
odlitky
w_modulf
VYR,ODL
m1_ident
ident
m1_ident
soucasti
m1_ident
ident
m_dat
x_dat
m_cis1
x_cis1
m1_plan
x1_plan
m1_kalk
x1_kalk
m1_zas
x1_zas
Identifikace
m1_ident.ident
m1_ident.ident
m1_ident.nazev
m1_ident.nazev
Hmotnost
str(m1_plan.vaha_mj,10,3)
m1_plan.vaha_mj
str(m1_kalk.uvn,11,2)
m1_kalk.uvn
str(m1_plan.plocha_r,7,2)
m1_plan.plocha_r
space(4)+ m1_ident.rada
m1_plan.zs_kmd
m1_plan.zs_kmd
' '+m1_ident.kod_pol+' '
m1_ident.kod_pol
Z
str(m1_zas.zasoba,12,3)
m1_zas.zasoba
Ident.odb
ratele
m1_ident.ident_odb
m1_ident.ident_odb
m1_ident.mj
m1_ident.mj
m1_ident.typ
m1_ident.typ
' '+m1_ident.stav
m1_ident.stav
m1_ident.rozm_csn
m1_ident.rozm_csn
str(m1_ident.ds,3)
m1_ident.ds
Postup
m1_ident.c_postup
m1_ident.c_postup
Objedn
m1_ident.jak_csn
m1_ident.jak_csn
Model
m1_ident.sek_ident
m1_ident.sek_ident
SKP
m1_ident.skp
m1_ident.skp
Cel.saz.
m1_ident.cel_saz
m1_ident.cel_saz
m1_ident.dod_csaz
m1_ident.dod_csaz
Datum
tran(m1_ident.datum,'@E')
m1_ident.datum
Aktualiz.
m1_ident.aktual
m1_ident.aktual
Autor
m1_ident.autor
m1_ident.autor
Koeficient
str(m1_plan.koef,11,4)
m1_plan.koef
Rozpiska
ident
ident
nazev
nazev
' '+kod_pol+' '
kod_pol
Ident.odb
ratele
substr(ident_odb,1,9)
ident_odb
ident_odb
' '+stav
rozm_csn
rozm_csn
str(ds,3)
Postup
c_postup
c_postup
jak_csn
jak_csn
Sekund. kl
sek_ident
sek_ident
space(4)+rada
SKP
Cel.saz.
cel_saz
cel_saz
dod_csaz
dod_csaz
Datum
tran(datum,'@E')
datum
Aktualiz.
aktual
aktual
Autor
autor
autor
Koeficient
str(m1_plan.koef,11,4)
m1_plan.koef
nGERMAN
OK_C
& radPOLEX
nadpPROCX
a=1 RTOP
&RBOT
okraCLEFT
a=78CRIGHT
&&FREEZE
kraORDER
5 HOR
&&DOL
i radeLEVA
=19 PRAVA
&&NADPIS
adeZAHL
procxJMENO
e datSOUC
ect 1PSOUC
_parTITLE
rumeTITLECOLORPOC0
F0PRG
F1PRG
F4_JM
F4PRG
TTISKPRG
F7_JM
F7PRG
i)='F9PRG
rF9KEY
iF9KEY1
= F10_JM
F10PRG
i) RAMECEK
(iRIIS
db,1,NAZEVT
elsKLICO
jmeKLNAZ
"idSPACEBAR
TR_HL1
TR_HL2
)="TR_HL3
TR_HL4
i+1TR_HL5
zTR_HL6
MJ TR_HL7
enoTR_HL8
TR_HL9
(i)DET_JM
iENTER
DETAIL
hl(DETPRG
PS_LINE
)=PS_RETURN
PS_ZAZN
ypID_ORG
= iF5
hl(i)='M_PARAM
jW_PRUMER
"POLE4
D_KOOP
i)=DILNA_KOOPPOLE1
KONT_PR
hlPAR_POLE
rW_MODUL
jM1_IDENT
"ODLITKY
KOD_POL
)=IDENT
SOUCASTI
1M_DAT
X_DAT
=' DM_CIS1
menX_CIS1
strM1_PLAN
X1_PLAN
"dM1_KALK
= X1_KALK
M1_ZAS
i)=X1_ZAS
MOD_PSV
upOBSAH
mod_fun
mod1pro
RIIS 1.1
IDENT
nHLASKA
MOD_FUN
adFINAL
nadpZRUS_POL
MOD1PRO
&M1_IDENT
aPAR_POLE
8PS_RETURN
colorz
FFFZ^D
Vyhled
dle
w_modulf
MATERIAL
NARADI
sla polo
zvu polo
sla rozpisky :
zvu rozpisky :
Identifikace odb
ratele :
ident
nazev
IDENT_ODB
ident_odb
IDENT_ODB
mod_fun
Ve Va
organizaci tento kl
it !
+.+.+.+.+.+.+
Prob
vyhled
...
ident
set order to &st_order
nazev
set order to &st_order
ident_odb
set order to &st_order
select &st_sel
M1_IDENT
ka nebyla nalezena
set order to &st_order
select &st_sel
W_IDENT
nOBR_HL
ST_SEL
adST_IDENT
pST_REC
ST_ORDER
&KLIC1
aKLIC2
8KLIC3
ST_ALIAS
aST_FILTER
MCOLOR
&&M1_IDENT
eST_M1FOR
W_MODUL
&NASEL
adeCSNC
xUPPERCS
IDENT
tNAZEV
rIDENT_ODB
HLASKA
LORMOD_FUN
VYHLED
@MESS
CPODMV
colora
set color to &color
nCOLOR
mod11b
Ident.: F
sobovac
daje
novac
daje
kladov
daje
Dopl
text
kaznick
identifikace
hrady polo
ky - TPV
hrady polo
ky - ODB
Invent
informace
Konec
do mod41a1
do mod41a2
do mod41a32
do mod41a4
do mod41a6
do mod41a5 with 'TPV'
do mod41a5 with 'ODB'
do mod41a7 with .t.
deactivate popup volba
W_AKT
nCISLOP
M1_IDENT
dIDENT
pW_POLE
OBROP
&PS_LINE
aPRG_ZAS
8PRG_PLAN
PRG_KALK
aPRG_POZID
PRG_NPOL
&PRG_NAHRT
PRG_NAHRO
PRG_IIP
&PROCX
adeVOLBA
xPOUZ_POPUPZRUS
HL_IDENT
AKT_IDENT
X:\OBEC\01\
MOD11B.FXP
X:\OBEC\01\MOD11B.PRG