home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
MOD45B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-02-26
|
7KB
|
188 lines
british
BRITISH
inMOD45BX
mod45b
w_organf
ehled d o d a v a t e l
RIIS 4.5
ehled o d b
r a t e l
RIIS 2.1
ehled o d b
r a t e l
RIIS 8.4
ehled o r g a n i z a c
RIIS 6.7
Zadejte I
hledej1
Funkce
mod45bd
format
m4_organ
m4_adr
m4_dop_d
m4_uc_o
m4_osl
a.ico
a.ico
a.zavod
a.zavod
zev organizace
a.nazev_org
a.nazev_org
' '+a.cislo_int
a.cislo_int
a.dicp
a.dicp
IIF(d.kod_uctu='FH',d.ucet,space(25))
IIF(d.kod_uctu='FH',d.ucet,space(25))
Typ org.
' '+a.typ_org
a.typ_org
Resort
' '+a.resort
a.resort
' '+a.uzemi
a.uzemi
' '+a.stat_dod
a.stat_dod
Jazyk
' '+a.jaz_styku
a.jaz_styku
Cen.sku.
' '+a.cen_skup
a.cen_skup
b.mesto
b.mesto
b.psc
b.psc
Sleva
' '+a.typ_slevy+' '
a.typ_slevy
Autor
a.jmeno
a.jmeno
Aktual
a.Aktual
a.Aktual
Dat.akt
tran(a.dat_akt,'@E')
a.dat_akt
POLEX
inFREEZE
+1PROCX
i)='NADPIS
menLEVA
a.dicPRAVA
n(i)HOR
zaRAMECEK
etW_ORGAN
i)NAZEVT
odRIIS
'FH',F1
)="IIF(F4
d_uctu=F6
,d.ucetF7
ce(25))F9
= i+1
F9KEY
)='TF9PRG
i) = "F10_JM
+a.F10PRG
hDETAIL
a.tDET_JM
i ENTER
zahlM4_ORGAN
meno(iM4_ADR
'+M4_DOP_D
M4_UC_O
a.M4_OSL
i ZAVOD
lZAHL
JMENO
o(i)HODN
+a.uI
hodnMOD_PSV
zeOBSAH
= i+:
colorz
Vyhled
Zadejte I
O nebo n
zev organizace
nazev
MCOLOR
inOBR
+1STZAZ
i)='KLIC
menCPODMV
dicCPODMS
(i)NAZEV
W_CESTINA
etICO
m4_adr,
m4_adr,
ehled organizace
Adr.:
Typ org.
Int.
Resort
Jazyk
Cenov
skup.
Jm,tit
Org.2
Telefon
Funkce
Ulice,
Telex
Okrsek
Dopravn
instrukce
E-mail
Pl.t.
Zobrazeno prvn
ch 8
M4_ORGAN
1ZAVOD
i)='M4_ADR
menM4_DOP_D
cOBR_S
)WTEXT
KOD_ADR
NAZEV_ORG
TYP_ORG
i)DICP
odCISLO_INT
RESORT
acUZEMI
hoSTAT_DOD
(JAZ_STYKU
CEN_SKUP
tTYP_OSLOV
JMENO
NAZEV_ORG2TELEFON
jFUNKCE
= "FAX
+a.ULICE
hDALNOPIS
tMESTO
i CSD
rCSAD
iLETISTE
+STAT
OKRSEK_CD
DOPR_INST1E_MAIL
M4_UC_O
i)KOD_UCTU
uUSTAV
hodnUCET
zeZP_PLATBY
l(i)=PLAT_TERM
MOD45BX
HLEDEJ1
FORMAT
Z:\ALVITA\
MOD45B.FXP
Z:\ALVITA\MOD45B.PRG