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

第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

//保存

下一章全书完
同类推荐
  • 全世界有钱人都在读的赚钱故事

    全世界有钱人都在读的赚钱故事

    管理徐春艳
    本书精选了很多成功人士的经验故事与大家分享，以供借鉴。这些故事覆盖了多个方面和层次，归为28类，分上下两篇，上篇以成功者的经历来讲述追求财富必备的一些主要素质和必知的方式方法；下篇则分别讲述各类商业发达的地方人群致富的故事。
  • 一本书读懂互联网思维

    一本书读懂互联网思维

    管理庞晓龙
    本书是深入研究互联网思维的经典之作，从互联网思维的定义到互联网思维应用的具体案例表现。作者深入浅出、条分缕析，全面阐述互联网思维的内核与精神，逐一点评当前关于互联网思维的各种观点。本书从最初级的互联网思维应用到高端的粉丝经济，平台建设，自媒体营销的方法都有详细讲解介绍。让读者了解什么是互联网思维的同时还能学会把互联网思维运用到自己的工作学习已经生活中。
  • 世界上最伟大的致富圣经

    世界上最伟大的致富圣经

    管理许长荣
    为什么这个世界上富人积累财富的能力这么强？是不是他们有什么秘密的法宝？这本书集合了世界上最经典的六本致富圣经。全方位为您揭秘获得财富的秘密。
  • 怎样与竞争对手合作

    怎样与竞争对手合作

    管理冯华
    在传统的你死我活的竞争中，“冤家路窄”、“宁为鸡首，无为牛后”、“各以所长相轻所短”等观念常常会限制对手之间的沟通，甚至破坏对手之间的合作，使得合作条款只不过是一纸辞藻华丽的空文。本书教你如何与你的竞争对手握手言“合”，获得双赢。
  • 7天让你读懂经商心理学

    7天让你读懂经商心理学

    管理牧之
    心理学是帮助人们了解自我、洞察人生、解释行为的一门实用科学。人的心理千变万化，这也使得人的心理现象成为一个极为复杂和奇妙的领域。但通过大量的试验以及经验的总结证明，人类的心理活动仍然是有一定规律的，人们对心理现象事实上都很熟悉，只不过由于缺乏科学的理解，因此觉得神秘罢了。然而，从普通大众看来，严谨深奥的心理学的确是晦涩难懂的，一些专业的名词术语在日常生活中总是难以被理解。所以，迫切需要一条合适的纽带将心理学的科学性运用到我们的现实生活与工作中。《7天让你读懂心理学》系列丛书无疑就是这样一条及时出现的纽带。本书为丛书之《7天让你读懂经商心理学》分册。
