home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
S01102.FXP
(
.txt
)
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
MS Visual FoxPro App
|
1999-04-07
|
34.0 KB
|
1,153 lines
set color to bg/b
set color to w/n
set color to w+/n
set color to w+/bg
set color to b/w
set color to bg/n
set color to w+/w
set color to b/bg, w+/rb
set color to b/w
set color to w+/b, w+/rb
set color to w+/b, b/w
set color to b/w
set color to bg/n
set color to b/bg, w+/rb
RIIS 1.1
&w_bwn
n konstrukce
n technologie
pravk
W_PARAM
naW_BRH
do W_BH1
withW_BH2
y ozW_BWA
dnW_BWN
my.'W_BRN
turnW_BPTN
W_BPLA
.fW_BPLN
staW_BNR
n moW_BMN
ith W_TBWN
if W_TBRN
tisW_TBPLA
urW_SCR
PRE_VYR
tPRE_PRI
rtW_NAZ
, W_PLX
, p_PRE_PLA
f,PRE_ROZ
p_PRE_VYS
Prob
prava dat ...
m1_ident
ident
m1_zas
x1_zas
m1_pvh
pol_plan
m1_pvpp
pol_plan
m1_pvp
d_pot
RIIS 1.1
Nebyly nalezeny
znamy.
pri_vyr
tsk_vyr
ky pl
TPV pro v
RIIS 1.1
s01102
D.potvrz.
transform(m1_pvp.d_pot,'@E')
m1_pvp.d_pot
Objedn
m1_pvh.objednavka
m1_pvh.objednavka
Ident
m1_pvp.ident
m1_pvp.ident
m1_ident.nazev
m1_ident.nazev
Mn.potvrz.
str(m1_pvp.mnoz_pot,10,3)
m1_pvp.mnoz_pot
' '+m1_pvh.sdz+' '
m1_pvh.sdz
Z
str(m1_zas.zasoba,12,3)
str(m1_zas.zasoba,12,3)
Hmotnost
str(m1_pvp.hmotnost,10,3)
c_pvp.hmotnost
Pol.pl
m1_pvp.pol_plan
m1_pvp.pol_plan
' '+str(m1_pvp.poradi,3)+' '
m1_pvp.poradi
Mn.po
str(m1_pvp.mnoz_poz,10,3)
m1_pvp.mnoz_poz
transform(m1_pvp.d_vyr,'@E')
m1_pvp.d_vyr
transform(m1_pvp.d_poz,'@E')
m1_pvp.d_poz
Pl.
str(m1_pvp.plocha_r,10,3)
m1_pvp.plocha_r
D.kon.p
transform(m1_pvp.d_konpre,'@E')+' '
m1_pvp.d_konpre
D.kon.skut.
transform(m1_pvp.d_konsku,'@E')+' '
m1_pvp.d_konsku
Zodp.kon.
m1_pvp.zodp_kon
m1_pvp.zodp_kon
D.tech.p
transform(m1_pvp.d_techpre,'@E')+' '
m1_pvp.d_techpre
D.tech.skut.
transform(m1_pvp.d_techsku,'@E')+' '
m1_pvp.d_techsku
Zodp.tech.
m1_pvp.zodp_tech+' '
m1_pvp.zodp_tech
' '+m1_pvp.obj+' '
m1_pvp.d_obj
Poznamka
m1_pvp.poznamka
m1_pvp.poznamka
MOD_SYS
naMESS
do M1_IDENT
hIDENT
y ozM1_ZAS
dnX1_ZAS
y.'M1_PVH
urnPOL_PLAN
M1_PVPP
.fM1_PVP
aD_POT
n moW_SCR
HLASKA
if POLEX
tisPROCX
urRTOP
tCLEFT
rtCRIGHT
, FREEZE
p_ORDER
f,HOR
p_DOL
stLEVA
to pPRAVA
p_8lNADPIS
cpiZAHL
cpi, JMENO
, p_HODN
storSOUC
o p_lPSOUC
, p_TITLE
sTITLECOLORPOC0
mv1, F0
rzmv2, F1
pmarg
e '' toF3
ixed, pF4
ptnal
e '' toF7
etrqualF9
draft
'' toF0PRG
on, F1ON
ldoffF1PRG
F4_JM
p_ulF4PRG
p_uTISKPRG
F7_JM
F7PRG
lon,F9PRG
alofF9KEY
F9KEY1
p_sF10_JM
p_F10PRG
, ;RAMECEK
RIIS
ubon,NAZEVT
bofKLICO
e ''KLNAZ
bst_SPACEBAR
tTR_HL1
TR_HL2
pTR_HL3
, TR_HL4
ff,TR_HL5
TR_HL6
eigTR_HL7
heiTR_HL8
TR_HL9
DET_JM
ss,ENTER
_offDETAIL
DETPRG
p_kPS_LINE
d_PS_RETURN
PS_ZAZN
p_10cpiF8
rim(p_cI
pMOD_PSV
&w_bmn
Tisk p
ehledu
ehled polo
ek
Konec
mod_psv
s0110r1
W_SCRTSK
aW_PUVREC
W_EXMNU
hW_MNUTSK
zTISK
nMOD_PSV
.'W_PRN
c_oznac
Nebyly ozna
znamy.
mod_lib
mod_lib
Prob
tisk ...
mod_lib
report form &w_prn for .not. eof('c_oznac') noconsole to printer noeject
HLASKA
aW_TISK
NASTAV_PRNMOD_LIB
zP_OUTPORT
P_SETUP
.'P_RESET
nP_FLEN
.fP_CRLF
aP_NEWPAGE
P_6LPI
P_8LPI
if P_10CPI
isP_12CPI
urP_16CPI
P_20CPI
tP_LANDSCAPP_PORTRAITP_HORZMV1
P_HORZMV2
P_TOPMARG
P_FIXED
stP_PROPTNALP_LETRQUALP_DRAFT
piP_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
_P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
, P_SUBOFF
P_DBST_ON
P_DBST_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_COMPRESSP_COMP_OFFP_KODY
offP_HUSTEON
P_HUSTEOFFMESS
FFNASTAV_REPW_PRN
Prob
prava dat ...
m1_pvh
pol_plan
m1_ident
ident
m1_pvpp
pripravek
RIIS 1.1
Nebyly nalezeny
znamy.
Zadejte p
pravek:
ehled p
pravk
RIIS 1.1
s01102
pravek
m1_pvpp.pripravek
m1_pvpp.pripravek
m1_ident.nazev
m1_ident.nazev
m1_pvpp.vyr_pri
m1_pvpp.vyr_pri
Mno
str(m1_pvpp.mnoz_pri,10,3)
m1_pvpp.mnoz_pri
Dat.p
transform(m1_pvpp.d_pripre,'@E')+' '
m1_pvpp.d_pripre
Dat.skut.
transform(m1_pvpp.d_prisku,'@E')+' '
m1_pvpp.d_prisku
' '+m1_pvh.sdz+' '
m1_pvh.sdz
Zodpov
m1_pvpp.zodp_pri
m1_pvpp.zodp_pri
Pol.pl
m1_pvpp.pol_plan
m1_pvpp.pol_plan
str(m1_pvpp.poradi,3)+' '
m1_pvpp.poradi
m1_pvpp.poznamka
m1_pvpp.poznamka
MOD_SYS
aMESS
M1_PVH
PRNPOL_PLAN
zM1_IDENT
IDENT
.'M1_PVPP
nPRIPRAVEK
W_SCR
HLASKA
aPOLEX
PROCX
RTOP
if RBOT
isCLEFT
urCRIGHT
FREEZE
tORDER
SCAPHOR
RTRAITDOL
RZMV1
PRAVA
NADPIS
stZAHL
PTNALJMENO
QUALHODN
piSOUC
PSOUC
TITLE
TITLECOLORPOC0
TALOFF
UPERON
UPEROFFF3
UBOFF
BST_ON
BST_OFFF9
IDT_ON
DT_OFFF0PRG
G_OFFF1PRG
RESSF4_JM
_OFFF4PRG
offTISKPRG
F7_JM
EOFFF7PRG
FFF9PRG
_REPF9KEY
F9KEY1
n,F10_JM
lofF10PRG
RAMECEK
_sRIIS
p_NAZEVT
, ;KLICO
KLNAZ
bon,SPACEBAR
fTR_HL1
''TR_HL2
st_TR_HL3
tTR_HL4
TR_HL5
pTR_HL6
, TR_HL7
ff,TR_HL8
TR_HL9
eigDET_JM
heiENTER
DETAIL
DETPRG
ss,PS_LINE
ffPS_RETURN
PS_ZAZN
RETURN
rtMOD_PSV
Prob
prava dat ...
m1_pvh
pol_plan
m1_ident
ident
RIIS 1.1
Nebyly nalezeny
znamy.
Zodpov
zmn_ord
RIIS 1.1
s01102
Dle data dohotoven
MOD_SYS
aMESS
M1_PVH
PRNPOL_PLAN
zM1_IDENT
IDENT
.'W_PARAM
nW_SCR
HLASKA
POLEX
aPROCX
RBOT
if CLEFT
isCRIGHT
urFREEZE
ORDER
tHOR
SCAPDOL
RTRAITLEVA
PRAVA
NADPIS
stJMENO
TNALHODN
QUALSOUC
piPSOUC
TITLE
TITLECOLORPOC0
COLORF0
TALOFF
UPERON
UPEROFFF4
UBOFF
BST_ON
BST_OFFF10
DT_ON
F0PRG
_OFFF1ON
F1PRG
_OFFF4_JM
RESSF4PRG
_OFFTISKPRG
ffF7_JM
F7PRG
EOFFF9PRG
FFF9KEY
_REPF9KEY1
F10_JM
n,F10PRG
lofRAMECEK
RIIS
_sNAZEVT
p_KLICO
, ;KLNAZ
SPACEBAR
,TR_HL1
fTR_HL2
''TR_HL3
st_TR_HL4
tTR_HL5
TR_HL6
pTR_HL7
, TR_HL8
ff,TR_HL9
DET_JM
eigENTER
heiDETAIL
DETPRG
PS_LINE
s,PS_RETURN
PS_ZAZN
d_W_NAZ
W_PLX
rtMOD_PSV
m1_pvp
c_plan
M1_PVP
aC_PLAN
D_KONSKU
NZODP_KON
zD_KONPRE
.'IDENT
nDATUM
POL_PLAN
M1_PVH
aM1_IDENT
m1_pvp
c_plan
M1_PVP
aC_PLAN
D_TECHSKU
ZODP_TECH
D_TECHPRE
.'IDENT
DATUM
POL_PLAN
M1_PVH
aM1_IDENT
m1_pvpp
c_plan
M1_PVPP
aC_PLAN
D_PRISKU
ZODP_PRI
D_PRIPRE
.'PRIPRAVEK
DATUM
POL_PLAN
M1_PVH
aM1_IDENT
Datum
transform(c_plan.d_konpre,'@E')
c_plan.d_konpre
Ident
c_plan.ident
c_plan.ident
m1_ident.nazev
m1_ident.nazev
Objedn
m1_pvh.objednavka
m1_pvh.objednavka
Dat.pot.
transform(c_plan.d_pot,'@E')
c_plan.d_pot
' '+m1_pvh.sdz+' '
m1_pvh.sdz
Zodpov
c_plan.zodp_kon
c_plan.zodp_kon
c_plan.pol_plan
c_plan.pol_plan
str(c_plan.poradi,3)+' '
c_plan.poradi
_PVPP
aZAHL
JMENO
Datum
transform(c_plan.d_techpre,'@E')
c_plan.d_techpre
Ident
c_plan.ident
c_plan.ident
m1_ident.nazev
m1_ident.nazev
Objedn
m1_pvh.objednavka
m1_pvh.objednavka
Dat.pot.
transform(c_plan.d_pot,'@E')
c_plan.d_pot
' '+m1_pvh.sdz+' '
m1_pvh.sdz
Zodpov
c_plan.zodp_tech
c_plan.zodp_tech
c_plan.pol_plan
c_plan.pol_plan
str(c_plan.poradi,3)+' '
c_plan.poradi
_PVPP
aZAHL
JMENO
Datum
transform(c_plan.d_pripre,'@E')
c_plan.d_pripre
pravek
c_plan.pripravek
c_plan.pripravek
m1_ident.nazev
m1_ident.nazev
' '+c_plan.vyr_pri+' '
c_plan.vyr_pri
Mno
str(c_plan.mnoz_pri,10,3)
c_plan.mnoz_pri
' '+m1_pvh.sdz+' '
m1_pvh.sdz
Zodpov
c_plan.zodp_pri
c_plan.zodp_pri
c_plan.poznamka
c_plan.poznamka
c_plan.pol_plan
c_plan.pol_plan
str(c_plan.poradi,3)+' '
c_plan.poradi
_PVPP
aZAHL
JMENO
Dle zodpov
osoby
Dat.dohot.
Dle data dohotoven
Zodpov
aTITLE
F10_JM
TR_HL1
PS_RETURN
m1_pvpp
c_pri
RIIS 1.1
Nebyly nalezeny
znamy.
Zadejte po
ky pl
TPV pro v
RIIS 1.1
s01102
pravky
Polo
ka: F
' '+str(c_pri.poradi_p,3)+' '
c_pri.poradi_p
pravek
c_pri.pripravek
c_pri.pripravek
m1_ident.nazev
m1_ident.nazev
' '+c_pri.vyr_pri+' '
c_pri.vyr_pri
Mno
str(c_pri.mnoz_pri,10,3)
c_pri.mnoz_pri
D.dohot.p
' '+transform(c_pri.d_pripre,'@E')+' '
c_pri.d_pripre
D.dohot.skut.
' '+transform(c_pri.d_prisku,'@E')+' '
c_pri.d_prisku
Zodpov
c_pri.zodp_pri
c_pri.zodp_pri
c_pri.poznamka
c_pri.poznamka
W_SCRPRI
aMOD_SYS
W_RECPOR
W_POLPL
M1_PVP
POL_PLAN
'W_POR
PORADI
M1_PVPP
C_PRI
aPORADI_P
PRIPRAVEK
M1_IDENT
HLASKA
sPS_LINE
rPOLEX
PROCX
tRTOP
SCAPRBOT
TRAITCLEFT
CRIGHT
FREEZE
ORDER
stHOR
TNALDOL
QUALLEVA
piPRAVA
NADPIS
COLORJMENO
OLORHODN
_SOUC
PSOUC
TITLE
ROFFTITLECOLORPOC0
BST_ON
BST_OFFF2
DT_ON
_OFFF4
_OFFF7
RESSF9
_OFFF10
ffF0PRG
EOFFF1PRG
FFF4_JM
_REPF4PRG
TISKPRG
n,F7_JM
lofF7PRG
F9PRG
_sF9KEY
p_F9KEY1
, ;F10_JM
F10PRG
,RAMECEK
fRIIS
''NAZEVT
st_KLICO
tKLNAZ
SPACEBAR
pTR_HL1
, TR_HL2
ff,TR_HL3
TR_HL4
eigTR_HL5
heiTR_HL6
TR_HL7
TR_HL8
s,TR_HL9
DET_JM
ENTER
_kDETAIL
d_DETPRG
PS_RETURN
PS_ZAZN
rim(p_cF8
=MOD_PSV
Prob
prava dat ...
MOD_SYS
aMESS
ID_ORG
PRE_ROZ1
PRE_ROZ2
m1_pvup
rozprac
m1_pvh
objednavka
m2_por
m2_zcen
m1_pvh
m7_kurz
aktual
&w_bwn
Zadejte objedn
Funkce
FceStup
det_roz
tvary
Stupe
rozpracovanosti polo
ek pl
nu TPV
polo
ky pl
RIIS 1.1
s011011
Objedn
objednavka
objednavka
pol_plan
pol_plan
transform(d_prijeti,'@E')
d_prijeti
D.expedice:
.zak.
transform(d_vyrzak,'@E')
d_vyrzak
D-ZAK
str(d_vyrzak-d_prijeti,5)
str(d_vyrzak-d_prijeti,5)
Z-ZAK
str(d_vyrzak-date(),5)
str(d_vyrzak-date(),5)
D-TPV
str(int((d_vyrzak-d_prijeti)/3),5)
str(int((d_vyrzak-d_prijeti)/3),5)
Z-TPV
str((d_prijeti+int((d_vyrzak-d_prijeti)/3)-date()),5)
str((d_prijeti+int((d_vyrzak-d_prijeti)/3)-date()),5)
' '+m1_pvh.sdz+' '
m1_pvh.sdz
se v
tvaru
m1_pvup.utvar
m1_pvup.utvar
Ode dne
transform(m1_pvup.dat_pri,'@E')
m1_pvup.dat_pri
Celkem K
str(c2y.Ccena,12,2)
c2y.Ccena
M1_PVUP
aROZPRAC
M1_PVH
OBJEDNAVKAA
JEDNAVKAPORADI
KS_POTVRZ
aCCENA
M2_POR
M2_ZCEN
sPOL_PLAN
W_KOEF_MENM7_KURZ
APAKTUAL
AITNAKUP
ENMNOZ
_MENOB
EDNAVKASTAV
LCFILT
QUALPOLEX
piPROCX
RTOP
COLORCLEFT
OLORCRIGHT
_FREEZE
ORDER
ROFFDOL
ECOLORLEVA
PRAVA
NADPIS
OFFZAHL
JMENO
_OFFHODN
_OFFPSOUC
RESSTITLE
_OFFTITLECOLORPOC0
EOFFF1
_REPF3
F4
lofF7
_sF10
p_F0PRG
, ;F1ON
F1PRG
,F4_JM
fF4PRG
''TISKPRG
t_F7_JM
tF7PRG
F9PRG
pF9KEY
, F9KEY1
ff,F10_JM
F10PRG
eigRAMECEK
eiRIIS
NAZEVT
KLICO
s,KLNAZ
SPACEBAR
TR_HL1
_kTR_HL2
d_TR_HL3
TR_HL4
TR_HL5
piTR_HL6
p_cTR_HL7
pTR_HL8
=TR_HL9
coDET_JM
rENTER
cpi)DETAIL
essDETPRG
ProPS_LINE
PS_RETURN
PS_ZAZN
set devF8
to prinI
tjID_ORG
o nMOD_PSV
na stavu
Celkov
Konec
aKONEC
VOL11
AVKAZMNSTAV
KASUMSTUP
polo
ky pl
polo
ky pl
Nelze zm
nit stav,
znam.
polo
ky pl
polo
ky pl
CFILT
aSTAV
TITLE
HLASKA
VKATR_HL1
KAPS_RETURN
colorz
double
Cena v objedn
Esc,^End
polo
ky pl
polo
ky pl
Celkem za p
ehled: K
RIIS 1.1
999,999,999,999.99
aMOD_SYS
NZAZ
M_COL
VKAMOD_WIN
KACFILT
CCENA
m1_pvup
rozprac
m1_pvh
objednavka
&w_bwn
Nebyly nalezeny
znamy.
Zadejte objedn
det_roz
tvary
Stupe
rozpracovanosti pol.pl
nu TPV
RIIS 1.1
s011011
Objedn
objednavka
objednavka
pol_plan
pol_plan
transform(d_prijeti,'@E')
d_prijeti
D.expedice:
.zak.
transform(d_vyrzak,'@E')
d_vyrzak
D-ZAK
str(d_vyrzak-d_prijeti,5)
str(d_vyrzak-d_prijeti,5)
Z-ZAK
str(d_vyrzak-date(),5)
str(d_vyrzak-date(),5)
D-TPV
str(int((d_vyrzak-d_prijeti)/3),5)
str(int((d_vyrzak-d_prijeti)/3),5)
Z-TPV
str((d_prijeti+int((d_vyrzak-d_prijeti)/3)-date()),5)
str((d_prijeti+int((d_vyrzak-d_prijeti)/3)-date()),5)
' '+m1_pvh.sdz+' '
m1_pvh.sdz
se v
tvaru
m1_pvup.utvar
m1_pvup.utvar
Ode dne
transform(m1_pvup.dat_pri,'@E')
m1_pvup.dat_pri
M1_PVUP
aROZPRAC
M1_PVH
OBJEDNAVKAPOL_PLAN
AHLASKA
POLEX
PROCX
aCLEFT
CRIGHT
FREEZE
ORDER
F_MENPRAVA
APNADPIS
AITZAHL
ENJMENO
_MENSOUC
NAVKAPSOUC
LTITLE
QUALTITLECOLORPOC0
COLORF2
OLORF3
ROFFF9
ECOLORF10
F0PRG
OFFF1PRG
F4_JM
_OFFF4PRG
TISKPRG
FFF7_JM
RESSF7PRG
_OFFF9PRG
OLORF9KEY
F9KEY1
OFFF10_JM
FFF10PRG
REPRAMECEK
RIIS
n,NAZEVT
lofKLICO
KLNAZ
_sSPACEBAR
_TR_HL1
, ;TR_HL2
TR_HL3
,TR_HL4
fTR_HL5
''TR_HL6
t_TR_HL7
tTR_HL8
TR_HL9
pDET_JM
, ENTER
ff,DETAIL
DETPRG
eigPS_LINE
eiPS_RETURN
PS_ZAZN
ID_ORG
_kMOD_PSV
pol_plan
s011011
rozprac
W_DAT
aW_F10
W_POLPL
M1_PVH
VKAPOL_PLAN
AM1_PVUP
PRO_PRU
S011011
ROZPRAC
W_PARAM
aID_ORG
Prob
prava dat ...
m1_pvu
c_pvu
c_pvu
RIIS 1.1
Nebyly nalezeny
znamy.
vys_det with 2
vys_det with 1
ehled
RIIS 1.1
s01102
c_pvu.utvar
c_pvu.utvar
MOD_SYS
aMESS
M1_PVU
C_PVU
VKAW_SCR
AHLASKA
POLEX
PROCX
aCLEFT
CRIGHT
FREEZE
ORDER
F_MENPRAVA
APNADPIS
AITZAHL
ENJMENO
_MENSOUC
NAVKAPSOUC
LTITLE
QUALTITLECOLORPOC0
COLORF2
OLORF3
ROFFF9
ECOLORF10
F0PRG
OFFF1PRG
F4_JM
_OFFF4PRG
TISKPRG
FFF7_JM
RESSF7PRG
_OFFF9PRG
OLORF9KEY
F9KEY1
OFFF10_JM
FFF10PRG
REPRAMECEK
RIIS
n,NAZEVT
lofKLICO
KLNAZ
_sSPACEBAR
_TR_HL1
, ;TR_HL2
TR_HL3
,TR_HL4
fTR_HL5
''TR_HL6
t_TR_HL7
tTR_HL8
TR_HL9
pDET_JM
, ENTER
ff,DETAIL
DETPRG
eigPS_LINE
eiPS_RETURN
PS_ZAZN
MOD_PSV
prava dat ...
ehled polo
ek pl
tvaru - F
m1_pvh
m1_pvup
c1_pvh
ehled neza
ch polo
ek pl
m1_pvh
pol_plan
c1_pvh
c1_pvh
m1_pvup
pol_plan
c1_pvh
s011011
c_pvu
W_MOD
aW_SCRVYS
MESS
W_REC
VKAW_UTV
AC_PVU
UTVAR
W_NAZ
M1_PVH
aM1_PVUP
C1_PVH
POL_PLAN
sDAT_PRI
ADAT_VYR
W_ZAR
NW_DATX
PW_DAT
AITW_F10
ENW_TRI
PRE_AKT
ENS011011
KAS01102
jmen%
PRE_VYR
TSK_VYR
"m1_pvZ
PRE_PRI
PRE_PLA
DAT_PLK
DAT_PLT
DAT_PLP
POL_PLK
m1_x2
POL_PLT
POL_PLP
ZMN_ORD
PRI_VYR
PRE_ROZ
PRE_ROZ1
FCESTUP
ZMNSTAV
ahlO^
SUMSTUP
otv2`
PRE_ROZ2
DET_ROZ
PRE_VYS
VYS_DET
"m11x
X:\OBEC\01\
S01102.FXP
X:\OBEC\01\S01102.PRG