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

MS Visual FoxPro App | 1998-12-17 | 38KB | 797 lines

m_param
 e h l e d
robkov
RIIS 7.5
s135c
Zadejte
funkce
Funkce
Aktual
aktual
p1_rada
xp1_rada
p1_chvr
'    '+rada
zev v
nazev
nazev
Specifikace
specif
specif
M_PARAM
_cAKTUD
   zPOLE1
CENUD
elecPOLEX
 FREEZE
eteLEVA
 skipPRAVA
if eHOR
      DOL
 bottoRAMECEK
ndNAZEVT
   RIIS
a = rNADPIS
  wPROCX
= naF1
      wF2
cif = sF3
     F4
     i=F6
     z=F7
    x=hF9
     ifF9KEY
    F10
turnF10PRG
  F10_JM
 DETAIL
   DET_JM
 naENTER
novyP1_RADA
  XP1_RADA
1P1_CHVR
  RADA
     ZAHL
_cJMENO
   sHODN
radaI
    MOD_PSV
 OBSAH
 cop
_cZMEN_TXT
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+/w
set color to w/n
A k t u a l i z a c e   v
robkov
RIIS 7.5
m1_plur
m1_plur
m1_ceur
m1_ceur
c1_chvr
c1_chvr+
c1_chvr
N_TXT
elecQ5
eteZMENA1
kipZMENA2
f eKONTROLA
 KONEC
ottoHOR
ndDOL
   POCET
 = rBARVA
  wRADEK_C
naSLOUPEC_C
f = sPOMOC
    Y
     i=RAD
    z=SL
    x=hPOC
    ifBARVAS
   BARVAR
urnBARVAZ
  BARVAU
 BARVAN
   BARVAT
 naBARVAH
ovyM1_PLUR
  ZAV_PLUR
1RADA
  M1_CEUR
 ZAV_CEUR
cP1_RADA
sNOVY_ZH
daW_RADA
  W_NAZEV
 NAZEV
 copW_SPECIF
cSPECIF
   P1_CHVR
  C1_CHVR
 tNOVY_Z
 wPOCET1
adPOCET2
adaHLAV1
endiMENU1
   PROC1
    HLAV2
_CHVR
r excl
 PROC2
    ZMENY
t p1PS_RETURN
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
zev      :
Specifikace:
&barvau
&barvau
&barvas
&barvau
_cW_RADA
zW_NAZEV
W_SPECIF
@ 4,12 &vloz w_Rada   pict '@!X'
@ 4,33 &vloz w_Nazev
@ 5,33 &vloz w_Specif
zPOCET1
NOVY_ZH
eteQ3
kipZMENA1
&barvas
&barvau
&barvar
&barvaz
   Hodnota
 Toler+
 Toler-
&barvat
&barvau
&barvas
&barvau
VY_ZH
 PORADI_H
eOZNAC_H
ipNAZEV_H
 eHODNOTA
 TOLER_P
toTOLER_M
ndMJ_H
&barvau
@ x,5 &vloz c1_ChVR.Oznac_H
@ x,10 &vloz c1_ChVR.Nazev_H
@ x,36 &vloz c1_ChVR.Hodnota
@ x,47 &vloz c1_ChVR.Toler_P
@ x,55 &vloz c1_ChVR.Toler_M
@ x,63 &vloz c1_ChVR.MJ_H
zPOCET2
ADI_H
LER_P
toAKTUAL
ndMM_AUTOR
 DAT_AKT
 rZMENA2
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
c1_chvr
c1_chvr+
c1_chvr
it pr
ci beze zm
n? (a/N)
ADI_H
eKONEC
ipDOL
LER_P
AUTOR
 POMOC
 rOBR
naKONTROLA
ZAPIS
sC1_CHVR
  PORADI_H
=PREPOC_PORQ
    x=hHLAV1
  ifPROC1
   HLAV2
