登陆注册
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

//保存

同类推荐
  • 企业规范化管理系统实施方案·决策制定管理

    企业规范化管理系统实施方案·决策制定管理

    本书主要探讨决策制定管理规范化的实施思路,内容涉及企业如何积聚现自有、可借用、可发展三种资源,如何积累交易收益、基业稳固、投资回报和社会美誉等四大价值,如何明确其要达成的标准、保证决策制定零失误,如何构建决策问题、责任岗位和决策时间这一企业三维决策框架体系,以及如何强化对应于特定决策问题确定分析方法,从而保证决策质量,实现持续快速发展,将企业做大做强。
  • 危机就是商机

    危机就是商机

    本书为本书为你揭秘面对危机时风云人物的逆势吸金之道。资本大亨和行业领头人们在危机中与风险博弈,发掘隐藏的商机,并用多年积累的商业制胜经验,积极迎接挑战,或保全或增加自己的财富储备。在他们的财富之路上,那一串串穿越风起云涌危机而留下的足迹显得弥足珍贵,为更多人如何在危机中发现商机留下了值得借鉴的宝贵经验。你揭秘面对危机时风云人物的逆势吸金之道。资本大亨和行业领头人们在危机中与风险博弈,发掘隐藏的商机,并用多年积累的商业制胜经验,积极迎接挑战,或保全或增加自己的财富储备。在他们的财富之路上,那一串串穿越风起云涌危机而留下的足迹显得弥足珍贵,为更多人如何在危机中发现商机留下了值得借鉴的宝贵经验。
  • 快乐赢未来

    快乐赢未来

    本书通过对快乐经营理念的诠释,为职场人乐业爱岗、积极进取、构建人性管理和快乐文化提供了启示和思路。
  • 价值为王

    价值为王

    《价值为王》是唯一一本打通了价值投资各位大师思想的书,也是将价值投资体系的进化脉络理清的第一本书。我们查阅了包括威力父子出版社和麦克劳·希尔在内的著名金融书籍出版商,并没有在国外找到同样的著作,所以我们敢自豪地说本书正文的逻辑绝对是没有先例的。书中以四位大师的卓绝投资智慧为准绳,以大师的亲身经历为载体,以中国股市的狂热为背景,来一次价值投资的集中展示,帮助中国的每一位股民认识到什么叫投资,什么叫价值投资。60年的实践智慧表明,持久赢利的智慧和最后的胜者始终归于价值投资学派。
  • 没有如果,只讲结果

    没有如果,只讲结果

    打造不找借口的落实型员工,全面提升组织成员的执行力。杜绝即可,医治职场借口弊病,创造价值,锻造一流执行团队的终极宝典。
