登陆注册
书城管理价值链会计发展研究
1356000000030

第30章 价值链会计信息交换系统开发案例(1)

书签收藏评论目录封面

这时，我终于知道我应该去做什么。——史蒂夫·乔布斯

本章将给出一个开发案例，以解决在价值链相关企业的异构系统之间如何通过数据接口进行会计信息交换的问题。这一接口系统遵循前述《接口标准》(以下简称《标准》)和现行会计制度与会计准则，面向跨企业的计算机会计信息系统之间的数据交换应用。本章的读者范围主要是开发人员特别是会计软件用户单位的二次开发人员，但是一般会计人员也可从中得到关于跨企业交换会计信息的有益的启示。

$第一节 系统调查、分析与总体设计

一系统调查——案例单位会计信息系统基本情况

东都集团是一家服装企业，其价值链关联企业有东都时装设计公司、东都模特经纪公司、东都服装职业技术学院、多家制衣厂以及众多自有品牌加盟店。由于历史原因，制衣厂采用综合企业管理软件Master ERP(一种早期ERP软件)，而其他企业使用用友U8 ver8.6管理软件。该公司利用用友U8 ver8.6作为价值链虚拟企业会计信息整合平台，这样就需要从Master ERP系统中转出数据到U8 ver8.6。U8 ver8.6支持《信息技术——会计核算软件数据接口》，即可转入符合该《标准》的会计数据文件，但是Master ERP的输出文档并不符合《标准》的要求。这就需要在这两者之间开发一个中间接口程序，使Master ERP输出的数据文件转化为符合《标准》的数据文件。

Master ERP与U8 ver8.6的数据结构存在较大差异，以记账凭证为例，通过下列数据字典清除反映两者的数据结构

二 数据接口系统的数据流程图

该中间接口的工作流程，自读取Master ERP数据文件开始，经检验和转换，生成标准数据文件，以供U8 ver8.6接收并转入。

三 数据库设计

该接口系统没有自身专门的会计数据，但是由于需要对两个外部系统的数据进行转换，因此系统数据库主要是解决两个外部系统数据接口差异信息的对照存取，如下表中的“对应系统代码”和“对应系统名称”。具体转换时，系统将根据这些差异信息决定如何转换。此外，系统必须访问接口两端的两个系统，因此还要设计系统对两个外部数据库的访问方法和规则的设计。数据库系统平台仍然采用与Master ERP相同的数据库系统即MS SQL server。

(一) 基本信息对照数据表结构

(二) 基本信息数据表的SQL脚本

1.创建机构部门表(fibranch)

CREATE TABLE ［dbo］.［fibranch］ (

［number］ ［varchar］ (10) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［name］ ［char］ (30) COLLATE

Chinese_PRC_CI_AS NULL，

［chief］ ［char］ (8) COLLATE Chinese_PRC_CI_AS NULL，

［address］［char］ (40) COLLATE Chinese_PRC_CI_AS NULL，

［tel］［char］ (15) COLLATE Chinese_PRC_CI_AS NULL，

［fax］［char］ (15) COLLATE Chinese_PRC_CI_AS NULL，

［employee］ ［int］ NULL，

［ufcode］ ［char］ (20) COLLATE Chinese_PRC_CI_AS NULL，

［ufname］ ［char］ (20) COLLATE Chinese_PRC_CI_AS NULL

) ON ［PRIMARY］

2.创建往来单位表(ficompany)

CREATE TABLE ［dbo］.［ficompany］ (

［number］ ［char］ (10) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［name］ ［varchar］ (60) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［address］ ［varchar］ (60) COLLATE

Chinese_PRC_CI_AS NULL，

［zp］ ［varchar］ (6) COLLATE Chinese_PRC_CI_AS NULL，

［tel］ ［varchar］ (20) COLLATE Chinese_PRC_CI_AS NULL，

［fax］ ［varchar］ (20) COLLATE Chinese_PRC_CI_AS NULL，

［lxr］ ［varchar］ (8) COLLATE Chinese_PRC_CI_AS NULL，

［account］ ［varchar］ (30) COLLATE

Chinese_PRC_CI_AS NULL，

［bank］ ［varchar］ (24) COLLATE

Chinese_PRC_CI_AS NULL

) ON ［PRIMARY］