urnPROC2
  MENU2
 POCET2
   ZMENA2
aRADA
RP1_RADA
  AUTOR
1MM_AUTOR
 AKTUAL
 DAT_AKT
cNOVY_Z
PORZMENA1
RNOVY_ZH
  W_RADA
 W_NAZEV
opNAZEV
cW_SPECIF
 SPECIF
  M1_PLUR
ORM1_CEUR
 wP1_CHVR
adMOD1
aPOCET1
diPOM
ST_ZAZ
_cALL
zPORADI_H
  Prob
 definice v
kazu ...
  Prob
 definice v
kazu ...
c1_chvr
ZAPIS
_cMOD_SYS
RADI_H
ZMENA1
cP1_RADA
 RADA
eW_RADA
ipMESS
 eP1_CHVR
 C1_CHVR
toALL
ndNAZEV
 W_NAZEV
 rSPECIF
  wW_SPECIF
aZMENA2
PORADI_H
Duplicitn
 hodnota ozna
Duplicitn
 hodnota ozna
KONTROLA
NTROLA
zW_RADA
HLASKA
_RADA
ipW_NAZEV
 POM_VETA
oPOM_HODN
dC1_CHVR
 OZNAC_H
colora
set color to &color
cCOLOR
colora
set color to &color
cCOLOR
      -
                 - ^PgUp,^PgDn
      - charakteristiky
                 - ^Home
      - ^End,Esc
Pohyb
Konec
      -
,PgDn,PgUp
                 - ^PgUp,^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
Konec
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
set color to w+/w
novac
daje
 Cenov
daje
 Konec
ESPOF
novac
daje
 Konec
ESPOF
W_RADA
cRADA
zBARVAS
BARVAR
cBARVAZ
 BARVAU
eBARVAN
ipBARVAH
 eBARVAT
_VETA
oCENUD
 PODNIK
 rW_TECHP
wMOD_SYS
aNEA_OKNO
PLAN_UD
sCEN_UD
 PS_RETURN
P1_RADA
FFFZ^D
m_dat
m_dat
x_dat
m_cis1
m_cis1
x_cis1
v1_str
v1_str
x1_str
m1_plur
m1_plur
c1_plur+
c1_plur
c1_plur
c1_plur
&barva
novac
daje
&barvau
select &st_sel
 rQ14
ETURN
ORQ21
=hQ22
  ifQ23
   Q24
urnQ25
  Q26
   Q28
  Q31
 POCET3
cJMENO_C
ORWJMENO_C
RRADEK_C
  SLOUPEC_C
opNOVY_ZP
cZMENA3
 KONEC3
  POMOC3
VY_ZP
 wRAD
diBARVA
   BARVAZ
 ST_SEL
  ZAV_DAT
1_M_DAT
 X_DAT
    ZAV_CIS1
1M_CIS1
X_CIS1
 doZAV_STR
 V1_STR
X1_STR
 hlM1_PLUR
 *ZAV_PLUR
eRADA
W_RADA
eC1_PLUR
  TV_ZAK
=hoKOD_KALK
 MJ_VAHY
  AUTOR
 AKTUAL
   DAT_AKT
p1TYP_INV
  MM_AUTOR
=BARVAS
PPORADI
se inlisR
5,271,Z
,5,261U
nd y='1'T
    if qQ
   q=q+1ZMENY2
ZS/KMD
Autor
Doba dod.
Doba pr.
Doba v
Metoda TZ
Proc.zmetk
Hromadn
Min.doba
Min.vel.
Poj.z
.pev.zak.
Max.doba
Max.vel.
sob.mno
Kalk.vzorec
Klas.z
MJ hmotnosti
Disp.doba
Typ rozm
MJ rozm
Typ inventury
Hlavn
 sklad
Hlavn
 skl. um.
