home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
04
/
S422A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-13
|
100KB
|
2,280 lines
MM_jmenof
MM_jazykf
Prob
r dodavatel
materi
lu ...
m4_organ
c4_dodav
m5_dnp
m5_plan
Nebyla nalezena
uvoln
c4_dodav
c4_dodav
m4_dodb.dbf
m_param
m1_ident
ident
m1_plan
x1_plan
m5_plan
zakazka
c4_plan
c4_plan
m4_obj
objed
m4_pobj
objed
m4_pobjd
objed
m4_pobjt
objed
m4_tobj
objed
m_cis1
x_cis1
m_dat
x_dat
m1_pozid
x1_pozid
m1_npol
ident
m4_dodm
ident1
m4_txtd
ident
m4_dodmc
ident
m4_adr
daje o vl.firm
(adresu ZA,HL,FA)
m4_organ
daje o vlastn
firm
zev) !
m4_uc_o
et 'FH' vlastn
firmy !
m4_dop_d
RIIS 4.2
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
objedn
Konec
MOD_SYS
wMM_JMENO
.MM_AUTOR
=MM_JAZYK
s_M_ULICE
_M_MESTO
_M_STAT
b _M_PSC
isk_M_DALNOPI_M_TELEFON_M_FAX
f !_M_ICO
_M_FIRMA
p_M_DISP
_M_USTAV
m_M_UCET
_M_DICP
p_M_NAZEV
_M_NAZ_2
MM_VYB
_ICO
d > __ZAV
_NAZ_O
= __NAZ_O2
DDT1
DDT2
e scrW_COBJ
_m_TT
DO MU1
with ' T1
tisX1
ZOBRAZ
_ko_M_CSD
empQQQ
= rt_M_ZAV
dy._M_IDENT
PEMAIL
P_IDENT
p_MQDOP
boldMQCSD
douMQOKR
= rtTEXTY
ody.ANSI
VYBPLAN
e MESS
rim(pM4_ORGAN
nC4_DODAV
ZAVOD
_kodNAZEV_ORG
DISTINCT
tM5_DNP
iM5_PLAN
p_MAT_OBJ
sPOR_OBJ
= ZAKAZKA
odCPOL
f)C4QD
_oTXT
rtrim(HLASKA
_suKONTBLOK
M_PARAM
PATH0
_kodPT_OBEC
ofPOLE4
JEVICECEN
MEMAIL
.p_M1_IDENT
IDENT
M1_PLAN
_kX1_PLAN
t_C4_PLAN
eiM4_OBJ
rtOBJED
ody.HLAOBJ
M4_POBJ
ffPOROBJ
m(pM4_POBJD
iDETOBJ
hM4_POBJT
M4_TOBJ
odM_CIS1
i)+X_CIS1
kodM_DAT
presX_DAT
usteM1_POZID
iX1_POZID
_M1_NPOL
+rM4_DODM
dyIDENT1
M4_TXTD
M4_DODMC
M4_ADR
0cpNASELADR
eMESTO
iNAZEV_ORG2ULICE
mSTAT
= PSC
kodDALNOPIS
ITELEFON
ONFAX
m(pE_MAIL
resDICP
M4_UC_O
sUSTAV
pUCET
riM4_DOP_D
_DOPR_INST1DOPR_INST2CSD
NST2OKRSEK_CD
BARVAS
BARVAR
(p_BARVAZ
lpiBARVAU
BARVAN
rimBARVAH
p_cZOBRPLAN
VLOZOBJ
VOL4
m(p_kl
Tvorba objedn
vky materi
RIIS 4.2
VlozObj
Vybrat
VyberObj
s422a
O organizace:
c4_dodav.ico
c4_dodav.ico
c4_dodav.zavod+' '
c4_dodav.zavod
zev organizace (dodavatele) materi
c4_dodav.nazev_org + ' '
c4_dodav.nazev_org
POLEX
wPROCX
.RTOP
=RBOT
sCLEFT
CRIGHT
FREEZE
b ORDER
iskHOR
ALNOPIDOL
ELEFONLEVA
f !PRAVA
NADPIS
pZAHL
JMENO
mHODN
SOUC
pTITLE
TITLECOLORPOC0
d > _F1
= _F3
e scrF7
_mF9
DO MF10
ith ' F0PRG
tisF1ON
vkF1PRG
F4_JM
_koF4PRG
empTISKPRG
rtF7_JM
dy.F7PRG
F9PRG
F9KEY
p_F9KEY1
oldF10_JM
douF10PRG
rtRAMECEK
y.RIIS
NAZEVT
e KLICO
im(pKLNAZ
sSPACEBAR
nTR_HL1
TR_HL2
kodTR_HL3
TR_HL4
tTR_HL5
iTR_HL6
p_TR_HL7
sTR_HL8
= TR_HL9
odDET_JM
f)ENTER
_oDETAIL
im(DETPRG
_suPS_LINE
PS_RETURN
PS_ZAZN
odC4_DODAV
MOD_PSV
Prob
r detailn
...
m5_dnp
c4_vyb
Pro zadanou organizaci ji
neexistuj
adavky
c4_plan
RIIS 4.2
adavky na materi
l od dodavatele F
vod dodavatele: F
ehled n
ch zak
Detail
det_ail
Vybrat
_Vyber
s422a
c4_plan.Ols
c4_plan.Ols
Materi
c4_plan.ident
c4_plan.ident
zev materi
m1_ident.nazev
m1_ident.nazev
Term.Obj
trans(c4_plan.ter_uv,'@E')
c4_plan.ter_uv
trans(c4_plan.ter_ov,'@E')
c4_plan.ter_ov
c4_plan.zakazka
c4_plan.zakazka
c4_plan.cpol
c4_plan.cpol
' '+c4_plan.stav+' '
c4_plan.stav
c4_plan.rz+' '
c4_plan.rz
K objedn
str(c4_plan.mno_pl-c4_plan.mno_ov-c4_plan.mno_zm,12,3)
c4_plan.mno_pl-c4_plan.mno_ov-c4_plan.mno_zm
n.mno
' '+str(c4_plan.mno_pl,12,3)
c4_plan.mno_pl
P
ijato
str(c4_plan.mno_ov,12,3)
c4_plan.mno_ov
Vadn
str(c4_plan.mno_zm,12,3)
c4_plan.mno_zm
Sklad/Um.
' '+c4_plan.sklad+' '
c4_plan.sklad
c4_plan.kmd
c4_plan.kmd
_MAT_SCR
wPS_LINE
.MESS
=_ZAZ
s_ICO
_ZAV
b ZAVOD
isk_NAZ_O
OPINAZEV_ORG
ZAKAZKA
!IDENT
CPOL
pM5_DNP
MAT_OBJ
mPOR_OBJ
C4_VYB
pTXT
HLASKA
LORC4_DODAV
C4_PLAN
M5_PLAN
__POLE
ALL
OLS
e scrTER_UV
_mM1_IDENT
MPOLEX
PROCX
tisRTOP
vkRBOT
CLEFT
_koCRIGHT
empFREEZE
rtORDER
dy.HOR
LEVA
p_PRAVA
oldNADPIS
douZAHL
rtJMENO
y.HODN
e TITLE
im(pTITLECOLORPOC0
kodF2
= F10
odF0PRG
f)F1ON
_oF1PRG
im(F4_JM
_suF4PRG
TISKPRG
F7_JM
odF7PRG
fF9PRG
F9KEY
F9KEY1
.p_F10_JM
F10PRG
RAMECEK
_kRIIS
t_NAZEVT
eiKLICO
rtKLNAZ
ody.SPACEBAR
TR_HL1
ffTR_HL2
m(pTR_HL3
iTR_HL4
hTR_HL5
TR_HL6
odTR_HL7
i)+TR_HL8
kodTR_HL9
resDET_JM
steENTER
iDETAIL
_DETPRG
+rPS_RETURN
PS_ZAZN
MOD_PSV
MM_VYB
0cpZAPIS
colora
wHCOLOR
.OBRH
Materi
n.mno
ijato:
K objedn
Sklad/Um.:
OBRDET
wPS_LINE
.C4_PLAN
=ZAKAZKA
CPOL
IDENT
b M1_IDENT
kNAZEV
OPIMNO_PL
MNO_OV
!MNO_ZM
SKLAD
MM_VYB
wC4_PLAN
m5_dnp
zakazka
PorObj
/ / #
PorObj
/ / #
CISRADY
wW_COBJ
.MOD_SYS
=M5_DNP
sZAKAZKA
C4_PLAN
b IDENT
OPITER_UV
M1_IDENT
!M1_PLAN
_POR
p_IDENT
MNAZEV
mNAZEV
MIDENT_ODBIDENT_ODB
MSEK_IDENTSEK_IDENT
MPRIDEJ
_MCENAPLMJ
MIDENT
_M4_DODM
_ICO
_ZAV
e scrCENA_PLMJ
CIZNAZEV
MMAT_OBJ
PORADI
tisDATUM_PD
kDATUM_PO
_IDENT
PLAN_MJ
mpKOEF
rtMNO_MJ
dy.MNO_PO
MNO_PLMJ
MNO_OV
p_MNO_ZM
oldMNO_ST
douMNO_KDO
rtROZPISKA
.TER_OV
_M_IDENT
MOLS
POROBJ
LORMNO_PL
nPRIDAT
ZAPISDALSIHLAVICKA
IZACNI
tCHCESTISK
wCZAV
.MNAZEV
=M1_IDENT
sNAZEV
MIDENT_ODBIDENT_ODB
MSEK_IDENTSEK_IDENT
M1_NPOL
MM_JAZYK
!MIDENT
EX1_IDENT
DetObj
m4_pobjt
m4_pobjt
W_COBJ
w_POR
.C4_PLAN
=TER_OV
sZAKAZKA
CPOL
DBMNO_PL
M5_DNP
ENTMAT_OBJ
POR_OBJ
M4_TXTD
!IDENT
_ICO
mZAVOD
PORADI
DBRAD_TX
TEXT_TX
NTRADEK
_M1_POZID
TYP_TX
&barvau
datez
british
S objedn
vkou pracuje n
kdo jin
znam nen
stupn
HLAOBJ
wMENU1
.BARVA
=BARVAU
sKONEC
DBDOL
T_OBJ
POCET
DBMM_POM
_DATE
NTBRITISH
ZMENY
HLASKA
Tisk objedn
it objedn
vrat
Kopie objedn
Konec
c4_text
c4_text+
c4_text
naveden text objedn
vky, nelze tisknout !
RIIS 4.2
Opravdu zru
it objedn
vku(a/n):
m5_dnp
zakazka
m5_dnp
zakazka
Opravdu kop
rovat objedn
vku ? (a/n):
Nebylo zad
slo kopie objedn
vky !
Toto
slo objedn
vky ji
existuje !
Prob
objedn
vky ...
c_obj+
c_obj
c_obj
c_obj+
c_obj
c_obj
c_obj+
c_obj
c_obj
c_obj+
c_obj
c_obj
c4_text
M_AOBR
wVOL4
.M4_TOBJ
=W_COBJ
sC4_TEXT
MAT_OBJ
DBHLASKA
MOD_SYS
NTTISK_OBJ
!M5_DNP
ZAKAZKA
M4_POBJT
POROBJ
mDETOBJ
PORADI
DBCPOL
POR_OBJ
NTHLAOBJ
ZACNI
_OBRZ
KONEC
_CCOBJ1
CISRADY
CISLO
scrMESS
C_OBJ
MNO_PO
sMNO_OV
kMNO_ZM
MNO_ST
MNO_KDO
mpMNO_PLMJ
tDATUM_PD
.DATUM_PO
ROZPISKA
p_STAV
dCISLO_KS
uDATUM_KS
tDATUM_V
.DATUM_O
VYRIZUJE
MM_JMENO
et s k
dem '
' neexistuje!
TYP_OSLOV
dy adresy z
ka (I
) ZA,HL,FA neexistuj
HlaObj
/ / #
/ / #
HLAOBJ
wW_COBJ
.DDT1
=DOP_DISP
s_FCE
FUNKCE
DB_UL
ULICE
NT_MEST
MESTO
_STAT
!STAT
_PSC
_NAZ_O
mNAZEV_ORG
_NAZ_O2
DBNAZEV_ORG2_JM
NTMQDOP
MQCSD
MQOKR
_CSD_OKRSEKM4_UC_O
_M_ICO
cr_M_ZAV
VL_KOD_UCT_M_USTAV
USTAV
s_M_UCET
kUCET
HLASKA
VLKODADR
TNASELOBJ
tNASOBJ
.M4_ADR
_ZAV
p_TYP_OSLOV
M_CIS1
uTEXT
JMENO
.M4_DOP_D
ZAVOD
KOD_ADR
ORDOPR_INST1DOPR_INST2OKRSEK_CD
ID_ORG
ICMISTUR
t_M_PSC
_M_MESTO
_MAT_OBJ
sSTAV
= DATUM_V
G2CISLO_KS
)DATUM_KS
oDATUM_O
m(VYRIZUJE
uVL_KOD_ADRDOD_LHUTA
ZPUS_DOPR
MISTO_UR
fJAZYK
RSEKMM_JMENO
MM_JAZYK
&barvau
datez
british
S objedn
vkou pracuje n
kdo jin
znam nen
stupn
HLAOBJ
wMENU1
.KONEC
POCET
m_DATE
BRITISH
DBTXT
V_ORG2HLASKA
NTS42
a4_obj
objed
ada mater. objed.:
@!R XXXXXX
ada neexistuje, nave
te cel
prvn
slo t
slo mater.objed.:
@!R XXXXXXXXXX
slo objedn
vky mus
t vypln
Bylo p
ady, zadejte znovu!
slo objedn
vky mus
t numerick
Toto
slo ji
existuje v archivu, najd
te posledn
...
slo v dan
v archivu a za
te od n
Toto
slo ji
existuje, opravte ho !
Toto
slo ji
existuje v archivu, Jestli chcete, ...
te posledn
slo v dan
v archivu a za
te od n
wA4_OBJ
.OBJED
=HLAOBJ
sW_COBJ
W_RAD
DBS422A
MAT_OBJ
NT_DELKA
HLASKA
_CIS
W_COBJ1
_KONEC
m_KONDEL
_CHYBA
V_ORG2
RIIS 4.2
-
- F6
- F6
- F5
- F2
- F7
Pohyb
Dodav.
Adresy
Dodavatel: F
Objedn
vka -
vod -
et -
Dodac
s.dopravy:
sto ur
Okrsek
Stanice
izuje :
izuje/linka :
Datum vystaven
Dopravn
dispozice:
Intern
pozn
mka :
wZAVOD
.ID_ORG
=DDT1
sDOP_DISP
DDT2
DBMAT_OBJ
NAZEV_ORG
_M_ICO
_M_ZAV
_M_DICP
!_M_UCET
_M_USTAV
NAZEV_ORG2JMENO
mFUNKCE
ULICE
DBPSC
V_ORG2MESTO
NTSTAT
DOD_LHUTA
ZPUS_DOPR
CSD_OKRSEKMISTO_UR
VYRIZUJE
rDATUM_V
D_UCT
@ 4,33 &vloz nazev_org
@ 5,33 &vloz nazev_org2
@ 6,33 &vloz jmeno
@ 7,33 &vloz funkce
@ 8,33 &vloz ulice
@ 9,33 &vloz psc
@ 9,40 &vloz mesto
@10,33 &vloz stat
@12,16 &vloz dod_lhuta
@13,16 &vloz zpus_dopr
@14,16 &vloz misto_ur
@13,54 &vloz csd_okrsek
@14,54 &vloz csd
@ 16,23 &vloz vyrizuje
@ 16,68 &vloz datum_v pict '@E'
@ 17,23 &vloz ddt1
@ 18,23 &vloz ddt2
@ 17,23 &vloz ddt1
@ 18,23 &vloz ddt2
@ 19,23 &vloz pozn
._L1L
=MM_JMENO
s_VYR
VYRIZUJE
BDDT1
DOP_DISP
british
DO PROC&Y
DO ZMEN&Y with 'get'
DO ZMEN&Y with 'say'
Nelze m
nit I
O, objedn
vka nen
otev
Nelze m
nit I
O, objedn
vka m
aktualizovan
Nelze ru
it po
, vznikl
z oper. pl
c4_!txt+
c4_!txt
c4_!txt
Nelze vk
dat mezi po
, vznikl
z oper. pl
c4_!txt+
c4_!txt
c4_!txt
Nelze vk
dat mezi po
, vznikl
z oper. pl
c4_!txt+
c4_!txt
c4_!txt
colorz
colorz
colorz
seek &_al..ico + &_al..zavod
cursorz
set cursor &_cur
&barvas
&barvas
Objedn
vka -
vod -
colorz
c4_text
c4_text+
c4_text
naveden text objedn
vky, nelze tisknout !
PorObj
DO MENU&y
c4_pobj
PorObj
BRITISH
wKONEC
_JMENO
_DICP
_USTAV
ZMENA
ORG2LK
DBVOLBA
ORG2AKTUAL
NTALL
RAD_TX
HLAOBJ
KRSEKHLASKA
POROBJ
rW_COBJ
MNO_PO
UCTMNO_OV
MNO_ZM
sMNO_ST
kNSUMC
MAT_OBJ
ZMENICO
TIDENT
tROZPISKA
.DATUM_PD
DATUM_PO
NAZEV
_OSLOV
MNO_MJ
uPORADI
QQPOR
.QQKLICT
QQMAT_OBJ
QQROZP
RM4_POBJT
2KVYPLN
= UCET_SCR
2M4_UC_O
)_M_ICO
o_M_ZAV
m(ZOBR_UCET
_M_UCET
R_M_USTAV
VL_KOD_UCTKOD_UCTU
fADR_SCR
EKZMENA_ORG
M4_ADR
_ZOBR_ADR
KLICZAK
_kZAVOD
t_NAPLN_ADR
NAZEV_ORG
NAZEV_ORG2JMENO
FUNKCE
ffULICE
m(pPSC
iMESTO
hSTAT
DDT1
odDOP_DISP
+DDT2
kodVL_KOD_ADRKOD_ADR
teDETAIL
i_CUR
_DET_POR
+rTEXT
KLICT
TEXT4
NASTAVPOR
TEXT_OBJ
pM4_TOBJ
eC4_TEXT
C4_POBJ
G2A_POLE
mWTEXT
= MOD_SYS
odTISK_OBJ
INAVRAT4
ONNASTAVHL
pNAVRAT3
esPOCET
Identifikace mus
t vypln
Pokud chcete ukon
it nav
, zru
te pr
jednotka mus
t vypln
Objedn
t vypln
Cena mus
t vypln
IDENT
=HLASKA
sMNO_PLMJ
PLAN_MJ
BROZPISKA
ID_ORG
CENA_PLMJ
c4_pobj
c4_pobj+
mi objedn
vky pracuje n
kdo jin
, nelze aktualizovat.
c4_pobj
c4_PObj
&barvau
QQSEL
wC4_POBJ
.POROBJ
=W_COBJ
sMAT_OBJ
HLASKA
PORADI
BARVA
BARVAZ
!PORADI2
KONEC
ORG2DOL
ORG2Z
KRSEKPOCET
ny - po
-
ipky,F
,PgDn,PgUp
- F2,F3
- F6
- ^PgUp,^PgDn
- F4
- ^Home
- ^End,Esc
- F1
- F7
- F10
Pohyb
Bloky
Detail
it po
Tisk objedn.
it po
Konec
it HELP
Obchod.specif.
Funkce
&barva
&barvar
&barvan
&barva
zev polo
Pl.MJ
Identifikace
Cena/PLMJ
Dat.dod
Cena celkem
Jak.N:
Roz.N:
Rozm
Jakost.norma:
Rozm.norma:
Obchodn
specifikace:
wBARVA
.BARVAS
=BARVAZ
sID_ORG
&barvau
9999999.99
999999999.99
BPORADI
IDENT
NAZEV
PLAN_MJ
MNO_PLMJ
!SEK_IDENT
CENA_PLMJ
DATUM_PD
O_PLMJ
KLICT
MAT_OBJ
DBIDENTT
RG2_AL
NTPOR
TEXTY
KRSEKM4_POBJT
KTEXT_TX
ZOBRJACSN
SOUCZOB
&barvau
@x,5 &vloz ident PICT '@!X'
blokacef
ka je blokov
na, nelze objednat u tohoto dodavatele.
insert into m4_pobjt (mat_obj, poradi, rad_tx, text_tx) values (W_cobj, &_alias..poradi, m4_txtd.radek, m4_txtd.text)
insert into m4_pobjt (mat_obj, poradi, rad_tx, text_tx) values (W_cobj, &_alias..poradi, m1_pozid.rad_tx, m1_pozid.text_tx)
9999999.99
999999999.99
if empty (&_alias..ident) and ! ( i=36 or i=292 or i=33 or i=289 or i=12 or i=268)
. . #
. . #
r polo
Doplnit polo
mod_proc
mod_proc
inlist (kod_pol, 'M','N', 'T','U', 'X', 'Y','Z')
&barvau
&barvau
&barvau
. . #
. . #
@x,18 &vloz nazev function '@!S23'
@x,18 &vloz left(nazev,23)
@x,42 &vloz plan_MJ pict '@!X'
MJ
m_planMJ
&barvau
&barvau
@ x,42 &vloz plan_mj pict '@!X'
@x,46 &vloz mno_plmj
Objedn
t vypln
999999999.99
@x,59 &vloz sek_ident pict '@!X'
@x+1,18 &vloz cena_plmj pict '9999999.99'
999999999.99
@x+1,30 &vloz datum_pd pict '@E'
&barvas
Identt = &_alias..ident
w_WSCR
.ROZPISKA
=POCET
_PLMJ
_ALIAS
TUM_PD
2P_IDENT
IDENT
T_OBJ
G2NASTAVHL
TZOBRAZ
MIDENT
M1_IDENT
KMNAZEV
KNAZEV
MIDENT_ODBIDENT_ODB
MSEK_IDENTSEK_IDENT
CIZNAZEV
sHLAOBJ
ZAVOD
W_BLOK
TKONTBLOK
tM4_DODM
._ICO
BLOKACE
p_HLASKA
_M_IDENT
M1_PLAN
TPLAN_MJ
CENA_PLMJ
KLICT
M4_TXTD
2C4_POBJ
M1_POZID
ITYP_TX
tMNO_PLMJ
DATUM_PD
DATUM_PO
MNO_MJ
MNO_PO
2MNO_OV
)MNO_ZM
oMNO_ST
m(MNO_KDO
W_IDENT
D_UCTW_NAZEV
fID_ORG
EKZOBR_POL
MOD_PROC
VOLBA
M_PLANMJ
JMENO_C
t_WJMENO_C
RADEK_C
SLOUPEC_C
M_DAT
ffMOD_C2
pMOD_C1
MKOEF1
hMNKDO
SOUCZOB
MAT_OBJ
PORADI
kodPOR
OD_ADRIDENTT
teTEXTY
_DOLT
+rM4_POBJT
TEXT_TX
ZOBRJACSN
colorz
MCOLO
wMJAKCSN
.MROZCSN
=MROZMER
sM1_IDENT
IDENTT
BID_ORG
JAK_CSN
ROZM_CSN
C_POSTUP
colorz
Cena celkem:
wMCEN
.MCARA
=MCOLO
sMNO_PLMJ
CENA_PLMJ
ID_ORG
zev polo
Pl.MJ
Identifikace
Cena/PLMJ
Dat.dod
Cena celkem
9999999.99
999999999.99
Obchodn
specifikace pro po
.PORADI
=IDENT
sNAZEV
PLAN_MJ
MNO_PLMJ
SEK_IDENT
CENA_PLMJ
DATUM_PD
2poradi
cursorz
c4_pobjt+
c4_pobjt
c4_pobjt
c4_pobjt
c4_pobjt
Obchodn
specifikace pro po
keyboard "{Ctrl+End}"
w+/bg
Bloky
C4_POBJT
text_tx
rad_tx
w+/bg,b/bg
c4_pobjt
set cursor &cCursor
LZMENATXT
.POM_OBR
=CALIAS
sNHOR
NLEVY
NPRAVY
VYSKOC
OBR_TYP
JMENO_C
WJMENO_C
RADEK_C
2SLOUPEC_C
CCURSOR
LJEMENU
DBIDENT
IDENT
DENT_ODBKLICV
DENTR
K_IDENT
sM4_POBJT
kKLICT
C4_POBJT
MAT_OBJ
TPORADI
tTEXTY
.M4_TXTD
_ZAV
p_ICO
ZAVOD
uRAD_TX
TEXT_TX
W_COBJ
TRADEK
M1_POZID
TYP_TX
2TEXTR
ICDALSIKLK
CDALSIKLT
MOD_TXT
c4_pobjt
POC_Z
TEXT_TX
=RAD_TX
sZMENA
M4_POBJT
W_COBJ
MAT_OBJ
PORADI
C4_POBJT
C4_POBJ
OUPEC_C
G2PROC2
IDENT
Obchodn
specifikace
-
,PgDn,PgUp
- F3
- ^PgUp,^PgDn
- ^Home
- ^End,Esc,F3
- F1
Pohyb
Bloky
Konec
it HELP
c4_pobjd+
c4_pobjd
detail !
9999999.99
999999999.99
ehled detailu po
objedn
RIIS 4.2
s422a
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
Sklad.MJ
' '+ m1_ident.mj+ ' '
m1_ident.mj
ep.Koef.
str(m1_plan.koef,11,4)
m1_plan.koef
RIIS 4.2
MOD_SYS
.ZAZN3
=W_COBJ
sMAT_OBJ
CISPOR
PORADI
DETOBJ
C4_POBJD
DATUM_PD
HLASKA
C4_POBJ
PS_RETURN
IDENT
M1_IDENT
M1_PLAN
G2NAZEV
PLAN_MJ
MNO_PLMJ
SEK_IDENT
CENA_PLMJ
POLEX
PROCX
RTOP
T_ODBRBOT
CLEFT
DENTCRIGHT
FREEZE
sORDER
TPRAVA
tNADPIS
.ZAHL
JMENO
HODN
p_SOUC
TITLE
uTITLECOLORPOC0
POZID
SIKLK
F0PRG
F1PRG
F4_JM
F4PRG
2TISKPRG
)F7_JM
oF7PRG
m(F9PRG
F9KEY
F9KEY1
F10_JM
UCTF10PRG
fRAMECEK
EKRIIS
NAZEVT
_KLICO
KLNAZ
SPACEBAR
TR_HL1
t_TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
ffTR_HL7
pTR_HL8
TR_HL9
hDET_JM
ENTER
DETAIL
DETPRG
kodPS_LINE
DRPS_ZAZN
iMOD_PSV
cursorz
c4_text
c4_text+
c4_text
Druh textu:
DRUH_TX
wDRUH_TX
m4_stobj
c4_text
Standardn
text
neexistuje, nelze p
hnout!
c4_text
Text objedn
keyboard "{Ctrl+End}"
w+/bg
Bloky
C4_TEXT
,b/bg,,,,w+/rb
c4_text
set cursor &cCursor
LZMENATXT
D_SYS
.POM_OBR
=CALIAS
sNHOR
NLEVY
NPRAVY
VYSKOC
OBR_TYP
JMENO_C
WJMENO_C
RADEK_C
SLOUPEC_C
CCURSOR
LJEMENU
BCDALSIKLK
CDALSIKLT
KONEC
C4_TEXT
M4_TOBJ
W_COBJ
MAT_OBJ
WDRUH_TX
DRUH
T_ODBOK_C
M_DAT
DENTNAVRAT3
NASTAVPOR
MOD_C2
kMOD_C1
M4_STOBJ
THLASKA
.MOD_TXT
m4_tobj
_POLE
M4_TOBJ
.W_COBJ
=MAT_OBJ
sC4_TEXT
TEXT
CC_koopf
colorz
RIIS 4.2
cursorz
m_Param
m_Param
Tisk:
Jen objedn
Objedn
vky s vnit
kopi
Jen vnit
kopie
Konec
pom_ODbf
Radek
r s hlavi
Tisk na tisk
Zobrazen
na obrazovku
Soubor pro WINDOWS
enos do souboru TXT
Tisknout term.dod
?(a/n)
set cursor &_cur
set color to &Mcolor
r s hlavi
set cursor &_cur
set color to &Mcolor
Tisk na tisk
Zobrazen
na obrazovku
Soubor pro WINDOWS
enos do souboru TXT
set cursor &_cur
set color to &Mcolor
HLAVPAPIR
._MSCR
RESET
PISMOPK
PISMOP
SETUP
PISMOEK
PISMOE
HUSTE_OFF
NLQ_OFF
MCOLOR
MDRUHTISKUELITE
CC_KOOP
POM_VOL
POM_ALI
POM_POCR
POM_TXTR
BPOM_INTKO
POM_NAD1
TPOM_NADP
POM_CENA
POM_NAD2
kM_PARAM
POLE4
POM_ODBF
RADEK
tTEXT
PAPIR
MJAZYK
=NDOUBLE
sX_POM
_RAD
M4_OBJTX
POKRAC
STRANKUJ
MDRUHTISKUQQQ
=M4_OBJTX
sOBJEDNAVKACISLO
MAT_OBJ
a4_obj
objed
RIIS 4.2
Aktualizace objedn
vky materi
ada mater. objed.:
vod:
@!R XXXXXX
ada neexistuje, nave
te cel
prvn
slo t
slo mater.objed.:
@!R XXXXXXXXXX
ada neexistuje, nave
te cel
prvn
slo t
slo mater.objed.:
000000
@!R XXXXXXXXXX
slo objedn
vky mus
t vypln
Bylo p
ady, zadejte znovu!
slo objedn
vky mus
t numerick
Toto
slo ji
existuje v archivu, najd
te posledn
...
slo v dan
v archivu a za
te od n
Toto
slo ji
existuje v archivu, Jestli chcete, ...
te posledn
slo v dan
v archivu a za
te od n
PorObj
mod_proc
_AOBR
ISKUW_NASEL
=A4_OBJ
sOBJED
AVKAHLAOBJ
W_COBJ
W_RAD
_DELKA
S422A
MAT_OBJ
HLASKA
W_COBJ1
_KONEC
KU_KONDEL
_CHYBA
JAZYK
MM_JAZYK
MLOOP
JINYJAZYK
B_ZAV
ZAVOD
TPORADI
POROBJ
kM4_ORGAN
W_ICO
W_ZAV
ZOBR_ORG
tMOD_PROC
.HLAVICKA
ZACNI
ISKUCHCESTISK
TYP_OSLOV
OSLOV
ISKUM4_ADR
.TYP_OSLOV
M_CIS1
sTEXT
JMENO
M4_DOP_D
ZAVOD
KOD_ADR
MQDOP
DOPR_INST1DOPR_INST2HLAOBJ
FUNKCE
NAZEV_ORG
NAZEV_ORG2ULICE
ORG2MESTO
DOP_DISP
Chyb
ty pro vlastn
organizaci !
set color to &barva
w+/bg
w+/bg
w+/bg
ISKUHMEZ
.DMEZ
sPMEZ
POLOVINA
W_ICO
W_ZAVOD
BARVA
STREC
NST1MROW
INST2M4_UC_O
_M_ICO
_M_ZAV
HLASKA
RG2HELP22
G2RAM3
ZAVOD
SAYRAD3
_M_USTAV
USTAV
_M_UCET
BUCET
ehled
vlastn
organizace
Zp.platby
Plat.ter.
ISKUDMEZ
set color to &barx
ISKUBARX
.KOD_UCTU
USTAV
sUCET
ZP_PLATBY
PLAT_TERM
Konec
Pohyb
- Esc
- Enter
ipky,Home,End,PgUp,PgDn
colorz
ISKUM1COLOR
cursorz
colorz
Objed. byla vystavena v jazyku:
Vy aktualizujete v jazyku:
Chcete zm
nit jazyk ? (a/n):
Pokud jazyk zm
te, zkontrolujte zn
ech text
set cursor &Mcur
ISKUMCUR
.MCOLO
sHLAOBJ
JAZYK
MM_JAZYK
MZMEN
MLOOP
Nestandardn
polo
ka, byla dopln
colorz
ehled polo
ek
Obchodn
specifikace
Informace o um
Informace o obratech
ceny
Konec
Nelze m
nit polo
ky z operativn
ho pl
mod_proc
inlist (kod_pol, 'M','N', 'T','U', 'X', 'Y','Z')
mod_proc
mod_proc
ISKUROZPISKA
HLASKA
JAZYK
QQCOLORE
MZAZS
W_IDENT
Q_COBJ
ST1Q_POR
NST2M_EXIT
IDENT
MAT_OBJ
PORADI
RG2JEVICECEN
MIDENT
W_NAZEV
ZOBR_POL
MOD_PROC
ZOBRAZ
PREHLED_OSZOBR_UM
ZOBR_OB
TZOBR_CEN
c4_pozid+
RIIS 4.2
ka nem
dnou obchodn
specifikaci
c4_pozid
vezni
s422a
Dopln
zvu - obchod. specif. 'OS' polo
' '+c4_pozid.typ_tx
c4_pozid.typ_tx
' '+ str(c4_pozid.rad_tx,3)
c4_pozid.rad_tx
c4_pozid.text_tx
c4_pozid.text_tx
RIIS 4.2
MOD_SYS
KUM1_POZID
.W_IDENT
C4_POZID
sIDENT
HLASKA
POLEX
PROCX
CLEFT
CRIGHT
ST1FREEZE
ST2ORDER
RG2PRAVA
NADPIS
JMENO
TITLE
TITLECOLORPOC0
ED_OSF0
R_CEN
OLORE
ORGAN
tF0PRG
.F1ON
F1PRG
ISKUF4_JM
F4PRG
TISKPRG
uF7_JM
OLORF7PRG
F9PRG
TF9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
2RIIS
NAZEVT
IKLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
2TR_HL4
)TR_HL5
oTR_HL6
m(TR_HL7
TR_HL8
TR_HL9
DET_JM
UCTENTER
fDETAIL
EKDETPRG
PS_LINE
_PS_RETURN
PS_ZAZN
MOD_PSV
m4_pobjt
Q_TYP
KUTYP_TX
.M4_POBJT
Q_COBJ
sQ_POR
MAT_OBJ
PORADI
C4_POZID
RAD_TX
TEXT_TX
M_EXIT
PS_RETURN
c4_dodmc+
c4_dodmc
c4_dodmc
c4_dodmc
kl_pomi
cena_plmj
Ceny polo
pro I
d Cena/plmj Rozhod.mno
. Pozn
kod_cen + ' ' + str (cena_plmj, 10, 2) + str (mno_r,12,3) + ' ' + pozn
Zadejte k
mod_fun
9999999.99
999999999.99
KL_POMI
KUSOUB_OT
IDENT
sM4_DODMC
C4_DODMC
ZAVOD
KOD_CEN
ETURN
M4_DODM
T2CENA_PLMJ
N_CCUR
N_LMEZ
RG2N_PMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
LORN_RAD
D_OSN_NVYH
ZOBR_NAP
TMOD_FUN
_POMI
MNO_PLMJ
SOUCZOB
pathz
colorz
te disketu a zm
te ENTER ...
!&pth\test_d &sach
ERROR
Disketa nebyla vlo
Disketa nebyla vlozena
mkdir
set default to &sach
set default to &drive
=adir(f_info,'&m_txt')
sta na disket
mkdir
Prob
enos ...
!copy &m_txt &plna_ces > nul
KUOBEX
.W_EXP
sMMSCR
PLNA_CES
DRIVE
FREESPACE
F_INFO
F_SIZE
MPOZSPACE
_PATH
T2MCOL
CES_EXP
W_CESTINA
HLASKA
MKDIR
MJMENO
_oOescrzyaieuuESCRZYAIEUUdtnDTN_
pathz
colorz
Zadejte jm
stupn
ho souboru:
Zadejte
plnou cestu c
le exportu:
(Pokud adres
neexistuje, bude vytvo
uje-li podm
nky DOSu pro MKDIR.)
Cesta nebyla zad
Cesta nesm
obsahovat mezery !
no nebylo zad
M_EXIT
KUTMP
.W_COBJ
MDRUHTISKUM_TXT
M_TXT1
_PATH
T2MMPOM
MJMENO
CES_EXP
_MSCR
M4_OBJTX
HLASKA
MMCEST
detailn
znamy neexistuj
c4_adr+
c4_adr
Aktualizace objedn
vky materi
RIIS 4.2
A d r e s y dodavatele
vyb_adr
s422a
Zadejte k
kod_adr+ ' '
kod_adr
Typ osl.
' '+typ_oslov+' '
typ_oslov
jmeno
jmeno
zev organizace
nazev_org
nazev_org
zev organizace 2
nazev_org2
nazev_org2
Funkce
funkce
funkce
Ulice,
ulice
ulice
mesto
mesto
Telefon
telefon
telefon
lnopis
dalnopis
dalnopis
KUMOD_SYS
.ZAZNAM
W_ICO
W_ZAVOD
ZAVOD
HLASKA
SKUPS_RETURN
C4_ADR
POLEX
PROCX
T2RBOT
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
NADPIS
JMENO
LORHODN
D_OSSOUC
TITLE
TTITLECOLORPOC0
_PLMJ
ISKUF10
F0PRG
uF1PRG
OLORF4_JM
F4PRG
TTISKPRG
F7_JM
F7PRG
F9PRG
F9KEY
2F9KEY1
F10_JM
IF10PRG
RAMECEK
NAZEVT
KLICO
KLNAZ
2SPACEBAR
)TR_HL1
oTR_HL2
m(TR_HL3
TR_HL4
TR_HL5
TR_HL6
UCTTR_HL7
fTR_HL8
EKTR_HL9
DET_JM
_ENTER
DETAIL
DETPRG
PS_LINE
t_PS_ZAZN
MOD_PSV
M4_ADR
ZMENA_ORG
M4_ADR
.C4_ADR
sZAVOD
KOD_ADR
colorz
mod_proc
TYP_OSLOV
dy adresy z
ka (I
) ZA,HL,FA neexistuj
W_ICO
W_ZAVOD
.MSCOL
CALIAS
W_ZAV
ZAVOD
ZOBR_ORG
UMOD_PROC
T2_UL
_MEST
_STAT
_NAZ_O
_NAZ_O2
MQDOP
VLKODADR
NASELOBJ
NASOBJ
M4_ADR
FUNKCE
RULICE
D_OSMESTO
COLORNAZEV_ORG
NAZEV_ORG2TYP_OSLOV
M_CIS1
JMENO
tM4_DOP_D
.KOD_ADR
DOPR_INST1DOPR_INST2_M_ICO
_M_ZAV
uMQCSD
MQOKR
TOKRSEK_CD
HLASKA
ID_ORG
CMISTUR
_M_PSC
2_M_MESTO
HLAOBJ
IDOP_DISP
2MISTO_UR
CSD_OKRSEKPROC1
filterz
colorz
m1_Kalk
filterz
x1_Kalk
m1_Kalk
x1_Kalk
m1_Zas
filterz
x1_Zas
m1_Zas
x1_Zas
m1_Obr
filterz
Ident
m1_Obr
Ident
m1_Obr_A
filterz
Ident
m1_Obr_A
Ident
c1_Ident
c1_Ident
POM_ALI
POM_ORD
.POM_VETA
POM_FILT
sMMCOLOR
POM_KALI
POM_KORD
POM_KVETA
POM_KFILT
POM_KZAV
POM_ZALI
POM_ZORD
POM_ZVETA
POM_ZFILT
POM_ZZAV
POM_OALI
POM_OORD
POM_OVETA
POM_OFILT
POM_OZAV
POM_AALI
POM_AORD
POM_AVETA
POM_AFILT
POM_AZAV
RW_ZAS
D_OSW_SPOTR
W_ZAS_KC
TW_SPOTR_KCW_UVN
WQ1_0
ORG2WQ2_0
WQ3_0
WQ4_0
WQ1_1
tWQ2_1
.WQ3_1
WQ4_1
NST1WQ1_2
NST2WQ2_2
WQ3_2
uWQ4_2
RWQ1_3
WQ2_3
TWQ3_3
WQ4_3
WQK1_0
WQK2_0
WQK3_0
2WQK4_0
WQK1_1
IWQK2_1
2WQK3_1
WQK4_1
SEKWQK1_2
WQK2_2
WQK3_2
2WQK4_2
)WQK1_3
oWQK2_3
m(WQK3_3
WQK4_3
M1_KALK
X1_KALK
M1_ZAS
fX1_ZAS
M1_OBR
IDENT
M1_OBR_A
C1_IDENT
ZASOBA
SPOTREBA
_ZAS_KC
SPOTR_KC
pQ4_0
hQ2_1
Q3_1
kodQ2_2
DRQ3_2
iQ1_3
_Q2_3
QK1_0
QK2_0
QK3_0
pQK4_0
eQK1_1
QK2_1
G2QK3_1
mQK4_1
= QK1_2
odQK2_2
IQK3_2
ONQK4_2
pQK1_3
esQK2_3
QK3_3
sQK4_3
C4_TISKP
iKOD_OB
CW_HODNOTA
SKUT_MNOZ
W_HOD_KC
2NAKLAD
MESIC
CDEJ_STAV
set filter to &pom_Filt
POM_ALI
POM_ORD
.POM_VETA
POM_FILT
sMMCOLOR
S422A
ZOBRPLAN
VYBEROBJ
HLASKA
DET_AIL
_VYBER
ZAPIS
CIZNAZEV
ZAPISDALSI
ZACNI
CHCESTISK
HLAVICKA
NASTAVHL
CISRADY
MENU1
PROC1
ZMEN1
ZMENY
KVYPLN
NASTAVPOR
MENU2
PORADI2
PROC2
ZMEN2
ZOBRJACSN
SOUCZOB
2poradi
TEXT4
NAVRAT4
MENU4
DET_POR
TEXT_OBJ
NAVRAT3
TISK_OBJ
STRANKUJ
VLOZOBJ
NAPLN_ADR
ZOBR_UCET
SAYRAD3
HELP22
f6 =
JINYJAZYK
VOLBA
f10 =\
PREHLED_OS
VEZNI
= ''
ZOBR_CEN
EXPPOL
NASTSOUBOR
ZOBR_ADR
VYB_ADR
ZMENICO
DEJ_STAT
DEJ_STAV
P:\IN\SK\O\04\
S422A.FXP
P:\IN\SK\O\04\S422A.PRG