filterz
colorz
pom_C1O
pom_C1O
pom_C1O
POM_CKC
POM_ALI
POM_ORD
POM_VETA
POM_FILT
MMCOLOR
POM_OBR
PVLOZ
TUPII
_POSTUPPOM_KONEC
POM_KONTR
POCETD
AUTOR
NORMY
NORMY
POSTUPQ11
NAZNOVQ12
H_POSTQ13
NOVYP
ARNAQ
NAPOM_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
if not w_Akt or not Zmena&y
Zmena&y   =.f.
it pr
ci beze zm
n? (a/N)
POM_OBR
POM_OBRZ
M_ORD
M_VETA
POM_KONEC
W_AKT
APOMOC
TUPPOM_OBRT
_OBRZ
POCETD
ZMENAD
KONTRD
POM_KONTR
DEJ_STAV
POM_ALI
POM_ORD
POM_VETA
POM_FILT
DAT_AKT
AKTUAL
MM_AUTOR
PPOM_C1O
&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
PALVF
POM_C1O
NAZEV_OP
POM_NH
PNH_TIS
UPKOOPERACE
ID_ORG
KCSBC
KCSAC
PREDPIS
KOD_MAT
KOD_OPER
TYP_OPER
ZMETKY
AKTUAL
DAT_AKT
AUTOR
&barvau
@ x,1 &vloz pom_C1O.Oper
@ 7,14 &vloz pom_C1O.Nazev_Op
@ 8,14 &vloz pom_C1O.DOp pict "@!"
@ 9,14 &vloz pom_C1O.Prac pict "@!"
@11,14 &vloz pom_C1O.Ptr
@12,14 &vloz pom_C1O.Norm
@13,14 &vloz pom_C1O.NH_Tis pict "99999.99"
@14,14 &vloz pom_C1O.Tbc
PALVF
@15,14 &vloz pom_C1O.Kooperace
@15,14 &vloz pom_C1O.TAc
@18,14 &vloz pom_KC pict "99999.9999"
@ 9,67 &vloz pom_C1O.Predpis pict "@!"
@11,67 &vloz pom_C1O.Kod_Mat pict "@!X"
@12,67 &vloz pom_C1O.Kod_Oper pict "@!X"
@13,67 &vloz pom_C1O.Typ_Oper pict "!"
@14,67 &vloz pom_C1O.Zmetky
Zmena&y =.t.
 Operace mus
t vypln
@11,14 &vloz pom_C1O.Ptr
@14,14 &vloz pom_C1O.Tbc
pom_C1O
pom_C1O
Zmena&y =.t.
Zmena&y =.t.
Zmena&y =.t.
Dilna
 Nespr
 uvedena d