热门推荐
  • 人道无极

    人道无极

    玄幻绝情
    《无极》第一部《人道无极》，QQ群：84372095,本人QQ：89200983！神州大地三国鼎立，天子转世，诸侯战乱，一统神州。仙、人、魔、兽、鬼、妖六道相互依存，人道渺茫。不是魔法、不是玄幻、不是灵异、更不会是科幻，《无极》是神话，一个只关系到中国本土人情的神话，只有“道”没有“佛”。小说中善恶错乱，恩怨缠绵，妖魔鬼怪层出不穷，仙神奇遇不断。这部小说的主要宗旨就是“道”，情节由无极经轮回从新验证自己创造的“道”这一线索，不断的延伸各个轮回和正邪的恶体验，经过六界八道的亲临感受，最终找到自己的“道”，从新回到无极的这一过程。
  • 倾世宠妻

    倾世宠妻

    都市寒武记
    上辈子温柔和善，贤良淑德的司徒盈袖苦等自己的未婚夫十年，却在最后关头，被人陷害，锒铛入狱。为保清白，她从东元国百丈高的白塔上纵身一跳，惨死在众人面前。意外重生，捡回一条命的司徒盈袖表示：去他的贤良淑德、温柔和善！姐重生要做御姐！姐是女汉子姐自豪！但是重生的御姐女汉子立志走上人生巅峰，却总是被一只闷骚腹黑高冷禁欲的男神挡路肿么破？！司徒盈袖：姐急着去采花！麻烦请让让！某君斜睨她一眼：你采花？——你师父知道吗？……司徒盈袖：……总而言之，每一只闷骚腹黑高冷禁欲的男神存在，是因为还没有碰到一只令他破...
  • 穿越兰陵古墓

    穿越兰陵古墓

    古言堇色遗梦
    她们是曾经的闺密，亲密无间。却因为一次偶然的古墓之旅，让她们来到了一个和她们曾经最熟悉的世界完全不一样的时空，让那些曾经最生硬的史书上的文字变成了最真实的触感。在那个不属于她们的时空里，她们邂逅了各自的爱情，但她们的爱情并没有想象中的美好，阴谋，陷阱，斗争一次次接踵而来，她们要如何去面对。在异时空经历的种种，她们仍然是最真实的自己还是最终走向两端？且看穿越兰陵古墓，带你走进一段不一样的旅程。。。
  • 无敌大小姐

    无敌大小姐

    古言怜小瑜
    当现代阴狠毒辣，手段极多的火家大小姐火无情，穿越到一个好色如命，花痴草包大小姐身上，会发生怎样的化学反应？火无情一醒过来就发现，自己竟然在众目睽睽之下上演脱衣秀。周围还有一群围观者。这一发现，让她极为不爽。刚刚穿好衣服，便看到一个声称是自家老头的老不死气势汹汹的跑来问罪。刚上来，就要打她。这还得了？她火无情从生自死，都是王者。敢动她的人，都在和阎王喝茶。于是，她一怒之下，打了老爹。众人皆道：火家小姐阴狠毒辣，竟然连老爹都不放在眼里。就这样，她的罪名又多了一条。蛇蝎美人。穿越后，火无情的麻烦不断。第一天，打了爹。第二天，毁了姐姐的容。第三天，骂了二娘。第四天，当众轻薄了天下第一公子。第五天，火家贴出招亲启事：但凡愿意娶火家大小姐者，皆可去火府报名。来者不限。不怕死，不想活的，欢迎前来。警示：但凡来此，生死皆与火家无关。若有残病者火家一律不负法律责任。本以为无人敢到，岂料是桃花朵朵。美男个个很妖娆一号美人：火无炎。火家大少爷。为人不清楚，手段不清楚。容貌不清楚。唯一清楚的是，他有钱。有多多的钱。火无情语录：钱是好东西。娶了。（此美男，由美瞳掩饰不了你眼神的空洞领养。）火老爷一气之下，昏了过去。家门不幸，家门不幸啊。二号美人：竹清月。江湖人称天上神仙，地上无月。大国师一枚。美得惊天动地。火无情语录：美人好，尤其是自带嫁妆又会预测未来的美人，娶了。（此美男，由东de琳琳领养）三号美人：轩辕子玉。当朝七皇子，游历四国。一张可爱无敌的脸。单纯至极。火无情语录：可爱的孩子好，可爱又乖巧的孩子更好。可爱乖巧又不用给钱的孩子，娶了。（此美男，由刘千绮领养）皇帝听闻，两眼一抹黑。他的儿啊。怎么就这么不争气呢。四号美人：天下第一美男。性格不详，籍贯不详。火无情语录：谜一样的美人，她喜欢。每天都有新鲜感。娶了。（此美男，由告别的爱情li领养。）五号美人：天下第一名伶。火无情语录：解风情的美男，如果没钱花把他卖了都不用调教。娶了。（此美男由伊眸领养。）六号美男：解忧楼楼主。相貌不详，身世不详。爱好杀人。火无情语录：凶恶的美人，她喜欢。娶了。（此美男由陈铭铭领养）七号美男：琴圣。貌如谪仙，琴音杀人。冷清眸子中，百转千回，说尽风流。（此美男由伊眸领养）夜杀：天下第一杀手。（此美男由静寂之夜领养）
  • 中纪委推荐：历史的教训

    中纪委推荐：历史的教训

    历史(美)威尔杜兰特 阿里尔杜兰特
    本书是响应习近平号召牢记历史的教训，中纪委推介的“2015新年第一书”，王岐山最新推荐！《中国新闻出版报》优秀畅销书榜总榜第一名！美国普利策奖获得者的传世经典，浓缩对历史经验教训的独特见解！ 本书是美国著名学者、“普利策奖”获得者威尔杜兰特及其夫人阿里尔杜兰特的代表作。《历史的教训》浓缩了11卷《世界文明史》的精华，通过提纲挈领的线条，勾勒出历史与人类生活各方面的关系，详细说明了地理条件、经济状况、种族优劣、人类本性、宗教活动、社会主义、政府、战争、道德、盛衰定律、生物进化等在历史中所扮演的角色，并总结出历史留给人们的巨大精神遗产。 这些精神遗产给改革中的国人以启迪与警鉴，使其更加智慧地面对当下和未来。
  • 东宫有本难念的经

    东宫有本难念的经

    古言泊烟
    宝庆十九年春，大佑国皇太子大婚，大将军之女入主东宫。一个不是淑女的将门千金遭遇一个不是文韬武略的中庸太子，到底是佳偶天成，还是冤家路窄？成婚一年不足，太子忽然休妻。迷影重重，生死茫茫，这样一来，还是不是大团圆结局？
  • 巴菲特最有价值的投资策略

    巴菲特最有价值的投资策略

    管理吕叔春
    本书在系统收集整理巴菲特本人炒股论述的基础上，按照投资操作中选股、估值、市场、买价、组合、持有6个基本步骤，根据巴菲特60多年的投资经验，结合有关炒股投资的研究成果，归纳和分析巴菲特式炒股技巧在实际应用中的操作技术细节，使本书成为一本巴菲特为炒股者讲述如何在投资股票投资市场上赚钱的详细教程，是炒股者在短期内系统学习巴菲特股票投资策略的最佳选择。另外本书整理了巴菲特大量精彩的投资智慧妙语，总结了巴菲特投资策略的基本原则，并结合有关研究成果以及巴菲特经典投资案例分析了这些原则的实践应用，力求为国内广大炒股者学习巴菲特价值投资策略提供了一个较好的借鉴、参考和帮助。
  • 九岁小女的田上人间

    九岁小女的田上人间

    古言风之孤鸿
    一睁眼，便看到一农妇抱着自己一边走一边在傻笑！旁边的观众哧之以鼻：“这疯女人的女儿都丢人五六年了，不知道从哪里捡回来个野种。”九岁的离玉从小被家族的那帮混蛋关实验室里当小白鼠灌输了太多成人的思想！身小，心不小~！“玉，叫娘啊！”疯娘笑呵呵地捏着她的小脸流口水。她木然地叫了声娘！虎毒不食子！还了解到这疯娘本来有一位如意郎君，哪知一日飞黄腾达撇了糟糠，娶了富家女，成了一方商贾！家徒四壁？！那咱就白手起家！家族排挤？！等你山穷水尽！贪官不仁？！赌你抄家灭门！疯娘前夫不义？！让你一败涂地！疯娘不疯，还是俏丽佳人？！那咱就给你招夫，丞相行不行？啥？不行？那就王爷！王爷也不要？！疯娘莫非想要招皇帝？片段：3少年看着眼前所谓的“全自动插秧机”，他只是好奇研究一下！结果拆得七零八落，耳边是女孩稚嫩的声音，却异常的寒冷：“你若安好，便是晴天，你若安不好……”很显然，这八十顷农田，在少年的眼里那是一片领兵的战场……本来拿刀拿剑的军人，个个一脸污泥，笨拙地跟着一帮农夫插秧种田！锄禾日当午！那日“当午"们，被“锄禾”日得很惨烈！在柴晞的眼里，喜欢就是喜欢，你不喜欢没关系，我喜欢就成了，况且我一定会让你也喜欢我！”
  • 败走中国

    败走中国

    经济白露
    今天繁荣兴旺的中国市场吸引越来越多国外企业的目光，同时也已有不少中国企业走上了海外扩张之路。进入一个新市场总会面对未知的风险，如果总是依靠自己经历的种种失败来获得宝贵教训，这种高成本的做法是一个企业的“不能承受之重”。“以史为鉴，可以知兴衰”，阅读本书，能够启示后来者少走弯路。
  • 掌心的灵动

    掌心的灵动

    幻情许左
    在神界中，他是一颗耀眼的新星，可是他却背负着家族神秘的诅咒。她倍受嘲笑，却有着乐天派的性格，她的灵力是最差的，但是在她的身体中蕴含着一股不知来源的强大灵力。他们一起来到了人界，生活却没有轻松起来，在他们的身后有虎视眈眈的邪恶之势，真的是神界预测到了什么，才会让他们来么……