home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
S421A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-03-26
|
52KB
|
1,102 lines
zv_aktf
w_modulf
MATERIAL
m_param
MATERIAL
m1_ident
material
m1_ident
soucasti
m1_plan
x1_plan
m4_dodm
ident
m4_organ
m4_txtd
ident
m4_dodmc
ident
e h l e d p o l o
e k - aktual. dodavatel
RIIS 4.1
Funkce
funkce
Aktual
dodavatel
Hr.akt
akt_zmen
s421a
hledej1
Identifikace
m1_ident.ident
m1_ident.ident
m1_ident.nazev
m1_ident.nazev
m1_ident.typ
m1_ident.typ
Ident.odb
ratele
substr( m1_ident.ident_odb,1,9)
m1_ident.ident_odb
m1_ident.ident_odb
' '+m1_ident.kod_pol+' '
m1_ident.kod_pol
m1_ident.mj
m1_ident.mj
PLMJ
' '+ 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)
' '+m1_ident.stav
m1_ident.stav
m1_ident.rozm_csn
m1_ident.rozm_csn
Jakost
m1_ident.jak_csn
m1_ident.jak_csn
str(m1_ident.ds,3)
m1_ident.ds
Postup
m1_ident.c_postup
m1_ident.c_postup
Sek.ident.
m1_ident.sek_ident
m1_ident.sek_ident
space(4)+ m1_ident.rada
m1_ident.rada
Datum
tran (m1_ident.datum,'@E')
dtoc (m1_ident.datum )
ZS/KMD
' '+m1_plan.zs_kmd+' '
m1_plan.zs_kmd
Hmotnost
str(m1_plan.vaha_mj,10,3)
m1_plan.vaha_mj
MJhmot
' '+m1_plan.mj_vahy
m1_plan.mj_vahy
ZV_AKT
---W_MODUL
--ANSI
-----M_PARAM
--JEVICECEN
POLE4
if tAKTARCHDM
AKTPRIODM
M1_IDENT
MATERIAL
uSOUCASTI
dKOD_POL
enM1_PLAN
oX1_PLAN
M4_DODM
IDENT
M4_ORGAN
M4_TXTD
M4_DODMC
POLEX
TPROCX
CLEFT
CRIGHT
FREEZE
ORDER
JMENO
TITLE
TITLECOLORPOC0
rocedurF6
-------F9
-------F10
------F0PRG
----F1ON
F1PRG
alizF4_JM
avatF4PRG
eriaTISKPRG
nF7_JM
cenF7PRG
jedF9PRG
davaF9KEY
o zaF9KEY1
prF10_JM
m4_F10PRG
* sRAMECEK
asRIIS
cen NAZEVT
cenKLICO
acenKLNAZ
*SPACEBAR
oTR_HL1
i sTR_HL2
ce TR_HL3
ateTR_HL4
TR_HL5
etrTR_HL6
avaTR_HL7
--TR_HL8
---TR_HL9
---DET_JM
---ENTER
----DETAIL
DETPRG
('zPS_LINE
U'PS_RETURN
PS_ZAZN
eID_ORG
nasMOD_PSV
odOBSAH
---CISPOL
--IDENT
----W_AKT
--HOR
CECEN
if tX
TARCHDM
TPRIODM
_IDENT
TERIAL
UCASTI
D_POL
_PLAN
_PLAN
_DODM
OBRDOD
W_POLE
PS_LINE
TAKTUAL
M1_IDENT
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w+/w
set color to w/n
&barvas
c_dodm+
c_dodm
c_dodm
ca4dodm
ca4dodm
ca4dodm
c_dodm.dbf
ca4dodm.dbf
KONEC
---POMOC
--P_ZOB
----HOR
--DOL
CECEN
POCET
if tBARVA
BARVAS
BARVAR
BARVAZ
uBARVAU
dBARVAN
enBARVANS
oBARVAH
NOVY_Z
ZM_PRIOR
M4_DODM
CISPOL
C_DODM
IDENT
PRIOR
TAKTARCHDM
CA4DODM
HLAVA
MENU1
ZMENY
&barvaz
Dodavatel
polo
&barvan
Pri I
O Z
vod Cena/PLMJ M
na Pozn
WTEXT4
---CISPOL
9999999.99
seek '&cispol&c_ico&zav'
it pr
ci beze zm
n? (a/N)
HODN1
---Z1
CECEN
if tX1
dKONEC
enDOL
PROC1
ZMEN1
W_AKT
TNAP_HOD
P_ZOB
VOLBA
C_DODM
ZAVOD
CENA_PLMJ
POCET
K_UDAJU
NOVY_Z
LORJEVICECEN
TC_ICO
M4_DODMC
IDENT
CISPOL
rPRIOR
* ALL
---POM
--ULOZ
c_dodm
a4_dodm
ca4dodm
a4_dodm
ca4dodm
M4_DODM
--CISPOL
--IDENT
---C_DODM
--ICO
ZAVOD
if tCENA_PLMJ
PRIOR
AKTARCHDM
ZM_PRIOR
uCA4DODM
enAKTUAL
oMM_AUTOR
DAT_AKT
A4_DODM
&barvau
@ x,1 &vloz prior pict '99'
@ x,4 &vloz ico pict '@!X'
@ x,17 &vloz zavod pict '@!X'
@ x,21 &vloz cena_plmj pict '9999999.99'
@ x,32 &vloz mena pict '@!X'
@ x,36 &vloz pozn function '@S26'
colorz
set color to &Mcolo
--P_ZOB
---POCET
HODN1
if tPRIOR
POCZAZ
POMPRIOR
uW_POLE
T_AKT
PROC1
MCOLO
MALIAS
TMKLIC
ZAVOD
M4_ORGAN
NAZEV_ORG
&barvau
&barva
9999999.99
colorz
set color to &Mcolo
set color to &Mcolo
colorz
set color to &Mcolo
BARVA
--BARVAZ
if tDOL
IDENT
CISPOL
uZAVOD
dCENA_PLMJ
oPOZN
MCOLO
MALIAS
MKLIC
M4_ORGAN
NAZEV_ORG
-
,PgDn,PgUp
- ^PgUp,^PgDn
- ^Home
- ^End,Esc
- F10
- F8
Pohyb
Konec
Funkce
Organizace neexistuje
MENA
c_dodm.mena
M4_ORGAN
-C_DODM
---ZAVOD
--OK_C
if tHLASKA
ID_ORG
uJMENO_C
dWJMENO_C
MOD_C2
oRADEK_C
SLOUPEC_C
MOD_C1
Nebyl vybr
n dodavatel !
9999999.99
colorz
set color to &Mcolo
set color to &Mcolo
c_dodm
c_dodm
if tZ
ENO_C
dW_AKT
oOBRDOD1
ZAZN1
PEC_C
ZAVOD
HLASKA
KONEC
CISPOL
IDENT
C_ICO
C_ZAV
C_KOD
C_MENA
CENA_PLMJ
MCOLO
MALIAS
MKLIC
M4_ORGAN
NAZEV_ORG
M4_DODMC
AKT1_NC
TMOD_SYS
C_DODM
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w+/w
set color to w/n
seek '&CisPol&c_ico'
&barvas
c_dodmc+
c_dodmc
c_dodmc
&barvas
c_dodmc.dbf
KONEC
-POMOC
---DOL
--POCET
BARVA
if tBARVAS
BARVAR
BARVAZ
BARVAU
uBARVAN
dBARVANS
BARVAH
oNOVY_Z
M4_DODMC
C_DODMC
IDENT
CISPOL
C_ICO
KOD_CEN
C_KOD
ZAVOD
C_ZAV
CENA_PLMJ
C_DODM
HLAV1
MENU2
ZMENY1
&barvaz
Ceny od: F
&barvan
d Cena/plmj Rozhod. mno
. Pozn
WTEXT4
-M4_ORGAN
-NAZEV_ORG
it pr
ci beze zm
n? (a/N)
HODN1
ZEV_ORG
if tX1
dKONEC
_DODMC
PROC2
ZMEN2
W_AKT
POCET
K_UDAJU1
NOVY_Z
C_DODMC
IDENT
CISPOL
KOD_CEN
C_KOD
C_ICO
ZAVOD
C_ZAV
ULOZ1
seek '&cispol&c_ico&c_zav'
c_dodm
c_dodm
c_dodmc
M4_DODMC
-IDENT
-CISPOL
--C_ICO
ZAVOD
if tC_ZAV
C_DODMC
C_DODM
KOD_CEN
uCENA_PLMJ
&barvau
@ x,1 &vloz kod_cen pict '@!S3'
KOD_CEN
c_dodmc.kod_cen
@ x,5 &vloz cena_plmj pict '9999999.99'
@ x,17 &vloz mno_r pict '99999999.999'
@ x,31 &vloz pozn function '@S40'
-P_ZOB
POCET
MALIAS
f tOK_C
JMENO_C
WJMENO_C
MOD_C2
uRADEK_C
DODMC
SLOUPEC_C
MOD_C1
&barvau
&barva
9999999.99
99999999.999
BARVA
-BARVAZ
C_DODMC
DODMC
IDENT
CISPOL
uKOD_CEN
CENA_PLMJ
MNO_R
-
,PgDn,PgUp
- ^PgUp,^PgDn
- ^Home
- ^End,Esc
Pohyb
Konec
Organizace neexistuje
M4_ORGAN
-C_DODMC
ZAVOD
--OK_C
tHLASKA
Dodavatel
polo
specifikace polo
ceny
ehled archivu polo
ky pro I
Archiv polo
ech dodavatel
Konec
do Volba1
do Volba2
do Volba3
do Volba4
do Volba5
do volba7
KONEC
DODMC
-OBRF
--VOL11
tVOLBA
JEVICECEN
AKTARCHDM
VOLBA
-OBRF
ZOBR_DOD
-KONEC
VOLBA
-OBRF
-AKT_OS
KONEC
VOLBA
-OBRF
-AKT_NC
KONEC
VOLBA
-OBRF
-CARCZ
PREHARCH
-KONEC
VOLBA
-OBRF
-CARCZ
PREHARCH
-KONEC
VOLBA
-OBRF
nazev
detailn
znamy neexistuj
set color to &barva
w+/bg
w+/bg
w+/bg
Zadejte n
zev nebo I
O organizace
nazev
BARVA
EHARCH
ARCHDM
uDMEZ
ODSKOK
M4_ORGAN
NAZEV
HLASKA
HELP1
STREC
SAYRAD1
C_DODM
ZAVOD
ZMENA
VOLBA
STZAZ
W_CESTINA
ehled dodavatel
O
zev dodavatele
set color to &barx
-BARX
ZAVOD
-NAZEV_ORG
Konec
Pohyb
Enter
- Esc
- Home,End,PgUp,PgDn,
- Vyhled
r dodavatele
colorz
Vyhled
podle
sla rozpisky :
zvu rozpisky :
sla odb
rat. :
ident
nazev
IDENT_ODB
ident_odb
IDENT_ODB
mod_fun
Ve Va
organizaci tento kl
it !
++.+++++
mod_fun
Rozpiska nebyla nalezena
sorde
Polo
ka nen
ve v
mod_fun
MCOLOR
-CPODMV
-SORDE
-M1_IDENT
IDENT
tKLIC1
KLIC2
KLIC3
IDENT
uNAZEV
W_CESTINA
UPPERCS
IDENT_ODB
HLASKA
MOD_FUN
P_IDENT2
c_oznac
Funkce nelze pou
t, pokud jsou n
polo
ky ozna
eny ke zm
mod_fun
m_param
m1_zas
x1_zas
m1_kalk
x1_kalk
m1_kalks
x1_kalks
m_dat
x_dat
m_cis1
x_cis1
MATERIAL
mod41b_2
m4_organ
m4_organ
m1_zas
m1_zas
m1_kalk
m1_kalk
m1_kalks
m1_kalks
m_dat
m_dat
m_cis1
m_cis1
MALIAS
-MOBR
HLASKA
-MOD_FUN
MOD_SYS
tM_PARAM
W_PRUMER
POLE4
M1_ZAS
uX1_ZAS
M1_KALK
X1_KALK
M1_IDENT
IDENT
M1_KALKS
X1_KALKS
M_DAT
X_DAT
M_CIS1
X_CIS1
PRG_ZAS
PRG_PLAN
PRG_KALK
PRG_POZID
PRG_NPOL
PRG_IIP
VICE_ICO
W_MODUL
MOD41BD2
MOD41B_2
MOD11BD
M4_ORGAN
PS_RETURN
c_oznac
Nebyly ozna
eny polo
ky k aktualizaci.
mod_fun
na - Konec -
^End
it dodavatele
o Z
vod Priorita
nazev
p_ico
Organizace
o Z
vod N
ico+' '+zavod+' '+nazev_org
hled_organ
mod_fun
ekejte pros
m.
Prov
m aktualizaci dodavatele.
mod_fun
ident1
m4_dodm
ident<
-HLASKA
-MOD_FUN
-OBR1
P_ICO
tP_ZAV
P_PRI
M4_ORGAN
NAZEV
N_LMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
N_VYB
ZOBR_NAP
ZAVOD
NAZEV_ORG
M4_DODM
M1_IDENT
MOD_SYS
C_OZNAC
ZAZNAM
IDENT1
TIDENT
PRIOR
CENA_PLMJ
* PRI2
Nebyl vybr
n dodavatel !
9999999.99
colorz
set color to &Mcolo
set color to &Mcolo
c_dodm
c_dodm
D_FUN
W_AKT
OBRDOD1
ZAZN1
ZAVOD
HLASKA
KONEC
CISPOL
IDENT
C_ICO
C_ZAV
C_KOD
C_MENA
CENA_PLMJ
MCOLO
MALIAS
MKLIC
M4_ORGAN
NAZEV_ORG
M4_TXTD
AKT1_OS
TMOD_SYS
C_DODM
set color to b/w
set color to bg/n
set color to w+/bg
set color to b/bg,w+/rb
set color to w+/b
set color to w+/w
set color to w/n
seek '&CisPol&c_ico'
&barvas
c_txtd+
c_txtd
c_txtd
&barvas
c_txtd.dbf
KONEC
-POMOC
-POCET
BARVA
tBARVAS
BARVAR
BARVAZ
BARVAU
uBARVAN
BARVANS
BARVAH
NOVY_Z
M4_TXTD
C_TXTD
IDENT
CISPOL
C_ICO
ZAVOD
C_ZAV
RADEK
HLAV3
MENU3
ZMENY3
&barvaz
kup.specifikace: F
&barvan
dek Text
WTEXT4
-M4_ORGAN
-NAZEV_ORG
it pr
ci beze zm
n? (a/N)
HODN1
ZEV_ORG
KONEC
_TXTD
PROC3
ZMEN3
W_AKT
POCET
NOVY_Z
RADEK
C_TXTD
IDENT
CISPOL
C_ICO
ZAVOD
C_ZAV
RAD_PLAT
ULOZ3
seek '&cispol&c_ico&c_zav'
c_txtd
M4_TXTD
-IDENT
-CISPOL
-C_ICO
ZAVOD
tC_ZAV
C_TXTD
&barvau
@ x,8 &vloz text
-POCET
&barvau
&barva
BARVA
-BARVAZ
C_TXTD
IDENT
CISPOL
uRADEK
-
,PgDn,PgUp
- ^PgUp,^PgDn
- ^Home
- ^End,Esc
Pohyb
Konec
colorz
Nebyl vybr
n dodavatel (I
O a z
vod jsou pr
9999999.99
a4_dodm
ident
a4_dodm
ident
znam v archivu nen
c4_a+
a4_dodm
ident
znam v archivu nen
c4_a+
Archiv cen v
ech polo
Archiv cen F
pro:
Archiv v
ech cen polo
ky: F
RIIS 4.1
s421a
Identifikace
c4_a.ident
c4_a.ident
str(c4_a.prior,2)
c4_a.prior
m1_ident.nazev
m1_ident.nazev
m1_ident.typ
m1_ident.typ
Ident.dodavatele
substr( m1_ident.ident_odb,1,9)
m1_ident.ident_odb
m1_ident.ident_odb
Sek.ident.
m1_ident.sek_ident
m1_ident.sek_ident
Dodavatel
m4_organ.nazev_org
m4_organ.nazev_org
m1_ident.mj
m1_ident.mj
m1_plan.zs_kmd
m1_plan->zs_kmd
' '+ 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)
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
str(c4_a.prior,2)
c4_a.prior
Cena/PLMJ
str(c4_a.cena_plmj,10,2)
c4_a.cena_plmj
' '+c4_a.mena
c4_a.mena
c4_a.pozn
c4_a.pozn
Dat.arch.
tran(c4_a.dat_akt,'@E')
(c4_a.dat_akt )
Archivoval
c4_a.autor+' '
c4_a.autor
MALIAS
-MOBR
-CISPOL
C_ICO
-C_ZAV
MCOLO
ZAVOD
CARCZ
HLASKA
uIDENT
C_POR
C_POZN
C_CEN
CENA_PLMJ
C_MENA
M4_ORGAN
C_NAZ
NAZEV_ORG
PS_LINE
MOD_SYS
A4_DODM
DAT_AKT
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
TZAHL
JMENO
PSOUC
* TITLE
-TITLECOLORPOC0
alizF3
avatF4
eriaF6
cenF9
jedF10
davaF0PRG
o zaF1ON
prF1PRG
m4_F4_JM
* sF4PRG
asTISKPRG
n F7_JM
cenF7PRG
acenF9PRG
*F9KEY
oF9KEY1
i sF10_JM
ce F10PRG
ateRAMECEK
etrNAZEVT
avaKLICO
--KLNAZ
---SPACEBAR
-TR_HL1
---TR_HL2
---TR_HL3
TR_HL4
('zTR_HL5
U'TR_HL6
TR_HL7
TR_HL8
eTR_HL9
nasDET_JM
odENTER
ykleDETAIL
DETPRG
PS_RETURN
PS_ZAZN
M1_IDENT
M1_PLAN
LORID_ORG
MOD_PSV
MENA
c_dodm.mena
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
ZOBR_DOD
tMOD_C3
HLASKA
S421A
DODAVATEL
AKTUAL
HLAVA
t.typ
ZMENY
= "m1
ZMEN1
zahl(P*
PROC1
MENU1
id_o
K_UDAJU
HLASKA
"su59
AKT_NC
AKT1_NC
HLAV1
jmen
ZMENY1
ULOZ1
ZMEN2
odn(idR
PROC2
nt.id
MENU2
K_UDAJU1
VOLBA
(i) =
VOLBA1
VOLBA2
VOLBA3
VOLBA4
VOLBA5
VOLBA7
ZOBR_DOD
i)='m1
SAYRAD1
HELP1
ahl(i
HLEDEJ1
FUNKCE
AKT_ZMEN
AKT_OS
m1_:
AKT1_OS
HLAV3
)+' '
ZMENY3
ULOZ3
1_pla
ZMEN3
, m1_
PROC3
m1_plM
MENU3
PREHARCH
NAP_HOD
X:\OBEC\04\
S421A.FXP
X:\OBEC\04\S421A.PRG