lna (nen
 v souboru pracovi
do Napov&y
Ident_Zdr
PALVF
 Nespr
 uvedeno pracovi
do Napov&y
Zmena&y =.t.
Zmena&y =.t.
Zmena&y =.t.
 Nejsou vypln
ny NH/1000. 
pom_C1O
PALVF
 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. 
Zmena&y =.t.
 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
POM_CKC
OVPOM_NH
ID_ORG
NAHLASKA
KCSAC
KCSBC
LVYPOCET
TYP_OPER
OPRAV_OBR
M3_SZDR
FDILNA
IDENT_ZDR
_KUS_H
ORNH_TIS
P_TARIF
SSP_TAC
FFPOM_KC
KOD_MAT
KOD_OPER
D_KOOP
AKTUAL
MM_AUTOR
LDAT_AKT
ny-detail operace 
              - 
              - ^End,Esc
Pohyb
Konec
filterz
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.
s01_Proc
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.
 Typ operace jen V=v
konov
, K=kooperace, I=informativn
 U tohoto 
daje nen
da ! 
POM_PROM
POM_ALI
POM_ORD
POM_VETA
POM_FILT
MMCOLOR
COLOR
AN_LMEZ
PN_PMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
N_CCUR
M3_ZDR
M3_SZDR
IDENT_ZDR
ZOBR_NAP
VMOD_FUN
POM_C1O
DILNA
NT_ZDR
ZOBR_TARIFS01_PROC
M1_KMAT
KOD_MAT
M1_KOPER
KOD_OPER
HLASKA
ORDEJ_STAV
 Nevypln
zev operace. 
 Neexistuje k
ivka. 
 Neexistuje k
ivka. 
 vypln
as Tac. 
Dilna
 Nespr
 uvedena d
lna (nen
 v souboru pracovi
Ident_Zdr
PALVF
 Nespr
 uvedeno pracovi
PALVF
 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
AKOOPERACE
P_TARIF
POM_CKC
POM_NH
M3_SZDR
DILNA
IDENT_ZDR
ID_ORG
VNH_TIS
KOD_MAT
AKOD_OPER
TYP_OPER
colorz
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
&barvau
@ pom_KdeRad, pom_KdeSl say str(&pom_Soub..KcsAc + &pom_Soub..KcsBc,10,4)
&barvaz
POM_SUMY
POM_KDERADPOM_KDESL
POM_SOUB
POM_KONTR
KTABC
PKTAC
AKTBC
POM_SEL
MMCOLOR
P_TARIF
HLASKA
_SZDR
VYPIS_SUM
filterz
kooperace:
POM_SOUB
POM_ALI
DPOM_ORD
POM_VETA
POM_FILT
SUMKCSAC
SUMKCSBC
PSUMTBC
ASUMTAC
SUMKOOP
SPOCTI_SUMSUMKCS
SUMTB
SUMTA
SUMKOO
POM_SL
DEJ_STAV
KOOPERACE
DSUMKOOP
ERACE
SUMKCSAC
KCSAC
SUMKCSBC
PKCSBC
ASUMTAC
SUMTBC
SUMTBC
set filter to &pom_Filt
POM_ALI
POM_ORD
DPOM_VETA
POM_FILT
MMCOLOR
PALVF
POM_C1O
DPRAC
KOOPERACE
ID_ORG
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 &pom_NazAdr\m1_Hlava order Postup exclu
use &pom_NazAdr\m1_Normy order Operace exclu
p_Tarif
xp_tarif
 (operace) ...          
m1_Normy
POM_OBR
SUMKCSAC
DSUMKCSBC
SUMTAC
SUMTBC
SUMKOOP
POCETA
PPOCETC
APOM_VOL
M_OBR
M_PARAM
UMD_KOOP
DILNA_KOOPPOM_OTEVREP_TARIF
REXP_TARIF
M1_NORMY
POM_POSTUPPOSTUP
PROCENTA
M1_HLAVA
PTAC_C
STUPTBC_C
KCSAC_C
VKCSBC_C
KOOPER_C
DATUM
AKTUAL
AMM_AUTOR
VYPOCET
PSPOCTI_SUM
POM_RAD
POM_SL
DPOM_DEL
POM_POC
POCETA
POCETC
PALVF
POM_DOP
OPER_NE
DID_ORG
MKOOP
D_KOOP
 Nelze prov
st, s daty pracuje jin
ivatel !!! 
do ModError with sys(16),error(),lineno(1)
HLASKA
DPOM_OTEVREMODERROR
filterz
colorz
pom_Pom
vzorovy\m1_Normy
Operace
pom_VOper
ehled vzorov
ch operac
 Op  N
zev      Pstr  Prac  Tr Kvn NH/tis Tbc       Tac    P
edpis Celkem K
oper+' '+nazev_op+' '+dop+' '+prac+' '+ptr+' '+norm+' '+      str(nh_tis,8,2)+' '+str(tbc,4)+' '+str(iif (empty(TAc), Kooperace, TAc),10,4)+' '+left(predpis,8)+str(kcsbc+kcsac,10,4)
 Op  N
zev      Pstr  Prac  Tr Kvn Tbc       Tac  Kusy/h   P
edpis Celkem K
oper+' '+nazev_op+' '+dop+' '+prac+' '+ptr+' '+norm+' '+      str(tbc,4)+' '+str(iif (empty(TAc), Kooperace, TAc),10,4)+' '+nc+' '+predpis+str(kcsbc+kcsac,10,4)
Mod_Fun
s01_Proc
POM_ALI
POM_ORD
DPOM_VETA
EPOM_FILT
MMCOLOR
POM_OBR
POM_POM
PVZOROVY
AOPERACE
POSTUP
POM_VPOSTUPOM_VOPER
N_LMEZ
OOPN_PMEZ
VREN_HMEZ
REN_DMEZ
N_PROM
N_HOD
STUPN_POC
N_TEXT
N_CCUR
PPOM_NH
TUPN_HLAV
N_RAD
VZOBR_NAP
MOD_FUN
DEJ_STAV
S01_PROC
filterz
colorz
pom_Pom
vzorovy\m1_Hlava
Postup
VZOR:
pom_VPostup
pom_V2Postup
Postup
ehled vzorov
ch postup
  Postup      N
zev              K.d
Postup + '  ' + Nazev + '  ' + KStr
Hled_Post
Postup
Mod_Fun
pom_Pom
s01_Proc
POM_JEN_VZPOM_ALI
VZPOM_ORD
EPOM_VETA
POM_OBR
POM_FILT
MMCOLOR
PPOM_POM
AVZOROVY
POSTUP
POM_VPOSTUPOM_V2POSTN_LMEZ
OOPN_PMEZ
VREN_HMEZ
REN_DMEZ
N_PROM
_VZN_HOD
TUPN_POC
N_TEXT
N_HLAV
PN_RAD
TUPN_VYB
N_CCUR
VM_ORD2
ZOBR_NAP
MOD_FUN
DEJ_STAV
AS01_PROC
colorz
 Vyhled
Zadejte 
slo nebo n
zev postupu
&barvau
POSTUP
POSTUP
Nazev
nazev
Postup
postup
POSTUP
 Postup nebyl nalezen ! 
Postup
postup
Postup
postup
POM_KLIC
ZPOM_UPKLICMMCOLOR
EM_ORD2
CKLIC
NAZEV
CPOSTUP
PHLASKA
c1_Normy
_KUS_H
ZC1_NORMY
CVYPOCET
EPREP_NH
CKOOPERACE
CTYP_OPER
POM_VYPSATC1_NORMY
C_KUS_H
NORMY
CPOM_NH
M_VYPSAT
filterz
colorz
POM_SOUB
TPOM_ALI
TPOM_ORD
EPOM_VETA
CPOM_FILT
MMCOLOR
CKCSAC
PKCSBC
PSATTBC
SATTAC
KOOPERACE
SUMKCSAC
TSUMKCSBC
PSUMTBC
VRESUMTAC
RESUMKOOP
POM_POCOP
DEJ_STAV
filterz
colorz
pom_Pom
vzorovy\m1_Normy
Operace
pom_Pom+
pom_Pom
 Postup 
 operace ! 
pom_Pom
 Prob
 operac ... 
 Prob
 postupu ... 
pom_Pom
pom_Pom
vzorovy\m1_Prip
Operace
pom_Pom
pom_Pom+
pom_Pom
pom_Pom
pom_Pom
vzorovy\m1_Text
Operace
pom_Pom
pom_Pom+
pom_Pom
pom_Pom
pom_Pom
vzorovy\m1_Mat
Postup
pom_Pom
vzorovy\m1_Hlava
Postup
pom_Pom
POM_JEN_OPPOM_I_HLAVPOM_AKTPOSPOM_VYBPOSPOM_AKTOPEPOM_VYBOPEPOM_ALI
PEPOM_ORD
ATPOM_VETA
TPOM_FILT
MMCOLOR
C1_NORMY
PPOM_POM
OPVZOROVY
REOPERACE
REPOSTUP
OSHLASKA
OSDEJ_STAV
SPOM_KOPIE
EN_OPURCENI
_OPDOP
NAZEV_OP
EV_OP
PPREDPIS
UMOPER
KCSAC
KCSBC
KOOPERACE
NH_TIS
C1_PRIP
PEC1_TEXT
PEC1_MAT
POSW_OPER
POSW_URCENI
W_POCOP
ORPOCOP
W_KSTR
W_RADA
SSRADA
FFW_NAZEV
NAZEV
W_OSTR
W_TYP_POSTW_KS_STROJKS_STROJ
RW_KCSAC_C
KCSAC_C
W_KCSBC_C
KCSBC_C
W_KOOPER_CKOOPER_C
OW_AKTUAL
EMM_AUTOR
EW_DATUM
colora
POM_TXT
OPMMCOLOR
colora
POM_TXT
OPPOM_OBR
AVMMCOLOR
filterz
colorz
 Tabulka   m z d o v 
 c h   tarif
da  St-  1      2      3      4      5      6      7      8      9
'    ' + Krivka + '     ' + str(Tarif1,5,2) + '  ' + str(Tarif2,5,2) + '  '
+ str(Tarif3,5,2) + '  ' + str(Tarif4,5,2) + '  ' + str(Tarif5,5,2) + '  '
+ str(Tarif6,5,2) + '  ' + str(Tarif7,5,2) + '  ' + str(Tarif8,5,2) + '  ' + str(Tarif9,5,2)
Mod_Fun
POM_ALI
OPPOM_ORD
AVPOM_VETA
SPOM_FILT
SMMCOLOR
PEPOM_OBR
PEN_LMEZ
EN_PMEZ
ATN_HMEZ
TN_DMEZ
N_PROM
N_HOD
PN_POC
OPN_TEXT
REN_HLAV
REN_RAD1
OSN_RAD2
OSN_RAD3
SN_RAD
N_NVYH
N_CCUR
_OPP_TARIF
OPZOBR_NAP
MOD_FUN
VDEJ_STAV
POM_VYPSATC1_NORMY
S_KUS_H
NORMY
EPOM_NH
M_VYPSAT
colorz
&pom_Bar
@ pom_R,1  say &pom_Soub..Oper
@ pom_R,5  say &pom_Soub..Nazev_Op
@ pom_R,17 say &pom_Soub..DOp
@ pom_R,22 say &pom_Soub..Prac
@ pom_R,29 say &pom_Soub..PTr
@ pom_R,32 say &pom_Soub..Norm
@ pom_R,35+pom_Sl say &pom_Soub..TBc
if Kooperace(&pom_Soub..DOp,.f.)
@ pom_R,40+pom_Sl say &pom_Soub..Kooperace
@ pom_R,40+pom_Sl say &pom_Soub..TAc
@ pom_R,51 say &pom_Soub..Nc
@ pom_R,58 say &pom_Soub..Predpis   
@ pom_R,35 say &pom_Soub..NH_Tis pict "99999.99"
@ pom_R,60 say &pom_Soub..Predpis size 1,8  
@ pom_R,69 say str(&pom_Soub..KcsBc + &pom_Soub..KcsAc,10,4)
POM_R
PSATPOM_BAR
TPOM_SOUB
SMMCOLOR
SPOM_NH
colorz
&barvau
@ x,17 say &pom_Soub..DOp
@ x,22 say &pom_Soub..Prac
@ x,29 say &pom_Soub..Ptr
@ x,35+pom_Sl say &pom_Soub..TBc
if Kooperace(&pom_Soub..DOp,.f.)
PALVF
@ x,40+pom_Sl say &pom_Soub..TAc
@x,51 say iif(&pom_Soub..TAc=0,str(0,6,1),str(round(60/&pom_Soub..TAc,1),6,1))
@ x,40+pom_Sl say &pom_Soub..Kooperace
@ x,51 say &pom_Soub..Nc
@ x,40+pom_Sl say &pom_Soub..TAc
@ x,51 say iif(&pom_Soub..TAc=0, str(0,6,1), str(round(60/&pom_Soub..TAc,1),6,1))
POM_SOUB
TMMCOLOR
TW_AKT
SID_ORG
SPOM_NH
use in &pom_Soub
use &pom_Soub exclu
pom_Hodn =&pom_Soub..Ident
pom_Hodn
n_hod  ="&pom_Soub..Ident"
ehled rozpisek 
Identifikace  N
zev polo
ky              K
n_rad  ="&pom_Soub..Ident + space(2) + &pom_Soub..Nazev + space(2) + &pom_Soub..Kod_Pol + space(2)"
 Zadejte identifikaci: 
Mod_Fun
use in &pom_Soub
POM_SOUB
TIDENT
TN_LMEZ
SN_PMEZ
SN_HMEZ
PEN_DMEZ
EN_PROM
EN_POC
PSATN_TEXT
SATN_HLAV
N_NVYH
N_CCUR
PZOBR_NAP
PMOD_FUN
POM_POST
TPOSTUP
TSPOCTI_SUMDET_OPER
ZMENYD
HLAVD
PROCD
ZMEND
MENUD
NAPOVD
KONTRD
VYPOCET
VYPIS_SUM
SPOCTI_SUM
DEJ_STAV
OPRAV_OBR
PREP_OPER
PROCENTA
KOOPERACE
TPVCHYBA
ZOBR_OPER
ZOBR_POSTU
HLED_POST
PREP_NORVS
PREP_NH
CELKEM_KC
KOP_OPER
HLASKA
ZOBR_TARIF
PREP_NH
1veta
OPRAV_1OPE
ZOBR_ROZP
SPOCTI_TIS
P:\IN\SK\
S01_PROC.FXP
P:\IN\SK\S01_PROC.PRG