soucf
MOD_PSV
c_poc.txt
klico*9
c_spc
c_poc
c_spc
PS_zaznf
KLnazf
klicof
klico
w_cestinaf
w_csprolf
w_frontaf
PS_linef
PS_stablef
PS_returnf
RecLevelf
w_tiskarnaf
Epson LX-810
Epson LX-810
w_Mysf
id_Orgf
w+/bg
mod_psv
FFFZ^D
colora
C_PSVFF
F1onf
F1prgf
tiskprgf
F4prgf
F4prgf
F7_jmf
F7prgf
F9prgf
F9Keyf
F9Key1f
F10_jmf
F10prgf
UNDEF
detailf
det_jmf
Detprgf
enterf
UNDEF
F0prgf
UNDEF
spacebarf
Podnikf
_Firmaf
NazevTf
riisf
FFZFZ
FFZFZ
FFZFZ
cmasterorder
PS_returnf
RTopf
RBotf
CLeftf
CRightf
Freezef
poc0f
Titlef
TitleColorf
cmasterorder
orderz
DESCENDING
set procedure to &cselfproc
colora
Ramecekf
CASE f2 and Nrow1 = Rf2 and between (Ncol1, &Mf2)
CASE f3 and Nrow1 = Rf3 and between (Ncol1, &Mf3)
CASE f4 and Nrow1 = Rf4 and between (Ncol1, &Mf4)
set procedure to &ctiskproc
do &f4prg
set procedure to &cselfproc
CASE f6 and Nrow1 = Rf6 and between (Ncol1, &Mf6)
CASE f7 and Nrow1 = Rf7 and between (Ncol1, &Mf7)
set procedure to &procx
do &f7prg
set procedure to &cselfproc
CASE f9 and Nrow1 = Rf9 and between (Ncol1, &Mf9)
set procedure to &procx
do &f9prg
set procedure to &cselfproc
CASE f10 and Nrow1 = Rf10 and between (Ncol1, &Mf10)
set procedure to &procx
do &f10prg
set procedure to &cselfproc
CASE detail and Nrow1 = Rdetail and between (Ncol1, &Mdetail)
set procedure to &procx
do &detprg
set procedure to &cselfproc
CASE Nrow1 = Rkonec  and between (Ncol1, &Mkonec)
c_oznac
c_oznac
c_oznac
  Prob
 ozna
 ...  
  Probiha oznaceni zaznamu ...  
c_oznac
c_oznac
c_oznac
c_oznac
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
c_oznac
set color to &gcol
set procedure to &procx
CSELFPROC
COLDCOLOR
CPS_DBF
NSCRCNT
?pCOLDDESC
?NTOPSCR
?lNCURSCR
c?NDESCENDINCPS_CDX
r?CDESCENDINCTISKPROC
CPODM_ST
_DELP
?,? ?NR1
?r?i?vNR2
e? ?n?NC1
?s?c?rNC2
n?c?u?NIR1
r?,? NIR2
?s?c?NIC1
i?n?gNIC2
?p?s?NICX
x?,? LF1
 ? ?p?LINTF1
t?eLEXTF1
?s?NALLPZAZ
,NSAVEZAZ
?NSAVEREC
 NTRGPZAZ
?NBROWPTR
 NDBFPTR
 ?LSHORTJMP
STAB_I
?v?STAB_J
n?rSTAB_RCC
?STAB_TMP
nLOA_RCC
n?CNT_RCC
?iLNEWREF
i?LSTABLE
?cLISLOAD
i?LNEWLOAD
rLISCOUNT
?LNEWCNT
? CPODMV
?f?CPODMS
e?xNHEADLEN
?CMASTERINDNJMP
? ? ?I
? ? ? ? NPOS
? ? ?NMENUPOS
 ?n?a?GCOL
z?a?zNREC
?s?a?NEXIT
?z?,TISK
?a?v?CINDEXLISTNMASTERORDCMASTERSELCFILTER
r?CMASTERORDCPODMVU
w?COLOR1
 ?nCOLOR2
?t?COLOR3
s?hCOLOR4
?m?ST_SEL_PSVS
 ? ? ? ?MEXIT
? ? NROW1
v?a?NCOL1
?t?aMF1
i?,? ?MF2
?b?_?jMF3
s?t?a?MF4
?c?c?,MF5
t?a?b?MF6
?p?,? MF7
a?_?r?MF8
?p?r?iMF9
t?e? ?MF10
w?r?eMDETAIL
s?MKONEC
e?,RF1
i?s?l?RF2
?,? ?lRF3
w?l?o?RF4
? ?l?iRF5
o? ? ?RF6
?v?a?tRF7
c?p?o?RF8
?,? ?cRF9
d?m?s?RF10
 ? ? RDETAIL
 ?RKONEC
 ? SUMAC
 ? ?SUMA
 ? ? PSOUC
