toto
slemU
sledn
y '+ltriT
tr(cis_zA
y,3))
q = 10
 a = 88
 selectQ2
*   retQ3
*endifQ4
*selecQ5
*replaQ6
atum_odQ7
h m1_zmQ8
pl_od
k_c = 'Q10
eturn
******Q12
******Q13
******Q14
******Q15
******Q16
ure naQ18
q1 Q19
q2 = 2Q20
q5 =Q22
6 = 6
q8NASTAV_Q
 M1_IDENT
W_IDENT
V_UROVEN
q1ZMENY
q16KONEC
q17 MOD_SYS
kladn
daje 
daje struktury 
 Detail komponenty 
Aktualiz. :
Autor     :               DS :
zev     :
Postup    :               KP :
Model     :               MJ :
Sek.ident.:               MJ :
Ext.ident.:
SKP       :
Objedn
SN   :
Typ       :
ada :               St.:
Aktualizoval :
Autor        :
Platnost od  :          do:
ny zru
Pozice       :
Op.vstupu    :
lna oper.  :
eba     :
r       :
Kusy d
d komp.    :
Objem        :
prava     :
as.posun    :
999.99
9999.9999
WTEXT
C_VYKRESU
ID_ORG
lemM1_IDENT
VYKRESU
AKTUAL
s_zDATUM
*AUTOR
a = 88
NAZEV
lectC_POSTUP
tKOD_POL
ifSEK_IDENT
*replaIDENT_ODB
 m1_zmJAK_CSN
ROZM_CSN
eturn
*****STAV
*****IDENT
*DATUM_AKT
DATUM_OD
*DATUM_DO
pC_ZM_ZRUS
C_ZM_ZRIZ
q2 = 2OP_V
qD1OP
q5 =SPOTREBA
ROZMER
q8KUSY_DE
 KOD_KOMP
0PROC_POD
OBJEM
ROVEN
qPOSUNUTI
@15,s &vloz nazev
@16,s &vloz c_postup pict '@9'
@ 16,s+19 &vloz kod_pol pict '!'
mod_proc
mod_proc
MNTUXYZ
@17,s &vloz sek_ident  pict '@9'
@17,s+19 &vloz mj  pict '@!X'
@18,s &vloz ident_odb pict '@X'
@19,s &vloz skp pict '@X'
@20,s &vloz jak_csn pict '@X'
@21,s &vloz rozm_csn pict '@X'
@22,s &vloz typ pict '@X'
@23,s &vloz rada pict 'XXXX'
@23,s+19 &vloz stav pict 'XXX'
@16,s &vloz poz pict '999'
@17,s &vloz op_v
@18,s &vloz d1op pict '9999'
@19,s &vloz spotreba
@20,s &vloz rozmer pict '@!'
@21,s &vloz kusy_de
@22,s &vloz pu pict '@!'
@23,s &vloz posunuti
@ 22,s &vloz kod_komp
@ 22,s+14 &vloz proc_pod pict '999.99'
@ 23,s &vloz objem pict '9999.9999'
NASTAV_Q
VYKRESU
lemM1_IDENT
IDENT
s_zPAM
*NAZEV
ZMENAV
ectC_POSTUP
fPROCD
KOD_POL
aZMEN_KP
ZMEN_KPOL
IDENT
MOD_PROC
ZALOZ_PLANRADA
*KOD_DS
V_UROVEN
pSEK_IDENT
2 = 2Q6
qIDENT_ODB
 JAK_CSN
ROZM_CSN
17 STAV
 =Q13
selPOZ
_idenZMENAS
e.iQ14
 inOP_V
1_ideQ15
ol,D1OP
','K'Q16
  pSPOTREBA
ROZMER
 0 Q18
 = KUSY_DE
2 Q19
elsQ20
cetPOSUNUTI
qKOD_KOMP
PROC_POD
 OBJEM
if  DATUM
e.cAKTUAL
*MM_AUTOR
*DATUM_AKT
HIDENT
*ZMENA
do proc&y
do zmen&y
do zmen&y
STAV_Q
VYKRESU
lemHOR
IDENT
s_zKONEC
tVLOZ
fW_AKT
D_POL
EN_KPOL
POCET
NOVY_Z
'M1_IDENT
C_VYKRESU
**DATUM_OD
*DATUM_AKT
K_UDAJU
*OK_C
KOD_POL   
m1_ident.kod_pol
Nelze nav
st, polo
ka ji
 existuje v identifikaci
ident_odb
Nelze nav
st, polo
ka ji
 existuje v extern
 identifikaci
ident
ident
FPSABCRVIOJKG
Nepovolen
d polo
ky (pouze F,P,S,A,B,C,R,V,I,O,J,K,G)
MNTUXYZ
Nepovolen
d polo
ky (pouze M,N,T,U,X,Y,Z)
MJ        
m1_ident.mj
Nebyla vypln
na pozice
Tato pozice ji
 existuje - duplicita
c_kmat
Pozice je ji
 uvedena u materi
c_kvyr
c_kvyr
c_kvyr
Pozice je ji
 uvedena ve vyr
ch sou
stech
c_kmat
c_kmat
lna operace neexistuje!
eba m
 nulovou hodnotu
W_AKT
JMENO_C
emWJMENO_C
zTYP_C
MOD_C2
s_zRADEK_C
*SLOUPEC_C
MOD_C1
tM1_IDENT
fPODNIK
aW_IDENT_ODIDENT_ODB
W2_IDENT
IDENT
'HLASKA
_ODY_PUV
_ODKOD_POL
W_POZICE
W_REC
pC_KMAT
C_KVYR
2V1_STR
qSPOTREBA
ENO_C
s_zQ7
UPEC_C
ectQ11
ENT_ODQ16
T_ODB
'M1_IDENT
DIDENT
DKOD_POL
*POCET
C_VYKRESU
MOD11A1
PROCD
,q19,<
ZMEND
2,q23
ZMENY
to q1
K_UDAJU
NASTAV_Q
W:\01\
MOD11A1.FXP
W:\01\MOD11A1.PRG