colorz
pom_C1O
pom_C1O
pom_C1O
POM_CKC
POM_ALI
POM_ORD
|$POM_VETA
POM_OBR
MMCOLOR
D$8II
D$POM_KONEC
POM_KONTR
POCETD
D$8Q2
D$@PQQ4
D$@Q7
LPOM_C1O
HLAVD
$ PROCD
ZMENYD
DEJ_STAV
do Proc&y
do Zmen&y with 'get'
do Zmen&y with 'say'
do Zmen&y with 'say'
&barvau
do Zmen&y with 'say'
do Menu&y
do Napov&y
zmena&y =.f.
it pr
ci beze zm
n? (a/N)
POM_OBR
POM_OBRZ
M_ORD
M_VETA
POM_KONEC
W_AKT
D$8POMOC
D$POM_OBRT
_OBRZ
POCETD
T$ZMENAD
KONTRD
POM_KONTR
TPOM_VETA
$POM_C1O
$@DEJ_STAV
POM_ALI
D$POM_ORD
DAT_AKT
LAKTUAL
MM_AUTOR
&barvaz
 Detailn
daje operace: 
zev    :
Pstr     :
Prac     :
Tarif    :
Kvn      :
NH/1000  :
Tbc      :
Tac      :
Kusy/h   :
Celkem K
edpis  :
Mat.     :
d oper.:
Typ oper.:
Zmetky % :
Aktual.  :
Dne      :
Autor    :
POM_TEXT
POM_C1O
|$POM_NH
&barvau
99999.99
KLOBOUKYF
POM_C1O
NAZEV_OP
|$PRAC
POM_NH
NH_TIS
$8TBC
D$KOOPERACE
PODNIK
KCSBC
KCSAC
PREDPIS
TKOD_MAT
$KOD_OPER
@TYP_OPER
ZMETKY
D$AKTUAL
DAT_AKT
LAUTOR
&barvau
@ x,1 &vloz pom_C1O.Oper
@ 8,14 &vloz pom_C1O.Nazev_Op
@ 9,14 &vloz pom_C1O.DOp pict "@!"
@10,14 &vloz pom_C1O.Prac pict "@!"
@12,14 &vloz pom_C1O.Ptr
@13,14 &vloz pom_C1O.Norm
@14,14 &vloz pom_C1O.NH_Tis pict "99999.99"
@15,14 &vloz pom_C1O.Tbc
KLOBOUKYF
@16,14 &vloz pom_C1O.Kooperace
@16,14 &vloz pom_C1O.TAc
@ 19,14 &vloz pom_KC pict '99999.9999'
@10,67 &vloz pom_C1O.Predpis pict '@!'
@12,67 &vloz pom_C1O.Kod_Mat pict "@!X"
@13,67 &vloz pom_C1O.Kod_Oper
@14,67 &vloz pom_C1O.Typ_Oper pict "!"
@15,67 &vloz pom_C1O.Zmetky
zmena&y = .t.
 Operace mus
t vypln
@12,14 &vloz pom_C1O.Ptr
@15,14 &vloz pom_C1O.Tbc
pom_C1O
pom_C1O
Dilna
 Nespr
 uvedena d
