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

MS Visual FoxPro App | 1999-01-05 | 22KB | 573 lines

m_Param
s2_Prog
s2_ProgP
Tisk_Volba
Zadejte identifikaci programu:
Aktual
aktual
s1009p
RIIS 1
 e h l e d
ku program
Program
s2_Prog.Prog
s2_Prog.Prog
s2_Prog.Nazev
s2_Prog.Nazev
    *POM_VPROG
POM_PODNIKM_PARAM
FIRMA
DNIKS2_PROG
(iPROG
61) aS2_PROGP
uPOLEX
d y=PROCX
    RTOP
ontroRBOT
     CLEFT
pom_CRIGHT
   FREEZE
ORDER
 endHOR
      DOL
     iLEVA
   PRAVA
 x =NADPIS
   ZAHL
     JMENO
 =99HODN
     SOUC
    PSOUC
 TITLE
z =zTITLECOLORPOC0
     F0
    ***F1
sun dolF2
sobny F3
yt ****F4
   caseF6
ist(i, F7
60) andF9
 and y=F10
      F0PRG
ntroF1ON
     F1PRG
pom_F4_JM
    F4PRG
loopTISKPRG
enF7_JM
    F7PRG
    F9PRG
  F9KEY
  x F9KEY1
   F10_JM
   F10PRG
 =9RAMECEK
  RIIS
   NAZEVT
KLICO
 z =KLNAZ
    SPACEBAR
 TR_HL1
 **TR_HL2
 TR_HL3
HOMTR_HL4
ny TR_HL5
***TR_HL6
aseTR_HL7
i, TR_HL8
 anTR_HL9
  DET_JM
le ENTER
  DETAIL
letDETPRG
PS_LINE
acPS_RETURN
PS_ZAZN
oMOD_PSV
orOBSAH
s01_Proc
znamem se pracuje, nelze aktualizovat.
POM_OBR
 *S2_PROG
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   program
   sl
RIIS 1
c2_ProgP
c2_ProgP
c2_ProgP+
c2_ProgP
POM_VETA
*POM_PROM
BARVAS
KBARVAR
BARVAZ
KBARVAU
iBARVAN
 aBARVAT
uBARVAH
 y=BARVAP
   BARVA
ntroQ1
     Q2
pom_Q3
   Q4
 endQ
      ZMENA1
  iZMENA2
   POM_KONTR
POM_KONEC
NOVY_Z1
  NOVY_Z2
99HOR
     DOL
    POCET1
 POCET2
 =zPOMOC
     RAD
   ***SL
