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

MS Visual FoxPro App | 1999-04-13 | 17KB | 314 lines

set path to &f_adr,&pth, &pth\08,&pth\02,&pth\03,&pth\04,&pth\05, &pth\06,&pth\07,&pth\01,&pth\09,&pth\10,&pth\11,&pth\12,&pth\13, &f_adr\data
british
_heslof
prihlasf
CAO a.s.
UZ_ODP.MEM2
0FFF$K
FFFF$m
FFF$K
^FFFF$m
uz_odp.mem
u_mmrr
@  5,3 say ' Hospoda
 s odpady'
@  5,4 say 'H'
@  8,3 say ' Z
kladn
daje '
@  8,4 say 'Z'
@  9,3 say ' Obraty '
@  9,4 say 'O'
@ 10,3 say ' Uz
rka obdob
@ 10,14 say 'b'
@ 11,3 say ' Sklady, st
ediska '
@ 11,5 say 'k'
@ 12,3 say ' Odb
ratel
@ 12,8 say 'r'
@ 15,3 say '
@ 15,6 say 's'
@20,3 say ' Stop '
@20,4 say 'S'
          H o s p o d a
 e n
   s   o d p a d y
RIIS 8.0
Stav integra
ch vazeb
set color to w+/b
set color to w+/bg
set color to b/w
set color to b/bg
set color to w+/b
set color to w/w
set color to b/w
set color to w+/w
set color to w+/bg
set color to w/w
set color to n/bg
p_prist
xp_prist.idx2
xp_prist.ntx2
xp_prist
xp_prist
x_dp.idx2
x_dp.ntx2
@9,52 say ' Aktualizace '
@9,53 say 'A'
@15,45 say ' P
ehledy '
@15,46 say 'P'
@15,62 say ' Tisk katalogu'
@15,63 say 'T'
@18,68 say ' Konec '
@18,69 say 'K'
@9,50 say ' Nav
 obrat
@9,51 say 'N'
@15,41 say ' Protokol obrat
@15,42 say 'P'
@15,61 say ' P
ehled archivu '
@15,70 say 'a'
@18,68 say ' Konec '
@18,69 say 'K'
@9,51 say  ' Regleta skladu '
@ 9,52 say 'R'
@15,52 say ' Nov
 obdob
@15,53 say 'N'
@18,68 say ' Konec '
@18,69 say 'K'
@9,54 say  ' Sklady '
@9,55 say 'S'
@15,53 say ' St
ediska '
@15,55 say 't'
@18,68 say ' Konec '
@18,69 say 'K'
@9,52 say  ' Aktualizace '
@9,53 say 'A'
@15,54 say ' P
ehled '
@15,55 say 'P'
@18,68 say ' Konec '
@18,69 say 'K'
BRITISH
  _HESLO
 -FHESLO
3,1 PRIHLAS
  _DEMO
^Hom_FIRMA
   U_MMRR
,^EUZ_ODP
 coMEM
o w+/nMES1
sayMES2
@23,1KONEC
7 say 'ZZ
tupy'
 say I
koUROVEN
hoBARVA1
=19BARVAN
nfiBARVA1P
=9BARVAP
BARVAZ
 stBARVAM
 z,RP
 a=0SP
f recc(RK
  appeSK
****MODDP
****S
********BARVADP
**P_PRIST
JMENO
 XP_PRIST
tM_DP
 'RIISX_DP
 setAX
 to bMODDPDBF
 DELAT
Aktualizace
  odpadu
Obraty
odpadu
     Hospoda
 s odpady
 Protokoly
  Export
  Import
 Aktualizace
ehledy
 Tisk katalogu
         Z
kladn
daje
 obrat
 Protokol obrat
ehled archivu
            O b r a t y
 Regleta skladu
 obdob
          Uz
rka obdob

 Sklady
ediska
         Sklady, st
ediska
 Aktualizace
ehled
             Odb
ratel


    Ukon
ce se syst
volh.idx
hespocf
Heslo:
sjmeno=sjmeno+chr(asc(substr(hesj&y,poc,1))-poc-130)
sheslo=sheslo+chr(asc(substr(hesh&y,poc,1))-poc-130)
prior=hesp&y
_HESLO
  VOLH
 -FIDX
3,1 HESOBR
  HESPOC
HomHESJ1
   HESH1
,^EKON
 coPRIHLAS
/nHESLO
sayKONEC
23,1Y
@SJMENO
y 'SHESLO
PRIOR
y SPRAVCE
koDELAT
volh.idx
p1_hes
sjmeno=sjmeno+chr(asc(substr(hesj&y,poc,1))-poc-130)
sheslo=sheslo+chr(asc(substr(hesh&y,poc,1))-poc-130)
replace jmeno with sjmeno,heslo with sheslo,pr with hesp&y
 d r
 b a    s y s t
 hesel a priorit :
  1,2 - u
ivatel ; 3-spr
Heslo
Priorita
            -^PgUp,^PgDn           -F10
            -^Home              -Esc,^End
stupy
Konec
RIIS 0.9
release hesj&y,hesh&y
hesj&y = ""
hesh&y = ""
hesj&y = hesj&y + chr(asc(subs(jmeno,poc,1))+poc+130)
hesh&y = hesh&y + chr(asc(subs(heslo,poc,1))+poc+130)
hesp&y=pr
volh.idx
  IDX
 -FP1_HES
  HESPOC
   POC
,^ESJMENO
 coSHESLO
/nKONEC
sayHOR
23,1X
RAVCE
hoPOCET
=19ZMENY
prist
prist
KONEC
  DOL
   HOR
XPROC
23,1ZMEN
@POCET
y 'PRIST
PRISTUP
 -FDOL
,1 JMENO
  HESLO
HomPR
@x,2 &vloz jmeno  pict '@!'
@x,15 &vloz heslo
@x,26 &vloz pr
  POCET
mod09
Oznac
Funkce
.......
 - definov
stupu
RIIS 0.9
p_prist
xp_prist
p_fce
nazev_fce
nazev_fce
fce(cislo)
obs pict '@!'
fce(cislo)
POLEX
  CARA
 -FPOC0
,1 POC1
  POCS
HomOBSAHX
   F1
,^EF2
 coF3
sayF5
23,1F7
y 'F10
ENTER
y DETAIL
koDET_JM
hoF10_JM
=19F10PRG
nfiRAMECEK
=9NAZEVT
JMENO
 stRIIS
 z,NADPIS
a=0LEVA
recc(PRAVA
appeHOR
****PROCX
****PRIH
*****P_PRIST
**XP_PRIST
PRISTUP
 P_FCE
,ZAHL
'RIISOBSAH
 setHODN
to bI
 ZOBRAZ
 MOD_SYS
i=MOD_FCE
c=OBR0
 say '
et colf
stnam
HESLO
SPRAVCE
ZMENY
XPROC
PRISTUP
P:\IN\SK\O\08\
MOD8.FXP
P:\IN\SK\O\08\MOD8.PRG