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

MS Visual FoxPro App | 1996-05-23 | 64KB | 955 lines

PS_zaznf
KLnazf
w_cestinaf
w_csprolf
PS_linef
PS_stablef
PS_returnf
RecLevelf
w_tiskarnaf
mod_psv
FFFZ^D
colora
C_PSVFF
F1onf
F1prgf
tiskprgf
F4prgf
F4prgf
F7_jmf
F7prgf
F9prgf
F9Keyf
F10_jmf
F10prgf
UNDEF
detailf
det_jmf
Detprgf
enterf
UNDEF
F0prgf
UNDEF
Podnikf
_Firmaf
NazevTf
riisf
FFZFZ
cmasterorder
PS_returnf
RTopf
RBotf
CLeftf
CRightf
Freezef
poc0f
Titlef
TitleColorf
cmasterorder
set procedure to &cselfproc
colora
Ramecekf
set procedure to &procx
do &f1prg
set procedure to &cselfproc
set procedure to &procx
do &f9prg
set procedure to &cselfproc
set procedure to &ctiskproc
do &f4prg
set procedure to &cselfproc
set procedure to &procx
do &detprg
set procedure to &cselfproc
set procedure to &procx
do &f7prg
set procedure to &cselfproc
set procedure to &procx
do &f10prg
set procedure to &cselfproc
select &cmastersel
set index to &cindexlist
cmasterorder
set color to &gcol
set procedure to &procx
CSELFPROC
COLDCOLOR
CPS_DBF
NSCRCNT
NTOPSCR
NCURSCR
CTISKPROC
A_MIN
LINTF1
LEXTF1
NALLPZAZ
NSAVEZAZ
NSAVEREC
NBROWPTR
NDBFPTR
LSHORTJMP
STAB_I
STAB_J
STAB_RCC
STAB_TMP
LOA_RCC
CNT_RCC
LNEWREF
RDLSTABLE
LISLOAD
LNEWLOAD
LISCOUNT
NLNEWCNT
CPODMV
CPODMS
NHEADLEN
CMASTERINDNJMP
AHLDEL
NMENUPOS
ERORDNREC
NEXIT
RINDTISK
CINDEXLISTNMASTERORDCMASTERSELCFILTER
SCMASTERORDCPODMVU
RDSUMAC
ERINDPSOUC
POCSOUC
EPRUCH
PEPOLEX
PS_ZAZN
KLNAZ
MEW_CESTINA
W_CSPROL
PS_LINE
PS_STABLE
PS_RETURN
RECLEVEL
W_TISKARNAF1ON
F1PRG
ctPROCX
F4PRG
TISKPRG
SPROL
RONTA
bF7_JM
F7PRG
RETURN
F9PRG
F9KEY
ARNAF10
F10_JM
F10PRG
DETAIL
DET_JM
DETPRG
ENTER
F0PRG
PODNIK
_FIRMA
LORNAZEVT
NADPIS
CLEFT
CRIGHT
PRAVA
FREEZE
TITLE
TITLECOLORZAHLAVI
RDVETA
ACACHE
ACACHDIR
PADZAHL
MAPINIT
STAUTOBUILD
SETCACHE
CLRCACHE
RAMECEK
HLAVA
SETF1
REPOS
REFALL
CNTALL
LITEON
STABILIZE
COUNTER
LITEOFF
SKIPN
CACHEDN
CACHEUP
VYBER
TRIDENI
HLEDEJ
VOLBA
MOD2_2
RCLEAR
CHKPAR
  Nelze tisknout - p
 sestava
  Nelze tisknout - prilis siroka sestava
p_kody.dbf2
tomen soubor
 tisk
