home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
02
/
MOD24.FXP
(
.txt
)
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS
UTF-8
Wrap
MS Visual FoxPro App
|
1999-04-15
|
71.8 KB
|
1,953 lines
if ! file ( '&f_adr\data\p2_plan.dbf' )
n je pr
, prove
et !
p2_plan
c2_obd
n je pr
, zkuste jej p
tat znovu !
RIIS 2.4
r&y=rok
Rok Horizont odbytov
ho pl
nu
seek r&y
PuvRok=r&y
IF rok#r&y and !eof()
PuvRok = r&y
IF rok#r&y and !bof()
KMES2
AHLASKA
DISTINCT
TER_OV
MESIC
VYBER
LP2_PLAN
C2_OBD
OBDOBI
POCET
FZNAK
ZNAK1
FZNAK2
SKOKROK
RIIS 2.2
Prob
hne p
et odbyt. pl
a ozna
stavu po
.objedn
Nikdo jin
nesm
pracovat v
modulu ODBYT !
Ukon
Prov
AVLASTVYPOC=
Aktualizace odbytov
ho pl
nu...
m_param
!flag &f_adr\data\m2_plan.dbf -t > a.tmp
do chyba with error()
m2_por
objednavka
do moderror with sys(16),error(),lineno(1)
do chyba with error()
m2_plan
do moderror with sys(16),error(),lineno(1)
m2_hlava
objednavka
m2_dod
objednavka
m1_ident
ident
m2_zcen
objednavka
m7_kurz
aktual
KMOD_SYS
A_RRTT
YPOCM_PARAM
MMENACIZ
POLE2
MFLAG
POLE1
LMEXIT
M2_POR
OBJEDNAVKAM2_PLAN
M2_HLAVA
LM2_DOD
VKAM1_IDENT
AIDENT
FW_KOEF_MENM2_ZCEN
M7_KURZ
KAAKTUAL
RKLIC
FPOCET
POCETC
FKLICEK
ROK_OBJ
KAPOC_POR
POC_STOR
POC_VYR
STAV_OBJ
APREPIS_HL
PROCENTA
STAV_POR
KS_POTVRZ
KS_DODANE
TYP_POR
OLORTER_OV
KLIC1
PORADI
KASTAV
DODANE
AKS_POR
ATERMIN
KAPOC_KS
RKUSY
REKAP1
M2_PLAN
M2_PLAN
KSTAV
AW_KOEF_MENMMENACIZ
M2_ZCEN
M2_POR
OBJEDNAVKAROK_OBJ
LPORADI
M7_KURZ
KANAKUP
ENMNOZ
LTYP_POR
KAICO
AZAVOD
FIDENT
_MENKS_PLAN
KS_DOD
KACENA
RTER_OV
FTER_OV_TT
STAV_KOD
FCENA_MEN
M2_HLAVA
APOC_KS
TERMIN
MENM2_RT
!flag &f_adr\data\p2_plan.dbf -t > a.tmp
select ico,zavod,ter_ov,ter_ov_tt,sum(cena*ks_plan) as cena, 000 as radek FROM m2_plan GROUP by 1,2,3 into dbf &f_adr\data\p2_plan
MFLAG
KPOCET
APOCETC
DATEa
british
store ctod("01/01/&_RR") to dat11
set date to &_save_date
MENDAT12
DAT11
TYDEN
AVKA_SAVE_DATEBRITISH
TE_RRTT
COLORa
set color to &_color
A_COLOR
w_Dlradyf
s_vybf
dtos(ter_ov)>=mes1 and dtos(ter_ov)<=mes2
Prob
prava dat ...
m_param
m2_plan
SELECT * FROM m2_plan WHERE &ppodm INTO DBF c2_plan
SELECT * FROM p2_plan WHERE &ppodm INTO DBF cp2_plan
m2_plan
c2_plan
p2_plan
cp2_plan
c2_plan
cp2_plan
m4_organ
m1_ident
ident
m2_pozak
objednavka
m2_hlava
objednavka
W_DLRADY
KS_VYB
AMES1
MENMES2
PPODM
MOD_SYS
AVKAM_PARAM
TEMMENACIZ
EPOLE2
CILZEMURC
W_PODNIK
NFIRMA
LM2_PLAN
KAC2_PLAN
AP2_PLAN
FCP2_PLAN
ZAVOD
KATER_OV
RXC2_PLAN
FDATUM
M4_ORGAN
FM1_IDENT
IDENT
AM2_POZAK
OBJEDNAVKAM2_HLAVA
NAVKANAZEV
MENSTAT_DOD
CENA_PL
CENA_SK
ROZDIL
UPPERCS
ORW_ICO
W_ZAVOD
W_NAZEV
ANAZEV_ORG
W_STAT
ACENAP
ACENAV
KACENAPM
RCENAVM
KS_PLAN
KS_DOD
JEDEME
h odbytov
ho pl
nu: F
h odbytov
ho pl
RIIS 2.4
volba_t
Funkce
FceSum
Detail
detaily1
mod24
zev organizace:
nazev
c2_p.nazev
c2_p.nazev
Potvrzeno K
str(c2_p.cena_pl,12,2)
c2_p.cena_pl
Dod
str(c2_p.cena_sk,12,2)
c2_p.cena_sk
Expedovat K
str(c2_p.cena_pl-c2_p.cena_sk,12,2)
c2_p.cena_pl-c2_p.cena_sk
c2_p.stat_dod
c2_p.stat_dod
c2_p.ico
c2_p.ico
c2_p.zavod
c2_p.zavod
POLEX
KPROCX
ARTOP
MENRBOT
CLEFT
CRIGHT
FREEZE
VKAORDER
TEHOR
PRAVA
NNADPIS
LZAHL
KAJMENO
AHODN
FSOUC
NPSOUC
TITLE
KATITLECOLORPOC0
ORGAN
IDENT
POZAK
EDNAVKAF7
HLAVA
NAVKAF10
MENF0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
ORF7_JM
F7PRG
F9PRG
AF9KEY
F9KEY1
AF10_JM
AF10PRG
KARAMECEK
RRIIS
NAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TTR_HL3
ORTR_HL4
TTR_HL5
TR_HL6
TTR_HL7
RTR_HL8
TR_HL9
OTDET_JM
BFENTER
DETAIL
DETPRG
PS_LINE
OTPS_RETURN
PS_ZAZN
_S_VYB
MES1
ID_ORG
NAZEV
MOD_PSV
et za st
Celkov
Konec
KVOL11
MENMALIAS
SUMSTAT
SUMCELK
colorz
FILTERz
AND
sum all cena_pl, Cena_sk, cena_pl- cena_sk to pom_SumKc, pom_SumHm, pom_SumEx for &pom_Filt
double
et - v
Esc,^End
Potvrzeno: K
no : K
Expedovat: K
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
RIIS 2.4
POM_OBR
KMMCOLOR
APOM_ALI
ENPOM_ORD
POM_VETA
POM_F1
POM_F2
VKAPOM_FILT
EPOM_SUMKC
POM_SUMHM
POM_SUMEX
MOD_SYS
NCENA_PL
CENA_SK
KAMOD_WIN
SUMEX
colorz
Prob
...
ty za st
mod24
SumCelk
FILTERz
AND
copy to c_sql for &filt
c_sql
stat+' '
Potvrzeno K
str(cena_pl,15,2)
cena_pl
Dod
str(cena_sk,15,2)
cena_sk
Expedovat K
str(expedovat,15,2)
expedovat
POM_OBR
KMMCOLOR
APOM_ALI
ENPOM_ORD
POM_VETA
POM_F1
POM_F2
VKAPOM_FILT
EFILT
POM_SUMKC
POM_SUMHM
POM_SUMEX
MOD_SYS
KAQRIIS
QNAZEVT
NNAZEVT
POLEX
KAPROCX
OLORRTOP
FRBOT
CLEFT
FCRIGHT
FREEZE
AORDER
DNAVKADOL
NAVKAPRAVA
MENNADPIS
JMENO
PSOUC
ORTITLE
TITLECOLORPOC0
F0PRG
F1PRG
TF4_JM
ORF4PRG
TTISKPRG
F7_JM
TF7PRG
RF9PRG
F9KEY
OTF9KEY1
BFF10_JM
F10PRG
RAMECEK
KLICO
OTKLNAZ
SPACEBAR
_TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
TR_HL8
_TR_HL9
ADET_JM
_ENTER
DETAIL
_DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
_FILT1
ORFILT2
_STAT_DOD
STAT
_CENA_PL
CENA_SK
_EXPEDOVAT
SKC_QQ
_ C_SQL
MOD_PSV
Konec
- Esc
- Enter
Prob
prava dat ...
c2_pd
c2_pd
c2_pd
znam
h odbytov
ho pl
nu: F
h odbytov
ho pl
RIIS 2.4
Detail p
ehledu pro z
ka: F
Rekap.
rekap2
zobr_um with c2_pd.ident in mod_proc
mod24
Zadejte identifikaci:
Identifikace
c2_pd.ident
c2_pd.ident
c2_pd.nazev
c2_pd.nazev
c2_pd.typ
c2_pd.typ
.potv.
str(c2_pd.kusy_pl,10,3)
c2_pd.kusy_pl
.dod.
str(c2_pd.kusy_vyd,10,3)
c2_pd.kusy_vyd
Mn.vyrobit
str(c2_pd.kusy_pl-c2_pd.kusy_vyd,10,3)
c2_pd.kusy_pl-c2_pd.kusy_vyd
Cena/MJ/K
str(c2_pd.cena,10,2)
c2_pd.cena
Celk.potv.K
str(c2_pd.cena_celk,12,2)
c2_pd.cena_celk
Celk.dod.K
str(c2_pd.DodcelkKc,12,2)
c2_pd.DodcelkKc
Vyrobit celk.K
str(c2_pd.cena_celk-c2_pd.DodcelkKc,15,2)
c2_pd.cena_celk-c2_pd.DodcelkKc
' '+c2_pd.mena
c2_pd.mena
Cena/MJ-M
str(c2_pd.cena_men,12,2)
c2_pd.cena_men
Celk. cena-M
' '+str((c2_pd.cena_men*c2_pd.kusy_pl),14,2)
(c2_pd.cena_men*c2_pd.kusy_pl)
c2_pd.zem_urceni
c2_pd.zem_urceni
Term. OV
tran(c2_pd.ter_ov,'@E')
c2_pd.ter_ov
c2_pd.tyden
c2_pd.tyden
Objedn
c2_pd.objednavka
c2_pd.objednavka
'/'+c2_pd.rok_obj
c2_pd.rok_obj
str (c2_pd.poradi,3)+ ' '
c2_pd.poradi
Typ po
' '+c2_pd.typ_por+' '
c2_pd.typ_por
Text objedn
c2_pd.text
c2_pd.text
RIIS 2.4
KOBRB1
AMOD_SYS
ENZAZN
PS_LINE
NAZEV_P
KANAZEV
ENAZEV_S
STAT_DOD
SUMEX
ZAVOD
M4_ORGAN
ANAZEVORG
NAZEV_ORG
C2_PD
NIDENT
KUSY_PL
KAKUSY_VYD
RCENA
FCENA_CELK
TER_OV
FTYDEN
OBJEDNAVKAROK_OBJ
TYP_POR
KATYP
NAVKAPORADI
MENMENA
CENA_MEN
DODCELKKC
ZEM_URCENIC2_PLAN
ORQMENA
QCENA_MEN
CILZEMURC
M2_HLAVA
MMENACIZ
IID_ORG
M1_IDENT
AKS_PLAN
IKS_DOD
TER_OV_TT
M2_POZAK
TEXT_TX
HLASKA
TPS_RETURN
POLEX
TPROCX
TRBOT
RCLEFT
CRIGHT
OTFREEZE
BFORDER
LEVA
OTPRAVA
NADPIS
_ZAHL
JMENO
SOUC
PSOUC
TITLE
TITLECOLORPOC0
RETURN
ORF0PRG
_F1ON
F1PRG
_F4_JM
F4PRG
_TISKPRG
F7_JM
SKF7PRG
_ F9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
TNAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
_TR_HL3
TR_HL4
_TR_HL5
AMETR_HL6
TR_HL7
_ TR_HL8
TR_HL9
DET_JM
MEENTER
TYPEDETAIL
YPEDETPRG
PS_ZAZN
W_DLRADY
ES_VYB
MES2
_ MOD_PSV
c2_rek
datum
c2_rek
ZNAM !
h odbytov
ho pl
nu: F
h odbytov
ho pl
RIIS 2.4
Rekapitulace
mod24
Dat. OV
c2_rek.term
c2_rek.term
Podnik celk./K
' ' + str(c2_rek.cena_p,12,2)
c2_rek.cena_p
Z toho z
' '+str(c2_rek.cena_z,12,2)
c2_rek.cena_z
RIIS 2.4
Celkem:
999999999.99
999999999.99
KOBRB2
AMOD_SYS
ENC2_REK
CENA_P
CENA_Z
KARADEK
ECP2_PLAN
DATUM
CENA_RP
SUMEX
TERMIN
TER_OV
ACENA_R
NCENA_O
KAZAVOD
FHLASKA
C2_PD
FPS_RETURN
POLEX
AVKAPROCX
KARBOT
CLEFT
AVKACRIGHT
MENFREEZE
ORDER
ELKKC
URCENILEVA
PRAVA
ORNADPIS
JMENO
IPSOUC
TITLE
ATITLECOLORPOC0
_OV_TT
POZAK
RETURN
F0PRG
TF1ON
RF1PRG
F4_JM
OTF4PRG
BFTISKPRG
F7_JM
F7PRG
F9PRG
OTF9KEY
F9KEY1
_F10_JM
F10PRG
RAMECEK
RIIS
NAZEVT
KLICO
KLNAZ
OLORSPACEBAR
_TR_HL1
ATR_HL2
_TR_HL3
TR_HL4
_TR_HL5
TR_HL6
TR_HL7
TR_HL8
_TR_HL9
ORDET_JM
_ENTER
DETAIL
_DETPRG
PS_LINE
_PS_ZAZN
S_VYB
SKMES1
_ MES2
HELP3
MOD_PSV
C2_P
Konec
- Esc
- F10
- F4
w_Dlradyf
s_vybf
dtos(ter_ov)>=mes1 and dtos(ter_ov)<=mes2
Prob
prava dat ...
m_param
SELECT * FROM m2_plan WHERE &ppodm INTO DBF c2_plan
m2_plan
termin
xc2_v
m4_organ
m1_ident
ident
m1_zas
x1_zas
m2_pozak
objednavka
m2_hlava
objednavka
c2_vyr
objedn
c2_vyr
W_DLRADY
KS_VYB
AMES1
ENMES2
PPODM
MOD_SYS
KAM_PARAM
EMMENACIZ
POLE2
CILZEMURC
M2_PLAN
TERMIN
C2_PLAN
AIDENT
TER_OV
XC2_V
NM4_ORGAN
KAM1_IDENT
RM1_ZAS
FX1_ZAS
M2_POZAK
FOBJEDNAVKAM2_HLAVA
C2_VYR
VKANAZEV
KAKS_PLAN
KS_ODV
VKAKC_PLAN
ENKC_ODV
PRIJEM
VYDEJ
CENIZASOBA
TYP_POR
ORTYP
IDENT_ODB
SEK_IDENT
W_TYP
IW_IDENT
W_NAZEV
AW_IDEODB
RW_SEKIDE
P_TYP
ID_ORG
W_STAV
W_PRIJEM
W_VYDEJ
W_ZASOBA
TCENAC
CENAS
TKUSYC
KUSYS
TCENA
RKS_DOD
DELEJ
Odbytov
n dle v
Odbytov
n dle v
RIIS 2.4
ROBKY
zobr_um with c2_vyr.ident in mod_proc
Detail
DETAILY2
mod24
Zadejte identifikaci:
Identifikace
c2_vyr.ident
c2_vyr.ident
c2_vyr.nazev
c2_vyr.nazev
c2_vyr.Typ
c2_vyr.Typ
Exter.Identifikace
c2_vyr.ident_odb
c2_vyr.ident_odb
Sek.Ident.
c2_vyr.sek_ident
c2_vyr.sek_ident
Typ po
' '+ c2_vyr.Typ_por+' '
c2_vyr.Typ_por
.potv.
str(c2_vyr.ks_plan,10,3)
c2_vyr.ks_plan
.dod.
str(c2_vyr.ks_odv,10,3)
c2_vyr.ks_odv
Mn.vyrobit
str(c2_vyr.ks_plan-c2_vyr.ks_odv,10,3)
c2_vyr.ks_plan-c2_vyr.ks_odv
-potvrzen
str(c2_vyr.kc_plan,12,2)
c2_vyr.kc_plan
-odveden
str(c2_vyr.kc_odv,12,2)
c2_vyr.kc_odv
-vyrobit
str(c2_vyr.kc_plan-c2_vyr.kc_odv,12,2)
c2_vyr.kc_plan-c2_vyr.kc_odv
POLEX
KPROCX
ARTOP
ENRBOT
CLEFT
CRIGHT
FREEZE
KAORDER
PRAVA
NADPIS
AJMENO
NPSOUC
TITLE
KATITLECOLORPOC0
POZAK
EDNAVKAF3
HLAVA
VKAF6
VKAF10
ENF0PRG
F1PRG
F4_JM
CENIF4PRG
TISKPRG
ORF7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
IF10_JM
F10PRG
ARAMECEK
RRIIS
NAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TTR_HL3
TR_HL4
TTR_HL5
TR_HL6
TTR_HL7
RTR_HL8
TR_HL9
DET_JM
BFENTER
DETAIL
DETPRG
PS_LINE
OTPS_RETURN
PS_ZAZN
_S_VYB
MES1
C2_VYR
MOD_PSV
c2_vyrd
c2_vyrd
ZNAM !
Odbytov
n dle v
Odbytov
n dle v
ka: F
Detail p
ehledu pro polo
ku: F
RIIS 2.4
mod24
Zadejte n
zev organizace
c2_vyrd.nazev
c2_vyrd.nazev
Objedn
c2_vyrd.objednavka
c2_vyrd.objednavka
'/'+c2_vyrd.rok_obj
c2_vyrd.rok_obj
str(c2_vyrd.poradi,3)+ ' '
c2_vyrd.poradi
.potv.
str(c2_vyrd.kusy_pl,10,3)
c2_vyrd.kusy_pl
.dod.
str(c2_vyrd.kusy_vyd,10,3)
c2_vyrd.kusy_vyd
Cena/MJ/K
str(c2_vyrd.cena,10,2)
c2_vyrd.cena
Cena potv/K
str(c2_vyrd.cena_plan,12,2)
c2_vyrd.cena_plan
Cena dod./K
str(c2_vyrd.cena_skut,12,2)
c2_vyrd.cena_skut
' '+c2_vyrd.mena
c2_vyrd.mena
Cena/MJ/M
str(c2_vyrd.cena_men,12,2)
c2_vyrd.cena_men
Celk. cena-M
' '+str((c2_vyrd.cena_men*c2_vyrd.kusy_pl),14,2)
(c2_vyrd.cena_men*c2_vyrd.kusy_pl)
c2_vyrd.zem_urceni
c2_vyrd.zem_urceni
Term. OV
tran(c2_vyrd.ter_ov,'@E')
c2_vyrd.ter_ov
c2_vyrd.tyden
c2_vyrd.ter_ov
RIIS 2.4
KOBR2
AMOD_SYS
ENZAZN
PS_LINE
IDENT
KAC2_VYRD
ENAZEV
KUSY_PL
KUSY_VYD
CENA_PLAN
CENA_SKUT
TER_OV
TYDEN
OBJEDNAVKAROK_OBJ
PORADI
KAMENA
COLORCENA_MEN
FZEM_URCENICSN
FUPPERCS
KAC2_PLAN
KAQMENA
KAQCENA_MEN
CILZEMURC
M2_HLAVA
NMMENACIZ
IKLICT
ZAVOD
CENIM4_ORGAN
NAZEV_ORG
KS_PLAN
KS_DOD
TER_OV_TT
HLASKA
IC2_VYR
PS_RETURN
POLEX
RPROCX
CLEFT
CRIGHT
FREEZE
ORDER
TLEVA
PRAVA
TNADPIS
RZAHL
JMENO
BFSOUC
PSOUC
TITLE
TITLECOLORPOC0
OLORF10
_F0PRG
AF1ON
_F1PRG
F4_JM
_F4PRG
TISKPRG
F7_JM
F7PRG
_F9PRG
ORF9KEY
_F9KEY1
F10_JM
_F10PRG
RAMECEK
_RIIS
NAZEVT
SKKLICO
_ KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
_DETAIL
DETPRG
_PS_ZAZN
S_VYB
_ MES2
W_DLRADY
MOD_PSV
colorz
Graf:
Podnik celkem
Z toho z
set color to &m_color
m_dgrpop
c_PopGr
c_PopGr
Celkem za podnik, z toho zakaznik: F
Celkovy prubeh odbytoveho planu
Obdobi
Zakaz./Kc
RIIS 2.4
SoWA
Podnik/Kc
Zakaznik: F
Detail odbytoveho planu
Obdobi
RIIS 2.4
SoWA
Cena /Kc
dgrpop
m_dgrdat
c_DatGr
c_DatGr
c_DatGr
c_DatGr
dgrdat
mm_dgr2d
!&mmgr 1 6306270498 2
set color to &m_color
OBRGR
KM_COLOR
AVOL4
_QZAZ
M_DGRPOP
C_POPGR
KAPODNADPIS
M4_ORGAN
NAZEVORG
NAZGR
A_PLAN
POPIS_X
NAVKAPOPIS_N
NAZEV
KAPRVNI
OLORTRETI
FCTVRTY
ENIDRUHY
FPOPIS_Y
DGRPOP
M_DGRDAT
AC_DATGR
KAC2_REK
NOR_Y
PIS_X
NCENA_Z
ITERM
CENA_P
DGRDAT
NIMM_DGR2D
Nelze spustit p
et pl
nu, se souborem se pracuje !
Nikdo nesm
pracovat s objedn
vkami, dodac
mi listy a fakturami !
Nikdo nesm
ani b
t v pl
TPV !
do moderror with sys(16),error(),lineno(1)
KHLASKA
AID_ORG
ENMEXIT
MODERROR
m_param
m_param
data_zak
data_dtz
pol_zak
pol_dtz
n expedice dle z
Den, n
z.org.:
rrrrmmdd|..................................
Ident, objedn
vka, po
|...........|.........|..
'Den: ' + transform(w_detden, '@E') + ' Z
k: ' + alltrim(w_detorg)
data_vyr
data_dtv
pol_vyr
pol_dtv
n expedice dle v
Den, ident:
rrrrmmdd|...........
z.org., obj., po
|..................................|.........|..
'Den: ' + transform(w_detden, '@E') + ' V
robek: ' + alltrim(w_detide) + ' ' + alltrim(w_nvyr)
ter_ov <= w_denod
- skluzy do
ter_ov = w_denod
zadan
datum.
ter_ov >= w_denod and ter_ov <= w_dendo
- od
Prob
prava dat ...
do &w_datprg
zobr_um in mod_proc with c_plan.ident
detail
Detail
RIIS 2.4
mod24
do &w_polprg
soubor !
W_DRUH
KW_ZAV
AM_PARAM
ENW_PARMEN
POLE2
W_SCR
W_NDRUH
KAW_DATPRG
W_DATDET
W_POLPRG
W_POLDET
W_NAZ
W_F9K
W_F9K1
W_DF9K
W_DF9K1
W_PLX
AVKAW_PLXDET
W_FRZ
KAW_FRZDET
RW_F10
FW_TITLE
NIW_OBDOBI
FW_DENMIN
W_DENNAS
W_DENPOS
APOSL_DEN
AGET_OBD
W_DENOD
W_GETRAD
NGET_DEN
IW_PDM
W_DENDO
GET_DNY
IHLASKA
MOD_SYS
DET_PLA
POLEX
PROCX
IRBOT
CLEFT
CRIGHT
RFREEZE
ORDER
PRAVA
NADPIS
TZAHL
JMENO
THODN
TPSOUC
RTITLE
TITLECOLORPOC0
LECOLORF4
F0PRG
F1PRG
F4_JM
OLORF4PRG
_TISKPRG
AF7_JM
_F7PRG
F9PRG
_F9KEY
F9KEY1
F10_JM
F10PRG
_RAMECEK
ORRIIS
_NAZEVT
KLICO
_KLNAZ
SPACEBAR
_TR_HL1
TR_HL2
SKTR_HL3
_ TR_HL4
TR_HL5
TR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
_MOD_PSV
w_dlradyf
Prob
prava dat ...
do &w_datdet
zobr_um in mod_proc with c_det.ident
RIIS 2.4
mod24
title = &w_title
tr_hl1 = &w_title
do &w_poldet
soubor !
RIIS 2.4
W_DLRADY
KW_LINE
APS_LINE
ENW_ZAZ
W_DETDEN
C_PLAN
KAW_DRUH
W_DETICO
W_DETZAV
ZAVOD
W_DETORG
NAZORG
W_DETIDE
IDENT
W_NVYR
VKANAZVYR
W_SCRDET
AMOD_SYS
RMESS
FPOLEX
NIPROCX
FRTOP
CLEFT
ACRIGHT
AFREEZE
ORDER
ILEVA
PRAVA
NADPIS
IZAHL
JMENO
PSOUC
TITLE
TITLECOLORPOC0
TF0PRG
TF1PRG
F4_JM
TF4PRG
RTISKPRG
F7_JM
OLORF7PRG
BFF9PRG
F9KEY
F9KEY1
F10_JM
LORF10PRG
RAMECEK
_RIIS
NAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
LORTR_HL3
_TR_HL4
ATR_HL5
_TR_HL6
TR_HL7
_TR_HL8
TR_HL9
DET_JM
ENTER
_DETAIL
ORDETPRG
_PS_RETURN
PS_ZAZN
CEBAR
_W_DF9K
W_DF9K1
SKW_F10
_ W_NAZ
W_FRZDET
RW_PLXDET
W_PARMEN
HLASKA
W_SCR
MOD_PSV
C_DET
c_detpla
SELECT * FROM m2_plan WHERE &w_pdm INTO DBF c2_plan
m1_plan
x1_plan
m2_zcen
objednavka
m4_organ
m1_ident
ident
m4_organ
m1_plan
m2_zcen
m1_ident
objedn
c_detpla
C_DETPLA
KOBJEDNAVKAROK_OBJ
KAPORADI
TYDEN
KAICO
ZAVOD
NAZORG
IDENT
ID_ODB
ID_SEK
NAZVYR
MJ_CENA
MJ_MCEN
KAMJ_HMOT
MNOZ_PLA
AMNOZ_DOD
RM1_PLAN
KAX1_PLAN
NIM2_ZCEN
FM4_ORGAN
AM1_IDENT
C2_PLAN
AW_MNPLA
AKS_PLAN
W_MNVYD
KS_DOD
NW_MNEXP
IW_OBJ
W_ROKOBJ
AW_PORADI
IW_TYP
TYP_POR
W_DEN
TER_OV
W_TYDEN
TER_OV_TT
W_ICO
OLORW_ZAVOD
W_IDENT
W_MENA
RW_MCEN
CENA_MEN
W_XICO
W_XOBJ
W_FND
W_NAZORG
NAZEV_ORG
W_HMOT
VAHA_MJ
TW_CENA
CENA_HRUBAHOD_PR_RADW_NAZVYR
NAZEV
RW_IDODB
BFIDENT_ODB
W_IDSEK
SEK_IDENT
c_detpla
c_plan
C_DETPLA
KAZAVOD
TYDEN
NAZORG
MNOZ_PLA
AMJ_CENA
CENA_PLA
MNOZ_DOD
CENA_DOD
CENA_EXP
MNOZ_EXP
MJ_HMOT
HMOT_EXP
C_PLAN
KAUPPERCS
c_detpla
c_plan
C_DETPLA
AIDENT
KANAZVYR
ID_ODB
ID_SEK
AMNOZ_PLA
MNOZ_DOD
MNOZ_EXP
MJ_CENA
CENA_PLA
CENA_DOD
CENA_EXP
MJ_HMOT
HMOT_EXP
C_PLAN
c_detpla
c_det
C_DETPLA
KIDENT
ANAZVYR
KAOBJEDNAVKAROK_OBJ
PORADI
ATYDEN
MNOZ_PLA
MNOZ_DOD
MJ_CENA
MJ_MCEN
MNOZ_EXP
CENA_PLA
CENA_DOD
CENA_EXP
AMJ_HMOT
HMOT_EXP
AC_DET
KAW_DETDEN
FW_DETICO
AZAVOD
W_DETZAV
c_detpla
c_det
C_DETPLA
KNAZORG
AOBJEDNAVKAROK_OBJ
KAPORADI
TYDEN
MNOZ_PLA
AMNOZ_DOD
MJ_CENA
MJ_MCEN
MNOZ_EXP
CENA_PLA
CENA_DOD
CENA_EXP
MJ_HMOT
HMOT_EXP
AC_DET
AW_DETDEN
RIDENT
KAW_DETIDE
FUPPERCS
transform(c_plan.den,'@E')
c_plan.den
c_plan.nazorg
c_plan.nazorg
k exp.
str(c_plan.cena_exp,12,2)
c_plan.cena_exp
.k exp.
str(c_plan.mnoz_exp,12,3)
c_plan.mnoz_exp
K
str(c_plan.cena_pla,12,2)
c_plan.cena_pla
K
dod.
str(c_plan.cena_dod,12,2)
c_plan.cena_dod
Hmot.k exp.
str(c_plan.hmot_exp,12,3)
c_plan.hmot_exp
c_plan.ico
c_plan.ico
' ' + c_plan.zavod
c_plan.zavod
DETPLA
KZAHL
AJMENO
AVKAHODN
KASOUC
transform(c_plan.den,'@E')
c_plan.den
Ident
c_plan.ident
c_plan.ident
zev v
robku
c_plan.nazvyr
c_plan.nazvyr
' ' + c_plan.typ + ' '
c_plan.typ
Exter.Id.
c_plan.id_odb
c_plan.id_odb
Sek.Id.
c_plan.id_sek
c_plan.id_sek
.k exp.
str(c_plan.mnoz_exp,12,3)
c_plan.mnoz_exp
k exp.
str(c_plan.cena_exp,12,2)
c_plan.cena_exp
Hmot.k exp.
str(c_plan.hmot_exp,12,3)
c_plan.hmot_exp
st.pl
str(c_plan.mnoz_pla,12,3)
c_plan.mnoz_pla
st.dod.
str(c_plan.mnoz_dod,12,3)
c_plan.mnoz_dod
K
str(c_plan.cena_pla,12,2)
c_plan.cena_pla
K
dod.
str(c_plan.cena_dod,12,2)
c_plan.cena_dod
DETPLA
KZAHL
AJMENO
AVKAHODN
KASOUC
Ident
c_det.ident
c_det.ident
zev v
robku
c_det.nazvyr
c_det.nazvyr
.k exp.
str(c_det.mnoz_exp,12,3)
c_det.mnoz_exp
k exp.
str(c_det.cena_exp,12,2)
c_det.cena_exp
Hmot.k exp.
str(c_det.hmot_exp,12,3)
c_det.hmot_exp
st.pl
str(c_det.mnoz_pla,12,3)
c_det.mnoz_pla
st.dod.
str(c_det.mnoz_dod,12,3)
c_det.mnoz_dod
K
str(c_det.cena_pla,12,2)
c_det.cena_pla
K
dod.
str(c_det.cena_dod,12,2)
c_det.cena_dod
Cena-K
str(c_det.mj_cena,12,2)
c_det.mj_cena
' ' + c_det.mena
c_det.mena
Cena-M
na/MJ
str(c_det.mj_mcen,12,2)
c_det.mj_mcen
Celk. cena-M
' '+str(c_det.mj_mcen*c_det.mnoz_pla,14,2)
c_det.mj_mcen*c_det.mnoz_pla
c_det.tyden
c_det.tyden
Objedn
' ' + c_det.objednavka + ' '
c_det.objednavka
'/' + c_det.rok_obj
c_det.rok_obj
' ' + str(c_det.poradi,3) + ' '
c_det.poradi
' ' + c_det.typ + ' '
c_det.typ
DETPLA
KZAHL
AJMENO
AVKAHODN
KASOUC
W_PARMEN
W_DLRADY
c_det.nazorg
c_det.nazorg
Objedn
' ' + c_det.objednavka + ' '
c_det.objednavka
'/' + c_det.rok_obj
c_det.rok_obj
' ' + str(c_det.poradi,3) + ' '
c_det.poradi
.k exp.
str(c_det.mnoz_exp,12,3)
c_det.mnoz_exp
k exp.
str(c_det.cena_exp,12,2)
c_det.cena_exp
Hmot.k exp.
str(c_det.hmot_exp,12,3)
c_det.hmot_exp
st.pl
str(c_det.mnoz_pla,12,3)
c_det.mnoz_pla
st.dod.
str(c_det.mnoz_dod,12,3)
c_det.mnoz_dod
K
str(c_det.cena_pla,12,2)
c_det.cena_pla
K
dod.
str(c_det.cena_dod,12,2)
c_det.cena_dod
Cena-K
str(c_det.mj_cena,12,2)
c_det.mj_cena
' ' + c_det.mena
c_det.mena
Cena-M
na/MJ
str(c_det.mj_mcen,12,2)
c_det.mj_mcen
Celk. cena-M
' '+str(c_det.mj_mcen*c_det.mnoz_pla,14,2)
c_det.mj_mcen*c_det.mnoz_pla
c_det.tyden
c_det.tyden
DETPLA
KZAHL
AJMENO
AVKAHODN
KAW_DLRADY
W_PARMEN
RIIS 2.4
n expedice dle
Skluzy
Den
Obdob
W_NDRUH
KW_DENMIN
AW_DENNAS
AW_DENPOS
AW_OBDOBI
W_OBDOBI
KW_GETRAD
AW_DENOD
W_DENOD
KW_DENDO
MESIC
Tisk pl
nu expedice
Tisk p
ehledu
Konec
mod_psv
W_TSKZAZ
KW_TSKSCR
AW_TISK
ATSK_PLA
ATISK
MOD_PSV
dtos(den)+ico+zavod+ident
dtos(den)+ico+zavod
mod241
mod242
dtos(den)+ident+nazorg
dtos(den)+ident
mod243
mod244
mod_lib
mod_lib
p_kody
p_name
Epson LX-810
Prob
tisk ...
index on &w_sort tag tsk
set relation to &w_rela into c_detpla additive
W_PLASCR
KW_DRUH
AW_SORT
AW_RELA
AW_OBDOBI
W_PRN
W_TISK
ANASTAV_PRNMOD_LIB
P_SETUP
P_RESET
P_6LPI
P_8LPI
P_10CPI
P_12CPI
P_16CPI
P_20CPI
AP_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
IP_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
AP_SUBOFF
AP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
IP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
P_NAME
W_TISKARNABOLD_ON
NABOLD_OFF
DOUBLE
NDOUBLE
ST_OFFDRAFT
QUALSUB_OFF
SUPER_ON
SUPER_OFF
HUSTE_ON
FP_COMPRESSHUSTE_OFF
FFELITE
BARESET
ADSETUP
R8LPI
RR6LPI
BFCON
PRESSNEWPAGE
FFMESS
C_DETPLA
C_PLAN
C_OZNAC.DBF2
C_OZNAC
Nebyly vybr
ny (vysv
ceny)
znamy.
Tisk sestavy
Prohl
sestavy
Konec
Prob
prava tisku ...
c2_pd
pom_tisk
pom_tisk
Prob
tisk ...
mod_lib
mod_lib
Prob
tisk ...
Prob
tisk do souboru ...
set device to file &m_txt
set printer to &m_txt1
- (^)
ipky,(^)Home,(^)End,PgUp,PgDn
- Esc
Pohyb
Konec
Prohl
sestavy
modi comm &m_txt1 noedit window w
HLASKA
KM_TXT
AM_TXT1
AOB101
AVOL5
AMESS
V_PRNP_SETUP
P_RESET
P_6LPI
P_8LPI
P_10CPI
P_12CPI
P_16CPI
P_20CPI
P_BOLDON
AP_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
FP_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
FFP_SUBOFF
AP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
ALP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
C2_PD
IDENT
ARNANAZEV
NAKUSY_PL
KUSY_VYD
CENA_CELK
TER_OV
UALTYDEN
OBJEDNAVKAROK_OBJ
TYP_POR
MPRESSTEXT
PORADI
FFMENA
CENA_MEN
ADODCELKKC
NAZORG
RUPPERCS
BFC2_P
POM_TISK
SC_OZNAC
FFZAZNAM
ZAVOD
NAZEV_P
_KLIC
M4_ORGAN
NAZEVORG
NAZEV_ORG
VYB_DET1
P_KODY
MOD_LIB
ORW_TISK
_NASTAV_PRNNTRGPZAZ
_PS_RETURN
ehled
Sestava s detailem 39 cm
Sestava s detailem 25 cm
Konec
mod_psv
mod24b
mod24b1
POM_OBR
KPOM_VOL
ATISK
AMOD_PSV
AW_PRN
TISK_DET
PS_RETURN
c2_pd
c2_pd
C2_PLAN
KKLIC
AZAVOD
AMMENACIZ
QMENA
QCENA_MEN
CENA_MEN
TYP_POR
ID_ORG
IDENT
M1_IDENT
NAZEV
KUSY_PL
KUSY_VYD
ACENA
CENA_CELK
TER_OV
OFFTYDEN
FOBJEDNAVKAROK_OBJ
FFTEXT
FFPORADI
ADODCELKKC
NAZORG
OFFKS_PLAN
LKS_DOD
ALTER_OV_TT
NAZEVORG
M2_POZAK
FTEXT_TX
MOD24
MOD2_OBD
MOD24A
VLASTVYPOC
REKAP1
PROCENTA
M2_RT
HLASKA
MOD24B
JEDEME
FCESUM
SUMCELK
SUMSTAT
DETAILY1
REKAP2
HELP3
MOD24C
DELEJ
DETAILY2
CHYBA
MOD24EX
DETAIL
DET_PLA
DATA_ZAK
DATA_VYR
DATA_DTZ
DATA_DTV
POL_ZAK
POL_VYR
POL_DTZ
POL_DTV
GET_OBD
GET_DEN
GET_DNY
POSL_DEN
TSK_PLA
TISK_DET
VOLBA_T
VYB_DET1
P:\IN\SK\O\02\
MOD24.FXP
P:\IN\SK\O\02\MOD24.PRG