3.创建费用预算类别表(fiexpense )

CREATE TABLE ［dbo］.［fiexpense］ (

［number］ ［varchar］ (10) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［name］ ［char］ (20) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［layer］ ［tinyint］ NOT NULL，

［ufcode］ ［char］ (20) COLLATE Chinese_PRC_CI_AS NULL，

［ufname］ ［char］ (20) COLLATE Chinese_PRC_CI_AS NULL

) ON ［PRIMARY］

4.创建会计科目表(fiitem)

CREATE TABLE ［dbo］.［fiitem］ (

［number］ ［varchar］ (10) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［name］ ［char］ (40) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［type］ ［char］ (1) COLLATE Chinese_PRC_CI_AS NULL，

［jord］ ［char］ (2) COLLATE Chinese_PRC_CI_AS NULL，

［person］ ［tinyint］ NULL，

［company］ ［tinyint］ NULL，

［currency］ ［tinyint］ NULL，

［quantity］ ［tinyint］ NULL，

［expense］ ［tinyint］ NULL，

［unit］ ［char］ (10) COLLATE Chinese_PRC_CI_AS NULL，

［ufcode］ ［char］ (20) COLLATE Chinese_PRC_CI_AS NULL，

［ufname］ ［char］ (20) COLLATE Chinese_PRC_CI_AS NULL

) ON ［PRIMARY］

5.创建往来个人表(fiperson )

CREATE TABLE ［dbo］.［fiperson］ (

［number］ ［char］ (10) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［name］ ［varchar］ (10) COLLATE

Chinese_PRC_CI_AS NOT NULL，

［branch］ ［varchar］ (10) COLLATE

Chinese_PRC_CI_AS NULL，

［department］ ［varchar］ (10) COLLATE

Chinese_PRC_CI_AS NULL，

［ufcode］ ［char］ (20) COLLATE

Chinese_PRC_CI_AS NULL，

［ufname］ ［char］ (20) COLLATE Chinese_PRC_CI_AS NULL

) ON ［PRIMARY］

6.设置机构部门表主键

ALTER TABLE ［dbo］.［fibranch］ ADD

CONSTRAINT ［PK_fibranch］ PRIMARY

KEYCLUSTERED (［number］) ON ［PRIMARY］

7.设置往来单位表主键

ALTER TABLE ［dbo］.［ficompany］ ADD

CONSTRAINT ［PK_ficompany］ PRIMARY

KEYCLUSTERED(［number］) ON ［PRIMARY］

8.设置费用预算类别表主键

ALTER TABLE ［dbo］.［fiexpense］ ADD

CONSTRAINT ［PK_fiexpense］ PRIMARY

KEYCLUSTERED(［number］) ON ［PRIMARY］

9.设置会计科目表主键

ALTER TABLE ［dbo］.［fiitem］ ADD

CONSTRAINT ［PK_fiitem］ PRIMARY

KEYCLUSTERED(［number］) ON ［PRIMARY］

10.设置往来个人表主键

ALTER TABLE ［dbo］.［fiperson］ ADD

CONSTRAINT ［PK_fiperson］ PRIMARY

KEYCLUSTERED(［number］) ON ［PRIMARY］

四 系统功能及其菜单设计

该接口程序的主要功能有：(1)读取Master ERP系统转出的数据文档；(2)校验与转换Master ERP系统转出的数据文档，使之成为U8 ver8.6能直接读取的标准文档。检验主要是检查数据读取的正确性和一致性。只有经检验无误的数据才能进行转换，以确保数据交换的正确。

本接口程序采用PowerBuilder v9.0作开发平台。主界面设计结果，主功能菜单包括：基本信息、读取凭证、数据检验、数据转换和系统服务等。

$第二节 系统主要功能的技术实现

一 凭证转换数据库管理程序的设计

程序功能及其界面，可在此窗口建立Master ERP系统与用友U8之间的数据库联系，并控制两者基础数据的一致性。