MJ pl
Koef.
Sek.ident.
9999999
9999999.9
9999999.9
9999999
9999999
9999999
9999999
9999999
9999999.999
999999.9999
ZS_KMD
cAKTUAL
zDAT_AKT
AUTOR
cDOD_DOBA
 PR_DOBA
eVYR_DOBA
 ePRIP_CAS
 TV_ZAK
oPROC_ZMET
KUM_VYDEJ
MD_MZ
 rMIN_ZAK
wPOZA
aMN_PZAK
MAX_DNU
sMAX_ZAK
 NAS_MNOZ
KOD_KALK
RN_OP
=hN_PRI
  ifKLAS_ZAS
 MJ_VAHY
rnDISP_DOBA
TYP_ROZM
 MJ_ROZM
  TYP_INV
aSKL_HLAVNISKL_HL_UM
1PLAN_MJ
 KOEF
 SEK_IDENT
&barvau
@ 8,12 &vloz zs_kmd pict '!!!!'
@ 10,12 &vloz dod_doba pict '9999'
@ 10,48 &vloz pr_doba pict '9999999'
@ 10,69 &vloz vyr_doba pict '9999999.9'
@ 11,16 &vloz zz pict '!'
@ 11,46 &vloz prip_cas pict '9999999.9'
@ 13,14 &vloz tv_zak pict '!'
@ 13,29 &vloz proc_zmet pict '99.9'
@ 13,77 &vloz kum_vydej pict '!X'
@15,12 &vloz md_mz pict '999'
@ 15,26 &vloz min_zak pict '9999999'
@ 15,48 &vloz poza pict '9999999'
@ 15,71 &vloz mn_pzak pict '9999999'
@ 16,12 &vloz max_dnu pict '999'
@16,26 &vloz max_zak pict '9999999'
@ 16,48 &vloz nas_mnoz pict '9999999'
@18,14 &vloz kod_kalk pict '!'
@ 18,30 &vloz n_op pict '999'
@ 18,44 &vloz n_pri pict '9999999.999'
@20,14 &vloz klas_zas pict '!'
@ 20,30 &vloz mj_vahy pict '!!!'
@ 21,12 &vloz disp_doba pict '999'
@ 22,14 &vloz typ_rozm pict '!'
@ 22,30 &vloz mj_rozm pict '!!!'
@ 23,13 &vloz plan_mj pict '!!!'
@ 23,23 &vloz koef pict '999999.9999'
@ 20,53 &vloz typ_inv pict '@!X'
@ 21,51 &vloz skl_hlavni
@ 22,51 &vloz skl_hl_um
@ 21,57 &vloz SKP
@ 23,57 &vloz Sek_Ident
zAKTUAL
MM_AUTOR
cDAT_AKT
 ZMENA3
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
EUTIT
EUTIT
it pr
ci beze zm
n? (a/N)
KONEC3
_AUTOR
IP_CAS
OC_ZMET
_VYDEJ
 rOBR
wMENU3
aNAPOVEDA
X_DNU
sPOCET3
 POCET4
C1_CEUR
RZMENA3
=hCHYBA
  ifULOZ_PL
 PODNIK
rnW_RADA
W_CENAR
 CEN_EUCOR
CEN_CEDIC
NICEN_REZ
AUTOR
1MM_AUTOR
 AKTUAL
 DAT_AKT
NOVY_ZC
ORPOM
NOVY_ZP
  K_UDAJU
c1_plur
c1_ceur
CHYBA
zZMENA3
M1_PLUR
cW_RADA
 RADA
eC1_PLUR
pM1_CEUR
 eC1_CEUR
Kmenov
lna neexistuje
ZS_KMD
w_str
sob z
t V nebo N
TV_ZAK
w_tvzak
KOD_KALK
w_kalk
KLAS_ZAS
w_klas
MJ
 Typ rozm
ru: S -
ka nebo P - pr
MJ
cZS_KMD
V1_STR
cC1_PLUR
_PLUR
 eHLASKA
 W_STR
