Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/10/S1009H.FXP

MS Visual FoxPro App | 1999-01-05 | 21KB | 546 lines

m_Param
s2_Hydr
s2_HydrP
Tisk_Volba
Zadejte identifikaci hydr.za
Aktual
Aktual
s1009h
RIIS 1
 e h l e d
ku hydraul.za
Hydraul.za
Nazev
Nazev
e - FPOM_VHYDR
POM_PODNIKM_PARAM
FIRMA
DNIKS2_HYDR
  HYDR
ontroS2_HYDRP
 POLEX
pom_PROCX
    RTOP
  endCLEFT
    CRIGHT
pisFREEZE
ORDER
 y =HOR
      DOL
 c2_HyLEVA
     PRAVA
ty(cNADPIS
PorZAHL
    JMENO
do PHODN
 SOUC
 endiPSOUC
   sTITLE
to uTITLECOLORPOC0
 storF0
r to x,F1
       F2
  do PrF4
       F6
Hlav2
   do PF9
      F10
Menu2
F0PRG
   F1ON
* posF1PRG
vo, F4_JM
sF4PRG
  TISKPRG
inF7_JM
 1, F7PRG
, 27F9PRG
y=="F9KEY
    F9KEY1
et&F10_JM
recF10PRG
   RAMECEK
o RIIS
  NAZEVT
 ifKLICO
m_KoKLNAZ
    SPACEBAR
pTR_HL1
   TR_HL2
   TR_HL3
  TR_HL4
 q TR_HL5
   TR_HL6
 TR_HL7
  zTR_HL8
   TR_HL9
DET_JM
   ENTER
    DETAIL
   DETPRG
if PS_LINE
  PS_RETURN
PS_ZAZN
9MOD_PSV
  OBSAH
s01_Proc
znamem se pracuje, nelze aktualizovat.
POM_OBR
 FS2_HYDR
ODNIKHLASKA
S01_PROC
KZMEN_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
set color to w+/n
A k t u a l i z a c e   hydraul.za
RIIS 1
c2_HydrP
c2_HydrP
c2_HydrP+
c2_HydrP
POM_VETA
FPOM_PROM
BARVAS
KBARVAR
BARVAZ
KBARVAU
 BARVAN
roBARVAT
 BARVAH
om_BARVAP
   BARVA
  endQ2
    Q3
pisQ4
 y =Q
      ZMENA1
_HyZMENA2
   POM_KONTR
POM_KONEC
NOVY_Z1
  NOVY_Z2
 PHOR
 endiPOCET1
  sPOCET2
o uPOMOC
 storRAD
 to x,SL
       POC
  S2_HYDR
PrW_HYDR
  HYDR
 W_NAZEV
 PNAZEV
    C2_HYDRP
S2_HYDRP
 AUTOR
sMM_AUTOR
 AKTUAL
sDAT_AKT
 HLAV1
inMENU1
 1, PROC1
, 27HLAV2
y=="U
_HYDRP
et&PROC2
recZMENY
PS_RETURN
NEXIT
&barvah
- ^PgDn
- ^Home
- F10
- ^End,Esc
&barvap
Pohyb
Parametry
st par.
Konec
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
Hydr.za
zev    :
&barvau
M_VETA
&barvau
&barvas
&barvau
M_VETA
FW_HYDR
W_NAZEV
&barvau
if q>pocet&y
q =pocet&y
if novy_Z&y
pocet&y =2
pocet&y =1
@ 4,13 &vloz w_Hydr   pict "@!X"
@ 5,13 &vloz w_Nazev
Zmena&y =.t.
s01_Proc
 Duplicitn
 identifikace hydr.za
FPOM_VETA
KW_HYDR
 HLASKA
oS01_PROC
_VETA
_S2_HYDR
 HYDR
&barvah
      -
,PgDn,PgUp
                 - ^PgUp,^PgDn
                 - ^Home
      - ^End,Esc
&barvap
Pohyb
Konec
&barvau
&barvas
&barvaz
&barvar
 Parametry
&barvan
Hodnota
&barvau
POM_TEXT
M_VETA
&barvau
&barvas
M_TEXT
_VETA
M_TEXT
KC2_HYDRP
 PORADI_P
oNAZEV_P
 HODNOTA
_MJ_P
 POZN_P
&barvau
pocet&y =4
if q>pocet&y
q =pocet&y
@ x,5  &vloz c2_HydrP.Nazev_P
@ x,31 &vloz c2_HydrP.Hodnota
@ x,38 &vloz c2_HydrP.MJ_P
@ x,49 &vloz c2_HydrP.Pozn_P
Zmena&y =.t.
_VETA
_TEXT
_HYDRP
RADI_P
oAKTUAL
 MM_AUTOR
_DAT_AKT
do Proc&y
do Zmen&y with "get"
do Zmen&y with "say"
if q=pocet&y and z<reccount()
if q<pocet&y and i#55
q =pocet&y
Zmena&y =.t.
novy_Z&y =.t.
Zmena&y  =.t.
novy_Z&y =.t.
Zmena&y  =.t.
Zmena&y  =.t.
novy_Z&y =.t.
colorz
Opravdu zru
it tento z
znam? (A/N)
if novy_Z&y =.t.
novy_Z&y =.f.
c2_HydrP
c2_HydrP+
c2_HydrP
if q<pocet&y
q =pocet&y
it pr
ci beze zm
n? (a/N)
POM_OBR
FMMCOLOR
_TEXT
RADI_P
 POM_KONEC
    LK
pisPOMOC
 y =Y
      VZOREK
_HyKONTROLA
 POM_KONTR
ZAPIS
C2_HYDRP
 PORADI_P
PPREPOC_PORQ
 endiHLAV1
  sPROC1
o uHLAV2
PROC2
storMENU2
o x,HYDR
S2_HYDR
  AUTOR
PrMM_AUTOR
 AKTUAL
 DAT_AKT
PW_HYDR
W_NAZEV
NAZEV
ORS2_HYDRP
 ZMENA1
ZMENA2
 NOVY_Z1
s01_Proc
 identifikace hydraul. za
s01_Proc
 Duplicitn
 identifikace hydr.za
s01_Proc
zev.
POM_VETA
FPOM_KONTR
_TEXT
KW_HYDR
HLASKA
KS01_PROC
RADI_P
 S2_HYDR
W_NAZEV
_PROC
c2_HydrP
Zmena&y =.f.
POM_OBR
FMOD_SYS
ZMENA1
KS2_HYDR
KW_HYDR
 S2_HYDRP
oC2_HYDRP
NAZEV
 W_NAZEV
NOVY_Z1
AUTOR
    MM_AUTOR
sAKTUAL
DAT_AKT
=ZMENA2
   PORADI_P
s01_Proc
POM_VETA
PORADI_P
KDEJ_STAV
S01_PROC
filterz
colorz
 Hydr.za
 navedeny parametry. P
epsat ? (a/N):
s01_Proc
POM_KOP
FPOM_ALI
POM_ORD
KPOM_VETA
POM_FILT
KMMCOLOR
 POM_OBR
oZOBR_HYDR
POM_VHYDR
C2_HYDRP
 KOP_HYDR
_HYDRP
    HOR
sPROC2
S2_HYDR
=ZMENA2
  DEJ_STAV
yS01_PROC
filterz
colorz
pom_Pom
pom_Pom
pom_Pom
pom_VHydr
ehled hydraul.za
 Hydraul. N
Hydr+' '+Nazev
Mod_Fun
s01_Proc
POM_ALI
FPOM_ORD
POM_VETA
KPOM_FILT
MMCOLOR
KPOM_OBR
 POM_VETAH
POM_POM
S2_HYDR
 W_HYDR
POM_VHYDR
N_LMEZ
   N_PMEZ
sN_HMEZ
N_DMEZ
=N_PROM
  N_HOD
yN_POC
 N_TEXT
N_HLAV
N_RAD
 ZOBR_NAP
PMOD_FUN
ORDEJ_STAV
iS01_PROC
filterz
c2_HydrP
c2_HydrP
c2_HydrP+
c2_HydrP
s01_Proc
POM_ALI
FPOM_ORD
POM_VETA
KPOM_FILT
C2_HYDRP
KS2_HYDRP
 POM_VHYDR
S2_HYDR
 AUTOR
MM_AUTOR
AKTUAL
 DAT_AKT
sNOVY_Z2
DEJ_STAV
=S01_PROC
 Tisk p
ehledu
 Tisk hydr.za
 Konec
Mod_Psv
POM_VETA
FPOM_OBR
POM_VOL
KTISK
MOD_PSV
KTISK_HYDR
pom_Ozn
c2_Pom
c_Oznac.dbf2
c_Oznac
s01_Proc
 Nelze tisknout, nebyly vybr
daje.
s01_Proc
 Prob
prava dat ...
pom_Ozn
pom_Ozn
pom_Ozn
s2_HydrP
c2_Pom
Mod_Lib
Mod_Lib
c_Oznac.dbf
s01_Proc
 Prob
 tisk ...
Mod_Lib
s1009h
s1009h(!9
c_Oznac.dbf
POM_RADEK
POM_VETA
POM_OBR
KPOM_OZN
C2_POM
KHLASKA
S01_PROC
C_OZNAC
ZAZNAM
 HYDR
NAZEV
S2_HYDRP
 PORADI_P
sNAZEV_P
HODNOTA
=MJ_P
 POZN_P
yAUTOR
 AKTUAL
DAT_AKT
 P_SETUP
PP_RESET
ORP_6LPI
iP_8LPI
sP_10CPI
uP_12CPI
P_16CPI
orP_20CPI
x,P_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
 P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
 P_SUBOFF
RP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
inP_COMPRESSP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
MOD_LIB
W_TISK
NASTAV_PRNMODTESTT
 NTRGPZAZ
  S2_HYDR
  PS_RETURN
MOD_SYS
 NASTAV_REPS1009H
 S1009H
    %
AKTUAL
ZMEN_TXT
MENU1
HLAV1
f
PROC1
ZMEN1
MENU2
c2_Hy5
HLAV2

PROC2
  sel{
ZMEN2

ZMENY
   do
KONTROLA
ZAPIS
     R4
PREPOC_POR
VZOREK
   s}7
ZOBR_HYDR
KOP_HYDR
TISK_VOLBA
TISK_HYDR
Z:\RIIS\
S1009H.FXP
Z:\RIIS\S1009H.PRG