ren (P_KODY)
Neni pritomen soubor ridicich kodu tiskaren (P_KODY)
p_kody
p_name
colora
Esc - Konec
^End - Tisk
stup (1-tisk
rna,2-obrazovka)
ka str
nky (1-
Posledn
 okraj
 na str
Odstr
ed tiskem,2-po tisku,3-oboj
Vystup (1-tiskarna,2-obrazovka)
Sirka stranky (1-uzka,2-siroka)
Pocatecni stranka
Posledni stranka
Levy okraj
Pocet radku na strance
Odstrankovani
(0-zadne,1-pred tiskem,2-po tisku,3-oboji)
Tiskarna
set color to &col
select &cmastersel
Chybn
n druh v
stupu
Chybne zadan druh vystupu
Chybn
 zadan
ka str
Chybne zadana sirka stranky
Chybn
 zadan
Chybne zadana pocatecni stranka
Chybn
 zadan
 posledn
Chybne zadana posledni stranka
Chybn
 zadan
 a posledn
Chybne zadana pocatecni a posledni stranka
Chybn
 zadan
 odstr
Chybne zadane odstrankovani
mod_hes
set procedure to &cselfproc
p_kody
p_name
Epson LX-810
select &cmastersel
set color to &col
  Nelze tisknout - p
 sestava
  Nelze tisknout - prilis siroka sestava
select &cmastersel
  Prob
 tisk sestavy ...
  Probiha tisk sestavy ...
 Esc-p
 Esc-preruseni
british
store FCREATE('&M_txt') TO _TEXT
Nelze vytvo
it soubor pro sestavu
Nelze vytvorit soubor pro sestavu
select &cmastersel
if type('tr_hl&i')='C'
if type('tr_hl&i')#'C'
_klics=&klico
do tisk_hl&Tdr
do tisk_s&Tdr
      - (^)
ipky,(^)Home,(^)End,PgUp,PgDn
      - (^)Sipky,(^)Home,(^)End,PgUp,PgDn
      - Esc
Pohyb
Konec
 Prohl
 sestavy
 Prohlizeni sestavy
modi comm &M_txt.txt noedit window w
select &cmastersel
ELFPROC
ZAHLT1
ADDSPACE
ADDLEN
KPROC
PISMO
STRANA
EOFMARK
T_TISK
T_SIRKA
T_POC
T_KON
RT_LEFT
T_RAD
T_EJECT
T_DRUH
SUMAC
POCSOUC
NHEADLEN
W_CESTINA
P_KODY
P_NAME
RDX_OBR
W_TISKARNATISKTEST
T_COD
M_SCR
RNAMOD_HES
ZOBR_POLQSP_10CPI
NAP_12CPI
NDP_COMPRESSZN_RAD
BRITISH
P_SETUP
M_ALIAS
M_TXT
RORDANSI
POMT_RAD
CESTINA
PRUCH
tr_hl1f
@ rad,t_left+s say tr_hl&i
if type('tr_hl&i')#'C'
tr_hl1f
FPROC
T_LEFT
P_KODY
P_SETUP
P_SUBON
ZN_RAD
PODNIK
P_SUBOFF
NAZEVT
P_DBST_ON
P_DBST_OFFPISMO
ST_ON
TISK_HLAV
ZAHLT1
@prow(),pcol() say &jmenot +' '+iif(i=nheadlen,"",addspace)
suma(i)=suma(i)+&hodnot
sumac(i)=sumac(i)+&hodnot
if _klics# &klico or eof()
_klics=&klico
Celkem:
    Zru
it tisk? (a/N)
    Zrusit tisk? (a/N)
**************************************************
             Sestava n
             Sestava nasilne prerusena
**************************************************
FPROC
JMENOT
PATAL
SUBON
EOFMARK
T_RAD
T_LEFT
ST_ON
NHEADLEN
FJMENO
PSOUC
HODNOT
POCSOUC
FFKLNAZ
NAST_SOUC
ZAHLT1
T_PRERUS
W_CESTINA
KON_TISK
CESTINA
STRANA
ZN_RAD
P_KODY
P_COMP_OFF
Celkem:
Celkem:
= fputs (_text, "&Pxx" )
= fputs (_text, "&xx" )
EOFMARK
POCSOUC
T_DRUH
T_LEFT
FMARK
NAST_SOUC
ST_ON
ZAHLT1
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
tr_hl1f
xx = space(t_left) + tr_hl&i
= fputs (_text, "&xx" )
if type('tr_hl&i')#'C'
tr_hl1f
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
T_LEFT
ZN_RAD
PODNIK
NAZEVT
TISK_HLAV
ZAHLT1
Pxx = Pxx + &jmenot +' '+iif(i=nheadlen,"",addspace)
suma(i)=suma(i)+&hodnot
sumac(i)=sumac(i)+&hodnot
= fputs (_text, "&xx" )
if _klics# &klico or eof()
= fputs (_text, "&Pxx" )
_klics=&klico
Celkem:
= fputs (_text, "&Pxx" )
= fputs (_text, "&xx" )
    Zru
it tisk? (a/N)
    Zrusit tisk? (a/N)
**************************************************
= fputs (_text, "&xx" )
             Sestava n
             Sestava nasilne prerusena
= fputs (_text, "&xx" )
**************************************************
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
JMENOT
PATAL
EOFMARK
T_RAD
NHEADLEN
JMENO
PSOUC
HODNOT
FFPOCSOUC
T_LEFT
KLNAZ
NAST_SOUC
ZAHLT1
T_PRERUS
W_CESTINA
KON_TISK
STRANA
ZN_RAD
   a
.AND.
nebo
Konec
FFFFF
 Vyber zaznamu F
british
xget = &prom
xGetf
  .  .  #
xGetf
@nrow,ncol get xget picture &pictx
xGetf
CToD('F
Stop - d
lku podm
nky ji
 nelze zv
uppercs(
upper(
.and.
cmasterorder
  Prob
...
  Probiha vyber zaznamu...
index on recno() to &cps_dbf for &cpodmvu additive
cmasterorder
index on &tmp to &cps_dbf for &cpodmvu additive
  Prob
...
  Probiha nacteni zaznamu...
index on &cpodms to &cps_dbf for &cfilter additive
index on &cpodms to &cps_dbf additive
  Prob
...
  Probiha vyber zaznamu...
index on &cpodms to &cps_dbf for &cpodmvu additive
cmasterorder
 Podm
nce neodpov
znam !  Stiskn
te cokoliv...
 Podmince neodpovida zadny zaznam !  Stisknete cokoliv...
NOLDVOLBA
NMENUPTR
NMENUPOS
AZAHLLEN
COLDPODMV
OLDORDER
NVOLBA
RELACE
FFPROM
PICTX
XOPER
ALOGIC
AOPER
AZAHL
AZAHLMAP
NHEADLEN
CPODMV
OFFNR2
KARNANIC2
RNAZAHL
W_CESTINA
FMENU
NABRITISH
NDNTYP
SJMENO_P
JMENO
POCET_DES
POCET_CEL
W_CSPROL
UPPERCS
DSTOPSEL
CFILTER
CPODMVU
RDCPODMS
ELCMASTERORDMESS
CMASTERINDNMASTERORDREPOS
RCLEAR
VRESET
EREFALL
PECLRCACHE
CNTALL
    a
Konec
FFFFF
 Trideni zaznamu F
xprom = &cprom
xPromf
csn(FF
DTOC(FF
Stop - T
 nelze zv
Stop - Tridici klic jiz nelze zvetsovat
.and.
cmasterorder
  Prob
...
  Probiha nacteni zaznamu...
index on recno() to &cps_dbf for &cpodmvu additive
cmasterorder
index on &tmp to &cps_dbf for &cpodmvu additive
  Prob
...
  Probiha trideni zaznamu...
index on &cpodms to &cps_dbf for &cfilter additive
index on &cpodms to &cps_dbf additive
  Prob
...
  Probiha trideni zaznamu...
index on &cpodms to &cps_dbf for &cpodmvu additive
NOLDVOLBA
NMENUPTR
NMENUPOS
AZAHLLEN
COLDPODMS
PODMV
NVOLBA
CPROM
XPROM
FFXOPER
ALOGIC
AZAHL
NHEADLEN
CPODMS
OFFZAHL
W_CESTINA
FMENU
W_CSPROL
JMENO_P
NAJMENO
POCET_DES
POCET_CEL
W_DOPL
STOPSEL
AZAHLDEL
CFILTER
CPODMVU
CPODMV
CMASTERORDMESS
CMASTERINDNMASTERORDREPOS
REFALL
RDCLRCACHE
    a
Konec
colora
 Volba polo
 Volba polozek F
set color to &col
NOLDVOLBA
NMENUPTR
NMENUPOS
AZAHLLEN
NVOLBA
XOPER
CWHEAD
CBASE
FFFREEZSTR
ALOGIC
POLEX
FREEZE
AZAHL
NHEADLEN
FW_CESTINA
FMENU
MAPINIT
PSOUC
AAZAHLDEL
AUTOBUILD
NVOLBA
NUPTR
NUPOS
HLLEN
NMENUPTR
AZAHLLEN
NOLDVOLBA
NMENUPOS
AZAHL
AZAHLLEN
AZAHL
colora
set color to &col
CMESS
NWAIT
HLLEN
AHLLEN
DVOLBA
NUPOS
colora
set color to &col
CMESS
HLLEN
colora
set color to &col
CMESS
NWAIT
HLLEN
NSTARTT
LISCOUNT
COUNTER
PS_ZAZN
INFOCNT
FFNR1
LISCOUNT
NALLPZAZ
 Pocet zaznamu:
set color to &titlecolor
TITLE
W_CESTINA
PS_ZAZN
INFOCNT
ZAHLAVI
ZAHLAVI
NCURSCR
NTOPSCR
nlen = len( &tmp )
MOD_PS - Proc PadZahl: Polo
 rozm
r okna !
POLEX
JMENO
MOD_PS - Proc AUTOBUILD: P
 sestava !
CFREVETA
CFREZAHL
ZAHLAVI
NTOPSCR
NCURSCR
NHEADLEN
NSCRCNT
JMENO
PSOUC
FFSOUC
FREEZE
NAZEVT
Vyber8
Trideni8
Polozky8
XXXXXXXXX
Vyhled
Vyhledani8
XXXXXXXXX
XXXXXX
Konec
- F10
- <Enter>
- Esc,^End
W_CESTINA
EZAHL
ESTINA
ESTINA
F7_JM
STINA
F10_JM
DETAIL
DET_JM
LTOGGLE
STINA
LNEWREF
LSTABLE
NDBFPTR
NBROWPTR
RCLEAR
SKIPN
NBROWPTR
NDBFPTR
LNEWCNT
LISCOUNT
NALLPZAZ
PS_ZAZN
INFOCNT
british
acache(stab_i+1) = padr( &stab_tmp, nic2 - nic1 + 1 )
LNEWREF
STAB_RCC
NDBFPTR
STAB_J
STAB_I
STAB_TMP
NCURSCR
ACACHDIR
ACACHE
LSTABLE
BRITISH
set order to &oldorder
EWREF
AB_RCC
OLDORDER
CPODMV
LNEWCNT
NSAVEZAZ
NALLPZAZ
CNT_RCC
NSAVEREC
LSHORTJMP
LSTABLE
PS_ZAZN
LISCOUNT
NBROWPTR
ACACHE
british
acache(nbrowptr) = padr( &tmp, nic2 - nic1 + 1 )
set procedure to &procx
do &f0prg
set procedure to &cselfproc
ACACHDIR
NBROWPTR
BRITISH
NCURSCR
ACACHE
PS_LINE
OWPTR
NHEADLEN
POLEX
cmasterorder
indexk = &cix
IndexKf
COLORa
 Vyhled
 Vyhledani: 8
  .  .  #
znam neexistuje !
 Zaznam neexistuje !
set order to &oldorder
znam nen
ru !
 Zaznam neni soucasti vyberu !
cmasterorder
set order to &oldorder
INDEXK
NWIDE
FNGETCOL
OLDORDER
OPSCR
CMASTERORDNMASTERORDF9KEY
W_CESTINA
MESSW
NDBFPTR
RDSKIPN
NBROWPTR
REFALL
ACLRCACHE
PS_ZAZN
INFOCNT
LITEON
ACACHDIR
ACACHDIR
ACACHE
ACACHDIR
ACACHE
ACACHDIR
LINTF1
CLEFT
CRIGHT
SETF1
OFFLINE
  Tisk
rna nen
ipravena !
  Tiskarna neni pripravena !
W_CESTINA
MESSW
prava souboru k p
enosu ...
 Priprava souboru k prenosu ...
datez
_oOescrzyaieuuESCRZYAIEUUdtnDTN_
nazvy(ii,3) = len (&jmeno (ii) )
vety(ii) =  &jmeno( ii )
CESTINA
NAZVY
_DATE
_PORSINGL
TRETI
ODKUD
M_TXT
FMSYS3
W_CESTINA
MOD_SYS
MALIAS
ORDPOLEX
RORDZAHL
EXP_POL
PS_RETURN
pathz
colorz
VYSTUP.DBFF
double
Zadejte jm
stupn
ho souboru:
Lze pou
t i SDF,DIF,MOD,WKx,WRx,SYLK,XLS.
Zadejte
plnou cestu c
le exportu:
(Pokud adres
 neexistuje, bude vytvo
uje-li podm
nky DOSu pro MKDIR.)
Zadejte jmeno vystupniho souboru:
Lze pouzit i SDF,DIF,MOD,WKx,WRx,SYLK,XLS.
Zadejte uplnou cestu cile exportu:
(Pokud adresar neexistuje, bude vytvoren,
 splnuje-li podm
nky DOSu pro MKDIR.)
Cesta nebyla zad
Cesta nebyla zadana !
Cesta nesm
 obsahovat mezery !
Cesta nesmi obsahovat mezery !
no nebylo zad
Jmeno nebylo zadano !
2.0Fl
znak souboru !
t jen DIF,MOD,SDF,SYLK,WK1,WKS,WR1,WRK,XLS
znak souboru ! M
t jen ...
... DIF,FW2,MOD,PDOX,RPD,SDF,SYLK,WK1,WK3,WKS,WR1,WRK,XLS
double
te disketu a zm
te ENTER ...
 Vlozte disketu a zmacknete ENTER ...
!&f_adr\test_d &sach
ERROR
Disketa nebyla vlo
Disketa nebyla vlozena
mkdir
set default to &sach
set default to &drive
VYSTUP.DBF
sta na disket
 Malo mista na diskete !
mkdir
 Prob
enos ...
 Probiha prenos ...
copy to &plna_ces
_PATH
W_EXP
MMPOM
MMSCR
MMCEST
CES_EXP
PLNA_CES
DRIVE
FREESPACE
F_INFO
F_SIZE
MPOZSPACE
MJMENO
FMOD_WIN
W_CESTINA
HLASKA
MKDIR
colora
MCOLOR
OBRAZ
_del=len(&jmeno(aMap(i)))
sum all &hodnot to sumat
NHEADLEN
PSOUC
EOFMARK
PRUCH
HODNOT
SUMAT
SUMAC
JMENO
ADDSPACE
TISK_HL1
TISK_S1
KON_TISK
TISK_HL2
TISK_S2
VYBER
TRIDENI
VOLBA
FMENU
AZAHLDEL
STOPSEL
MESSW
INFOCNT
RAMECEK
RCLEAR
ZAHLAVI
PADZAHL
AUTOBUILD
HLAVA
SETF1
REFALL
VRESET
REPOS
CNTALL
STABILIZE
COUNTER
LITEOFF
LITEON
SKIPN
MAPINIT
HLEDEJ
CLRCACHE
SETCACHE
CACHEUP
CACHEDN
CHKPAR
TISKTEST
MOD2_2
EXP_POL
HLASKA
NAST_SOUC
L:\OBEC\
MOD_SOUC.FXP
L:\OBEC\MOD_SOUC.PRG