lna (nen
 v souboru pracovi
do Napov&y
Ident_Zdr
KLOBOUKYF
 Nespr
 uvedeno pracovi
do Napov&y
 Nejsou vypln
ny NH/1000. 
pom_C1O
KLOBOUKYF
 uveden Tac. 
 Neexistuje k
ivka. 
p_TAc = (60 * pom_KC) / p_Tarif.Tarif&TR - pom_C1O.TBc
pom_C1O
m1_KMat
 Nespr
 uveden k
d materi
do Napov&y
m1_KOper
 Nespr
 uveden k
d operace. 
do Napov&y
 Typ operace jen V=v
konov
, K=kooperace, I=informativn
 Jde o kooperaci, typ operace pouze K=kooperace. 
 vypln
n tarif, typ operace nelze nav
st V=v
konov
pom_C1O
pom_C1O
zmena&y = .t.
pom_C1O
W_AKT
KOOPERACE
POM_C1O
POCETD
PERACE
D$Q15
POM_CKC
POM_NH
PODNIK
HLASKA
KCSAC
KCSBC
YVYPOCET
$ TYP_OPER
OPRAV_OBR
M3_SZDR
~DILNA
IDENT_ZDR
_KUS_H
NH_TIS
P_TARIF
P_TAC
POM_KC
KOD_MAT
KOD_OPER
$D_KOOP
AKTUAL
MM_AUTOR
$DAT_AKT
ny-detail operace 
              - 
              - ^End,Esc
Pohyb
Konec
colorz
pom_Prom
m3_SZdr.Dilna
ehled st
edisek a pracovi
 dle d
.   Prac.   N
zev pracovi
              
m3_SZdr.Dilna+'  '+m3_SZdr.Ident_Zdr+'  '+m3_Zdr.Nazev_Zdr
 Zadejte d
lnu: 
Mod_Fun
zmena&y=.t.
999999
pom_Prom
m3_SZdr.Ident_Zdr
ehled st
edisek a pracovi
 dle pracovi
.   Prac.   N
zev pracovi
              
m3_SZdr.Dilna+'  '+m3_SZdr.Ident_Zdr+'  '+m3_Zdr.Nazev_Zdr
 Zadejte pracovi
Ident_Zdr
Mod_Fun
zmena&y=.t.
pom_Prom
m1_KMat.Kod_Mat
ehled k
 materi
d  Popis                                   
Kod_Mat+'  '+Popis
 Zadejte k
Mod_Fun
zmena&y=.t.
pom_Prom
m1_KOper.Kod_Oper
ehled k
 operac
d  Popis                                   
Kod_Oper+'  '+Popis
 Zadejte k
Mod_Fun
zmena&y=.t.
 U tohoto 
daje nen
da ! 
POM_PROM
POM_ALI
POM_ORD
POM_VETA
MMCOLOR
COLOR
N_LMEZ
8N_PMEZ
D$N_HMEZ
N_DMEZ
N_PROM
T$N_HOD
N_POC
N_TEXT
N_HLAV
TN_RAD
$N_NVYH
@M3_ZDR
M3_SZDR
D$IDENT_ZDR
ZOBR_NAP
LMOD_FUN
POM_C1O
DILNA
T_ZDR
M1_KMAT
KOD_MAT
YM1_KOPER
 KOD_OPER
HLASKA
DEJ_STAV
 Nevypln
zev operace. 
 Neexistuje k
ivka. 
 Neexistuje k
ivka. 
 vypln
as Tac. 
Dilna
 Nespr
 uvedena d
lna (nen
 v souboru pracovi
Ident_Zdr
KLOBOUKYF
 Nespr
 uvedeno pracovi
KLOBOUKYF
 uveden Tac. 
 Nejsou vypln
ny NH/1000. 
m1_KMat
 Nespr
 uveden k
d materi
m1_KOper
 Nespr
 uveden k
d operace. 
 Typ operace jen V=v
konov
, K=kooperace, I=informativn
POM_KONTR
M_ALI
POM_C1O
NAZEV_OP
HLASKA
COLOR
8KOOPERACE
T$P_TARIF
POM_CKC
POM_NH
$M3_SZDR
@DILNA
D$IDENT_ZDR
PODNIK
NH_TIS
KOD_MAT
KOD_OPER
TYP_OPER
case &pom_Soub..Ptr ="*"
repl &pom_Soub..KcsBc with 0, &pom_Soub..KcsAc with 0
kr =substr(&pom_Soub..PTr,1,1)
tr =substr(&pom_Soub..PTr,2,1)
FFFZ^D
 Neexistuje k
ivka. 
sele &pom_Sel
p_Tarif,
if pom_Kontr and p_Tarif.Tarif&tr = 0
 Zadan
 tarif je nulov
Tabc  =&pom_Soub..TAc*1 + &pom_Soub..TBc
KTabc =Tabc * p_Tarif.Tarif&tr / 60
KTAc  =&pom_Soub..TAc * p_Tarif.Tarif&tr / 60
repl &pom_Soub..KcsBc with KTBc,  &pom_Soub..KcsAc with KTAc
colorz
&barvau
@ x,69 say str(&pom_Soub..KcsAc + &pom_Soub..KcsBc,10,4) 
&barvaz
colorz
&barvau
@19,14 say str(&pom_Soub..KcsAc + &pom_Soub..KcsBc,10,4)
&barvaz
POM_SUMY
POM_KDERADPOM_SOUB
POM_KONTR
POM_AKTRADMMCOLOR
8TABC
KTABC
T$POM_SEL
P_TARIF
HLASKA
_SZDR
COLOR
ADVYPIS_SUM
kooperace:
POM_SOUB
POM_ALI
DPOM_ORD
POM_VETA
SUMKCSAC
DSUMKCSBC
SUMTBC
SUMTAC
8SUMKOOP
SPOCTI_SUMSUMKCS
SUMTB
$SUMTA
SUMKOO
POM_SL
TDEJ_STAV
KOOPERACE
DSUMKOOP
ERACE
SUMKCSAC
DKCSAC
SUMKCSBC
KCSBC
8SUMTAC
SUMSUMTBC
POM_ALI
POM_ORD
DPOM_VETA
MMCOLOR
KLOBOUKYF
POM_C1O
DPRAC
DKOOPERACE
PODNIK
TYP_OPER
echny postupy budou p
teny.
et bude chv
li trvat. Nikdo 
 nesm
 s postupy pracovat.
 Ukon
 Prov
m_Param
do TPVChyba with error()
use &nazevv\m1_Hlava order Postup exclu
use &nazevv\m1_Normy order Operace exclu
p_Tarif
xp_tarif
 (operace) ...          
m1_Normy
POM_OBR
SUMKCSAC
DSUMKCSBC
SUMTAC
SUMTBC
DSUMKOOP
POCETA
POCETC
8POM_VOL
M_OBR
MM_PARAM
D_KOOP
$DILNA_KOOPPOM_OTEVREP_TARIF
REXP_TARIF
TM1_NORMY
$POM_POSTUPPOSTUP
DPROCENTA
M1_HLAVA
PTAC_C
STUPTBC_C
KCSAC_C
KCSBC_C
KOOPER_C
DATUM
AKTUAL
MM_AUTOR
VYPOCET
PSPOCTI_SUM
POM_RAD
POM_SL
DPOM_DEL
POM_POC
POCETA
DPOCETC
KLOBOUKYF
POM_DOP
OPER_NE
DPODNIK
MKOOP
D_KOOP
 Nelze prov
st, s daty pracuje jin
ivatel !!! 
do ModError with sys(16),error(),lineno(1)
HLASKA
DPOM_OTEVREMODERROR
DET_OPER
ZMENYD
HLAVD
PROCD
ZMEND
MENUD
NAPOVD
KONTRD
VYPOCET
VYPIS_SUM
SPOCTI_SUM
DEJ_STAV
OPRAV_OBR
PREP_OPER
PROCENTA
KOOPERACE
TPVCHYBA
X:\OBEC\01\
S01_PROC.FXP
X:\OBEC\01\S01_PROC.PRG