home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
S423A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-03-22
|
37KB
|
1,048 lines
A k t u a l i z a c e objedn
RIIS 4.2
Funkce
Qfunkce
Aktual
Aktual
s423a
Zadejte objedn
vku :
m_param
m4_obj
objed
m4_pobj
objed
m4_pobjd
objed
m4_organ
m5_plan
zakazka
m4_pobjt
objed
m1_ident
ident
m4_dodm
ident1
Objedn
m4_obj.mat_obj
m4_obj.mat_obj
zev organizace
m4_obj.nazev_org
m4_obj.nazev_org
m4_obj.ico
m4_obj.ico
m4_obj.zavod+' '
m4_obj.zavod
m4_obj.stav+' '
m4_obj.stav
Dat.vys.
trans(m4_obj.datum_v,'@E')
m4_obj.datum_v
slo KS
m4_obj.cislo_ks
m4_obj.cislo_ks
Datum KS
trans(m4_obj.datum_ks,'@E')
m4_obj.datum_ks
Dat.odesl.
trans(m4_obj.datum_o,'@E')+' '
m4_obj.datum_o
Ulice
m4_obj.ulice
m4_obj.ulice
m4_obj.mesto
m4_obj.mesto
m4_obj.psc
m4_obj.psc
Dod.lh
m4_obj.dod_lhuta
m4_obj.dod_lhuta
sob dopravy
m4_obj.zpus_dopr
m4_obj.zpus_dopr
sto ur
m4_obj.misto_ur
m4_obj.misto_ur
Stanice ur
m4_obj.csd
m4_obj.csd_okrsek
Okrsek
m4_obj.csd_okrsek
m4_obj.csd_okrsek
izuje
m4_obj.vyrizuje
m4_obj.vyrizuje
Dopravn
dispozice (1)
LEFT(m4_obj.dop_disp,50)
m4_obj.dop_disp
Dopravn
dispozice (2)
RIGHT(m4_obj.dop_disp,50)
m4_obj.dop_disp
Intern
pozn
m4_obj.pozn
m4_obj.pozn
MM_TYP
witAKTDODM
1ANSI
POLEX
PROCX
dcasRTOP
RBOT
CLEFT
CRIGHT
FREEZE
gORDER
HOR
DOL
endif
PRAVA
NADPIS
ZAHL
JMENO
endiHODN
SOUC
t c4_TITLE
TITLECOLORPOC0
konecF1
F2
y='2' aF3
men_dodF4
F6
ozpust
ENDIF9
ENDCAF10
F0PRG
***F1ON
*****F1PRG
****F4_JM
****F4PRG
TISKPRG
e F7_JM
saF7PRG
en tF9PRG
WF9KEY
matF9KEY1
az2F10_JM
F10PRG
reeRAMECEK
rxRIIS
dNAZEVT
.t.KLICO
toreKLNAZ
froSPACEBAR
TR_HL1
or TR_HL2
b/wTR_HL3
29 TR_HL4
18TR_HL5
10,TR_HL6
,53TR_HL7
TR_HL8
ay TR_HL9
vkaDET_JM
triENTER
DETAIL
1 pDETPRG
PS_LINE
PS_RETURN
PS_ZAZN
ptM_PARAM
bjAKTARCHDM
POLE4
,31 AKTPRIODM
M4_OBJ
vOBJED
@M4_POBJ
mpM4_POBJD
M4_ORGAN
@15,31M5_PLAN
UZAKAZKA
bjM4_POBJT
M1_IDENT
oIDENT
onecM1IDENT
M4_DODM
nuIDENT1
MOD_PSV
l4_M_ULICE
r_M_MESTO
o_M_STAT
_M_PSC
vo_M_DALNOPI_M_TELEFON_M_FAX
_M_ICO
vol_M_FIRMA
s_M_DISP
m_M_USTAV
h_M_UCET
if_M_DICP
_u_M_NAZEV
U_M_NAZ_2
u_M_ZAV
uliPEMAIL
estMEMAIL
S objedn
vkou pracuje n
kdo jin
znam nen
stupn
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/n
&barvau
witOBRA1
1TXT
HLASKA
PS_LINE
asW_POLE
M4_OBJ
NOVY_Z
ZMENA
JMENO_C
gWJMENO_C
RADEK_C
SLOUPEC_C
Q1
Q3
endiQ5
CISELNIK
DOL
ECOLORPOCET
konecDOP2
POR
='2' aCOUNT
_dodZAKAZNIK
POMOC
ENDIRAD
ENDCASL
***KONTROLA
*BARVAS
***BARVAR
***BARVAZ
BARVAU
e BARVAN
saBARVAH
n tKS
WMENU1
matBARVA
az2PORADI1
KONEC
toreU
froT
ACEBAR
b/wMM_POM
29 ZMENY
18PS_RETURN
Aktualizace objedn
smlouva :
Datum vystaven
KS :
Datum odesl
KS :
-
- ^End,Esc
Pohyb
Konec -
@!XXXXXXXXXXXX
W_POLE
@ 16,60 &vloz w_pole(13) picture '@!XXXXXXXXXXXX'
@ 18,60 &vloz w_pole(14) picture '@E'
@ 19,60 &vloz w_pole(15) picture '@E'
ZMENA
DO PROC&Y
DO ZMEN&Y with 'get'
DO ZMEN&Y with 'say'
s422c
it pr
ci beze zm
n? (a/N)
a4_dodm
m1Ident
m4_dodm
KONEC
X
DOL
HOR
MENO_C
UPEC_C
_A
PRIJSCR
QPRIJ
S422C
endiQ
POCET
_ZMENA
POM
ECOLORW_POLE
ZMEN_DOD
cROZPUST
M4_DODM
aAKTDODM
odAKTARCHDM
W_ARCH
MM_AUTOR
IW_DODM
DCAAKTPRIODM
QAWRE
***PRIOR
*IDENT
***C4_POBJ
Objedn
vka:F
objedn
Text objedn
vky
Tisk objedn
vky
objedn
Uzav
objedn
Konec
_M_ulicef
m_param
m4_uc_o
et s k
dem '
' neexistuje!
m4_adr
daje o vlastn
firm
daje o vlastn
firm
m4_tobj
objed
a4_tobj
objed
c4_text+
c4_text
m4_obj
objed
m4_pobj
objed
m4_pobjd
objed
a4_obj
objed
a4_pobj
objed
a4_pobjd
objed
m1_ident
ident
s422a
select &_alias
Opravdu zru
it objedn
vku (a/n) ?
m5_dnp
zakazka
m5_dnp
zakazka
m4_tobj
objed
_AOBR
witW_COBJ
1MAT_OBJ
_ZAZ2
_AOBRX
asVOL4
QPORADI
QTEXTY
MOD_SYS
_M_ULICE
g_M_MESTO
_M_STAT
_M_PSC
_M_DALNOPI_M_TELEFON_M_FAX
_M_ICO
_M_FIRMA
i_M_DISP
_M_USTAV
__M_UCET
_M_DICP
OR_M_NAZEV
_M_NAZ_2
c_M_ZAV
PEMAIL
aMEMAIL
od_ZAZ
_ALIAS
M_PARAM
IPATH0
DCAPT_OBEC
***ZAVOD
*POLE4
***M4_UC_O
M4_OBJ
VL_KOD_UCTUSTAV
aUCET
tHLASKA
WM4_ADR
UCTMESTO
2NAZEV_ORG
NAZEV_ORG2ULICE
xSTAT
.t.DALNOPIS
ITELEFON
ONFAX
E_MAIL
or M4_ORGAN
NDICP
MM_TYP
8M4_TOBJ
OBJED
,53A4_TOBJ
C4_TEXT
y HLAOBJ
kaM4_POBJ
riPOROBJ
M4_POBJD
pDETOBJ
A4_OBJ
A4_POBJ
A4_POBJD
tM1_IDENT
jIDENT
TISK_OBJ
S422A
vZRUS
@M5_DNP
mpZAKAZKA
PORADI
yPOR_OBJ
1M4_POBJT
USTAV
jPS_RETURN
c4_pobj+
mi objedn
vky pracuje n
kdo jin
, nelze aktualizovat.
c4_pobj
Objedn
vka nem
Aktualizace po
objedn
vky F
RIIS 4,2
Aktualizace po
objedn
vky F
Detail
det_por
Aktual
Akt_por
s423a
Zadejte po
str(c4_pobj.poradi,3)
c4_pobj.poradi
c4_pobj.ident
c4_pobj.ident
zev polo
c4_pobj.nazev
c4_pobj.nazev
m1Ident.typ
m1Ident.typ
K dod
[MJ]
' '+str(c4_pobj.mno_mj,12,3)
c4_pobj.mno_mj
c4_pobj.mj
c4_pobj.mj
c4_pobj.plan_mj+' '
c4_pobj.plan_mj
K dod
[Pl.MJ]
' '+str(c4_pobj.mno_plmj,12,3)
c4_pobj.mno_plmj
Potvrzeno[Pl.MJ]
' '+str(c4_pobj.mno_po,12,3)
c4_pobj.mno_po
Dod
no[MJ]
str(c4_pobj.mno_ov,12,3)
c4_pobj.mno_ov
Vadn
ch[MJ]
str(c4_pobj.mno_zm,12,3)
c4_pobj.mno_zm
Storno[MJ]
str(c4_pobj.mno_st,12,3)
c4_pobj.mno_st
statek[MJ]
str(c4_pobj.mno_kdo,12,3)
c4_pobj.mno_kdo
Dat.po
ad.dod.
trans(c4_pobj.datum_pd,'@E')+' '
c4_pobj.datum_pd
Datum potvrz.
trans(c4_pobj.datum_po,'@E')+' '
c4_pobj.datum_po
Identifikace
c4_pobj.sek_ident
c4_pobj.sek_ident
Koeficient
str(c4_pobj.koef,11,4)
c4_pobj.koef
Cena/Pl.MJ
str(c4_pobj.cena_plmj,10,2)
c4_pobj.cena_plmj
Extern
identifikace
m1Ident.ident_odb
m1Ident.ident_odb
m1Ident.rada
m1Ident.rada
RIIS 4.2
QQSEL
witOBR2
1MOD_SYS
Q1QZAZN
PS_LINE
asCISOBJ
MAT_OBJ
M4_POBJ
C4_POBJ
W_COBJ
gHLASKA
PORADI
XC4_POBJ
IDENT
NOPIM1IDENT
ONTXT
M4_OBJ
PS_RETURN
POLEX
PROCX
_RTOP
RBOT
ORCLEFT
CRIGHT
cFREEZE
ORDER
aHOR
odDOL
PRAVA
INADPIS
DCAZAHL
JMENO
***HODN
*SOUC
***TITLE
TITLECOLORPOC0
D_UCTF0
UCTF4
EV_ORG
EV_ORG2F9
dF0PRG
.t.F1ON
IF1PRG
ONF4_JM
F4PRG
or TISKPRG
NF7_JM
F7PRG
8F9PRG
F9KEY
,53F9KEY1
F10_JM
y F10PRG
kaRAMECEK
riRIIS
NAZEVT
pKLICO
KLNAZ
SPACEBAR
TR_HL1
tTR_HL2
jTR_HL3
TR_HL4
TR_HL5
TR_HL6
vTR_HL7
@TR_HL8
mpTR_HL9
DET_JM
yENTER
1DETAIL
UDETPRG
jPS_ZAZN
MOD_PSV
ecA_POLE
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/n
&barvau
KA NEEXISTUJE !!
witOBRA2
1PS_LINE
AKTDODM
M4_DODM
asW_DODM
C4_POBJ
IDENT
M4_OBJ
ICO
gZAVOD
DODMPOC
W_POLE
NOVY_Z
OPIZMENA
ONJMENO_C
WJMENO_C
RADEK_C
SLOUPEC_C
CISELNIK
odDOL
POCET
IDOP2
DCAPOR
COUNT
***ZAKAZNIK
*ZMEN_DOD
*_HODN
POMOC
OLORY
D_UCTRAD
tPOC
WKONTROLA
TBARVAS
2BARVAR
BARVAZ
RG2BARVAU
xBARVAN
dBARVAH
.t.KS
IMENU2
ONBARVA
PORADI2
r KONEC
MECEK
riROZPISKA
ZMENY
pPS_RETURN
. FFF
K dod
[MJ] :
K dod
[Pl.MJ] :
Potvrzeno[Pl.MJ] :
no [MJ] :
ch [MJ] :
Storno [MJ] :
statek [MJ] :
Koeficient :
Cena/1 PlMJ:
Datum po
Datum potvrz.v KS :
Akt.ceny a pozn.dodav.mat.:
Cena/1 PlMJ:
W_POLE
-
- F10
- ^End,Esc
Pohyb
jem polo
Konec -
99999999.999
99999999.999
99999999.999
99999999.999
99999999.999
99999999.999
99999999.999
9999999.9999
9999999.99
9999999.99
W_POLE
witW_DODM
@ 12,31 &vloz w_pole(11) picture '99999999.999'
99999999.999
99999999.999
@ 14,31 &vloz w_pole(12) picture '99999999.999'
@ 15,31 &vloz w_pole(14) picture '99999999.999'
99999999.999
@ 16,31 &vloz w_pole(15) picture '99999999.999'
99999999.999
@ 17,31 &vloz w_pole(16) picture '99999999.999'
99999999.999
@ 13,64 &vloz w_pole(19) pict '9999999.99'
@ 14,71 &vloz w_pole(3) picture '@E'
@ 15,71 &vloz w_pole(4) picture '@E'
@ 18,68 &vloz W_dodm(6) pict '9999999.99'
@ 19,51 &vloz W_dodm(5) pict '@S28'
1_HODN
W_POLE
ZMEN_DOD
ZMENA
colora
set color to &Hcolor
witHCOLOR
1HOBR
c4_pom+
c4_pom
xc4_pom
m4_pobjd
witPORADI
1MNODOD
MNO_OV
OBRR
sMOD_SYS
M4_POBJD
CISOBJ
C4_POM
MAT_OBJ
gDATUM_PD
XC4_POM
ALL
MNO_MJ
OPIA_POLE
NM5_PLAN
ZAKAZKA
CPOL
C4_POBJ
Detail po
Specifikace po
Konec
MAOBR
witM_ZAZ2
1MAOBRX
MVOL4
PS_LINE
sW_COBJ
MAT_OBJ
MALIAS
DETNP
TEXTPOR
gPS_RETURN
c4_pobjd+
c4_pobjd
xc4_pom1
detail !
ehled detailu po
objedn
vky
RIIS 4,2
Detail po
Aktual
Akt_pord
s423a
Zadejte datum po
adovan
ho dod
Dat.po
.dod.
trans(c4_pobjd.datum_pd,'@E')+' '
c4_pobjd.datum_pd
k.zak.
c4_pobjd.zakazka
c4_pobjd.zakazka
c4_pobjd.cpol+' '
c4_pobjd.cpol
K dod
str(c4_pobjd.mno_mj,12,3)+' '
c4_pobjd.mno_mj
Dodan
str(c4_pobjd.mno_ov,12,3)
c4_pobjd.mno_ov
statek[MJ]
str(c4_pobjd.mno_mj-c4_pobjd.mno_ov,12,3)
c4_pobjd.mno_mj-c4_pobjd.mno_ov
RIIS 4.2
witMOD_SYS
1ZAZN3
CISOBJ
MAT_OBJ
sCISPOR
PORADI
M4_POBJD
C4_POBJD
DATUM_PD
gXC4_POM1
HLASKA
C4_POBJ
IPS_RETURN
POLEX
PROCX
RTOP
CLEFT
_CRIGHT
FREEZE
ORORDER
LEVA
aPRAVA
odNADPIS
JMENO
IHODN
DCASOUC
TITLE
***TITLECOLORPOC0
OLORF2
D_UCTF3
TROLA
F0PRG
RG2F1ON
xF1PRG
dF4_JM
.t.F4PRG
ITISKPRG
ONF7_JM
F7PRG
r F9PRG
NF9KEY
F9KEY1
8F10_JM
F10PRG
,53RAMECEK
RIIS
y NAZEVT
kaKLICO
riKLNAZ
SPACEBAR
pTR_HL1
TR_HL2
TR_HL3
TR_HL4
tTR_HL5
jTR_HL6
TR_HL7
TR_HL8
TR_HL9
vDET_JM
@ENTER
mpDETAIL
DETPRG
yPS_LINE
1PS_ZAZN
jMOD_PSV
c4_pobjt+
c4_pobjt
objedn
vky nem
specifikaci !
ehled specifikace po
objedn
RIIS 4,2
ehled specifikace po
objedn
s423a
c4_pobjt.text_tx
c4_pobjt.text_tx
RIIS 4.2
witMOD_SYS
1ZAZN3
CISOBJ
MAT_OBJ
sCISPOR
PORADI
M4_POBJT
C4_POBJT
gHLASKA
C4_POBJ
PS_RETURN
POLEX
IPROCX
RBOT
CLEFT
CRIGHT
FREEZE
_ORDER
HOR
ORDOL
cPRAVA
NADPIS
aZAHL
odJMENO
ITITLE
DCATITLECOLORPOC0
***F0
LECOLORF1
OLORF4
D_UCTF6
TF0PRG
2F1ON
F1PRG
RG2F4_JM
xF4PRG
dTISKPRG
t.F7_JM
IF7PRG
ONF9PRG
F9KEY
r F9KEY1
NF10_JM
F10PRG
8RAMECEK
,53NAZEVT
KLICO
y KLNAZ
kaSPACEBAR
iTR_HL1
TR_HL2
pTR_HL3
TR_HL4
TR_HL5
TR_HL6
tTR_HL7
jTR_HL8
TR_HL9
DET_JM
ENTER
vDETAIL
@DETPRG
mpPS_LINE
PS_ZAZN
1MOD_PSV
Aktualizace detailu po
k dod
v MJ
99999999.999
Nelze zru
it, po
adavek vznikl z oper. pl
Nelze nav
OBRAD
witMNOKDOD
1MNO_MJ
CISPOR
PORADI
sPS_LINE
MENU3
C4_POBJ
ROZPISKA
gM4_POBJD
W_COBJ
C4_POBJD
HLASKA
IPS_RETURN
CISOBJ
-
- ^Home
- Esc
- ^End
Pohyb
Konec bez ulo
Konec s ulo
m4_tobj
objed
c4_tobj+
c4_tobj
Objedn
vka nem
naveden text !
Text objedn
vky: F
RIIS 4,2
Text objedn
vky: F
s423a
c4_tobj.text
c4_tobj.text
RIIS 4.2
witMOD_SYS
1QTQZAZN
_ALIAS
PS_LINE
sCISOBJ
MAT_OBJ
M4_TOBJ
OBJED
C4_TOBJ
HLASKA
PS_RETURN
POLEX
IPROCX
RBOT
CLEFT
CRIGHT
FREEZE
_ORDER
HOR
ORDOL
cPRAVA
NADPIS
aZAHL
odJMENO
ITITLE
DCATITLECOLORPOC0
***F0
LECOLORF1
OLORF4
D_UCTF6
TF0PRG
2F1ON
F1PRG
RG2F4_JM
xF4PRG
dTISKPRG
t.F7_JM
IF7PRG
ONF9PRG
F9KEY
r F9KEY1
NF10_JM
F10PRG
8RAMECEK
,53NAZEVT
KLICO
y KLNAZ
kaSPACEBAR
iTR_HL1
TR_HL2
pTR_HL3
TR_HL4
TR_HL5
TR_HL6
tTR_HL7
jTR_HL8
TR_HL9
DET_JM
ENTER
vDETAIL
@DETPRG
mpPS_ZAZN
MOD_PSV
1S423A
radek%
AKTUAL
PORADI1
MENU1
PROC1
&& pu
ZMEN1
ZMENY
QFUNKCE
t ci%
QPORADI
AKT_POR
PORADI2
ar=qM
MENU2
to b'Q
PROC2
&\R
ZMEN2
mecku
HLASKA
ROZPUST
DET_POR
DETNP
TEXTPOR
AKT_PORD
MENU3
zmeny2x
QTEXTY
Z:\RIIS\
S423A.FXP
Z:\RIIS\S423A.PRG