r?i?POCSOUC
?nPRUCH
d?l?POLEX
?c?mSOUC
e?r?IWF2
?x? AWF2
? ? ?HWF2
 ? ? KLICO
 ? ?TO
 ? ? ?pC_POC
a?t?TXT
?j?m?pC_SPC
,? ?R
?o?s?,? PS_ZAZN
u?KLNAZ
?sW_CESTINA
W_CSPROL
nW_FRONTA
?PS_LINE
?vPS_STABLE
PS_RETURN
RECLEVEL
?W_TISKARNAW_MYS
ARNAID_ORG
m?aF1ON
 ? F1PRG
="@F2
y 'F3
 ? ? PROCX
F4PRG
TISKPRG
?c?mF7
e?r?F7_JM
?x? F7PRG
 ? ?F9
 ? ? F9PRG
 ? ?F9KEY
? ?pF9KEY1
?t?F10
m?pF10_JM
? ?F10PRG
,? DETAIL
u?DET_JM
?sDETPRG
ENTER
RONTA
?F0PRG
?vSPACEBAR
PODNIK
_FIRMA
?NAZEVT
RNARIIS
ARNAPOM
EXLISTRTOP
NADPIS
 ? RBOT
="@DOL
y 'CLEFT
 ? ? CRIGHT
PRAVA
FREEZE
l?POC0
c?mTITLE
e?r?TITLECOLORZAHLAVI
INVETA
 ? ? AMAP
 ? ?ACACHE
 ?pACACHDIR
?PADZAHL
pMAPINIT
 ?AUTOBUILD
SETCACHE
?CLRCACHE
sGSCR
RAMECEK
nHLAVA
?SETF1
?vREPOS
REFALL
CNTALL
?LITEON
RNASTABILIZE
COUNTER
TLITEOFF
TIMELIMIT
INVAL2
="@VYBER
TRIDENI
VOLBA
HLEDEJ
INFOCNT
SKIPN
C_OZNAC
SVZAZNAM
?r?ZAZX
L_PSVCACHEUP
 MESS
ST_ZAZ
PSVCACHEDN
VRCLEAR
CHKPAR
sestava.txt
sestt1.txt
  Nelze tisknout - p
 sestava  
  Nelze tisknout - prilis siroka sestava  
p_kody.dbf2
tomen soubor 
 tisk
ren (P_KODY)
p_kody
p_kody
p_name
m_tfr
m_tfr
t_fronta
colora
 Parametry tisku 
Konec
Funkce
-^End
stup: 1-tisk, 2-obraz., 3-WIN, 4-TXT
et opakov
Tiskov
 fronta