1.“试连接”按钮的执行代码

if trim(sle_2.text)=″″ then

messagebox(″错误！″，&

"服务器名称错误，请重新输入数据库服务器名称！")

return

end if

//试连接

transaction sqlyear

sqlyear=create transaction

sqlyear.DBMS=″MSS Microsoft SQL Server″

sqlyear.Database=″ufdata_″+trim(sle_1.text)+″_″+currentyear

sqlyear.ServerName=trim(sle_2.text)

sqlyear.LogId=″sa″

sqlyear.LogPass=trim(sle_3.text)

sqlyear.AutoCommit=true

sqlyear.DBParm=″″

connect using sqlyear；

if sqlyear.sqlcode 〈〉 0 then

messagebox(″用友系统数据库连接错误！″，"连接数据库服务器失败！请再试试！～r可能参数错误，或者已断开与服务器的连接！")

else

messagebox(″用友！″，"连接用友数据库服务器成功！")

end if

disconnect using sqlyear；

destroy sqlyear

2.“更新凭证转换相关的数据表”按钮的执行代码

if uf_connectsqlca()=-1 then

messagebox(″错误！″，″数据库连接错误！″)

return

end if

boolean ok［4］

string alter［4］

alter［1］=″ALTER TABLE ［fiitem］ ADD″+&

″ ［ufcode］ ［char］ (20) COLLATE″+&

″Chinese_PRC_CI_AS NULL，［ufname］ ［char］ (20) ″+&

″COLLATE Chinese_PRC_CI_AS NULL ″

alter［2］=″ALTER TABLE ［fibranch］ ADD ″+&

″ ［ufcode］ ［char］ (20) COLLATE″+&

″Chinese_PRC_CI_AS NULL，［ufname］ ［char］ (20) ″+&

″COLLATE Chinese_PRC_CI_AS NULL ″

alter［3］=″ALTER TABLE ［fiexpense］ ADD ″+&

″ ［ufcode］ ［char］ (20) COLLATE″+&

″Chinese_PRC_CI_AS NULL，［ufname］ ［char］ (20) ″+&

″COLLATE Chinese_PRC_CI_AS NULL ″

alter［4］=″ALTER TABLE ［fiperson］ ADD ″+&

″ ［ufcode］ ［char］ (20) COLLATE″+&

″Chinese_PRC_CI_AS NULL，［ufname］ ［char］ (20) ″+&

″COLLATE Chinese_PRC_CI_AS NULL ″

execute immediate ：alter［1］ using sqlca；

if sqlca.sqlcode=0 then ok［1］=true

execute immediate ：alter［2］ using sqlca；

if sqlca.sqlcode=0 then ok［2］=true

execute immediate ：alter［3］ using sqlca；

if sqlca.sqlcode=0 then ok［3］=true

execute immediate ：alter［4］ using sqlca；

if sqlca.sqlcode=0 then ok［4］=true

if not ok［1］ or ok［2］ or ok［3］ or ok［4］ then

messagebox(″提示！″，″数据库更新成功！″)

else

messagebox(″错误！″，″数据库更新失败！″)

end if

disconnect using sqlca；

3.“保存用友数据库连接参数”按钮的执行代码

if trim(sle_2.text)=″″ then

messagebox(″错误！″，&

"服务器名称错误，请重新输入数据库服务器名称！")

return

end if

//试连接

long filepointer

string readstring

string ufservername，ufsapassword，ufdatabasename

transaction sqlyear

sqlyear=create transaction

sqlyear.DBMS=″MSS Microsoft SQL Server″

sqlyear.Database=″ufdata_″+trim(sle_1.text)+&

″_″+currentyear

sqlyear.ServerName=trim(sle_2.text)

sqlyear.LogId=″sa″

sqlyear.LogPass=trim(sle_3.text)

sqlyear.AutoCommit=true

sqlyear.DBParm=″″

connect using sqlyear；

if sqlyear.sqlcode 〈〉 0 then

