Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/04/MOD42K.FXP

MS Visual FoxPro App | 1998-07-27 | 17KB | 501 lines

v4_skl_z
x4_skl_z
m1_obr
ident
m1_ident
ident
m1_zas
x1_zas
m1_um
ident
m_dat
x_dat
m_cis1
x_cis1
v4_sklad
x4_sklad
m1_plan
x1_plan
m1_kalk
x1_kalk
v1_str
x1_str
m_param
M5_AKT.DBF2
m5_akt
ident
  Odv
 materi
lu vlastn
roby do skladu :
RIIS 5.4
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
&barvau
mod_proc
Sklad neexistuje
mod_proc
Nelze prov
jem na jin
 materi
 sklad
v4_skl_z
x4_skl_z
Pro zadan
 sklad nem
te opr
mod_proc
  .  .  #
&barvau
 sklad
vrat
 Konec
  q7=V4_SKL_Z
=X4_SKL_Z
wPRIHLAS
 pW_SKLAD
  SKLAD
    M1_OBR
   IDENT
    M1_IDENT
 M1_ZAS
   X1_ZAS
   M1_UM
    M_DAT
   eX_DAT
   iM_CIS1
 X_CIS1
oceV4_SKLAD
 X4_SKLAD
)M1_PLAN
(vX1_PLAN
M1_KALK
asX1_KALK
 pV1_STR
kodX1_STR
@ xM_PARAM
 wW_POLE1
icPOLE1
casW_POLE4
 pPOLE4
'id_POM
   @ xTER_UZAV
wW_ROK
cW_MESIC
asM5_AKT
  @Q1
vlozQ2
kut_mn Q3
 '99999Q4
   Q6
b = 'stQ7
   @ xQ8
&vloz wQ9
ed pictQ10
caseQ11
   @ Q12
&vloz Q13
zak piQ14
caQ15
   Q16
1 &vloCISELNIK
'@!X'
 POCET
6 &vDOP1
doklaDOP2
 '999POR
case qCOUNT
@ x,ZAKAZNIK
_W_IDENT
piW_KOD_OB
nW_PLAN_MN
W_ID_ZAK
nW_CPOL
d lW_ID_VYS
kW_SKUT_MN
W_VYD_SKL
W_VYD_UM
yW_VYD_TYP
W_PRI_SKL
W_PRI_UM
 W_PRI_TYP
W_ICO
e(25W_ZAVOD
1,W_NAZEV
acW_MJ
  @ xW_NAZ_ROZ
W_POPIS_OBW_STRED
 sW_DOKLAD
5W_NAKLAD
-P_ZOB
la nW_VADNE_MNMM_AUTOR
-W_JMENO
_iJMENO_C
paWJMENO_C
 OK_C
laskaRADEK_C
ybSLOUPEC_C
la polo
      qRAD
      SL
    POC
  KONTROLA
 BARVAS
 koBARVAR
a eBARVAZ
 poBARVAU
BARVAN
t mBARVAH
   BARVA
id_vZOBR_SKL
MOD_PROC
dHLASKA
DRUH_SKL
W_TERMIN
W_DAT_UCT
   PORADI
m1_KONEC
   rX
   enR
  if iZ
 = 'DUU
      iT
od_pol#'Q
       A
o hlaskaZMENY
NejeVOL11
o vyM
nou pol
&barva
&barvan
Rozpiska
Doklad
zev rozpisky
zev polo
Pohyb
Funkce
Konec
<Enter>
- ^PgDn
- F10
- Esc,^End
99999999.999
  q7=W_KOD_OB
=W_ID_VYS
wW_SKUT_MN
W_STRED
  W_ID_ZAK
 W_VYD_UM
 W_DOKLAD
 W_POPIS_OB`
kod_ob
@ x,2  &vloz w_kod_ob pict '@!X'
id_vys
@ x,6  &vloz w_id_vys pict '@!X'
@ x,19 &vloz w_skut_mn pict '99999999.999'
stred
@ x,33 &vloz w_stred pict '@!X'
@ x,39 &vloz w_id_zak pict '@!X'
@ x,51 &vloz w_vyd_um pict '@!X'
@ x,56 &vloz w_doklad pict '999999'
@ x,63 &vloz w_popis_ob pict '@!X'
Chybn
 hodnota
sla polo
Rozpiska neexistuje
Nejedn
 se o vyr
nou polo
ku aktivovanou jako MVV, k
d polo
ky =
Nejedn
 se o odlitek, k
d polo
ky =
V extern
 identifikaci rozpisky nen
 uvedena mat. polo
ka uveden
 v extern
 identifikaci neexistuje
Mat. polo
ka nen
 materi
lem vl. v
roby, k
d polo
ky =
Pro polo
ku neexistuje cena
  q7=P_ZOB
=W_KOD_OB
wPOCET
D_ZAK
YD_UM
OKLAD
OPIS_OBQ6
   Q7
   Q8
    Q
   eLK
   iX
 W_ID_VYS
eHLASKA
_SKLAD
)M1_IDENT
vM1_OBR
ID_ORG
asKOD_POL
 pW_NAZ_ROZ
NAZEV
@ xW_MJ
icW_IDENT
asIDENT_ODB
M1_PLAN
d_W_STRED
xZS_KMD
wW_POLE4
cM1_KALK
asPL_OD
 @TYP_NAKL
zIDENT
 W_NAKLAD
&barvau
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
 q7=I
KOD_OB
OPIS_OBZ
   OBR1
    LK
   eNAP_HOD
 iP_ZOB
 VOLBA
 POCET
)K_UDAJU
vKONTROLA
W_PLAN_MN
W_SKUT_MN
W_NAKLAD
W_TERMIN
xW_KOD_OB
wW_PRI_SKL
W_PRI_UM
sW_PRI_TYP
W_ICO
d_W_ZAVOD
xW_POPIS_OBW_DAT_UCT
ehled polo
 Informace o um
 Informace o obratech
ehled st
edisek
ehled k
 obrat
 Konec
mod_proc
kod_pol='B'
mod_proc
kod_pol='O'
&barvau
Chybn
 hodnota identifikace polo
mod_proc
Chybn
 hodnota identifikace polo
mod_proc
mod_proc
mod_proc
&barvau
 q7=VOL
=PODNIK
wZOBR_POL
W_ID_VYS
 W_NAZ_ROZ
 MOD_PROC
_PROC
W_IDENT
    HLASKA
 eZOBR_UM
 iZOBR_OB
 ZOBR_STR
eW_STRED
 M1_OBR
)ZOBR_OBV
vW_KOD_OB
colora
set color to &color
 q7=COLOR
KOD_OB
w_kod_ob
Chybn
d obratu, je povoleno pouze odv
 (O..)
Chybn
slo polo
Hodnota mno
t vypln
edisko mus
t uvedeno
edisko neexistuje v souboru st
edisek
zka mus
t uvedena
Nedostate
soba na um
znam
 o um
sob nen
stupn
znam
ch nen
stupn
KONTROLA
=JMENO_C
=WJMENO_C
wMOD_C2
 RADEK_C
 SLOUPEC_C
MOD_C1
IDENT
   W_KOD_OB
 HLASKA
 eW_IDENT
 iW_SKUT_MN
W_STRED
eV1_STR
 W_ID_ZAK
)W_POLE4
vM1_UM
W_VYD_SKL
W_VYD_UM
W_VYD_TYP
ZASOBA
IDENT
SKLAD
UM_SKL
TYP_UM
ZALOZ_ZAS
PRIJEM
M1_ZAS
DATUM_PRIJZAPIS_OBR
m1_obr
M1_OBR
=IDENT
=TERMIN_OB
KOD_OB
PLAN_MNOZ
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
PRIJAL_SKLPRI_UM_SKLTYP_UM_P
 POPIS_OBR
STRED_OBR
UT_MN
ZAVOD
eDOKL_CIS
 IDENT_ZAK
vIDENT_VYS
VADNE_MNOZZASOBA
NAKLAD
JMENO
MESIC
W_IDENT
W_TERMIN
W_KOD_OB
W_PLAN_MN
W_SKUT_MN
W_VYD_SKL
W_VYD_UM
W_VYD_TYP
W_PRI_SKL
W_PRI_UM
 W_PRI_TYP
W_POPIS_OBW_STRED
W_ICO
 'stW_ZAVOD
 xW_DOKLAD
wW_ID_ZAK
tW_CPOL
aseW_ID_VYS
 W_VADNE_MNM1_UM
k piW_NAKLAD
aMM_AUTOR
 W_ROK
&vloW_MESIC
 ZAPIS_AKT
M1_IDENT
6 &vM
M1_ZAS
=W_IDENT
=IDENT
SKL_HLAVNIW_VYD_SKL
SKL_HL_UM
W_VYD_UM
M5_AKT.DBF2
M5_AKT
ident
m5_akt
ident
m5_akt
select &sel
X_IDENT
=X_DS
M5_AKT
VNIIDENT
ZAVRI
DUVOD
kod_ob
KOD_OB
w_kod_ob
id_vys
mod_proc
kod_pol='B'
mod_proc
kod_pol='O'
stred
mod_proc
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
=MOD_C3
ID_ORG
VNIZOBR_POL
W_ID_VYS
W_NAZ_ROZ
_SKLMOD_PROC
D_PROC
I_UM_SKLZOBR_STR
 W_STRED
HLASKA
MOD42K
LOZE%
PORADI
------
PROC1
-----
ZMEN1
-----^
ZMENY
----->
VOLBA
HLASKA
K_UDAJU
ZAPIS_OBR
ZALOZ_ZAS
ZAPIS_AKT
NAP_HOD
X:\OBEC\04\
MOD42K.FXP
X:\OBEC\04\MOD42K.PRG