热门推荐
  • 香寒

    香寒

    他是复仇而来的金融巨子,她心甘情愿含笑饮鸩;她是瑰丽带刺的商界蔷薇,他却让她成为锦上花。为了相同的敌人、刻骨的仇怨而结合在一起的他们,最终会选择爱情,还是背弃?
  • 壁炉山庄的安妮

    壁炉山庄的安妮

    安妮已经是有着六个孩子的母亲了。在这个家庭里,每个人都有些有趣的小故事,尤其是性格迥异的孩子们的童年趣事,如同珍珠一样串起来,让这本书显得温馨美满。
  • 邪魅皇帝的专宠:绝世丑妃

    邪魅皇帝的专宠:绝世丑妃

    她穿越而来,是皇宫中的丑妃,面貌惊人,却封为贵妃。“皇帝叔叔,要不然随便扔一个皇后的宝座给我坐一坐?”月媚儿邪邪一笑,惹得当朝天子恼怒万分。“随便扔一个?你还以为这个世界上朕有几个皇后?月媚儿就你这倾城丑容,你这一生终究只能为妃!只能为妾!”尹赫夜冷笑一声,拂袖而去。撕心裂肺后,她不再相信这所谓的爱情,一心复仇的她,路途中又会遇到一些什么呢?
  • 嫡女棣王妃

    嫡女棣王妃

    “姨娘,夫人似乎断气了~”“哼!这么一碗药都下去了,难道她还能活着不成?”“那这······”一个年纪稍长的人朝着这位称作姨娘的人示意了一下自己手中的婴儿,似乎有些犹豫,“这好歹是个男孩,现在夫人已经死了,如果姨娘把他占为己有,然后得了这府中的中馈······”“嬷嬷?!”女子也不等她的话说完,就打断了她,“你记住了,我恨死了这个女人,她的儿子,只能随着她去,我就是以后自己生不出儿子,抱养别人的,也不会要她的。把他给我扔马桶里面溺了,对外就说一出生就死了!”猩红的嘴唇,吐出来的话却是格外的渗人。嬷嬷还想说什么,动了动嘴,却是一句话也没有说,转身朝着后面放着马桶的地方走去。却是没有发现旁边地上一个穿着有些破旧的衣服的小女孩此刻正瞪大了眼睛看着她们两。这是什么情况?自己不是被炸死了吗?怎么会······于此同时,脑中不断有记忆闪现出来,她们是自己的母亲和刚出生的弟弟啊?!不行,先救人。转头看见旁边谁绣花留下的针线跟剪刀,想到自己前世的身手,拿起一根绣花针就朝着那个嬷嬷飞了过去,却在半路上掉落下来,暗骂一声,这人是什么破身体。却引得那两个人听见动静看了过来。女人阴狠的盯着她,“你居然没有死?”微微眯起眼睛,自己的前身也是被她们弄死的了,看样子她们谁也不会放过,抓起旁边的剪刀就冲了过去。随着几声惨叫声,从此以后,府中府外都传遍了她的“美名”——凤家大小姐心肠歹毒,刺伤了府中无数的人,宛如一个疯子。
  • 哈佛教子课

    哈佛教子课

    本书浓缩了哈佛教育方法和理念精华,系统地介绍了每种教育法则的理论发展和实践运用,为天下父母提供了最完美的天才培养之路。全球已有数百万家长从这些教育方法中得到了有力的帮助,使他们的孩子的人生得到了积极的改变。聪明的父母可以从本书中发现一条完美教育的路线指南,让孩子受益一生。
  • 吹牛大王历险记

    吹牛大王历险记

    《吹牛大王历险记》是敏豪生男爵讲述他本人冒险经历的故事合集,充满了夸张与幽默。通过种种妙趣横生、匪夷所思的惊险事件,敏豪生将自己描绘成一个无所不能的英雄,但实际上被人们嘲笑为“吹牛大王”。拔头发救自己出沼泽、眼冒火星打野鸭、鹿头上长出樱桃树、断成两截儿的马、月球旅行、火星漫步……敏豪生的确是个不同凡响的“吹牛大王”,难怪他的故事会风靡全球、畅销不衰。
  • 嫡女棣王妃

    嫡女棣王妃

    “姨娘,夫人似乎断气了~”“哼!这么一碗药都下去了,难道她还能活着不成?”“那这······”一个年纪稍长的人朝着这位称作姨娘的人示意了一下自己手中的婴儿,似乎有些犹豫,“这好歹是个男孩,现在夫人已经死了,如果姨娘把他占为己有,然后得了这府中的中馈······”“嬷嬷?!”女子也不等她的话说完,就打断了她,“你记住了,我恨死了这个女人,她的儿子,只能随着她去,我就是以后自己生不出儿子,抱养别人的,也不会要她的。把他给我扔马桶里面溺了,对外就说一出生就死了!”猩红的嘴唇,吐出来的话却是格外的渗人。嬷嬷还想说什么,动了动嘴,却是一句话也没有说,转身朝着后面放着马桶的地方走去。却是没有发现旁边地上一个穿着有些破旧的衣服的小女孩此刻正瞪大了眼睛看着她们两。这是什么情况?自己不是被炸死了吗?怎么会······于此同时,脑中不断有记忆闪现出来,她们是自己的母亲和刚出生的弟弟啊?!不行,先救人。转头看见旁边谁绣花留下的针线跟剪刀,想到自己前世的身手,拿起一根绣花针就朝着那个嬷嬷飞了过去,却在半路上掉落下来,暗骂一声,这人是什么破身体。却引得那两个人听见动静看了过来。女人阴狠的盯着她,“你居然没有死?”微微眯起眼睛,自己的前身也是被她们弄死的了,看样子她们谁也不会放过,抓起旁边的剪刀就冲了过去。随着几声惨叫声,从此以后,府中府外都传遍了她的“美名”——凤家大小姐心肠歹毒,刺伤了府中无数的人,宛如一个疯子。
  • 我们三个都是穿越来的

    我们三个都是穿越来的

    我是因为看了很多的穿越小说,也很想穿越。谁想我想想就能穿越,穿越就穿越吧,居然穿成怀孕九月的待产产妇,开玩笑嘛!人家在二十一世纪还是黄花一枚呢。这也可以接受,可是明明是丞相之女,堂堂四皇子的正牌王妃怎么会居住在这么一个几十平米得破落小院子里,她怎么混的,亏她还一身绝世武功,再是医毒双绝。哎。没关系,既然让我继承了这么多优越条件,一个王爷算得了什么?生下一对龙凤胎,居然都是穿过来的,神啊,你对我太好了吧?且看我们母子三人在古代风生水起笑料百出的古代生活吧。片段一在我走出大门时,突然转身对着轩辕心安说道:“王爷,若是哪天不幸你爱上了我,我定会让你生不如死的。”然后魅惑地一笑,潇洒地走了出去。片段二当我对着铜镜里的美人自恋地哼出不着调地歌时。“别哼了,难听死了。”一个清脆的声音响起。~~~接着一声尖叫紧跟着另一声尖叫。我用上轻功躲进了被子里.~~~"我和你一样是二十一世纪来的。”“你好,娘亲,哥哥,以后要多多指教。”来自两个婴儿的嘴里,我摸摸额头,没高烧啊。片段三“小鱼儿,我可是你孩子的爹,况且我没有写休书,你还是我的王妃。我会对你好的。”安王爷霸道地说道。“你们认识他吗?他说是你们的爹?”我问着脚边的两个孩子。“不认识,”女孩说道。“我们的爹不是埋在土里了吗?怎么他一点也不脏?”男孩问道。那个男人满头黑线。“对不起,我们不认识你。”说完拉着孩子转身就走。片段四“爹爹,这是我娘,你看漂亮吧?”南宫心乐拉着一个白衣帅哥进来问道。我无语中。“爹爹,你看我娘亲厉害吧?“南宫心馨拉着另外一个妖精似地男人走了进来。我想晕。“这才是我们的爹。”“才不是呢,这个才是”两人开始吵起来了。“我才是你们的爹。”安王爷气急地吼道。“滚一边去。”两个小孩同时说道。屋里顿时混乱之中。转头,回屋睡觉去了。推荐完结文《别哭黛玉》完结文《穿越之无泪潇湘》新文,《极品花痴》
  • 赢在谈判

    赢在谈判

    本书谈判是一场战争,有些谈判是为了和平,有些谈判是为了正义,有些谈判是为了公平,有些谈判是为了真相,有些谈判是为了解决问题,有些谈判是为了面子……而对于商场来说,谈判就是一场为了利益而斗智斗勇的战争。《赢在谈判:成功商务谈判的46个攻略》由马斐所著,系统性、针对性、实用性并重,是一本成功商务谈判的指导用书。
  • 重生造星系统

    重生造星系统

    生活就像一盒巧克力,你永远不知道下一颗是什么滋味。——《阿甘正传》前世,简素为了金钱跟渣男,失了梦想跟自我,想要洗心革面却遭遇车祸。但是,她却幸得附身系统帮助,逆天重生,回到十五年那一年!无复仇,无渣男,只为打造一段娱乐圈传奇!从十六岁出道,到人称“活着的传奇”!!背靠系统,征服世界!作为顶级歌手——钻石唱片、公告牌、格莱美奖……不在话下!作为最高演员——戛纳、威尼斯、柏林、奥斯卡……通通拿下!作为时尚宠儿——杂志、代言、广告、T台走秀……无一落下!她是粉丝们口中的上帝礼物,人生中的曙光!她是媒体们大捧的时尚宠儿,励志片的人生!她是评论人公认的扛鼎之人,大华夏的名片!★☆★☆造星系统★☆★☆“烦恼才华能力不足而不能成为明星吗?烦恼演唱功力不够而不能成为明星吗?烦恼演技水平拙劣而不能成为明星吗?烦恼外形难以过关而不能成为明星吗?烦恼无气质无气场而不能成为明星吗?不用担心,造星系统来帮您!”万能系统,从唱歌演戏到编剧导演,玩转娱乐圈!