- UID
- 7415
- 精华
- 积分
- 2968
- 胶币
- 个
- 胶分
- 点
- 技术指数
- 点
- 阅读权限
- 70
- 在线时间
- 小时
- 注册时间
- 2006-12-24
- 最后登录
- 1970-1-1
|
发表于 2007-12-3 00:30:13
|
显示全部楼层
橡胶密封制品成本核算信息系统的设计) e% G+ M2 h2 u
肖风亮(广州机械科学研究院密封研究所,广东,广州 510701)
' e$ Y8 `, I3 i8 ?# { x8 |摘要:介绍了橡胶密封制品企业产品成本电算化信息系统的设计方法。阐述了数据采集、编码规则、数据结构、程序代码、数据输出的设计方法。
- w0 @# d: ?% G' @7 D Q关键词:成本电算化、信息系统、密封制品
6 s2 a; O$ J2 }# O+ t
( X8 y- {3 s2 I. H1 前言
4 K! M+ \) q+ e) N4 l+ z成本核算是现代会计的基础环节,它不仅可以对企业生产的产品进行计价,也为成本管理的各个环节提供必要的成本资料,是企业盈亏计算、业绩评价的重要依据[1]。本文根据橡胶企业密封制品生产流程、详细阐述各种直接生产费用的核算程序。0 |' q4 E- m$ G) V! }
- r! k' s2 ]* Q, p/ ]
2 橡胶密封制品的结构与制造流程概述3 i1 [, V: M, k7 W) S: N
常见的橡胶密封制品从结构上分包括O形圈、骨架油封、夹布油封、V形圈、蕾形圈、膜片、橡胶杂件等等。从材料组成上可分为单一材料制品(如纯橡胶制品、纯夹布制品等);复合材料制品(如橡胶/金属骨架、两种橡胶复合制品、橡胶/织物复合);多种材料复合制品等。从加工流程上看,包括混炼胶生产、半成品的制备(胶料挤出预成型、夹布预成型、金属骨架车制等)、产品硫化、产品修边、产品二段硫化、产品切唇、产品切外圆、弹簧安装、产品包装等工序过程。: ^* r. g+ Z% m( s. y* F
$ A& K+ X# d5 J t3 橡胶密封制品直接成本构成
4 N' @. Z2 M5 z3 r4 a5 t 产品成本通常由直接材料、直接人工和制造费用构成。制造费用包括各种管理费用,以及机器设备的修理费、折旧费,设备能源消耗费用等。根据橡胶密封制品的制造流程、材料构成以及产品制造过程中的合格率、材料利用率的水平,橡胶密封制品直接成本统一表述为:# g% Y- W$ i! w
产品直接成本=(橡胶材料成本+炼胶电费+炼胶人工+炼胶设备折旧+骨架材料成本+车骨架电费+车骨架人工+车骨架折旧+挤出电费+挤出设备折旧+挤出人工+硫化电费+硫化人工费+硫化设备折旧+二段电费+二段折旧+二段人工+车外圆电费+车外圆人工+车外圆机床折旧+切唇电费+切唇人工+切唇车窗折旧+修边费用¬)/(材料利用率*产品合格率)+弹簧成本+包装成本;这26项费用涵盖了橡胶制品生产过程中所有存在的直接制造成本。对于某一具体的产品来说,可能只存在其中的一部分相关加工流程,不相关的流程的费用对于该产品来讲即为零。* U' Y& x$ @7 b6 e' _) `- L
产品成本=产品直接成本+管理费用成本+期间成本。其中管理费用成本和期间成本两部分受企业经营模式、管理模式的限制,可根据各自企业的特点,进行适当的按比例分摊。本文将重点介绍产品直接成本的电算化设计方法。
' T8 R3 y0 @) I3 `1 S3 i2 Y* w0 E& |% E- y. F# ?
4 成本核算信息系统的设计$ K$ L0 d- C$ i
4.1 子系统的设计
$ e8 y6 z& q# j5 M U/C矩阵法是将信息系统中各项管理功能组和数据类之间的关系用一个矩阵图
9 E& X( n9 e* `5 M& ?, d6 F列示出来,形成一个二维表。每一个U/C最密集的区域,赋予命名即是一个子系统。把系统划分为若干相对独立的小系统称为子系统划分。一般子系统按照逻辑功能划分,划分后的系统无论设计和调试工作都将得到巨大的简化,还有助于系统的扩充和修改。划分的关键在于不能破坏原系统的完整功能和子系统间保持相对逻辑独立[2]。在橡胶制品直接成本核算过程中,将子系统划分为制造工艺子系统;橡胶材料参数子系统;骨架油封参数子系统;特定骨架参数子系统;设备参数子系统5部分。7 v% Y: `8 m9 z; N, V) r( _
4.1.1 制造工艺子系统设计
) j9 ]7 \" W& h- s6 ~制造工艺子系统涵盖了产品的物料清单、加工流程、加工所需设备、加工工艺方法等信息。制造工艺子系统的二维表结构设计如表1所示:9 v3 d" `$ Q: t2 G( y
表一:工艺表结构9 K7 g0 }* K+ J5 w! Y/ y
字段 字段名 类型 宽度 小数位2 |: e* Z1 A) `
1 货品代号 字符型 26
5 V6 M N5 y9 F" I* h) O: D2 产品规格 字符型 25
+ [( p" n* N3 G& q, m7 J3 模具编号 字符型 28 ( K' n0 p; L" `! W, r7 N3 Z
4 硫化压力 字符型 5
1 A; d2 V& o5 V) {2 o/ e3 m5 硫化温度 字符型 3
- j O- d8 w% ~: G* z0 |6 硫化时间 数值型 3 0
0 I7 J- f1 y6 A; T" i# ~7 材料名称 字符型 20
; V& G+ m% o5 `8 半成品尺寸 字符型 9 : `. D* `' I4 [) M
9 定额重量 数值型 10 2$ p" a% r+ V, J' d
10 骨架重量 数值型 10 2
1 T& ^- j, x' W& g7 S+ j11 硫化机台 字符型 . g. M* f+ L4 x
12 标准工时 数值型 3 0* @8 L5 _. \, K# S
13 产品重量 数值型 10 2
5 Q+ F8 p- }1 ~! ]- O- M14 标准合格率 数值型 5 3
- ^3 i* `$ V( U7 L15 二段条件 字符型
& S; c* d( q6 p- X16 工艺要点 字符型 - G8 O) @% s, g) P3 c) P1 ~) V
17 制模时间 字符型
: e1 f! E* ]9 q b7 q/ j/ K4.1.2 材料参数子系统( t; k; A6 Z3 A j0 @2 D
材料参数子系统涵盖了所有配方代号、配方单价成本、混炼、挤出、二段等加工过程中单位重量的材料加工费用等信息。表结构设计见表二。 p+ v( i/ _/ L
表二:橡胶材料参数表结构8 p1 w7 H+ l; r2 ?6 v! p' W
字段 字段名 类型 宽度 小数位
# K: [( l- u o% I! b1 材料名称 字符型 5
6 G. d3 ?1 N- q( \+ m2 材料单价 数值型 15 103 \0 P1 V8 `) S: n I( _) \6 D- z
3 炼胶电费 数值型 14 104 I e/ D1 S) J) G1 }
4 炼胶折旧 数值型 14 10
+ d' M, @0 M' H* c5 炼胶人工 数值型 14 10
/ k: K. W- t3 W. H6 挤出电费 数值型 14 10
# c1 B, r! V# V; }& ?7 挤出折旧 数值型 14 10
5 W9 ~3 z6 M! m) J5 E: g+ h* A" c3 A8 挤出人工 数值型 14 10
0 i; G# C9 G7 Q% @* k% P. \9 二段电费 数值型 14 104 x; y P1 o3 k9 A& S
10 二段折旧 数值型 14 109 n5 [& [# M; F+ q
4.1.3 骨架油封参数子系统
7 x. H4 @6 a& D6 k骨架油封参数子系统涵盖了骨架油封的等级、每个等级的骨架加工费用、人工费、折旧费、以及各等级骨架油封的切唇、车外圆的加工费用、折旧费用等信息。其表结构见表三。
G3 B [7 j9 c. H! K0 ^表三:骨架油封参数表结构% k& q* x [' X2 e) b' p X8 ?, }
字段 字段名 类型 宽度 小数位% W3 b F; W) A, q& S8 D
1 等级 数值型 5 09 H J: s* u9 u% H! }9 A$ {
2 内径尺寸范围 字符型 12
2 Q/ m- ?7 W4 r3 车骨架电费 数值型 13 6
% k% z' P8 S" A- v3 ^% |$ L4 v4 车骨架人工 数值型 13 67 H1 Y9 r* G8 Q3 h1 t' i! _; t2 x
5 车骨架折旧 数值型 13 65 v8 {. g# X- \
6 切唇电费 数值型 13 6
7 r+ t% i7 s! \, q7 切唇人工 数值型 13 6
* o- T. }. F3 H$ {: Q8 切唇折旧 数值型 13 60 D3 K4 P# S# z
9 车外圆电费 数值型 13 6
: j' X- @' Q# N/ {# }' I X10 车外圆折旧 数值型 13 6+ Y- K) C T5 \. ]! r, d* `4 H
11 车外圆人工 数值型 13 6
! J R( E/ A& @# k( u4.1.4 特定骨架参数子系统
2 Y- [, T2 l4 | 对于两种材料以上的复合制品来讲,将主要使用的橡胶材料视作第一类材料,将第二种材料视作骨架材料。骨架包括橡胶类、织物类、金属类三种;对于骨架油封这类规则的金属骨架来讲,4.1.3中涵盖了所有必须的信息。对于不规则骨架来讲,骨架材料价格、来源方式、加工方法等成本信息则涵盖在特定骨架参数子系统中。外购/外协加工骨架其成本即为采购价格;不规则的复杂自制金属骨架需单独计算其成本费用后录入该子系统;织物骨架、橡胶骨架其材料成本为材料单价*消耗重量;消耗重量在工艺表中体现出来,材料单价在这个特定骨架参数表中体现出来。6 ^5 n! f" |; @2 [$ R
表四:特定骨架参数表0 f8 c8 B9 x7 q6 j& R) \; {# X
字段 字段名 类型 宽度 小数位# U, L/ l1 E8 J5 V
1 货品代号 字符型 28 4 z) ]4 a4 x' P3 g6 a+ Q
2 骨架名称 字符型 5
2 D, a. v/ ]) F3 骨架单价 数值型 6 24 a) X0 [$ R& e# l0 v0 R& n& d" p4 w
4 骨架成本 数值型 6 2
2 @% d' k& Y( Y# m4.1.5 设备参数子系统7 o* [7 U2 q# }
硫化机台设备参数包括设备功率、设备操作人数、设备折旧等信息。功率是计算电费成本参数、操作人数是计算人工成本的参数。+ v7 w! @1 x4 A3 E+ z0 f
表五:设备参数子系统# i2 ^# c/ ~. E) o' }
字段 字段名 类型 宽度 小数位
" Y, d2 u6 \( E4 x& D0 N) @1 硫化机台 字符型 5 * e( F: a9 j, u4 i D1 m, l- c8 b
2 每分钟电费 数值型 15 8
0 b" |* e7 s% B" [3 每分钟折旧 数值型 15 8 }* a0 q @* c: I" v! M2 Y( F
4 操作人数 数值型 1 0' |. i; Z# u4 M* I: N! I
4.2 代码设计
! z" |/ X/ x9 E# \! ? 代码指的是代表事物名称、属性、状态等的符号和记号。在本系统中,货品代号为产品唯一识别码;模具编号则根据产品的类型编码;材料名称即配方代号编码;硫化机台则是对于不同硫化设备的编码;骨架名称则根据骨架来源、特点的编码。这些编码方法按照惟一性、
$ ]% z5 D: g, V$ g6 C' Y统一性、扩展性、规范性、明确性的原则,根据各自企业的特点自行设置编码规则。
) w3 `% n' ]7 X, R
9 f, }, R$ D! M1 A; F$ h4.3逻辑功能、程序模块设计
' s H) I! ]9 S: ?( q逻辑功能设计是对模块功能的展开和细化。实质上是通过逻辑功能设计而具体表达了如何把输入转换成输出的功能。程序模块则是用计算机语言将逻辑功能表示出来。$ Y0 f& S' `# P3 v: z1 t
在下面程序模块中,详细分析了24个成本费用的计算方法,描述了各项数据间的逻辑关系。
i+ ^' v6 s0 Z+ _DO 清零代码[3]0 y7 G. f, |( D
&&成本计算程序- h) T) j* Q) q! Q
SELECT 产品工艺表' Z2 E& @3 N/ W( k y; |- b
GO top
* ^( K0 @ x8 ]0 A4 y( c1 B
: ~% i1 v! V' e! L( }/ ~SCAN* F; l$ W$ o7 O1 m
&&生产工艺表中的材料名称分解,将材料名称分解成两部分以“/”为分界线,前一部分为材料名称,后一部分为骨架名称9 S* Y/ O7 i/ z' n: I
IF "/"$材料名称+ s0 S; {( R# [8 \# o% u; G# Y
do case3 ]# t/ `) T7 k5 _% y4 A
CASE SUBSTR(材料名称,5,1)="/"
# f5 K3 {3 I9 g9 t% W/ e" `4 G clmc=ALLTRIM(SUBSTR(材料名称,1,4))&& clmc 材料名称首字母0 G7 u6 V Q, V1 B2 P2 k8 {: e% K
gjmc=ALLTRIM(SUBSTR(材料名称,6))&& gjmc 骨架名称拼音首字母
. |. U w/ A8 Q7 {; k CASE SUBSTR(材料名称,6,1)="/", ^+ n* i; g- W3 G" O& m8 T
clmc=ALLTRIM(SUBSTR(材料名称,1,5))& M9 u; e. h4 s
gjmc=ALLTRIM(SUBSTR(材料名称,7))
5 N4 q' ^9 n6 g3 Z) w9 w* O ENDCASE
* v3 E$ K0 p3 N4 Q8 ^: }9 {ELSE
' h& j: r9 d. T3 }0 c& X# u! w- Uclmc=ALLTRIM(材料名称), f9 Q* F6 l$ T5 c; I8 g O/ M
gjmc=""
+ G% |1 X; W" @7 S7 W1 B" eENDIF
3 E b7 I% V# S
" E1 `9 Q6 D& T# U; M&&产品规格分解 && 将产品规格分解成内径、外径、高度三个数值。复制到变量 d、w、h4 o$ a9 n- O) L; a" y7 p3 Y9 B
n=0
5 |1 L7 k/ z. U. e4 [d=0
( r; [; i/ J2 r8 f v; s6 [rrr=""/ \. ]* E O- l% D, v/ F7 t
m=0
! n# N* }, D" S. yw=0- v5 D p1 T3 \# b6 b3 H; x
h=0
2 d3 v# o8 h6 c+ |; g3 Tcp=ALLTRIM(产品规格) &&产品规格复制到变量cp& x. [1 D1 i$ u
STORE "*" to _cfind
8 N! T: X( d4 J: ]8 gn=AT(_cfind,cp) &&n *的位置值赋值到变量n 9 o6 D# y# P* `, x! W) M+ r
d=val(SUBSTR(cp,1,n)) && d 内径,w外径,h高度9 G s( E' S) ]0 t9 j
n=n+1
6 w- w0 j( l4 b3 G! W9 _rrr=SUBSTR(cp,n) && 提取字符串,复制到rrr,去掉*前面字符串剩余部分
& M2 K% d; a; c D$ Rm=AT(_cfind,rrr) && rrr字符串中*的位置复制到m% E3 T& y+ |; T$ |, W4 g0 {
w=val(SUBSTR(rrr,1,m)) && 提取外径 s, G+ i0 I& y4 A7 S& o# t
m=m+1
/ i1 P/ a4 I1 b7 m# U2 b5 J- c& R5 Rh=val(SUBSTR(rrr,m)) && 提取高度
: a# n; s/ {$ u5 I+ [0 Vdj=CEILING(d/50) && dj 等级,根据产品内径大小,每增加50为上一个等级,不同等级的加工费用不同,参阅骨架油封参数表。
0 v5 \4 b! }. G1 O9 T4 Kdezl=定额重量 &&dezl 定额重量拼音首字母,将产品工艺表中的橡胶部分的定额重量复制到变量dezl9 |8 }1 q% Z2 n1 x) `- B
hpdl=货品代号 && hpdl 货品代号拼音首字母,将产品工艺表中该记录的货品代号复制到变量hpdl0 x5 ]; x7 y0 M7 `$ a% Q: j
gjzl=骨架重量 && gjzl骨架重量拼音首字母
Y6 t2 A! C2 Y6 Y2 @lhjt=硫化机台 && 硫化机台
0 L8 k) |6 m1 }3 \- n5 Hbzgs=标准工时 &&标准工时 2 B% A: \ w. r# O6 b6 `, Y/ _
lhsj=硫化时间 &&硫化时间 6 ^. K0 F }' P. j2 v" o. ]& _
bzhgl=标准合格率 &&标准合格率8 c& R. \& z/ e$ L. c+ c
1 D8 ` X& {/ qSELECT 材料参数表6 P! ?/ ]! i5 d$ S2 y! V" ?$ l
LOCATE for 材料名称=clmc; l7 p1 f& @5 [3 ~. b( ~
IF FOUND()
: y9 n' b$ X+ T1 @5 l* ucldj=材料单价 &&cldj材料单价首字母,将材料价格复制到变量cldj/ }/ f; @! z/ Y# Y9 G
+ @$ A: D" w2 w+ | s! J& \ljdf1=炼胶电费 &&每克炼胶电费
! f2 K! P; f( _, `: ]ljzj1=炼胶折旧 &&每克炼胶折旧4 E: k3 W: S! c, x4 {# ?
ljrg1=炼胶人工 &&每克炼胶人工
4 N' @7 w! L) @: f5 ^$ n. V( Y7 k! ~' o& c h
jcdf1=挤出电费 &&每克挤出电费
3 d2 P. v& B+ r* L/ A' Hjczj1=挤出折旧 && 每克挤出折旧6 t" p6 P3 H* w2 S* N8 e
jcrg1=挤出人工 && 每克挤出人工
" b3 y0 N' p1 {' @
$ F( z7 [/ w& I/ n) L% p( u0 ceddf1=二段电费' f. y7 t. }/ N
edzj1=二段折旧' \# `! g) ~" N' x
ENDIF
: b( l' V/ y/ | H2 E, n2 g
& ?. e- X4 R: @4 KSELECT 骨架参数表( n' O6 W3 |0 D w/ W
LOCATE for 骨架名称=gjmc
; i4 H% d% G7 N' tIF FOUND()
& R2 p) {5 U% t# kgjdj=骨架单价 &&骨架单价首字母,将骨架单价复制到变量gjdj
- l4 a6 G* D+ I! t7 x( k( MENDIF0 Z& W: o f" m& b2 g
& A8 O2 l# K/ u. r# q
SELECT 设备参数表. B9 C+ e4 M# r$ t7 ?3 F" w7 S+ x
LOCATE for ALLTRIM(硫化机台)=ALLTRIM(lhjt)7 U* \- N* G$ e: O0 P
mdf=每分钟电费8 U; f* o! N) F/ ^3 V
mzj=每分钟折旧$ u0 \5 o5 O( I$ e/ n
czrs=操作人数
! R( D5 n# z, i
. Y+ ]7 U2 Z% [ SELECT 成本核算表
/ N0 b- @9 [1 D; h &&计算材料成本
& g- f1 o% H! h8 l3 V: Oclcb=cldj*dezl/clsh &&clcb 材料成本首字母' k- w) R) h- P+ E
7 v) A/ N A1 T! ^2 B/ U0 @&& 计算骨架成本0 l3 a! e- {7 t9 {5 |
DO case ' u, |( M( |8 c0 Q& d
case "/B"$产品工艺表.材料名称 &&如果骨架是夹布,橡胶夹布复合制品时,包括夹布油封、夹布y,膜片等
3 q: J; a7 d+ m2 f gjcb=gjdj*gjzl*0.001 && gjcb夹布骨架成本
7 O9 v; D4 h2 r, v. m' A8 L case ("/G"$产品工艺表.材料名称 and "YF"$产品工艺表.模具编号) && 如果是骨架油封
' R$ Q* U+ g' }. z6 E9 N/ @ DO CASE 9 P* {, u+ |5 K
CASE w<=300 && 外径小于300 " g) W. F* t8 a7 M9 r
gjcb=((w+10)^2-d^2)*3.1415926*(h+9)*0.000001*7.8*0.25*gjcldj * r& q& I: Q/ N0 s3 |
CASE w>300 and w<=600 &&外径在300到6005 g/ ]& \, g5 o) a
gjcb=((w+15)^2-(d-5)^2)*3.1415926*(h+9)*0.000001*7.8*0.25*gjcldj( B8 n7 \- a* r
CASE w>600 && 外径600以上
( M9 D/ x8 R6 Y9 ~8 H- ? gjcb=((w+20)^2-(d-10)^2)*3.1415926*(h+10)*0.000001*7.8*0.25*gjcldj
6 c& l3 O( L1 f& l4 k! l7 m. e$ ^ ENDCASE
0 e U$ U- d& \7 s IF "YF1-"$产品工艺表.模具编号 or "YF2-"$产品工艺表.模具编号 or "YF3-"$产品工艺表.模具编号 && 如果是内骨架油封,骨架成本乘以系数0.92 M/ o0 A6 H4 m3 F- k$ R, H" d0 C
gjcb=gjcb*0.95 n8 r0 }" d) s, o# Q1 ]9 E
ENDIF $ v# k- X) U! b" `& j- f
CASE NOT "/" $产品工艺表.材料名称 && 如果是单一材料不包含骨架制品
- X' Z. Z5 A, y. p) P0 m% G( v gjcb=0
7 F. q$ a% S* z- ^0 O OTHERWISE && 包含骨架杂件
3 m2 I* R& ?) n3 H8 @7 {& Y gjcb=0 " I* ~; p3 l7 c+ k
ENDCASE$ ~5 W: V4 c. ^) i' {4 v* ]6 C9 B
( b% C$ r; J5 `3 j" W
&&炼胶电费、折旧、人工# f! Q( Y" O- H. w) E/ _& \/ p
ljdf=ljdf1*dezl
/ h/ s* p Y5 r6 T& uljzj=ljzj1*dezl
1 U {2 O' \! \% \3 u. A$ Rljrg=ljrg1*dezl
$ I' ]) ], D8 e* `
8 W" p$ Z4 U( N, N6 n&&挤出电费、折旧、人工
, U) b4 @8 L% i4 q2 f2 l4 I0 `5 jjcdf=jcdf1*dezl+ Z& U% ^% l( C, n5 Y1 ~
jczj=jczj1*dezl
9 y+ L6 t% t& o* A* n0 `IF "/B"$产品工艺表.材料名称
% v( U% s0 T( l" r! wjcrg=jcrg1*dezl+gjzl*jjbrg*0.0011 j8 s |+ k: C
ELSE9 h+ l/ K' d7 Z" Z% \+ |! I
jcrg=jcrg1*dezl' r% Z4 w! s' k! J# M% ?. s, O
endif; e4 q5 ^ l& p$ g9 n0 [- |
0 P s: n9 A. C4 u, v- f9 ^
&&硫化电费、折旧、人工( Y; o2 e t- {4 y$ C7 N7 e$ G
lhdf=mdf*lhsj/ N* o* Z: n& f: O3 S1 k6 z* q
lhzj=mzj*lhsj
u7 f3 z' v2 D" [lhrg=3.3*bzgs*czrs/606 t# F+ \. e' c5 y
$ I0 d: C+ E8 I: P. G0 r3 p
&&二段电费、二段折旧
% ?+ Z% Q; [' D G$ E( d7 P7 f* Deddf=eddf1*dezl% F3 ], z6 D$ t4 X7 M* a4 q% c
edzj=edzj1*dezl
1 b! L! C0 ~( n T5 }
5 k& c) s1 Z# s4 K4 q9 R: t IF "YF"$产品工艺表.模具编号
8 Z) D# \! V* f SELECT 骨架油封参数表
, T% v/ F( H: t9 y LOCATE for 等级=dj &&
6 W3 P; c1 E4 U9 K* w' b- c/ n- |% W; `
qcdf=切唇电费4 I/ W, c3 W2 r) \* g& ~
qczj=切唇折旧1 ^9 q3 M/ {0 _* W& G+ g
qcrg=切唇人工
! u# [) V6 d$ ] ELSE" m/ V0 A( h8 x/ H" R0 M
qcdf=0' m. F, Y, @6 }
qczj=0
; H6 n9 X o4 K& s8 l8 B& L! q qcrg=0
& W( F/ s8 K- f0 T0 q, ^8 q# R endif
4 z% H& \* p# d4 C7 F9 r 9 K/ n. |: c7 @+ G3 e
IF "/G"$产品工艺表.材料名称 and "YF"$产品工艺表.模具编号
9 ?7 c5 u# n+ p5 S5 S4 J: g1 u cgjdf=车骨架电费1 f$ K( B4 K1 R8 Z# @% L
cgjzj=车骨架折旧
# z. j2 Y! b5 |% S cgjrg=车骨架人工0 s) o! ?" T& J4 v& m) G$ B
ELSE$ N+ |2 ~6 ~! ~
cgjdf=0
: w# s! m) ~$ f( F* z cgjzj=06 c- H3 \) g3 g1 T, `1 X1 O1 D3 a
cgjrg=0& h5 w8 L" k7 E5 U3 T
ENDIF
4 k! o8 J, K! c- v 6 P9 J; v- t3 V; }# r
&& 判定是否是外骨架油封,如果是需要车外圆7 P2 C( p1 D/ |( e9 L9 h% @
IF "/G"$产品工艺表.材料名称 and ("YF4"$产品工艺表.模具编号 or "YF5"$产品工艺表.模具编号 or "YF6"$产品工艺表.模具编号) , ]; x' w% Z- R* _" B
cwydf=车外圆电费
2 O {% a9 s8 x$ u! O m cwyzj=车外圆折旧3 q# W3 y0 \1 c: ^! }( j
cwyrg=车外圆人工
' E! O0 t& O& K7 Y; r ELSE3 o& M+ O0 f" y4 H3 S1 z7 Q
cwydf=0* J, W( B- ^% `( m* R- h
cwyzj=08 j. I9 ~2 G5 T0 `& g: |
cwyrg=0
) Q, B3 A1 B1 k' S! g. j4 w* G0 O* r ENDIF9 j' U# P7 u: B2 w
- |6 }. k5 y4 N5 d$ e
&& 计算弹簧费用
6 p1 B* Z0 H; M. q% Q7 ~3 C; c: @* OIF "YF"$产品工艺表.模具编号 &&判定是否是油封
& p5 s- M o( z Pthcb=d*3.25*thdj*0.001
* L0 c- n( x/ [- Y. rELSE. G5 o3 @4 T8 M
thcb=0
# H. z" V8 n/ [' g" n. RENDIF
/ } W- G% @, H6 t! s3 N
2 R& ]1 n* }* W3 s) T&& 计算材料费、电费、折旧、人工汇总" ?9 C* X# ^8 x5 r( o! K" ?; E
zclf=clcb+gjcb+thcb( d; m( Z( ~" E
zdf=ljdf+jcdf+lhdf+eddf+cgjdf+qcdf+cwydf. I5 w& e) F' l( o
zzjf=ljzj+jczj+lhzj+edzj+cgjzj+qczj+cwyzj
. v, u; B" c; e2 _zrgf=ljrg+jcrg+lhrg+cgjrg+qcrg+cwyrg0 I% K' s1 ?# A, \2 b8 E, S
8 x3 @0 h( U" N: `0 s& {IF bzhgl>0
: Z: e# U$ u K1 ocpcb=(1+glft)*(zclf+zdf+zzjf+zrgf)/bzhgl4 H' M% j; `! `3 D3 _
ELSE
G8 ?# @% @" a3 v; Y: ucpcb=(1+glft)*(zclf+zdf+zzjf+zrgf). n1 z! B* z7 N
ENDIF
! U9 _1 ~. h* T9 Z, s
" _/ u4 `; o( a& h$ G4 z9 s; L&& 将所有成本计算结果导入到数据表成本核算表中保存起来
2 O" \( _; h, tINSERT INTO 成本核算表 (货品代号,材料成本,骨架成本,炼胶电费,炼胶折旧,炼胶人工,挤出电费,挤出折旧,挤出人工,硫化电费,硫化折旧,硫化人工,二段电费,二段折旧,车骨架电费,车骨架折旧,车骨架人工,切唇电费,切唇折旧,切唇人工,车外圆电费,车外圆折旧,车外圆人工,弹簧成本,总材料费,总电费,总折旧费,总人工费,产品成本);* |# a) @' U" J! v
values(hpdl,clcb,gjcb,ljdf,ljzj,ljrg,jcdf,jczj,jcrg,lhdf,lhzj,lhrg,eddf,edzj,cgjdf,cgjzj,cgjrg,qcdf,qczj,qcrg,cwydf,cwyzj,cwyrg,thcb,zclf,zdf,zzjf,zrgf,cpcb)
3 R! Y$ |+ q7 ]; a0 X) N+ X b+ f8 ^1 f7 N$ U3 p2 l
&& 计算完毕一个规格,各变量清空7 L/ h: k. [. {8 }* Y
DO 清零代码7 K2 t% {5 d& O8 q" |
ENDSCAN8 h3 k! b1 b7 `* m9 r; i
; F- V5 Q8 a' G. E6 C/ G4 i&& 运行查询,将产品工艺表与计算成本工艺表连接起来,输出计算结果' z z% a8 E1 ?0 Z
SELECT 产品工艺表.货品代号, 产品工艺表.产品规格, 产品工艺表.模具编号,;
# I6 @7 w' \$ z: F" @2 R6 D1 X7 [ 产品工艺表.硫化压力, 产品工艺表.硫化温度, 产品工艺表.硫化时间,;; Z% ~5 l- F+ s) i
产品工艺表.材料名称, 产品工艺表.定额重量, 产品工艺表.骨架重量,;: y% H0 m6 s6 h$ u9 V7 W- ?5 F) O. F
产品工艺表.硫化机台, 产品工艺表.标准工时, 产品工艺表.产品重量,;4 e9 |$ T: E2 T% c7 @6 {, `
产品工艺表.标准合格率, 成本核算表.材料成本, 成本核算表.骨架成本,;) t" v) B4 {3 ^9 O1 S: q! v) ^* O
成本核算表.炼胶电费, 成本核算表.炼胶人工, 成本核算表.炼胶折旧,; H6 c3 n3 A0 K8 w2 P. |: v7 H7 W$ ^
成本核算表.挤出电费, 成本核算表.挤出人工, 成本核算表.挤出折旧,;. q! `6 O9 U6 d* `, i k2 u; S
成本核算表.硫化电费, 成本核算表.硫化折旧, 成本核算表.硫化人工,;* g3 a7 z6 t( M
成本核算表.二段电费, 成本核算表.二段折旧,成本核算表.车骨架电费,;
$ B" Q) H% r: O4 H6 K J* y 成本核算表.车骨架折旧,成本核算表.车骨架人工,成本核算表.切唇电费,;' L. J0 _6 i# [& h
成本核算表.切唇折旧,成本核算表.切唇人工,成本核算表.车外圆电费,;) E: {9 m6 B$ a1 U3 k. b, E5 f
成本核算表.车外圆折旧,成本核算表.车外圆人工,成本核算表.弹簧成本,;
& e0 Y* q, r* u- L/ W: c6 ], o( Q 成本核算表.总材料费, 成本核算表.总电费, 成本核算表.总人工费,;
* n5 M, b1 V7 F8 n/ V 成本核算表.总折旧费, 成本核算表.产品成本;
8 O* t# K) N3 K' L# \FROM ;
; z9 Z' X7 f) Q! T5 n$ c 硫化成本核算!产品工艺表 ;
! T1 u$ u# g; y# }3 ] FULL JOIN 硫化成本核算!成本核算表 ;
" I& H f: B' G* Y! z# {1 c ON 产品工艺表.货品代号 = 成本核算表.货品代号;" M. m; s- n6 p& \" M& h/ n# p
ORDER BY 产品工艺表.货品代号. d ]2 D9 u# X+ Y9 `8 ^
……
) N- ]1 n% i3 G% m; U0 i$ A2 H在这个系统模块设计中,模块之间主要关系为数据传递关系,模块之间耦合度较低。降低模块间的耦合度能减少模块间的相互影响,防止对某一模块修改所引起的“牵一发而动全身”的水波效应,保证系统设计顺利进行。 总体来讲这个系统模块是一个近似的黑箱模块。输入产品制造工艺,输出各项相关成本;系统内部不可见。: W1 S' {& u8 T' w, l8 i! L
系统建立以后,核算工作的重点向信息输入端和输出端转移。在输入端,要求改进基础工作。建立和健全会计与统计合一的原始记录体系,扩大信息来源渠道,严格对原始记录的登记与审核,提高输入信息的真实程度与正确程度。在输出端,加强对资料的分析和利用,既可将来自不同系列程序的资料按规范打印相应的报表,也可将其直接调入其它系统(比如决策支持系统)进行运算,以满足管理上的有关需求。
J# g; Z8 b( l9 W. {0 K" p. D# q& ` 8 U- T6 G- t( |. o
4.4 输入输出设计: T" V6 \1 y% {+ `
输人设计包含对表一到表五的输入,每一个表的输入都要根据制定数据的录入规则,通过excel录入完成后导入本系统即可。输出设计是程序运算结束后,将成本费用计算与工艺表结合起来,将全部信息以xls格式输出,充分利用excel程序功能,完成数据的裁剪、报表打印等处理工作。成本核算表有上述程序自动生成,无需人工干涉。
' d% v3 o _7 D表六:成本核算表5 T% ?& A0 s& _9 H
字段 字段名 类型 宽度 小数位: w% n) O1 p9 v: i
1 货品代号 字符型 28
8 U& [/ q( w% I0 C2 材料成本 数值型 8 4
, s+ P* l$ V i3 l* F! ~3 骨架成本 数值型 8 4. }) u, a6 J- Z6 Q" t r/ S7 D
4 炼胶电费 数值型 8 4- V0 s/ t; b5 c. B5 E+ x3 ^
5 炼胶人工 数值型 8 4" k4 _3 n0 S3 i" M/ G1 k& c( B
6 炼胶折旧 数值型 8 4" {- H X4 {0 a) x) l
7 挤出电费 数值型 8 4- D4 `# W+ \* `. {
8 挤出人工 数值型 8 4
5 R: D; Y9 N; ^5 H9 挤出折旧 数值型 8 4' V& f* K% g* m. E5 m6 {
10 硫化电费 数值型 8 4" L) o! K0 S- ]
11 硫化折旧 数值型 8 4. d+ {( q2 C5 S. r# `) ]4 K5 e* @( f
12 硫化人工 数值型 8 4
6 W5 |/ J- D2 @, P L8 e/ J13 二段电费 数值型 8 4& O6 w: T8 s# P
14 二段折旧 数值型 8 41 ]5 b" U8 A6 W) ?# H
15 车骨架电费 数值型 8 4
/ t4 N$ h) |+ ]16 车骨架折旧 数值型 8 4
& ?$ z) s) Q- F+ U17 车骨架人工 数值型 8 45 H8 T; |. @5 b$ ^4 _
18 切唇电费 数值型 8 4
2 U: K- c8 h6 V$ ^/ \19 切唇折旧 数值型 8 4
i$ V. n3 {3 O Z/ Z* O: | G20 切唇人工 数值型 8 42 V# l5 s5 S/ G: w4 j! t# O# l
21 车外圆电费 数值型 8 43 U$ r$ I( P& }7 a9 W" c
22 车外圆折旧 数值型 8 48 A# V4 b8 t0 f' k
23 车外圆人工 数值型 8 4
! |. W5 M( C( V1 P( s2 u24 弹簧成本 数值型 8 4
' g' V" G/ @, o w; x25 总材料费 数值型 8 4
. q% x& M v, [" `26 总电费 数值型 8 45 d+ N: r" D, Z9 s8 X
27 总人工费 数值型 8 4: q+ `) X( R* r: a1 }7 h( |+ \
28 总折旧费 数值型 8 4/ m9 [1 f: o( R4 r
29 产品成本 数值型 8 4
0 y$ u6 F% U$ g6 t4 N$ B. @1 J, u0 y0 r! D# j* t6 g) }
5 信息系统使用性能评估5 s/ ^) B/ v6 J( g
橡胶密封制品成本信息系统核算模型完全模拟橡胶制品生产的全部工艺过程,具有了稳健性、客观性、实用性、整体性的特点。从系统的可移植性、可扩充性和可维护性来看,当企业工资方案、采购成本、产品制造工艺、产品的设计发生变更时,只需要修改表一到表五种的相关内容,重新执行该程序即可自动计算变化条件下的产品成本,整个系统无需修改,具有很强的适应性。从系统设计的通用性上来讲,系统按照最长工艺路线、最复杂产品结构的成本核算路线设计,满足所有类型橡胶密封制品的成本核算的需要。从系统的可靠性上讲,系统依靠严格的编码规则、严格的录入规范保证输入的信息的正确可靠,依靠暗箱操作的程序计算导出成本核算结果。
' v: i/ g' e; H) r该系统用于本企业成本核算,产品规格6000多个,结构类型包括O形圈、Y形圈、骨架油封等在内的20多大类;材料类型包括100多个配方、10几种织物材料、10多种类型的金属骨架材料;硫化机台类型从25吨到2200吨,10多种机型。在这样一个较为复杂的生产系统中,核算6000多个规格的产品成本,系统在P42.66+windowsxp下耗时90秒左右。 , C. m$ D& U+ L7 a0 `: L9 M* g
- P& A% Y! y4 S% b: U$ Z: g2 U j
参考文献:( F- M: h$ J% E( g! r) P- t. h
[1]王琳、房建昱编著.石油石化企业成本核算与管理.北京:中国石化出版社, 2001.7" t3 o3 H/ F& I" S% }5 D- u W
[2]张世举等编.计算机会计学. 北京:石油工业出版社,2001.87 i5 z2 n" i% C6 V+ E$ m
[3]沈惠章.马英琪.吴继泽编著.深人VisualFoxPro 6.0面向对象程序设计.北京:清华大学出版社,2001.1
$ J6 H+ _5 G0 a/ h2 t d/ e6 E# F6 ?$ u
|
|