home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
ZAKL.EXE
/
S137.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-14
|
10KB
|
238 lines
H_Zmena
Hromadn
ny technologick
ch postup
/operac
RIIS 1.3
Postup
m1_Normy.Postup
m1_Normy.Postup
m1_Normy.Oper
m1_Normy.Oper
m1_Normy.DOp
m1_Normy.DOp
m1_Normy.Prac
m1_Normy.Prac
m1_Normy.PTr
m1_Normy.PTr
NH/tis
str(m1_Normy.NH_Tis,8,2)
m1_Normy.NH_Tis
str(m1_Normy.TBc,4)
m1_Normy.TBc
TAC
iif(Kooperace(m1_Normy.DOp), str(m1_Normy.Kooperace,10,4), str(m1_Normy.TAc,10,4))
iif(Kooperace(m1_Normy.DOp), str(m1_Normy.Kooperace,10,4), str(m1_Normy.TAc,10,4))
zev oper.
m1_Normy.Nazev_Op
m1_Normy.Nazev_Op
Kusy/h
m1_Normy.NC
m1_Normy.NC
m1_Normy.Norm+' '
m1_Normy.Norm
edpis
m1_Normy.Predpis
m1_Normy.Predpis
zev postupu
m1_Hlava.Nazev
m1_Hlava.Nazev
m1_Hlava.Rada
m1_Hlava.Rada
m1_Hlava.KStr
m1_Hlava.KStr
Autor
m1_Normy.Autor
m1_Normy.Autor
Aktual
m1_Normy.Aktual
m1_Normy.Aktual
Datum akt.
tran(m1_Normy.Dat_Akt,'@E')
m1_Normy.Dat_Akt
Vz.post.
m1_Hlava.Typ_Postup
m1_Hlava.Typ_Postup
str(m1_Hlava.PocOp,4)+' '
m1_Hlava.PocOp
str(m1_Normy.KcsBc,10,4)
m1_Normy.KcsBc
K
str(m1_Normy.KcsAc,10,4)
m1_Normy.KcsAc
Nmin-celk
str(m1_Normy.TAc+m1_Normy.TBc,10,4)
(m1_Normy.TAc+m1_Normy.TBc)
-celkem
str(m1_Normy.KcsAc+m1_Normy.KcsBc,10,4)
(m1_Normy.KcsAc+m1_Normy.KcsBc)
m1_Normy.Kod_Mat
m1_Normy.Kod_Mat
d op.
m1_Normy.Kod_Oper+' '
m1_Normy.Kod_Oper
m1_Normy.Typ_Oper+' '
m1_Normy.Kod_Oper
Zmetky %
str(m1_Normy.Zmetky,8,2)
m1_Normy.Zmetky
D_KOOP
POM_PKON
POM_NH
OPPOM_CKC
POLEX
LPROCX
CLEFT
NCRIGHT
FREEZE
ORDER
STINA
PRAVA
NADPIS
NZAHL
JMENO
ADRPSOUC
LORTITLE
NTITLECOLORPOC0
LORF2
#$%F3
ghi&F4
+,lnoswF6
F0PRG
34F1ON
:;F1PRG
?F4_JM
F4PRG
MTISKPRG
F7_JM
F7PRG
wF9PRG
F9KEY
F9KEY1
owxF10_JM
F10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
&SPACEBAR
LTR_HL1
ORTR_HL2
VETR_HL3
TR_HL4
LOTR_HL5
TR_HL6
RTR_HL7
HOTR_HL8
ETR_HL9
EDET_JM
UPENTER
ADETAIL
STDETPRG
PS_LINE
PRPS_RETURN
PS_ZAZN
PROTEVRI
OBM1_NORMY
SMOD_PSV
m_Param
m1_HZ
x1_HZ
use &pom_NazAdr\m1_Hlava order Postup alias m1_Hlava
use &pom_NazAdr\m1_Normy order Operace alias m1_Normy
M_PARAM
D_KOOP
DILNA_KOOPPOM_PKON
POLE1
LPOM_CKC
POM_NH
M1_HZ
X1_HZ
m1_Hlava.Kstr
obs pict '9999'
m1_Hlava.kstr
zev postupu
m1_Hlava.Nazev
obs pict '@!'
m1_Hlava.Nazev
m1_Hlava.Rada+space(3)
obs pict '9999'
m1_Hlava.Rada
Autor
m1_Hlava.Autor
obs pict '@! XXXXXXXXX'
m1_Hlava.Autor
Vz.post.
tran(m1_Hlava.Typ_Postup,'999999999999')
obs pict '999999999999'
m1_Hlava.Typ_Postup
m1_Normy.DOp
obs pict '9999'
m1_Normy.DOp
m1_Normy.Prac
obs pict '999999'
m1_Normy.Prac
zev oper.
m1_Normy.Nazev_Op
obs pict '@!'
m1_Normy.Nazev_Op
m1_Normy.PTr
obs pict '@! XX'
m1_Normy.PTr
m1_Normy.Norm+' '
obs pict '999'
m1_Normy.Norm
edpis
m1_Normy.Predpis
obs pict '@! XXXXXXXXXX'
m1_Normy.Predpis
dalsi
konec
na polo
......
@ pom_R1,pom_Sl get &prom
@ pom_R1,pom_Sl say &prom
.................
with
STOP - d
lku podm
nky ji
nelze zv
ovat !
Ukon
Potvr
repl &pom_Podm
POM_PODM
POM_R1
POM_R2
OOPPOM_SL
POM_ODDEL
M_CKC
POLEX
XOPER
NXVYBER
JMENO
NOBSAH
LOGIC
M1_NORMY
RMOD_SYS
AKTUAL
NMM_AUTOR
RDAT_AKT
M1_HLAVA
DATUM
RURCENI
%PS_RETURN
PALVF
POM_DOP
OPER_NE
ID_ORG
OPMKOOP
D_KOOP
OTEVRI
H_ZMENA
KOOPERACE
P:\IN\SK\
S137.FXP
P:\IN\SK\S137.PRG