home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
01
/
MOD17B11.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-06-19
|
24KB
|
665 lines
colorz
Prob
et postupov
kalkulace ...
podnikf
FPSABCRVIOJKG
CDEHLY
FPSABCRVOJKG
MNUXYZ
FPSABCRVIO
CDEHLYJKG
FPSABCRV
OMNUXYZ
M_param
m_param
KLOBOUKYF
M1_IDENT
m1_ident
ident
ident
M1_KUSOV
m1_kusov
vykres
Na tuto polo
ku nelze po
tat kalkulaci.
c1_kalk
c_postk
M1_PLAN
m1_plan
x1_plan
M1_NORMY
zakladni\m1_normy
operace
V1_STR
v1_str
x1_str
V4_Sklad
v4_sklad
x4_sklad
M1_KALK
m1_kalk
x1_kalk
M1_ZAS
m1_zas
x1_zas
m1_ceur.dbf2
M1_CEUR
m1_ceur
s2_par.dbf2
S2_PAR.DBF
s2_par
NASTAVIT d
lnu kooperace
KONZULTUJTE se SoWOU
dilKoop=0
CKALK
tu MM_VYKRES
MM_OPER
seNKUS
creatNVRTPRIP
sNVRTKUS
enNVRTOPM
obNVRTMAT
vyNVRTMAT2
,NVRTOPN
),NVRTSR
oNVRTVR
, nNVRTZR
c(1NVRTOR
c(4NVRTUVN
),CKALOBR
CCOLO
ruk MOD_SYS
kuMESS
p N(1PODNIK
druh CCIS
A2
typ_nakW_HMOTNOSTW_PL_REZ
,W_CENA_KG
W_CENA_REZW_MATERIALW_SPOTREBAW_UVN_ODL
VZOREC
7),DRUH_REZ
)FKMD
(15,6FRS
FRV
N(15,6FRO
N(15,FRZ
vn N(1REC
opn NM_VYKRES
mNAKLADY
;_KSDAV
prNAKLTYP
5,MDILKOOP
MDRUHKOOP
ID_ORG
15,LODL
copDRPR1
to cDRPR2
py sDRPR3
c1_kDRPR4
c1_VZOREC1
veVZORECV
n WCENAVRATU_NASEL
perW_DATUM
0M_ERQ1
_s ANSI
if M_PARAM
1_CZAVPARAM
MKUSY
POLE1
DILNA_KOOPM1_IDENT
IDENT
= .CZAVIDENT
M1_KUSOV
VYKRES
CZAVKUS
= DATUM_OD
DATUM_DO
eKOD_POL
YHLASKA
eleDR_DIL
adni\DR_KSD
orC1_KALK
ceTYP_NAKL
OPL_OD
PL_DO
sDAT_AK
_NOMATER
cZaKOOP
= .FPRIP
KUSOV
sed KUSY_D
select SR
use vZR
r indexOR
OPM
STR = OPN
else
elect NMPRIP
NMKUSOV
.PRIPCEL
KUSY_STRUKOP_V
SkladC_POSTK
eUROVEN
usVYROBEK
d OPER
_skNAZEV_OP
= .t.
KUSY_ROZP
cZDRUH
= .F.C1_S
sed (OPERVST
M1_PLAN
t X1_PLAN
mCZAVPLAN
eZAKLADNI
OPERACE
LKCZAVNORMY
M1_NORMY
eV1_STR
X1_STR
KALCZAVSTR
enV4_SKLAD
!X4_SKLAD
_CZAVSKL
sM1_KALK
X1_KALK
asCZAVKALK
zM1_ZAS
vX1_ZAS
CZAVZAS
sKALK2
eM1_CEUR
usRADA
d CZAVCEUR
kKALK5
aS2_PAR
CENA_VRAT
PIS_ERR
M_NAZEV
ZNAZEV
.F.PRIDROZPISNAVRAT
d (ZAVRIDBF
CZAVIDENT
M1_IDENT
CZAVKUS
eM1_KUSOV
tCZAVZAS
sM1_ZAS
enCZAVPLAN
bM1_PLAN
vyCZAVSTR
,V1_STR
),CZAVSKL
oV4_SKLAD
nCZAVKALK
1M1_KALK
(4CZAVNORMY
M1_NORMY
CZAVCEUR
M1_CEUR
kuC1_KALK
(1C1_K
NC1_S
ruh C
Identifikace nem
strukturu
kalk.
NEEXISTUJE
VZORECV
M1_PLAN
M_VYKRES
eKOD_KALK
tM1_KUSOV
sVZORECP
nROZPIS
bPIS_ERR
yM1_KALK
,CKALK
,C1_K
oNAZEV_OP
nVYKRES
1DRUH
(4TYP_NAKL
KUSOV
KUSY_D
ruh COPM
OPN
yp_nakUVN
OTNOSTMATER
,KOOP
A_REZC1_S
LIDENT
AMDRUHKOOP
M1_IDENT
,C_VYKRESU
KOD_POL
,6MATERIAL
ZNAM pl
novac
kalk.vzorec = 1
Kalk.vzorec nen
1,2,3,4,5
kalk.vzorec = 1
M_VYKRES
VZOREC
eM1_PLAN
tPIS_ERR
sKOD_KALK
nM1_KUSOV
bMATER1
yMATER2
,MATER3
,MATER4
ZNAM kalkulac
- typ KU
cena mater. bude = 0
V postupu chyb
operace vstupu
oper.(m
NEEXISTUJE
M_MATER
M_KOOP
M_PRIP
eM_KUSOV
tM_VR
sM_SR
nM_ZR
bM_OR
yM_OPM
,M_OPN
,M_UVN
oM_KUSY_D
1M1_KUSOV
4C_VYKRESU
M1_IDENT
_Q_DRUH
KOD_POL
kuM1_KALK
(1PIS_ERR
NMATER
CKOOP
PRIP
nakKUSOV
STKUSY_D
A_REZZR
M1_ZAS
,6P_ZR
N(15,6SKL_HLAVNIV4_SKLAD
NNSTR
mV1_STR
;REZIE_ZAS
5,SPOTREBA
C1_K
IDENT
,OP_V
pNAZEV_OP
cVYKRES
y sKUSY_ROZP
KUSY_STRUKPOR
veDRUH
n TYP_NAKL
UC1_S
Kalk.vzorec 2 nelze pou
materi
ZNAM pl
novac
materi
ch je hmotnost=0
materi
ZNAM hmotnost
pro
cena mater.
Chybn
rozsah hmotnost
pro
cena mater.
V postupu chyb
operace vstupu
oper.(m
NEEXISTUJE
ALIAS
KALK2
PIS_ERR
eM_VYKRES
tM1_IDENT
sW_RADA
nRADA
bM1_PLAN
yW_HMOTNOSTVAHA_MJ
,M1_CEUR
TW_CENA_KG
HM_OD
1HM_DO
NOSTCEN_KG
P_MAT
M1_KUSOV
SPOTREBA
uC1_K
(1IDENT
NOP_V
CNAZEV_OP
VYKRES
nakKUSY_ROZP
KUSY_STRUKPOR
A_REZTYP_NAKL
AMATER
Kalk.vzorec 3 nelze pou
materi
ZNAM pl
materi
daj.je plocha
ezu=0
materi
ch je hmotnost=0
materi
kalkulace 1. odlitku
cena materi
ZNAM hmotn.pro
cena materi
Chybn
rozsah hmotn.pro
cena mater.
V postupu chyb
operace vstupu
oper.(m
NEEXISTUJE
ALIAS
W_IDENT
M_VYKRES
eKALK2
tPIS_ERR
sM1_IDENT
nW_RADA
bRADA
yM1_PLAN
STW_PL_REZ
,PLOCHA_R
TM1_KUSOV
W_SPOTREBAW_UVN_ODL
W_HMOTNOSTIDENT
C_VYKRESU
KOD_POL
uSPOTREBA
AM1_KALK
N_ODL
VAHA_MJ
STM1_CEUR
W_CENA_REZHM_OD
RUKHM_DO
NOSTCEN_REZ
EZW_MATERIALW_KOOP
EBAP_MAT
_REZC1_K
IALOP_V
NAZEV_OP
6VYKRES
KUSY_ROZP
KUSY_STRUKPOR
1DRUH
NTYP_NAKL
mMATER
;C1_S
ZNAM kalkulac
- typ KU
cena mater. bude = 0
M_MATER
M_KOOP
M_PRIP
eM_KUSOV
tM_VR
sM_SR
nM_ZR
bM_OR
yM_OPM
STM_OPN
,M_UVN
TM_KUSY_D
OTREBAC1_S
VYKRES
OSTM1_KALK
PIS_ERR
MATER
uKOOP
APRIP
NKUSOV
KUSY_D
A_REZZR
RUKOR
NOSTOPM
EZOPN
RIALUVN
EBAUROVEN
REZVYROBEK
ALKUSY_ROZP
KUSY_STRUKPOR
TYP_NAKL
Kalk.vzorec 5 nelze pou
materi
ZNAM pl
novac
mat.odlit.
daj.je
ist.hmot.=0
mat.odlit.
KALK5
PIS_ERR
eVYKRES
tALIAS
sW_IDENT
nM1_PLAN
bW_HM_CISTAVAHA_MJ
STM1_KUSOV
AW_UVN_KOVUW_HM_SUROVIDENT
REBAM1_IDENT
C_VYKRESU
KOD_POL
SPOTREBA
VM1_KALK
N_KOVUP_MAT
NWCENAVRATUUROVEN
STVYROBEK
KUSY_ROZP
KUSY_STRUKPOR
NOSTDRUH
EZTYP_NAKL
LMATER
Kalk.vzorec 5 nelze pou
materi
ZNAM pl
novac
mat.odlit.
daj.je
ist.hmot.=0
mat.odlit.
KALK5
PIS_ERR
eVYKRES
tALIAS
sW_IDENT
nM_VYKRES
bM1_PLAN
TAW_HM_CISTAVAHA_MJ
AM1_KUSOV
AW_UVN_KOVUW_HM_SUROVIDENT
M1_IDENT
C_VYKRESU
KOD_POL
VSPOTREBA
VM1_KALK
VUUVN
N_KOVUP_MAT
UWCENAVRATU
ZNAM pl
novac
hodnoty re
Kalk.vz.
KLOBOUKYF
ZNAM st
edisek
lensk
ZNAM kalkulac
- typ KU
vky=Ks d
v.fin
KL. spec.-nevypln
n postup
mzda+re
ie cel
rozp.
ZNAM postupu
mzda+re
.za cel
postup
ZNAM st
edisek
lny operace
KLOBOUKYF
M1_PLAN
M_VYKRES
PIS_ERR
eP_KMD
tZS_KMD
sVZOREC1
nKOD_KALK
bM1_KALK
TANAZEV_OP
AVYKRES
APRIP
AKUSOV
KOVUTYP_NAKL
VKUSY_D
IDENT
YKRESU
VUUVN
N_KOVUMATER
UNMPRIP
ATUNMKUSOV
PRIPCEL
STRUKDOP
NOSTC1_K
LPODNIK
EBAMKOOPKMD
KMDILKOOP
LV1_STR
UKKRS
KKOPM
KKOPN
NREZIE_VYR
REZIE_SPR
REZIE_ZAS
REZIE_ODB
DR_KSD
C1_S
PKSDAV
,_KSDAV
cCKALK
sKUSY_STRUKC1_KALK
UKM1_IDENT
e_POSTUP
C_POSTUP
UM1_NORMY
rVYROBEK
KUSY_ROZP
STRUKSOPM
_SOPN
A_KOOPSMZDA
SMZDAP
= .SMZDAK
SKOOP
STBC
= STAC
SMZDAPCEL
POSTUP
YMKOOP
leDR_DIL
orPOPM
cePOPN
MDRUHKOOP
KOOPERACE
_MZDAP
cZaNKUS
= .FKCSBC
_MZDAPCEL
_MZDAK
KCSAC
ect _OPMP
se v_OPMK
dex_OPM
_MZDC
R = _OPN
ect _RV
TAC
P_MAT
RUKVZORECV
adMATER55
eOPER
Operace "
" neexistuje, kalkulace spo
tena na cel
robek.
daje! Zkontrolujte postupovou kalkulaci.
VYKRES
eMATER
t_MATER
sKOOP
n_KOOP
bPRIP
TA_PRIP
AKUSOV
A_KUSOV
KOVU_VR
YKRESU
VUUVN
N_KOVU_UVN
ATU_OPN
STRUKPRIPCEL
ST_PRIPCEL
ZMM_VYKRES
MM_OPER
BAHLASKA
KM_ERQ1
NVRTUVN
NVRTPRIP
KNVRTKUS
NVRTOPM
NVRTMAT
KNVRTMAT2
KNVRTOPN
NNVRTSR
NVRTVR
NVRTZR
NVRTOR
colora
HCOLOR
colora
MCOLOR
POPIS_POL
CO_ZLE
IDENTIF
eM_ERQ1
tMOD17B11
ZAVRIDBF
PRIDROZPIS
MATERIAL
MATER1
MATER2
_ _Z%
MATER3
MATER4
_ _K2
MATER5
_ _ >6
MATER55
_ _&:
ROZPIS
_ _ 8=
NAVRAT
HLASKA
PIS_ERR
X:\OBEC\01\
MOD17B11.FXP
X:\OBEC\01\MOD17B11.PRG