messagebox(″用友系统数据库连接错误！″，&

"连接数据库服务器失败！请再试试！～r可能+&

参数错误，或者已断开与服务器的连接！")

else

//保存

下一章连载中
同类推荐
  • 你是在做牛做马，还是做主管

    你是在做牛做马，还是做主管

    管理王剑
    优秀的领导者可以把团队里的“庸才”变成干将，可以把各抒己见、众说纷纭的不同意见整合成统一的行动方略，让每个团队成员都心服口服地接受命令，坚决执行；优秀的团队领袖可以把各自为阵、自行其是的团队成员团结在一起，让大家相互协作，使大家拧成一股绳，释放出强大的团队战斗力。身为企业老板、领导者和管理者，一定要了解员工，一定要学会激励员工，一定要学会正确用人，让对的人做对的事。
  • 哈佛经营管理学（下）

    哈佛经营管理学（下）

    管理肖洋编著
    哈佛商学院在近百年的辉煌历史中，向社会输送了大批优秀的工商管理人才，他们已成为世界工商界的巨头和中坚，为美国及世界经济的发展和社会的繁荣进步，作出了重大的贡献。也正因为如此，哈佛的经营管理学成了人们追踪的热门课题，特别是近几年来，美国政经界名人、商界弄潮儿纷纷前往哈佛进修深造。以期从中了解工商管理的真谛，深刻理解哈佛经营奇迹的不解之谜。本书不但生动地描述了哈佛商学院鲜为人知的学习和生活环境，而且介绍了哈佛经营的特殊精神和管理的特殊方法，向人们展示了哈佛经营管理这一不朽的精神食粮。
  • 打造高效能团队的93个经典故事

    打造高效能团队的93个经典故事

    管理金跃军 高红敏
    《打造高效能团队的93个经典故事》一书的编写，对组织和团队成员的主要需求给予了特别的关注，全书精选93个精彩团队故事，读来生动有趣，而人深思。同时，每个故事后的智慧点拨，将团队管理的深邃思想以浅显易懂的总结方式，一语道破，使各篇章内容的故事和理论相互结合，互动互融，别有新意。
  • 彼得原理：方法、实务、案例

    彼得原理：方法、实务、案例

    管理金圣荣编著
    这是一本管理学普及读物。本书通过10大原则49个方法为你解决管理中90%的问题，为在不胜任职位上痛苦挣扎的人开出获得快乐的处方，为滞留在企业底层郁郁不得志的人指点晋升的捷径，为管理者提供知人善任的方法，是所有中层必读书。
  • 合伙人

    合伙人

    管理张笑恒
    合作有大有小，但合作永远是让你的企业在商业竞争中脱颖而出的最佳选择，合作更是企业发展的捷径。只有在市场经济下坚持合作，才能让你的企业出奇制胜。合作伙伴之问团结协作，让彼此的凝聚产生更大的力量，这才是商业合作的根本之道！没有人能够成为一个无所不能的超人。我们必须告别单枪匹马的时代，找到最适合自己的合伙人，学会合作，并最终赢得人生的胜利！本书告诉你如何寻找到合伙人，获得成功！
热门推荐
  • 凝结的记忆

    凝结的记忆

    文学白云涛
    作者在“我的晚年日记”中，融文学性、趣味性于一体，以他对幼孙的施教为主线，用散文形式写实、写景、写人生哲理、写古今中外历史典故，读后给人以启迪，令人回味，产生共鸣。文中充分抒发了作者对生活的眷恋、对下一代的关爱以及对未来教育的期许。
  • 漫漫梨花开

    漫漫梨花开

    古言黎尘安
    孔梨儿一身红色布衣，牵着一个七岁孩童。站在丞相府门口，低头对那孩童说:“进去吧，那里面是你的父亲。”
  • 悲伤，镌刻成书！

    悲伤，镌刻成书！

    短篇十月未寒
    【姊妹篇《情深，不知归处！》已开文】一场精心策划的阴差阳错，她被冠上‘人尽可夫’的骂名，十月后产下‘孽女’受尽凌辱，在苦痛里挣扎沉沦，看破了人世冷暖。婚礼前一天，他拥娇妻入怀，将她与孩子逐出家门。一场人为的车祸，夺了幼女的‘命’，让她在斑斑血泪中品尝到了焚心的恨！当一场场错综复杂的阴谋公诸于世，他跪在女儿坟前忏悔，试图挽回时，却不知，悲伤早已镌刻成书！……婚礼上，她说:“薄寒声，这是你女儿的骨灰，一人一半，也算是全了这一世的骨肉亲情，祝你们，新婚快乐！”葬礼上，她说:“薄寒声，拿着骨灰再去做个亲子鉴定吧，孩子不清不楚的来，求你让她明明白白的走！”
  • 追妻无门：女boss不好惹

    追妻无门：女boss不好惹

    现言叶琼雨
    青涩蜕变，如今她是能独当一面的女boss，爱了冷泽聿七年，也同样花了七年时间去忘记他。以为是陌路，他突然向他表白，扬言要娶她，她只当他是脑子抽风，他的殷勤她也全都无视。他帮她查她父母的死因，赶走身边情敌，解释当初拒绝她的告别，和故意对她冷漠都是无奈之举。突然爆出她父母的死居然和冷家有丝毫联系，还莫名跳出个公爵未婚夫，扬言要与她履行婚约。峰回路转，破镜还能重圆吗？ PS:我又开新文了，每逢假期必书荒，新文《有你的世界遇到爱》，喜欢我的文的朋友可以来看看，这是重生类现言，对这个题材感兴趣的一定要收藏起来。
  • 拯救人生系统

    拯救人生系统

    科幻馒馒馒馒
    江乖有毒。…………………表示小辣鸡不敢多语
  • 单身吧！

    单身吧！

    小说刘烨
    它像一颗启明星在生命的地平线上升起时，人们看到了希望。是它冲破了黎明前的黑暗，是它将我们带进了一个新的光明世界。它像一粒粒小小的微尘洒满人间，是它在我们最无助的时候，给我们以慰藉和帮助，是它带给了最无助的人们以希望。它像一根蜡烛，虽然比不上灯塔的巍峨，但是，它照样能发出光彩夺目的光芒。它并不是那样渺小，它是“爱心”的光环。它无私地燃烧着自己，却照亮着别人。这就是爱心，爱的神奇伟大在于它的执著，在于它的无私。
  • 全职高手之醉卧沙场

    全职高手之醉卧沙场

    轻小说白色瘟疫
    ……全职同人文，没女主，不喜勿喷啊……（第三本书）
  • 开窍心理学

    开窍心理学

    心理滕龙江
    本书精选了近100个具有强大现实指导意义、让你脑洞大开的心理学定律、效应、法则，从人性、心态、情绪、思维、目标、挫折、学习、工作、效率、选择、竞争、人际、幸福等多个角度，结合幽默风趣、妙趣横生的小故事，诠释了这些心理学定律、效应、法则的内涵及其解决问题的方式方法，引导读者扫除心理的盲区，破除思维的盲点，在关键时刻正确思考，做出精确的判断和选择，让自己的人生之旅充满智慧与思维之光。
  • 前妻求再嫁

    前妻求再嫁

    现言 一杯清茶
    两年前，他在她性命垂危之际，选择留在另一个女人身边。两年后，他看到那个改头换脸的妻子，震惊得无以复加。是谁说执子之手，与子偕老，却在中途松了我的手。这是一场单行线的婚姻，在我伸手的同时，你却放开了，现在你想用力捉紧，而我却不在了……温暖篇：当某男终于千辛万苦地让某女接受了他求婚，便迫不及待地建议：“早点将婚结了。”“不要！”某女想也没想就拒绝。“戒指都接受了，不能不嫁啊！”某男着急提醒。“不是不嫁，而是晚点嫁。”某女笑眯眯地答。“再晚点，人老珠黄了。”某男纠结了。“没关系，你比我更老。”某女笑着指出了事实。某男一听，气势短了一截：“好吧，我都已经这么老了，你还要我等吗？”
  • The Kingdom of the Blind

    The Kingdom of the Blind

    公版E. Phillips Oppenheim
    本书为公版书，为不受著作权法限制的作家、艺术家及其它人士发布的作品，供广大读者阅读交流。汇聚授权电子版权。