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

MS Visual FoxPro App | 1997-01-23 | 13KB | 364 lines

KONEC
****MOD68GX
ehledy
prehl
mod68g
mod68gd
ehled  v
platn
ch  skupin
RIIS 6.8
m6_zam
jmeno
v1_str
x1_str
p_prist
xp_prist
m6_skup
skup_vypl
Skupina
' '+skup_vypl+'    '
skup_vypl
zev skupiny
nazev
nazev
poznamka
poznamka
Dat.akt.
tran(dat_akt,'@E')
dat_akt
Autor
autor
autor
Aktual
aktual
aktual
POLEX
****FREEZE
**RTOP
*****RBOT
*****CLEFT
****CRIGHT
rocF1
e zmen1F2
rameterF3
do cF4
case qF5
   @ 1F6
 &vloz F7
le(1) pF8
re '@!XF9
&& skupF10
   if F10_JM
sayF10PRG
n(lPROCX
rim(ENTER
1)))DETAIL
   DET_JM
   RAMECEK
enNAZEVT
casRIIS
NADPIS
32 LEVA
w_polPRAVA
cturHOR
'  && DOL
caseM6_ZAM
 JMENO
32 &V1_STR
oleX1_STR
ureP_PRIST
& XP_PRIST
eM6_SKUP
f SKUP_VYPL
updatHODN
  w_I
 = mMOD_PSV
P_PRIST
**PRIHLAS
**MOD_SYS
**M6_SKUP
**NOVY_Z
**OPRAVA
rocPS_RETURN
W_POLE
RIIS 6.8
imu v
ru nelze prov
t opravy z
imu t
 nelze prov
t opravy z
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
CPODMV
**CPODMS
**ANSI
**W_POLE
**JMENO_C
**WJMENO_C
cRADEK_C
SLOUPEC_C
do cQ1
case qQ2
   @ 1Q3
 &vloz Q4
le(1) pQ5
re '@!XQ6
&& skupQ7
   if Q8
sayQ9
n(lQ10
rim(Q11
1)))Q12
   Q13
   Q14
enQ15
casQ16
32 Q18
w_polQ19
cturQ20
'  && Q21
caseQ22
32 &CISELNIK
ureDOL
& POCET
eDOP1
f DOP2
updatCOUNT
  w_ZAKAZNIK
mPOMOC
(6) RAD
rePOC
*****KONTROLA
*BARVAS
pBARVAR
 zmBARVAZ
whiBARVAU
BARVAN
BARVAH
f aBARVA
    KS
M6_SKUP
 cMENU
PORADI
   KONEC
     tX
     R
ase x<Z
     U
    x=hoT
        Q
 t=t-1
      enNOVY_Z
   ZMENY
&barva
 Aktualizace skupin v
plat
Skupina
Autor z
znamu
Aktualizoval
Datum aktualizace
W_POLE
@ 13,32 &vloz w_pole(1) picture '@!X'
@ 14,32 &vloz w_pole(2) picture '@X'
@ 15,32 &vloz w_pole(3) picture '@X'
**W_POLE
ENO_C
ENO_C
MM_AUTOR
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
**DOL
case qJ
   @ 1NOVY_Z
oz W_POLE
) pPROC1
'@!XQ1
&& skupQ2
   if Q3
sayPOCET
rim(K_UDAJU
))OK_C
   AUTOR
   MM_AUTOR
nAKTUAL
casDAT_AKT
32 POM
_pol(
Skupina v
plat mus
t vypln
Skupina ji
 existuje
**W_POLE
**TXT
**HLASKA
colora
set color to &color
**COLOR
**OBR
      -
                 - ^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
Konec
colorz
 Seznam zam
stnanc
 Seznam st
edisek
 Konec
set color to
**MCOLOR
**VOLBA
**ZOBR_ZZ
**ZOBR_SS
**BARVA
c6_zam
c6_zam
znam neexistuje
ehled  z a m
 s t n a n c
RIIS 6.2
mod68g
Zadejte: Osob.
prijmeni
prijmeni
jmeno
jmeno
Titul
titul
titul
left(rodne_cis,6)+'/'+right(rodne_cis,4)
rodne_cis
evid_stav
evid_stav
M6_ZAM
**C6_ZAM
**SKUP_VYPL
M6_SKUP
**JMENO
cHLASKA
PS_LINE
POLEX
o cPROCX
se qRTOP
  @ 1RBOT
oz CLEFT
) pCRIGHT
@!XFREEZE
kupORDER
 if ZAHL
sayHODN
n(lTITLE
rim(TITLECOLORF1
   F3
AUTOR
casF6
32 F9
_polF10
urDETAIL
&& F1PRG
caseF4_JM
 F4PRG
32 &F7_JM
eF7PRG
ureF9KEY
& F10_JM
eF10PRG
f DET_JM
DETPRG
datRAMECEK
w_NAZEVT
mRIIS
) MOD_PSV
ePS_RETURN
c1_str
c1_str
znam neexistuje
ehled  s t
 e d i s e k
RIIS 6.2
Zadejte: Osob.
edisko
'      '+nstr
zev st
ediska
nazev_str
nazev_str
V1_STR
**C1_STR
**SKUP_VYPL
M6_SKUP
**TXT
HLASKA
cPS_LINE
POLEX
PROCX
o cRTOP
se qRBOT
  @ 1CLEFT
oz CRIGHT
) pFREEZE
@!XORDER
kupZAHL
 if JMENO
sayHODN
n(lTITLE
rim(TITLECOLORF1
   F3
AUTOR
casF6
32 F9
_polF10
urDETAIL
&& F1PRG
caseF4_JM
 F4PRG
32 &F7_JM
eF7PRG
ureF9KEY
& F10_JM
eF10PRG
f DET_JM
DETPRG
datRAMECEK
w_NAZEVT
mRIIS
  OBSAHX
) ENTER
MOD_PSV
**PS_RETURN
MOD68GX
MOD68GD
OPRAVA
PORADI
PROC1

ZMEN1
davan2
ZMENY
K_UDAJU
HLASKA
&  vJ
O &F10c
PREHL
ZOBR_ZZ
ZOBR_SS
L:\OBEC\06\
MOD68G.FXP
L:\OBEC\06\MOD68G.PRG