home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
MOD_CIS.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-09-23
|
24KB
|
481 lines
m_param
s e l n
k y datov
ch polo
RIIS 0.0
mod_cis
tisk_prg
Zadejte polo
Kopie
kopie_cis
penter
Modul
' '+modul+' '
modul
s_riis
s_riis
zev polo
nazev_dp
nazev_dp
Ext.id.
s_externi
s_externi
Rozsah
' '+str(rozsah,2)+' '
rozsah
' '+typ+' '
Zobraz.
' '+zobr_cis+' '
zobr_cis
' '+str(pocet_zaz,3)+' '
pocet_zaz
' '+str(delka_txt,3)+' '
delka_txt
Aktual.
' '+aktual+' '
aktual
2-1,5POM_IDX2
oW_CESTA
z2POSUN
ay 'ZRUSENO
2-1,25KONTR1
xt'M_PARAM
**W_PODNIK
*FIRMA
****OTEVRI
***M_DAT
****P_DAT
****POLEX
FREEZE
e sLEVA
paraPRAVA
rx,bHOR
et colDOL
&barxRAMECEK
leNAZEVT
,78RIIS
ile dNADPIS
.aPROCX
endF2
f eof()F3
. m_datF4
iis # sF4PRG
reF6
endif
,field_F9
say &reF9KEY
cturF10
@ rF10_JM
m_F10PRG
_exDETAIL
5 sDET_JM
1.tENTER
colZAHL
returJMENO
****HODN
****I
****MOD_PSV
**OBSAH
use &pth\data\m_uziv order uzivatel
ivatel
syst
mu RIIS - z
RIIS 0.0
mod_sow
Zadejte n
zev u
ivatele :
Funkce
fun_zak
Aktual
akt_zak
ivatel
uzivatel
uzivatel
Adres
left(adresar,20)
adresar
c_oznac.dbf2
c_oznac
zaznam
Prob
kopie
...
\DATA
\M_DAT.DBF
\M_CIS1.DBF
Soubor
neexistuje
Soubor
neexistuje
\m_dat
\x_dat
\m_cis1
\x_cis1
2-1,5ADRESAR
oF_ADR
z2POLEX
ay 'PROCX
@RTOP
-1,25RBOT
xt'CLEFT
**CRIGHT
*FREEZE
***ORDER
***ZAHL
****JMENO
****HODN
TITLE
e sTITLECOLORPS_LINE
et colF2
&barxF3
,78F6
ile dF7
.aF9
endDETAIL
f()F1PRG
_datF4_JM
# sF4PRG
reF7_JM
F7PRG
eld_F9KEY
&reF10_JM
turF10PRG
@ rDET_JM
m_DETPRG
_exRAMECEK
sNAZEVT
1.tRIIS
colSPACEBAR
rLEVA
****PRAVA
****HOR
****DOL
**NADPIS
**ENTER
proMOD_PSV
lpM_UZIV
oviC_OZNAC
rZAZNAM
sM_DBF
elseMESS
M_DAT
S_RIIS
t cW_CESTA
/nW_DAT
clW_CIS1
+7TXT
rxHLASKA
x+7DAT
ubCIS1
,sNASEL
'-MODUL
5)+NAZEV_DP
rS_EXTERNI
ROZSAH
r(1TYP
r(217)POCET_ZAZ
DELKA_TXT
ZOBR_CIS
-AKTUAL
@ rWHILE
M_CIS1
gUpHODNOTA
rHOD_EXT
sTEXT
^HomePS_RETURN
set color to &barx
2-1,5BARX
oMODUL
z2S_RIIS
y 'NAZEV_DP
@S_EXTERNI
ROZSAH
xt'TYP
**ZOBR_CIS
*AKTUAL
RIIS 0.0
w+/bg
2-1,5STREC
oPICTX
z2RETEZ1
y 'WHODNOTA
@FIELD_POZ
KLIC1
xt'KLIC2
**CISELX
*M_DAT
***HMEZ1
***DMEZ1
****HMEZ2
****DMEZ2
R_POZ
e sS_POZ
OLORST_R_POZ
bPPOL_R1
olPPOL_R2
rxPOLOVINA
eNAPOVEDA
8NOVY_Z
e dPOM
.aK_KLICU
ST_KLIC1
dBARVA1
f()BARVA2
datBARVA3
# sBARVA4
reBARVA5
SAYHL1
_SAYHL2
&reZOBR_R1P
rM_CIS1
@ rS_RIIS
m_ZOBR_R2P
xHELP2
sST_KLIC2
tST_KLIC
lST_TYP
****GET_POL
****PREPOCET
R_R2P
*KONTROL1
*KONTR1
proVAZBA
pSAY_POL
viBARVA
rSAYRAD
sSAYRAD2
sePS_RETURN
POCET_ZAZ
DELKA_TXT
KLIC2
-1,5KLIC1
-1,5M_CIS1
oS_RIIS
z2CISEL
y 'M_DAT
@ZAZNAM
xt'DELKA
**TEXT
*DELKA_TXT
POCET_ZAZ
POLOVINA
5M_DAT
oS_RIIS
z2ST_KLIC
'M_CIS1
@ r_poz,field_poz say &retez1 picture pictx
CHYBA ZOBRAZOV
POLO
S_POZ
5POLOVINA
oR_POZ
z2M_DAT
'MODUL
@S_RIIS
NAZEV_DP
'S_EXTERNI
ROZSAH
ZOBR_CIS
AKTUAL
*M_CIS1
*HOD_EXT
CHYBA
POLO
S_POZ
5POLOVINA
oR_POZ
z2M_DAT
'MODUL
@S_RIIS
NAZEV_DP
'S_EXTERNI
ROZSAH
ZOBR_CIS
AKTUAL
*ST_RETEZ
*POLOZKA
M_CIS1
sHODNOTA
ORFIELD_POZ
PICTX
olHOD_EXT
xTEXT
set color to &barva
M_DAT
5POLOVINA
oBARVA
z2HMEZ1
'DMEZ1
'STREC
*SAYRAD
set color to &barva
M_CIS1
5ST_RETEZ
oPOLOVINA
2BARVA
'HMEZ2
@DMEZ2
STREC
*M_DAT
S_RIIS
*SAYRAD2
substr(m_cis1.hodnota,1,m_dat.rozsah)
val(substr(m_cis1.hodnota,1,m_dat.rozsah))
FIELD_LEN
M_DAT
oROZSAH
2FIELD_POZ
PICTX
RETEZ1
set color to &barva1
set color to &barva3
set color to &barva2
zev datov
polo
Ext.n
Rozsah
BARVA1
BARVA2
oBARVA3
2HMEZ1
DMEZ1
set color to &barva1
set color to &barva3
set color to &barva2
Hodnota
Hod.EXT.
BARVA1
BARVA2
oBARVA3
2HMEZ2
DMEZ2
set color to &barx
@ rx,field_poz say &retez1 picture pictx
oM_DAT
2S_RIIS
M_CIS1
HOD_EXT
,PgUp,PgDn
- F2,F3
- ^PgUp,^PgDn
- ^Home
- ^End,Esc
ny - po
ny - z
Pohyb
Bloky
Konec
it help
POLOVINA
m_dat
x_dat
m_cis1
x_cis1
M_DAT
X_DAT
oM_CIS1
2X_CIS1
S_RIIS
D_EXT
Povolen
hodnota rozsahu je 1 - 10 !
Povolen
hodnota typu polo
ky je 'C','N' !
Povolen
hodnota zobrazen
je 'A','N' !
Povolen
hodnota p
znaku aktualizace je mezera,'N' !
KONTR1
M_DAT
oROZSAH
2S_POZ
HLASKA
'ZOBR_CIS
AKTUAL
colora
set color to &color
COLOR
Tisk
Tisk p
ehledu
Konec
mod_psv
mod_lib
mod_lib
c_cis1
m_dat,
c_cis1
Prob
tisk ...
mod_lib
mod_cis
mod_cis
W_TISK
oTISK
2MOD_PSV
P_SETUP
P_RESET
P_6LPI
'P_8LPI
P_10CPI
*P_12CPI
P_16CPI
P_20CPI
*P_BOLDON
*P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
8P_SUBOFF
dP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
()P_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
rMOD_LIB
rINDIK
m_NASTAV_PRNM_DAT
sZAZT
tM_CIS1
lS_RIIS
rC_CIS1
***HODNOTA
**OBRT
***MESS
*NASTAV_REPMOD_CIS
*KOPIE_CIS
SAYRAD
oz,2:
PENTER
K_KLICU
dif%2
VAZBA
ap
PREPOCET
SAY_POL
GET_POL
28
ZOBR_R1P
ZOBR_R2P
ST_RETEZ
SAYHL1
SAYHL2
SAYRAD2
endFD
HELP2
s_ptE
OTEVRI
KONTROL1
HLASKA
TISK_PRG
C:\OBEC\
MOD_CIS.FXP
C:\OBEC\MOD_CIS.PRG