home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
S135B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-05-23
|
18KB
|
300 lines
. . #
m1_zdroj
x1_dilna
x1_zdroj
RIIS 1.5
P r e h l e d ciselniku pracovist
POLEX
APOC2
OBSAHX
COLORZAHL
OBSAH
LJMENO
IM1_ZDROJ
X1_DILNA
X1_ZDROJ
NADPIS
JLEVA
MPRAVA
FPOLE
MRIIS
NAZEVT
ESSPROHL
pocet=poc&u
zahlavi&u=zahlavi&u+zahl(i)
veta&u=veta&u+jmeno(i)
zahlavi&u=zahlavi&u+chr(179)
veta&u=veta&u+"+chr(179)+"
mez=len(veta&u)+1
i=poc&a
zahlavi&u=zahlavi&u+' '
veta&u=veta&u+"+' '+"
+' '+
@ r+nadpis,leva say pol&cp
@ r+nadpis,leva say pol&cp
@ r+nadpis,leva say pol&cp
zahlavi=zahlavi&y
veta=veta&y
zahlavi=zahlavi&y
veta=veta&y
ZAHLAVI1
ZAHLAVI2
ZAHLAVI3
AZAHLAVI4
ZAHLAVI5
ZAHLAVIT
ZAHLT1
VETA1
VETA2
VETA3
VETA4
OLORVETA5
VETAT1
LPOCI
_ZDROJ
POCET
JCARA
POLEX
FJMENO
MZAHLAVI
PROHL
FPOCZ
RAMECEK
HLAVI
SPOL3
FPOL4
_KOOPPOL8
POL10
POL11
POL12
POL13
POL14
POL15
RPOL16
_HLAVA
PPREHLED
_TEXT
PODMV
PODMS
NADPIS
PRAVA
VYBER
TRIDENI
MODTESTT
VOLBA
KAKTUAL
Pocet zaznamu: FF
Vyber
Trideni
Volba polozek
Zmena
Pohyb
Konec
Prirustek
- <Enter>
,PgUp,PgDn
- Esc,^End
NAZEVT
NADPIS
PRAVA
NADPIS
PRAVA
ZAHLAVI
@ p+nadpis,leva say &veta
@ p+nadpis,cara+1 say &a
pol&cp=&veta
PREHLEDV
HLAVI
PRAVA
OLORCP
@ p+nadpis,leva say &veta
pol&cp=&veta
EHLEDV
APRAVA
p_kody
p_name
Epson LX-810
SOUBOR
P_KODY
P_NAME
W_TISKARNABOLD_ON
NAP_BOLDON
BOLD_OFF
P_BOLDOFF
DBST_ON
P_DBST_ON
DBST_OFF
P_DBST_OFFNLQ_ON
LORP_LETRQUALNLQ_OFF
LP_DRAFT
IP_SUBON
SUB_OFF
P_SUBOFF
SUPER_ON
JP_SUPERON
SUPER_OFF
P_SUPEROFFHUSTE_ON
FP_10CPI
MP_COMPRESSHUSTE_OFF
P_COMP_OFFPICA_ON
FELITE_ON
P_12CPI
RESET
P_SETUP
NCOMP
RESSR8LPI
_OFFP_8LPI
FSTRANA
TISK_HL
TISK_S
NCOMP
KARNAZACP
NAPODNIK
SUB_OFF
NLQ_ON
BOLD_ON
NAZEVT
NLQ_OFF
BOLD_OFF
LORPOCS
RQUALZAHLAVIT
LZAHLAVI
ICOMP
ZAHLT1
@cr,s say &vetat
KARNAPOCS
NAVETAT
VETAT1
R8LPI
ZAHLAVIT
NCOMP
LORSTRANA
UALMALE
LSUB_OFF
a
.and.
nebo
konec
Vyber
. . #
--------------------
nebrat
@s,v get &prom
@s,v say &prom
dtoc(dat)
STOP - delku podminky jiz nelze zvetsovat !
Ukoncit
Zrusit
set filter to &podmv
K zadane podmince nebyl nalezen zadny zaznam .
LOGIC
OPERAND
ERAND
NAXOPER
OBSAHX
HLAVIT
FPOLEX
LORZAHL
UALVYBER
LPODMV
OBSAH
RELACE
JSTOP
dalsi
konec
Volba polozek
--------------------
..........
+' '+
.................
ZAHLAVI
ERAND
NALOGIC
XOPER
POLEX
VYBER
FZAHLAVI1
RVETA1
UALJMENO
dalsi
konec
Trideni
--------------------
nebrat
......
.................
STOP - delku klice jiz nelze zvetsovat !
Ukoncit
Zrusit
sort to c1_tr on &podms
c1_tr
LOGIC
NAXOPER
POLEX
VYBER
PODMS
OBSAH
FPROM
RHODN
LSTOP
C1_TR
IPROHL
@hor,leva say pol&cp
Aktualizace ciselniku
(Storno - F10)
Dilna
Prac.
Nazev pracoviste
Poc.stroju
Specifikace
Opravdu zrusit tento zaznam ? (a/N):
PRAVA
NADILNA
NAIDENT_ZDR
NAZEV_ZDR
POC_STR
SPECIF
TYP_ZDR
FPOCZ
Dilna
dilna+' '
obs pict '9999'
dilna
Prac.
ident_zdr
obs pict '99999'
ident_zdr
Nazev pracovisteF
nazev_zdr
obs pict '@s25 ' +repl('!',45)
nazev_zdr
Stroju
str(poc_str,6)
nula pict '@z 999'
poc_str
str(typ_zdr,3)
nula pict '@z 999'
typ_zdr
SpecifikaceF
specif
obs pict '@s25'
specif
JMENO
OBSAH
NAHODN
NAS135B
PROHL
RAMECEK
ZAHLAVI
PREHLED
PREHLEDV
TISK_HL
TISK_S
VYBER
VOLBA
TRIDENI
AKTUAL
L:\OBEC\01\
S135B.FXP
L:\OBEC\01\S135B.PRG