ka str
nky (1-
Posledn
 okraj
 na str
Odstr
ed tiskem,2-po tisku,3-oboj
 (1-standardn
,2-ob 
Ve zku
 verzi nen
 zapojeno !
Ve zku
 verzi hodnoty 1,3,4 nelze pou
Chybn
 zadan
ka str
Chybn
 (povoleno 1,2)
Chybn
et opakov
Chybn
 zadan
Chybn
 zadan
 posledn
Chybn
 zadan
 a posledn
Chybn
 zadan
 odstr
select &cmastersel
set color to &col
  Nelze tisknout - p
 sestava  
select &cmastersel
  Prob
 tisk sestavy ...  
 Esc-p
british
sestava.doc
store fcreate('&M_txt') to _text      
Nelze vytvo
it 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 
modi comm &m_txt.txt noedit window w
mod_psv
faktura.txt
!copy faktura.txt &m_txt >nul
delete file &m_txt
delete file &m_txt
select &cmastersel
ELFPROC
ZAHLT1
?pADDSPACE
?ADDLEN
?lRAD
ESCENDINPISMO
r?STRANA
DINSCR
KPROC
EOFMARK
?,? ?T_TISK
i?vT_SIRKA
n?T_POC
?c?rT_KON
c?u?T_LEFT
,? T_RAD
s?c?T_EJECT
?gT_DRUH
?s?TDR
x?,? T_MEZIRAD
T_OPAK
t?eMJMENO
?s?MMPOM
,MMCEST
?MCOL
 _PATH
?CES_EXP
 M_TEXT
 ?M_TEXT1
M_EXIT
?v?M_TXT
n?rM_TXT1
?SUMA
nSUMAC
n?POCSOUC
?iKLICO
i?NHEADLEN
cZAHL
i?AMAP
rW_CESTINA
? ZAV_KODY
?P_KODY
e?xP_NAME
?ZAV_TFR
DM_TFR
 ? ?T_FRONTA
 W_TISKARNAP_PAGE_W
aP_POC_R
a?ID_ORG
a?zW_FRONTA
?X_FRONTA
X_OBR
LISTHLASKA
P_10CPI
NAP_12CPI
r?P_COMPRESSZN_RAD
SNIR1
?nNIR2
?t?NIC1
s?hNIC2
?m?COLOR1
PSVBRITISH
?M_ALIAS
? XMSCR
?a?NASTSOUBORANSI
 ?POMT_RAD
CESTINA
W_MISTO
?,S2LATWIN
?MOD_PSV
? EXPPOL_TT
PRUCH
Celkem:
Celkem:
= fputs (_text, "&Pxx" )         
= fputs (_text, "&xx" )              
EOFMARK
POCSOUC
T_DRUH
?pPXX
?T_LEFT
c?NAST_SOUC
DINZAHLT1
centuryz
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
tr_hl1f
= fputs (_text, "&xx" )
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" )
?pRAD
?lT_RAD
T_SOUC
T_LEFT
r?ZN_RAD
DINPODNIK
NAZEVT
? ?TISK_HLAV
STRANA
c?rPATAL
c?u?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
?pPXX
c?RAD
_SOUC
EOFMARK
r?T_RAD
NHEADLEN
_JMENO
? ?AMAP
PSOUC
HODNOT
c?rHODN
c?u?T_MEZIRAD
POCSOUC
T_LEFT
?gKLNAZ
?s?DELP
x?,? NAST_SOUC
KLICO
t?eSUMA
ZAHLT1
T_PRERUS
?PRER
 W_CESTINA
KON_TISK
 ?STRANA
ZN_RAD
   a 
 and 
nebo 
Konec
FFFFF
 Vyber zaznamu F
Stop - d
lku podm
nky ji
 nelze zv
) and (
cmasterorder
  Prob
...  
  Probiha vyber zaznamu...  
index on recno() tag &cps_dbf of &cps_cdx for &cpodmvu additive &cdescending
cmasterorder
index on &tmp tag &cps_dbf of &cps_cdx for &cpodmvu additive &cdescending
  Prob
...  
  Probiha nacteni zaznamu...  
index on &cpodms tag &cps_dbf of &cps_cdx for &cfilter additive &cdescending
index on &cpodms tag &cps_dbf of &cps_cdx additive &cdescending
  Prob
...  
  Probiha vyber zaznamu...  
index on &cpodms tag &cps_dbf of &cps_cdx for &cpodmvu additive &cdescending
cmasterorder
 Podm
nce neodpov
znam !  Stiskn
te cokoliv...  
 Podmince neodpovida zadny zaznam !  Stisknete cokoliv...  
NOLDVOLBA
NMENUPTR
NMENUPOS
AZAHLLEN
_SOUC
r?TMP
NCOLDPODMV
_OLDORDER
?NVOLBA
c?u?RELACE
?gPICTX
?s?CTYP
x?,? XOPER
t?eAREL
ALOGIC
AOPER
?AZAHL
 AZAHLMAP
NHEADLEN
CPODMV
?v?NIC1
n?rNIC2
?HODN
nAMAP
n?ZAHL
iW_CESTINA
POC_OT
cDEL_OT
i?MAX_DEL
rCPODM_ST
CPODMV1
? VYSKOC
?TVOR_CAST
STOPSEL
?CFILTER
CPODMVU
 ?CPODMS
 CMASTERORDMESS
CMASTERINDREPOS
RCLEAR
?VRESET
,REFALL
CLRCACHE
TCNTALL
xget = &prom
xGetf
Pro numerick
 hodnoty nelze oper
tor pou
british
xGetf
@nrow,ncol get xget picture &pictx
xGetf
CToD('F
poc_otf
substr(
uppercs(
upper(
poc_otf
,poc_ot+1,del_ot)
VYSKOC
NVOLBA
FMENU
?lNCOL
_SOUC
r?AZAHL
_RELACE
?PROM
AZAHLMAP
rNTYP
?u?HLASKA
PICTX
BRITISH
?gXGET
?s?JMENO_P
? JMENO
POCET_DES
POCET_CEL
?POC_OT
DEL_OT
W_CSPROL
UPPERCS
CPODMV1
      a
Konec  
Konec 
 Trideni zaznamu F
DESCENDING
Stop - d
lku podm
nky ji
 nelze zv
) and (
cmasterorder
  Prob
...  
  Probiha nacteni zaznamu...  
index on recno() tag &cps_dbf of &cps_cdx for &cpodmvu additive &Ndescending
cmasterorder
index on &tmp tag &cps_dbf of &cps_cdx for &cpodmvu additive &Ndescending
  Prob
...  
  Probiha trideni zaznamu...  
index on &cpodms tag &cps_dbf of &cps_cdx for &cfilter additive &Ndescending
index on &cpodms tag &cps_dbf of &cps_cdx additive &Ndescending
  Prob
...  
  Probiha trideni zaznamu...  
index on &cpodms tag &cps_dbf of &cps_cdx for &cpodmvu additive &Ndescending
NOLDVOLBA
NMENUPTR
NMENUPOS
AZAHLLEN
_SOUC
r?COLDPODMS
NVOLBA
_NROW
?NCOL
CPROM
rXPROM
?u?CTYP
XOPER
?gTMP
?s?ALOGIC
AZAHL
T_DES
NHEADLEN
CPODMS
COLDDESC
?NDESCENDINNIR1
ENDINNR2
?AMAP
n?rZAHL
?W_CESTINA
MAX_DEL
n?CPODM_ST
iNDESC
CPODMS1
INVYSKOC
i?TVOR_TRID
STOPSEL
AZAHLDEL
 CFILTER
INCPODMVU
CPODMV
?CMASTERORDMESS
CMASTERINDREPOS
REFALL
CLRCACHE
xprom = &cpodms1
xPromf
csn(FF
dtoc(FF
VYSKOC
NVOLBA
FMENU
?lNCOL
_SOUC
r?ZAHL
AZAHL
_NROW
?CPODMS1
rW_CSPROL
?JMENO_P
JMENO
POCET_DES
POCET_CEL
W_DOPL
    a
Konec
colora
 Volba polo
 Volba polozek F
set color to &col
NOLDVOLBA
NMENUPTR
NMENUPOS
AZAHLLEN
_SOUC
r?NVOLBA
?XOPER
CWHEAD
?CBASE
FREEZSTR
T_DES
ALOGIC
POLEX
FREEZE
AZAHL
?NIC1
ENDINNIC2
ENDINNHEADLEN
W_CESTINA
FMENU
n?rMAPINIT
?PSOUC
?AZAHLDEL
iAUTOBUILD
NVOLBA
NUPTR
NUPOS
HLLEN
pLCLR
c?NMENUPTR
AZAHLLEN
?NOLDVOLBA
NMENUPOS
AZAHL
COLOR1
?COLOR2
AZAHLLEN
AZAHL
colora
set color to &col
CMESS
NWAIT
HLLEN
?lSCR
c?COL
AHLLEN
DVOLBA
NUPOS
colora
set color to &col
CMESS
HLLEN
?lNIR1
c?NIR2
?NIC2
colora
set color to &col
CMESS
NWAIT
HLLEN
?lCOL
?NSTARTT
?NIC2
LISCOUNT
COUNTER
rPS_ZAZN
?INFOCNT
T_DES
LISCOUNT
NALLPZAZ
set color to &titlecolor
TITLE
?NIR2
?lNC2
c?PS_ZAZN
INFOCNT
?ZAHLAVI
ZAHLAVI
pNCURSCR
?lNC1
c?NTOPSCR
nlen = len( &tmp )
MOD_PSV- Proc PadZahl: Polo
 rozm
r okna !
POLEX
pJMENO
?ZAHL
?lNIC2
c?NIC1
MOD_PSV- Proc AUTOBUILD: P
 sestava !
CFREVETA
pCFREZAHL
?VETA
lZAHLAVI
c?NIC1
NTOPSCR
?NCURSCR
NHEADLEN
?NIC2
NSCRCNT
rJMENO
?PSOUC
FREEZE
NAZEVT
Vyber8
Trideni8
18,29
Polozky8
18,29
XXXXXXXXX
34,47
Vyhled
Vyhledani8
34,47
XXXXXXXXX
- F10
34,48
XXXXXX
- <Enter>
60,75
Konec
- Esc,^End
60,75
W_MYS
pW_CESTINA
STINA
ADLEN
STINA
?F7_JM
STINA
F10_JM
?DETAIL
DINDET_JM
DINRDETAIL
MDETAIL
RKONEC
MKONEC
LTOGGLE
pNIR1
LNEWREF
LSTABLE
NDBFPTR
NBROWPTR
RCLEAR
SKIPN
pNIR1
NBROWPTR
lNDBFPTR
LNEWCNT
LISCOUNT
NALLPZAZ
PS_ZAZN
pINFOCNT
british
acache(stab_i+1) = padr( &stab_tmp, nic2 - nic1 + 1 )
LNEWREF
STAB_RCC
NDBFPTR
pSTAB_J
lNIR1
?STAB_I
STAB_TMP
NCURSCR
ACACHDIR
COLOR4
?COLOR3
COLOR2
COLOR1
rNIC1
?ACACHE
LSTABLE
BRITISH
C_OZNAC
set order to &oldorder
EWREF
AB_RCC
OLDORDER
pCPODMV
LNEWCNT
lNSAVEZAZ
?NALLPZAZ
CNT_RCC
NSAVEREC
LSHORTJMP
LSTABLE
PS_ZAZN
rLISCOUNT
ACACHDIR
NBROWPTR
COLOR3
COLOR1
pNIR1
lACACHE
british
acache(nbrowptr) = padr( &tmp, nic2 - nic1 + 1 )
do &f0prg in &procx
 Ozna
eno: 
ACACHDIR
NBROWPTR
pBRITISH
lNCURSCR
?ANSI
C_OZNAC
COLOR4
COLOR2
ACACHE
PS_LINE
OWPTR
rNTRGPZAZ
?NIR2
c_oznac
c_oznac
RADEK
ZAZNAM
SPACEBAR
ST_SEL_PSVC_OZNAC
ACACHDIR
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
CHDIR
SEL_PSVC2
NWIDE
rLROW
?RKEY
NGETCOL
OLDORDER
CMASTERORDF9KEY
DINW_CESTINA
F9KEY1
MESSW
NDBFPTR
RDSKIPN
n?rNIR1
?NBROWPTR
REFALL
?CLRCACHE
ACACHDIR
ACACHDIR
ACACHE
ACACHDIR
VNIR1
ACACHE
ACACHDIR
VLINTF1
VCLEFT
CRIGHT
SETF1
OFFLINE
  Tisk
rna nen
ipravena !  
MESSW
colora
MCOLOR
OBRAZ
_del=len(&jmeno(amap(i)))                 
sum all &hodnot to sumat           
tranFF
NHEADLEN
PSOUC
EOFMARK
VPRUCH
HODNOT
lHODN
VAMAP
SUMAT
SUMAC
JMENO
rADDSPACE
pathz
colorz
double
Zadejte jm
stupn
ho souboru:
Zadejte 
plnou cestu c
le exportu:
(Pokud adres
 neexistuje, bude vytvo
uje-li podm
nky DOSu pro MKDIR.)
Cesta nebyla zad
Cesta nesm
 obsahovat mezery !
no nebylo zad
M_EXIT
_PATH
VMMPOM
MJMENO
lM_TXT
VCES_EXP
MOD_WIN
HLASKA
MMCEST
pathz
colorz
double
te disketu a zm
te ENTER ...
!&pth\test_d &sach
ERROR
Disketa nebyla vlo
Disketa nebyla vlozena
mkdir
set default to &sach
set default to &drive
=adir(f_info,'&m_txt')
sta na disket
mkdir
 Prob
enos ... 
!copy &m_txt &plna_ces > nul
W_EXP
VMMSCR
PLNA_CES
lSACH
VDRIVE
FREESPACE
F_INFO
F_SIZE
MPOZSPACE
_PATH
CES_EXP
MOD_WIN
rTEST
?W_CESTINA
HLASKA
MKDIR
MJMENO
store fcreate('&OUT_soub') to _text      
Nelze vytvo
it soubor pro sestavu
clat_win
= fputs (_text, "&xx" )
IN_SOUB
OUT_SOUB
XMSCR
VALIAS
A_CES
lCPOLE
VCLAT_WIN
LAT_WINCS
KON_TISK
TISK_HL2
TISK_S2
VYBER
TVOR_CAST
TRIDENI
TVOR_TRID
VOLBA
FMENU
AZAHLDEL
STOPSEL
MESSW
INFOCNT
RAMECEK
RCLEAR
ZAHLAVI
PADZAHL
AUTOBUILD
HLAVA
SETF1
REFALL
VRESET
REPOS
CNTALL
STABILIZE
COUNTER
LITEOFF
LITEON
C_OZNAC
SKIPN
MAPINIT
HLEDEJ
CLRCACHE
SETCACHE
CACHEUP
CACHEDN
CHKPAR
TISKTEST
HLASKA
NAST_SOUC
NASTSOUBOR
EXPPOL_TT
S2LATWIN
P:\IN\SK\O\
MOD_PSV.FXP
P:\IN\SK\O\MOD_PSV.PRG