home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
S4207B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-08-28
|
9KB
|
257 lines
m_param
m1_ident
material
m4_dodb
ident
m1_plan
x1_plan
m4_dodm
ident1
m4_organ
m4_dodmc
ident
m4_dodb
Nebyl vybr
mod_fun
ehled blokovan
ch dodavatel
materi
Uvoln
uvolneni
Uvoln
d o d a v a t e l
m a t e r i
RIIS 4.7
Identifikace polo
zobr_cen
s4207b
Identifikace
dodb.ident
dodb.ident
str(m4_dodm.prior,2)
m4_dodm.prior
m1_ident.nazev
m1_ident.nazev
Blokace
' '+m4_dodm.blokace+' '
m4_dodm.blokace
dodb.ico
dodb.ico
dodb.zavod
dodb.zavod
Dodavatel
m4_organ.nazev_org
m4_organ.nazev_org
Dat.blok
tran(dodb.dat_blok,'@E')
dodb.dat_blok
vod blokace
dodb.duv_blok
dodb.duv_blok
Zablokoval
dodb.aut_blok+' '
dodb.aut_blok
m1_ident.typ
m1_ident.typ
Ident.dodavatele
substr( m1_ident.ident_odb,1,9)
m1_ident.ident_odb
m1_ident.ident_odb
m1_plan.zs_kmd
m1_plan.zs_kmd
Sek.ident.
m1_ident.sek_ident
m1_ident.sek_ident
m1_ident.mj
m1_ident.mj
' '+ IIF (empty(m1_plan.plan_mj), m1_ident.mj, m1_plan.plan_mj)
IIF (empty(m1_plan.plan_mj), m1_ident.mj, m1_plan.plan_mj)
Cena/PLMJ
str(m4_dodm.cena_plmj,10,2)
m4_dodm.cena_plmj
' '+m4_dodm.mena
m4_dodm.mena
m4_dodm.pozn
m4_dodm.pozn
m1_ident.rada
m1_ident.rada
m1_ident.rozm_csn
m1_ident.rozm_csn
Jakost
m1_ident.jak_csn
m1_ident.jak_csn
Hmotnost
str(m1_plan.vaha_mj,10,3)
m1_plan.vaha_mj
MJhmot
' '+m1_plan.mj_vahy
m1_plan.mj_vahy
M_PARAM
JEVICECEN
POLE4
y toM1_IDENT
wMATERIAL
dM4_DODB
= IDENT
M1_PLAN
doX1_PLAN
_M4_DODM
avIDENT1
M4_ORGAN
tru toM4_DODMC
seDAT_UVOL
eZAVOD
mc eTXT
oHLASKA
n tMOD_FUN
f POLEX
PROCX
t inRTOP
dodmcRBOT
t, icCLEFT
d, kCRIGHT
cenFREEZE
pozORDER
vZAHL
(dodbJMENO
dodHODN
dodbSOUC
, '*ZPSOUC
TITLE
m.ceTITLECOLORPOC0
pozn)F0
cur = 0F2
lmez=10F3
pmez=78F4
hmez=5
mez=20
rom=''
od =''
c =''
F0PRG
= ' F1ON
kF1PRG
ltriF4_JM
+ 'F4PRG
O:' TISKPRG
(F7_JM
n_hlF7PRG
d CF9PRG
j RoF9KEY
. F9KEY1
F10_JM
"koF10PRG
' 'RAMECEK
enRIIS
, 10,NAZEVT
r (KLICO
2,3)KLNAZ
' 'SPACEBAR
nTR_HL1
TR_HL2
r_nTR_HL3
d_fTR_HL4
e iTR_HL5
TR_HL6
(soTR_HL7
retTR_HL8
***TR_HL9
***DET_JM
***ENTER
****DETAIL
cedDETPRG
nenPS_LINE
sePS_RETURN
PS_ZAZN
t=AKT
PODNIK
dnMOD_PSV
c4_dodmc+
c4_dodmc
c4_dodmc
c4_dodmc
Ceny polo
pro I
d Cena/plmj Rozhod.mno
. Pozn
kod_cen + ' ' + str (cena_plmj, 10, 2) + str (mno_r,12,3) + ' ' + pozn
mod_fun
SOUB_OT
CECEN
y toIDENT
w_ICO
dM4_ORGAN
doZAVOD
_M4_DODMC
vC4_DODMC
KOD_CEN
tru toCENA_PLMJ
seM4_DODM
eN_CCUR
N_LMEZ
oN_PMEZ
n tN_HMEZ
f N_DMEZ
N_PROM
inN_HOD
odmcN_POC
, icN_TEXT
, kN_HLAV
cenN_RAD
pozN_VYB
vZOBR_NAP
bMOD_FUN
c_oznac
Nebyly vybr
ny (vysv
ceny)
daje pro uvoln
pom_blok
pom_blok
c_oznac.dbf
return to &mm_zpet
HLASKA
ZAZNAM
toPOM_BLOK
wC_OZNAC
dDUVOD
NTRGPZAZ
doDODB
_PS_RETURN
v o d u v o l n
- Esc, Zaps
- ^End
it pr
ci beze zm
n? (A/N)
W_TEXT
toM_ZMENA
wKONEC
dOB01
PS_RETURN
ZAPIS
POM_BLOK
M4_DODM
IDENT
wZAVOD
dBLOKACE
AKTUAL
MM_AUTOR
DAT_AKT
_M4_DODB
DAT_UVOL
DUV_UVOL
cW_TEXT
toAUT_UVOL
eS4207B
lok"%
ZOBR_CEN
UVOLNENI
DUVOD
_iden
ZAPIS
dn(i)
X:\OBEC\04\
S4207B.FXP
X:\OBEC\04\S4207B.PRG