oJMENO_C
WJMENO_C
MOD_C2
 rRADEK_C
wSLOUPEC_C
MOD_C1
W_TVZAK
sTV_ZAK
 W_KALK
KOD_KALK
RW_KLAS
KLAS_ZAS
fW_MJ
MJ_VAHY
rnTYP_ROZM
PLAN_MJ
&barvah
           -
           - ^End,Esc
           - F8
Pohyb
Konec
&barvau
mod_proc
ZS_KMD
w_str
sob z
t V nebo N
TV_ZAK
w_tvzak
KOD_KALK
w_kalk
KLAS_ZAS
w_klas
MJ
 Typ rozm
ru: S -
ka nebo P - pr
MJ
 U tohoto
daje nen
mod_fun
zW_STR
C1_PLUR
cZS_KMD
 ZOBR_STR
eMOD_PROC
pZMENA3
 JMENO_C
oWJMENO_C
RADEK_C
SLOUPEC_C
MOD_C1
HLASKA
W_TVZAK
sTV_ZAK
 W_KALK
KOD_KALK
RW_KLAS
KLAS_ZAS
fW_MJ
MJ_VAHY
rnPLAN_MJ
MOD_FUN
RIIS 7.5
&barvas
&barvar
&barvat
zev      :
Specifikace:
&barvas
P1_RADA
cRADA
zNAZEV
SPECIF
ffffff
FFFZ^D
m1_ceur
m1_ceur
c1_ceur+
c1_ceur
c1_ceur
EUTIT
c1_ceur
c1_ceur
select &st_sel
CEN_EUCOR
CEN_CEDIC
R_STR
_PROC
ENO_C
PEC_C
rnQ22
CEDIC
NIDOL
POCET4
1NOVY_ZC
 ZMENA3
 KONEC3
POMOC4
VY_ZC
VY_ZP
UDAJU
 wBARVA
adBARVAZ
aST_SEL
diM1_CEUR
  ZAV_CEUR
 RADA
  W_RADA
_C1_CEUR
 PODNIK
  W_CENAR
1CEN_REZ
AUTOR
 doAKTUAL
 DAT_AKT
MM_AUTOR
lHLAV4
*PROC4
eMENU4
ZMENY2
&barvau
&barvaz
 Cenov
daje
Hmotnost OD
Hmotnost DO
 Cena/kg
Cena
Autor
Aktual
Dat.akt.
&barvau
WTEXT
&barvau
9999.999
9999.999
99999.99
99999.99
cHM_OD
 HM_DO
eCEN_KG
pCEN_REZ
 eAUTOR
 AKTUAL
oDAT_AKT
&barvau
@ x,5 &vloz Hm_Od pict '9999.999'
@ x,19 &vloz Hm_Do pict '9999.999'
@ x,29 &vloz Cen_Kg pict '99999.99'
@ x,39 &vloz Cen_Rez pict '99999.99'
POCET4
cAKTUAL
 MM_AUTOR
eDAT_AKT
pZMENA3
      -
,PgDn,PgUp
                 - ^PgUp,^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
Konec
AKTUAL
****n
ZMEN_TXT
HLAV1
*****
PROC1
e zmef
ZMEN1
uncti
HLAV2
PROC2
ZMEN2
ZMENY
konec
PREPOC_POR
ZAPIS
    s*
KONTROLA
HLASKA

MENU1

MENU2

FUNKCE
=hor:5
PLAN_UD
 t=Y:
PORADI
PROC3
     $G
ZMEN3
     jL
ZMENY2
    vS
ULOZ_PL
   ;b
K_UDAJU
lsejc
MENU3
NAPOVEDA
NEA_OKNO
CEN_UD
HLAV4
PROC4
y witk{
ZMEN4
 set
MENU4
   reo
X:\OBEC\01\
S135C.FXP
X:\OBEC\01\S135C.PRG