home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
MOD12P.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-03-23
|
35KB
|
931 lines
m_param
m_param
RIIS 1.2
m_param
m1_ident
ident
m1_kusov
vykres
slo v
kresu :
Datum platnosti:
colorz
mod_proc
inlist(m1_ident.kod_pol,'F','P','S','A','B','C','R','V','O')
mod_proc
inlist(m1_ident.kod_pol,'M','N','T','U','X','Y','Z')
mod_proc
ROZKLAD
ouW_ZAV
. - M_PARAM
k W_PARCEN
aPOLE1
W_UKON
zZVOL_DRUH
ovM1_IDENT
cIDENT
ba=2M1_KUSOV
lVYKRES
M_VYKRES
_NKUSY
r xcW_DATUM
s DATUM_OD
DATUM_DO
rW_NAZEV
W_IDENT
leW_MJ
MCOLOR
e cM_OBRQ
er ZOBR_POL
aMOD_PROC
cVOLAMOD281NAZEV
la tM_NAZEV
inMID_ODB
esIDENT_ODB
MID_TYP
tTYP
MOD_SYS
ccROZKLADY
Rozpiska: F
- struk.kus. odsazovan
Rozpiska: F
- struk.kus. po
ch k
Rozpiska: F
- souhrn.kus. - materi
Rozpiska: F
- inverzn
kusov. k
c1_sm
c1_sv
c1_sv
c1_sm
M_VYKRES
uROZKLAD
- NAZEVT2
k W_DATUM
MOD11BS
zMOD11BI
STROM
ovPOR
cXC1_S
ba=2POLE
lUROVEN
VYKRES
_XC1_V
r xcXC1_VSE
s C1_SM
rC1_SV
XC1_SV
leXC1_SM
POLE1
pozice<
Prob
rozklad sou
sti...
strom
strom
strom
M1_KUSOV
uPOZICE
STROM
k C1_S
aUROVEN
VYROBEK
zVYKRES
ovKUSY
ba=2DRUH
lM_VYKRES
PPOC
r xcKUSYS
s STUPEN
IDENT
C_VYKRESU
SPOTREBA
Prob
inverzn
rozklad...
inverze<
strom
vykres
M1_KUSOV
uINVERZE
C1_S
k UROVEN
aVYROBEK
VYKRES
ovPOR
cDRUH
ba=2STROM
lXC1_S
IDENT
_PPOC
xcVYR
s STUPEN
ROZKLAD
rC_VYKRESU
SPOTREBA
german
IRISA
Typ :
Ex.ident.:
Typ :
Ex.ident.:
zev :
zev : F
det_sou with 0
Detail
vyb_tisk
RIIS 1.2
mod12p
str(strom.uroven,strom.uroven) + space(12-strom.uroven)
str(-strom.uroven,strom.uroven +1)+ space(11-strom.uroven)
strom.uroven
.polo
strom.vykres
strom.vykres
Rozpiska
strom.vyrobek
strom.vyrobek
m1_ident.kod_pol
m1_ident.kod_pol
Celk.mno
str (strom.kusy,13,5)
strom.kusy
m1_ident.nazev
m1_ident.nazev
RYCHNOVF
zev pozice
m1_kusov.nazev_p
m1_kusov.nazev_p
Typ
m1_ident.typ
m1_ident.typ
Exter.ident.
m1_ident.ident_odb
m1_ident.ident_odb
RYCHNOVF
Jakostn
norma
m1_ident.jak_csn
m1_ident.jak_csn
norma
m1_ident.rozm_csn
m1_ident.rozm_csn
GERMAN
uPOLEX
PROCX
k RTOP
aRBOT
CLEFT
zCRIGHT
FREEZE
ovORDER
ba=2DOL
lLEVA
PRAVA
_NADPIS
xcZAHL
s JMENO
rSOUC
TITLE
TITLECOLORPOC0
R_POL
_PROC
AMOD281F4
la tF6
NT_ODB
tF0PRG
F1ON
ccF1PRG
F4_JM
'F4PRG
a:' TISKPRG
ykF7_JM
- soF7PRG
s. -F9PRG
l kF9KEY
(w_dF9KEY1
F10_JM
mF10PRG
.t.RAMECEK
RIIS
va=.fNAZEVT
KLICO
ska KLNAZ
KusoSPACEBAR
aTR_HL1
sTR_HL2
modTR_HL3
TR_HL4
TR_HL5
elaTR_HL6
es TR_HL7
ykrTR_HL8
TR_HL9
toDET_JM
poENTER
DETAIL
zevDETPRG
iskPS_LINE
(mPS_RETURN
PS_ZAZN
kuNAZEVT2
ranF8
atum,'@PODNIK
M_NAZEV
.tMID_TYP
m_MID_ODB
STROM
voS_K
VYKRES
troM1_IDENT
sVYROBEK
eM1_KUSOV
aROZKLAD
MOD_PSV
german
det_sou with 0
Funkce
mod12p1
vyb_tisk
RIIS 1.2
IRISA
Typ :
Ex.ident.:
Typ :
Ex.ident.:
zev:F
mod12p
m1_zas
x1_zas
.polo
ky
vykres
vykres
a.nazev
a.nazev
Spot
str(kusy,13,5)
Z
str(e.zasoba,10,3)
e.zasoba
Alokace
str(e.alokace,10,3)
e.alokace
Typ
a.typ
a.typ
Exter.ident.
a.ident_odb
a.ident_odb
GERMAN
uPOLEX
PROCX
k RTOP
aRBOT
CLEFT
zCRIGHT
FREEZE
ovORDER
ba=2DOL
lLEVA
PRAVA
_NADPIS
xcZAHL
s JMENO
rSOUC
TITLE
TITLECOLORPOC0
R_POL
_PROC
AMOD281F4
la tF6
NT_ODB
tF0PRG
F1ON
ccF1PRG
F4_JM
'F4PRG
a:' TISKPRG
ykF7_JM
- soF7PRG
s. -F9PRG
l kF9KEY
(w_dF9KEY1
F10_JM
mF10PRG
.t.RAMECEK
RIIS
va=.fNAZEVT
KLICO
ska KLNAZ
KusoSPACEBAR
aTR_HL1
sTR_HL2
modTR_HL3
TR_HL4
TR_HL5
elaTR_HL6
es TR_HL7
ykrTR_HL8
TR_HL9
toDET_JM
poENTER
DETAIL
zevDETPRG
iskPS_LINE
(mPS_RETURN
PS_ZAZN
kuNAZEVT2
sPOC1
ranPOC2
um,'@POCS
F5
m_ROZKLAD
PODNIK
voM_NAZEV
MID_TYP
roMID_ODB
sM1_ZAS
eX1_ZAS
aSTROM
P_VYKR_S
VYKRES
tP_KUSY_S
nKUSY
ykresA
poczMOD_PSV
Souhrnn
kusovn
k pro
Materi
echno
Konec
c1_sm
xc1_sm
Rozpiska:F
- souhrn.kus. - materi
c1_sv
xc1_sv
c1_sm
xc1_sm
Rozpiska:F
- souhrn.kus. - materi
mod_fun
Kusovn
k neobsahuje sou
Rozpiska:F
- souhrn.kus. - sou
sti k
xc1_vse
Rozpiska:F
- souhrnn
kus. - k
PS_RETURN
VOLBA
STROM
k C1_SM
aXC1_SM
VYKRES
ovPOCZ
cNAZEVT
a=2M_VYKRES
lW_DATUM
M_MAZANI
_M_OBNOVA
cC1_SV
s XC1_SV
HLASKA
rMOD_FUN
XC1_VSE
.pol.:F
Detail polo
Pozn
mky polo
Konec
Rozp.:F
Detail rozpisky
Pozn
mky rozpisky
Konec
DETKOM
VOLAMOD281PS_LINE
aDETKOMW
ROZKLAD
zKOMPW
VYROBEK
ovVYKRES
cVOLW
a=2S_K
lZOBR_DETA
TEXTPOZ
ordera
vykres
set order to &st_ordk
kladn
daje
Detail v
kresu
Aktualiz. :
Autor : DS :
zev :
Postup : KP :
Sek.ident.: MJ :
Ext.ident.:
SKP :
SN :
Typ :
ada : St.:
daje struktury
Aktualizoval :
Autor :
Platnost od : do:
ny zru
Pozice :
Op.vstupu :
lna oper. :
eba :
r :
Kusy /Koef. :
as.posun :
zev poz
99999.999999
daje struktury
Aktualizoval :
Autor :
Platnost od : do:
ny zru
Pozice :
Op.vstupu :
lna oper. :
eba :
r :
Kusy d
prava :
as.posun :
VOLAMOD281PS_LINE
PS_RETURN
M1_KUSOV
aST_ORDK
VYKRES
zSTROM
VYROBEK
ovWTEXT
cKOMPW
a=2M1_IDENT
lROZKLAD
_AKTUAL
cDATUM
s AUTOR
rNAZEV
C_POSTUP
KOD_POL
ORSEK_IDENT
r IDENT_ODB
cJAK_CSN
81ROZM_CSN
inRADA
esSTAV
tID_ORG
DATUM_AKT
DATUM_OD
DATUM_DO
'C_ZM_ZRUS
C_ZM_ZRIZ
- soOP_V
s. -D1OP
l kSPOTREBA
dROZMER
KUSY_DE
mKOEF
.t.POSUNUTI
NAZEV_P
- F10
- ^End,Esc
Pozn. komponenty
Konec
LAMOD281
m1_pozst
m1_pozst
ident
c1_pozst+
c1_pozst
Pozn
mky polo
slo: F
Pozn
mky rozpisky
slo: F
dek Pozn
str(rad_tx,3) + ' ' + Text_tx
mod_fun
mod_fun
Nebyly nalezeny
pozn
mky polo
ZAVRI
D281ALIAS
M1_POZST
IDENT
aSTROM
VYROBEK
zVYKRES
ovC1_POZST
cC_VYKRESU
POZICE
lN_LMEZ
N_PMEZ
_N_HMEZ
cN_DMEZ
s N_PROM
N_HOD
rN_CCUR
N_POC
ORN_TEXT
KOMPW
r N_HLAV
N_RAD
cN_VYB
81N_RIIS
tN_TOP
inZOBR_NAP
sMOD_FUN
HLASKA
Tisk bez pozn
Tisk v
pozn
Konec
mod_psv
KONEC
D281P_BOLDON
P_BOLDOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
P_SUBOFF
vP_SUPERON
P_SUPEROFFP_10CPI
lP_COMPRESSP_COMP_OFFP_12CPI
cP_SUBON
s P_SETUP
P_8LPI
rP_6LPI
P_16CPI
P_NEWPAGE
P_RESET
ALIAS
r ZAZ
NAB_OBR
cQVOLBA
81TISK
tMOD_PSV
inTISKKUS
p_kody
p_name
Epson LX-810F
m1_pozst
m1_pozst
ident
SOUBOR
281P_KODY
P_NAME
W_TISKARNAZAVRI
ARNAM1_POZST
LIDENT
TISKROZP
TiskRozp
mod_lib
281KAM
LCRT
SKARNACRETURN
NAMENUKAM
LNASTAV_PRNMOD_LIB
vTISKSING
colora
british
FFFZ^D
Prob
tisk rozpisky F
...
store FCREATE('&M_txt') TO _TEXT
Nelze vytvo
it soubor pro sestavu
.polo
ky K Celk.mno
N
zev Typ Ext.ident.
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
select &OldSel
Konec
Konec
= fputs (_text, "&xx" )
- (^)
ipky,(^)Home,(^)End,PgUp,PgDn
- Esc
Pohyb
Konec
Prohl
sestavy
modi comm &M_txt.txt noedit window w
set color to &col
281MIDENT
TISK
NRADEK
RNANSTRANKA
ANMAXRADEK
AV_PRNOLDSEL
vCZAHL1
CZAHL2
MPRESSXX
OMP_OFFNN
cM_ALIAS
s M_TXT
LBREAK
rBRITISH
M1_IDENT
IDENT
r ANSI
cNEWROW
P_KODY
tP_16CPI
inS_K
sSTROM
UROVEN
tVYKRES
VYROBEK
KOD_POL
KUSY
'NAZEV
IDENT_ODB
M1_POZST
kC_VYKRESU
POZICE
P_COMPRESSTEXT_TX
.P_COMP_OFFTESTBREA
fP_10CPI
281NREST
RNAKK
RANKA
ANRADEK
TISKHLAV
NTISKZAHL
vNMAXRADEK
FTISKPATA
List
List
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
281P_KODY
P_SETUP
P_COMP_OFFP_SUBON
APODNIK
P_BOLDON
NNSTRANKA
vP_SUBOFF
NAZEVT
FTR_HL1
lP_BOLDOFF
OMP_OFFNN
RANKA
cNRADEK
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
281P_KODY
P_COMP_OFFP_10CPI
ANRADEK
NSTRANKA
= fputs (_text, "&xx" )
= fputs (_text, "&xx" )
281P_KODY
P_COMP_OFFP_DBST_OFFP_DBST_ON
P_16CPI
CZAHL2
BST_OFFNN
NRADEK
colora
281MCOLOR
LBREAK
281KEY
colora
Tisk:
Na tisk
rnu
Na obrazovku
set color to &col
281QQ
OFFC1
BST_OFFCOL
ST_ON
CNAME
281QI
RIIS 1.2
Souhrnn
kusovn
Standardn
S cenami dodavatel
W_UKON
281W_VOL1
SOUHRN
m1_ident
ident
m1_kusov
vykres
m1_plan
x1_plan
m4_dodm
ident
slo v
kresu :
Datum platnosti:
mod_proc
inlist(m1_ident.kod_pol,'F','P','S','A','B','C','R','V','O')
vykres
Rozpiska: F
- souhrn.kus. - materi
M1_IDENT
1IDENT
M1_KUSOV
FVYKRES
OFFM1_PLAN
X1_PLAN
M4_DODM
NM_VYKRES
FW_DATUM
W_NAZEV
FW_IDENT
lW_MJ
ZOBR_POL
FMOD_PROC
cW_NAZPOL
NAZEV
DATUM_OD
rDATUM_DO
MOD_SYS
MOD11BS
STROM
r DRUH
cZOBR_SOUHR
Funkce
kus_fce
zev:
zev: F
RIIS 1.2
mod12p
.polo
ky
strom.vykres
strom.vykres
m1_ident.nazev
m1_ident.nazev
' '+m1_ident.kod_pol+' '
m1_ident.kod_pol
m1_ident.mj
m1_ident.mj
Spot
str(strom.kusy,13,5)
strom.kusy
m1_plan.plan_mj+' '
m1_plan.plan_mj
m4_dodm.mena+' '
m4_dodm.mena
Cena PLMJ
str(m4_dodm.cena_plmj,13,2)
m4_dodm.cena_plmj
Cena celk.
str(strom.kusy*m4_dodm.cena_plmj,13,2)
strom.kusy*m4_dodm.cena_plmj
m1_ident.typ
m1_ident.typ
POLEX
1PROCX
RTOP
FRBOT
OFFCLEFT
CRIGHT
FREEZE
NORDER
FLEVA
lPRAVA
NADPIS
FZAHL
cJMENO
HODN
rPSOUC
TITLE
TITLECOLORPOC0
R_SOUHRF4
tF0PRG
F1ON
F1PRG
F4_JM
'F4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
kF9KEY
F9KEY1
F10_JM
ESSF10PRG
.RAMECEK
FFRIIS
fNAZEVT
FFKLICO
KLNAZ
soSPACEBAR
aTR_HL1
sTR_HL2
modTR_HL3
TR_HL4
TR_HL5
elaTR_HL6
es TR_HL7
ykrTR_HL8
TR_HL9
toDET_JM
poENTER
DETAIL
zevDETPRG
iskPS_LINE
(mPS_RETURN
PS_ZAZN
kuW_NAZEV
sW_NAZPOL
nW_PVYKRS
@VYKRES
W_PKUSYS
tKUSY
MOD_PSV
Souhrnn
kusovn
k pro
Materi
sti
Konec
Rozpiska:F
- souhrn.kus. - materi
Rozpiska:F
- souhrn.kus. - sou
sti k
Rozpiska:F
- souhrn.kus. - materi
mod_fun
Kusovn
k neobsahuje sou
W_SCR
1W_VOL2
FNAZEVT
OFFM_VYKRES
W_DATUM
NHLASKA
FMOD_FUN
VYKRES
FM1_IDENT
lM1_PLAN
M4_DODM
FPS_RETURN
MOD12P
ol,'%
ROZKLADY
MOD11BS
MOD11BI
i
POLE1
obr_p
MOD12P1
entq*
DET_SOU
ZOBR_DETA
MENU1F
TEXTPOZ
nditC
VYB_TISK
TISKKUS
TISKROZP
TISKSING
NEWROW
LX
TISKHLAV
TISKPATA
TISKZAHL
if
TESTBREA
MENUKAM
ISUSED
ZVOL_DRUH
SOUHRN
ZOBR_SOUHR
KUS_FCE
X:\OBEC\01\
MOD12P.FXP
X:\OBEC\01\MOD12P.PRG