Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/01/S137.FXP

MS Visual FoxPro App | 1999-02-26 | 9KB | 212 lines

H.zmena
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
  Prac
m1_normy->prac
m1_normy->prac
m1_normy->ptr
m1_normy->ptr
str(m1_normy->tbc,4)
m1_normy->tbc
   TAC
str(m1_normy->tac,9,3)
m1_normy->tac
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_hlava->autor
m1_hlava->autor
 Datum
tran(m1_hlava->datum,'@E')
m1_hlava->datum
Vz.post.
m1_hlava->typ_postup
m1_hlava->typ_postup
Pocop
str(m1_hlava->pocop,4)+' '
m1_hlava->pocop
-pripr
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,9,2)
(m1_normy->tac+m1_normy->tbc)
-celkem
str(m1_normy->kcsac+m1_normy->kcsbc,10,4)
(m1_normy->kcsac+m1_normy->kcsbc)
m1_zdroj
x1_dilna
x1_zdroj
m1_hz
x1_hz
use &nazevv\m1_hlava order postup
use &nazevv\m1_normy order operace
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
JMENO
PSOUC
TITLE
TITLECOLORPOC0
F0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
M1_ZDROJ
X1_DILNA
X1_ZDROJ
CISPR
M1_HZ
X1_HZ
H_ZMENA
POSTUP
M1_HLAVA
MOD_PSV
dalsi
konec
na polo
  .  .  #
......
@s,v get &prom
@s,v say &prom
.................
 with
STOP - d
lku podm
nky ji
 nelze zv
ovat !
 Ukon
Potvr
replace &podm
use &nazevv\m1_hlava order postup
use &nazevv\m1_normy order operace
RIIS 1.1
JMENO
OBSAH
POLEX
POLE8
LOGIC
XOPER
TLECOLORXVYBER
MOD_SYS
M1_NORMY
M1_HLAVA
DATUM
AUTOR
PRIHLAS
URCENI
POSTUP
CPODMV
CPODMS
CPODMVU
PS_RETURN
m1_hlava->kstr
obs pict '9999'
m1_hlava->kstr
zev post.
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
  Prac
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
JMENO
OBSAH
H_ZMENA
POLE8
X:\OBEC\01\
S137.FXP
X:\OBEC\01\S137.PRG