sun dolPOC
sobny S2_PROG
**W_PROG
sePROG
t(i, W_NAZEV
ndNAZEV
d y=C2_PROGP
 S2_PROGP
oAUTOR
 MM_AUTOR
_AKTUAL
   DAT_AKT
pHLAV1
enMENU1
    PROC1
    HLAV2
_PROGP
   PROC2
   ZMENY
PS_RETURN
NEXIT
&barvah
- ^PgDn
- ^Home
- F10
- ^End,Esc
&barvap
Pohyb
Parametry
st par.
Konec
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
Program:
zev  :
&barvau
M_VETA
&barvau
&barvas
&barvau
M_VETA
*W_PROG
W_NAZEV
&barvau
if q>pocet&y
q =pocet&y
if novy_Z&y
pocet&y =2
pocet&y =1
@ 4,12 &vloz w_Prog   pict "@!X"
@ 5,12 &vloz w_Nazev
Zmena&y =.t.
s01_Proc
 Duplicitn
 identifikace programu.
*POM_VETA
KW_PROG
iHLASKA
aS01_PROC
_VETA
=S2_PROG
 PROG
&barvah
      -
,PgDn,PgUp
                 - ^PgUp,^PgDn
                 - ^Home
      - ^End,Esc
&barvap
Pohyb
Konec
&barvau
&barvas
&barvaz
&barvar
 Parametry
&barvan
    Param.
 Toler+
 Toler-
&barvau
POM_TEXT
M_VETA
&barvau
&barvas
M_TEXT
_VETA
M_TEXT
KC2_PROGP
iPORADI_P
aOZNAC_P
uNAZEV_P
=PARAM
 TOLER_P
oTOLER_M
 MJ_P
&barvau
pocet&y =6
if q>pocet&y
q =pocet&y
@ x,5 &vloz c2_ProgP.Oznac_P pict "@!"
@ x,12 &vloz c2_ProgP.Nazev_P
@ x,38 &vloz c2_ProgP.Param
@ x,49 &vloz c2_ProgP.Toler_P
@ x,57 &vloz c2_ProgP.Toler_M
@ x,65 &vloz c2_ProgP.MJ_P
Zmena&y =.t.
_VETA
_TEXT
PROGP
ADI_P
NAC_P
ZEV_P
=AKTUAL
 MM_AUTOR
oDAT_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_ProgP
c2_ProgP+
c2_ProgP
if q<pocet&y
q =pocet&y
it pr
ci beze zm
n? (a/N)
POM_OBR
*MMCOLOR
_TEXT
ADI_P
NAC_P
uPOM_KONEC
T_AKT
   POMOC
 endY
      VZOREK
  iKONTROLA
 POM_KONTR
ZAPIS
C2_PROGP
 PORADI_P
9PREPOC_PORQ
    HLAV1
 PROC1
 =zHLAV2
PROC2
    MENU2
 ***PROG
S2_PROG
y AUTOR
**MM_AUTOR
eAKTUAL
i, DAT_AKT
dW_PROG
W_NAZEV
 NAZEV
ORS2_PROGP
_ZMENA1
ZMENA2
pNOVY_Z1
s01_Proc
 identifikace programu.
s01_Proc
 Duplicitn
 identifikace programu.
s01_Proc
zev.
s01_Proc
 Duplicitn
 hodnota ozna
s01_Proc
 Duplicitn
 hodnota ozna
POM_VETA
*POM_KONTR
_TEXT
KW_PROG
HLASKA
KS01_PROC
ADI_P
uS2_PROG
W_NAZEV
_PROC
oPOM_HODN
 C2_PROGP
_OZNAC_P
c2_ProgP
Zmena&y =.f.
POM_OBR
*MOD_SYS
ZMENA1
KS2_PROG
KW_PROG
iS2_PROGP
aC2_PROGP
NAZEV
 W_NAZEV
oNOVY_Z1
 AUTOR
_MM_AUTOR
 AKTUAL
DAT_AKT
dZMENA2
   PORADI_P
s01_Proc
POM_VETA
PORADI_P
KDEJ_STAV
S01_PROC
filterz
colorz
 Program m
 navedeny parametry. P
epsat ? (a/N):
s01_Proc
POM_KOP
*POM_ALI
POM_ORD
KPOM_VETA
POM_FILT
KMMCOLOR
iPOM_OBR
aZOBR_PROG
POM_VPROG
C2_PROGP
 PORADI_P
oKOP_PROG
_PROGP
_AUTOR
PROC2
dS2_PROG
  ZMENA2
iDEJ_STAV
 S01_PROC
filterz
colorz
pom_Pom
pom_Pom
pom_Pom
pom_VProg
ehled program
 Prog.    N
Prog+' '+Nazev
Mod_Fun
s01_Proc
POM_ALI
*POM_ORD
POM_VETA
KPOM_FILT
MMCOLOR
KPOM_OBR
iPOM_VETAH
POM_POM
S2_PROG
 W_PROG
oPOM_VPROG
N_LMEZ
_N_PMEZ
 N_HMEZ
N_DMEZ
dN_PROM
  N_HOD
iN_POC
 N_TEXT
N_HLAV
N_RAD
 ZOBR_NAP
9MOD_FUN
ORDEJ_STAV
 S01_PROC
filterz
c2_ProgP
c2_ProgP
c2_ProgP+
c2_ProgP
s01_Proc
POM_ALI
*POM_ORD
POM_VETA
KPOM_FILT
C2_PROGP
KS2_PROGP
iPOM_VPROG
S2_PROG
 AUTOR
oMM_AUTOR
AKTUAL
_DAT_AKT
 NOVY_Z2
DEJ_STAV
dS01_PROC
 Tisk p
ehledu
 Tisk program
 Konec
Mod_Psv
POM_VETA
*POM_OBR
POM_VOL
KTISK
MOD_PSV
KTISK_PROG
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_ProgP
c2_Pom
Mod_Lib
Mod_Lib
c_Oznac.dbf
s01_Proc
 Prob
 tisk ...
Mod_Lib
s1009p
s1009p(!9
c_Oznac.dbf
POM_RADEK
POM_VETA
POM_OBR
KPOM_OZN
C2_POM
KHLASKA
S01_PROC
C_OZNAC
ZAZNAM
 PROG
oNAZEV
S2_PROGP
_PORADI_P
 OZNAC_P
NAZEV_P
dPARAM
 TOLER_P
iTOLER_M
 MJ_P
AUTOR
AKTUAL
 DAT_AKT
9TISK
RP_SETUP
 P_RESET
 P_6LPI
zP_8LPI
P_10CPI
  P_12CPI
**P_16CPI
P_20CPI
y P_BOLDON
*P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
_P_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
  P_COMPRESSP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
MOD_LIB
 =W_TISK
   NASTAV_PRNMODTESTT
*NTRGPZAZ
OMS2_PROG
y PS_RETURN
MOD_SYS
eNASTAV_REPS1009P
anS1009P
d,Es%
AKTUAL
ZMEN_TXT
MENU1
ay "V
HLAV1
PROC1
ay "P
ZMEN1
@23,2g
MENU2
HLAV2
2,58
PROC2
t par
ZMEN2
say "
ZMENY
eturn
KONTROLA
ZAPIS
*****
PREPOC_POR
VZOREK
ZOBR_PROG
KOP_PROG
TISK_VOLBA
TISK_PROG
Z:\RIIS\
S1009P.FXP
Z:\RIIS\S1009P.PRG