会计软件分析与设计

会计软件分析与设

计

会计软件分析与设计

第一章帐务处理程序分析

学习目的与要求：

帐务核算系统是会计核算软件中使用最为广泛、最为重要的一个子系

统。

本章以系统开发过程为主线，简要介绍各过程的任务、要求及注意事

J页。

经过本章的学习，要求读者对帐务处理系统的开发过程及每个过程所涉

及的原理有一个初步的了解，明白各个过程完成的内容及任务对以后工

作的重要性。

内容提要

第一节会计工作现状调查

一、系统工作状况调查的主要内容

1、数据方面的调查C

2、处理内容方面的调查。

3、特殊事务方面的调查。

4、处理方式方面的调查。

5、代码方面的调查c

二、企业一般采用的帐务处理程序

1、记帐凭证帐务处理程序

2、科目汇总表帐务处理程序

3、汇总记帐凭证帐务处理程序

4、多栏式日记帐务处理程序

三、会计工作状况调查的意义

会计工作现状调查是进行系统初步设计的基础，如果会计工作现状没有

调查清楚就进行系统

设计,则可能出现许多问题，满足不了用户的需要和功能不全的问题就要

使设计人员从头再

来进行系统的调查，因此，设计人员应认真对待调查工作。

第二节系统规划

一、系统规划的任务

根据现状调查所获得的资料，首先应归纳出用户的基本需求，除满足用户

提

出的要求外，应说明还有哪些附加功能，对于不能满足的用户要求要说明

原

数据的使用频度;数据的基本内容;记录格式;数据的流量;在某些时刻

下，是否有两个及以上的程序使用数据;占用文件时，是对文件的全部记

录进行处理，还是处理其中某一部分;文件及数据的保密度，允许哪些人

存取数据，允许哪些人只读或禁止访问;文件名。

第四节详细设计

一、详细设计的任务

1、对概要设计的功能模块进行过程描述,开发一个能够直接转换成程

序语言

代码的软件表示,这种表示应当是无歧义且高度结构化的。

2.为每个模块建立一个“软件开发卷宗”文件。

二、详细设计阶段的实施步骤

1、将概要设计产生的构成软件系统的各个功能模块逐步细化,形成若

干个

程序模块。

2、采用详细设计工具对程序模块进行过程描述。

3、确定各个模块间的详细接口信息。

4、编写”程序设计说明书工

5、按完成标志进行评审，如未发现异常问题，则处理结束，否则而进行

修改，修改后再次评审，直至经过为止。

三、详细设计的完成标志

1、详细地规定了各模块之间的接口，包括参数的形式和传递方式，上下

层调用关系。

2、确定了模块内的算法及数据结构。

四、过程的结构化构造

1、过程的结构化与非结构化

2、过程的结构化应遵循的原则

使用有限数量的基本逻辑结构;利用基本结构将过程组成容易识别的”

块”；

每块都有且只能有一个入口和一个出口;易于转换成程序代码;容易修改

设

计

五、详细设计工具

1、图形工具，以图示方法描述模块处理过程。

2、语言工具,有伪代码或结构化英语来描述数据和处理过程。

3、表格工具，用表格来表示详细处理过程,这类工具适于处理逻辑十分

复杂

的条件和活动间的关联。

4、几种常见的详细设计工具：

流程图;框图;判定树

第五节详细设计交付的文件

一、程序设计说明书

程序设计说明书又称详细设计说明书。编制目的是说明一个软件系统各

层次中的

每一个模块的设计考虑，其应考虑如卜内容：

1.编写目的2程序系统的结构3程序设计说明（程序描述;功能;性能；

输入项;输出项;算法;流程逻辑;接口;存贮分配;注释设计;限制条件；

测试计划;尚未解决的问题）

二、模块开发说明书

模块开发说明书是在详细设计说明书经评审和批准后建立的，并在模块

开发过程

中逐步编写出来，它是管理人员监督开发进度并为以后的维护人员使用

的技术文

件，其主要内容如下：

标题;模块开发情况（时间安排）;功能说明;设计说明;源代码清单；

测试说明;评审的结论

第二.用户界面程序设

学习目的与要求：

用户界面就是用户与计算机系统进行相互交流数据与信息的一些接口规

范，

用户界面的友好性直接关系到软件系统的质量。本章经过介绍数据输入

界面、

菜单等有关内容，说明在进行系统友好界面设计时应遵循的一些基本规

则及

常见惯例，经过学习,要求读者掌握菜单概念及菜单选择的程序实现。

内容提.

第一.数据输入界面设.

一、用户界面及其设计要求

1、用户界面这一术语指的是用户和程序如何相互沟通,屏幕上的任何

信

文档资料以及键盘输入的命令都是用户界面的一部分，对屏幕设置，提

示、菜单和联机帮助信息设计的好坏决定着用户界面是否高效、反好，

也决定着软件是否能为用户接受，最佳的用户界面强调良好的屏幕设计,

易于使用和用户友好C

2、用户界面设计时应考虑的一般原则：

必须集成于系统设计之中，而不最后加上;减少击键次数来提高用户效率.

预测用户的下一步动作;提供错误信息来帮助纠正错误；

提供文档来减少培训时间;带有帮助信息;支持其它的输入装置.

二、输入数据程序设计要遵循如下原则.

1、简明性

2、一致性

3、完整性

4、使用颜色的原则

5、输入格.

第二.菜单和命令设.

一、菜单及其功能

1、菜.系统将当前允许用户选择操作的功能名称在屏幕上显示出来，让

用户

选择并完成该功能的一种用户界面形式。

2、菜单的功能

•使不熟练的的用户熟练软件，即表述其功能和特.

•提供可选项的清.

•简化选择，从而防止产生错.

•降低训练费用，因为菜单一步步引导用户完成任.

・减少用户的记忆负担

二、菜单式.

1、水平上托式菜单C

2、竖直上托式。

3、卜拉菜单。

4、全屏幕菜单。

5、图标式菜单（类WINDOWS风格）。

三、菜单设计的考虑及权.

1、设计按下ESC键将控制返回到上一级菜单。

2、同时提供亮条选择菜单及字母菜单选择。

3、考虑用户拥有使用过的其它软件的菜单风格。

4、提供快捷选择。

四、菜单设计原.

1、菜单设计所使用的名称要前后一致。

2、减少选项的数目,一般不要超过8I页。

3、减少菜单级数的数目，一般不要超过4级。

4、提供快速返回键c

5、菜单选项的选项内容易于理解，一般不要使用技术性强的术语.

第四.用户界面程序设计举.

一、下拉式菜单设计举.

CLEA.

D.WHILE.T.

@1..PROMPT”凭证输入

@1,1.PROMPT”查询.

@1,2.PROMPT”记帐.

@1,3.PROMPT”打印.

@1,4.PROMPT”系统设置.

@1,5.PROMPT”月末结转.

@1,6.PROMPT”数据库维护.

@1,7.PROMPT”退出.

MEN.T.CH.

D.CAS.

CAS.CHO=.

SELEC.l.

US.GQCW.

APPEN.BLAN.

REPLACBWIT.MXMRWITH”凭证输入

R.WIT.MA1,SJ.WIT.TIME(.

SE.COLO.T.G.

@4,.CLEA.T.11,2.DOUBL.

SE.COLO.T.WL

@3,.CLEA.T.10,2.DOUBL.

@5,.PROMPT”1,采购单输入.

@6,.PROMPT”2,领料单输入.

@7,.PROMPT”3,修改采购单.

@8,.PROMPT”4,修改领料单.

@9,.PROMPT"0,退出.

MEN.T.CHO.

D.CAS.

ENDCASE

ENDCASE

ENDDO

二、全屏幕菜单设计举例

三、全屏幕菜单设计举例2

第三.系统设置程序程序分析与设.

学习目的与要求：

本章介绍系统设置模块中的系统人员管理、科目设置与管理、自动转帐

设置、

银行对账设置等功能模块的有关内容。经过本章的学习,要求读者对口

令设置及

校验、科目代码设置的意义、科目代码增删的有关原则、自动转帐设置

的原理

银行对账设制的原理及实现要有一定的理解。

内容提要

第系统人员管理及口令设

系统人员管

1系统人员管理的意义

2、在帐务处理系统可设立如下一些岗位,各自具有一定的权限范围.

⑴系统管理:可进行科目代码设置，系统人员管理、结帐、数据管理

等功能的操作。

⑵制单：可进行会计凭证的录入操作。

⑶复核：可进行会计凭证的复核操作。

(4)修改：可进行会计凭证的修改操作；

⑸处理：可进行记帐、对帐等操作；

⑹打印：可进行打印输出各种帐、证、表的操作。

3、人员设置数据库中应设置的数据项。

二、口令的设置与修改。

*口令修改模.

SE.TAL.OF.

CLEA.

I.FILE(”KL.DBF”.

RESTOR.FRO.KL.DB.ADD.

ENDT.

JX=.

D.WHIL.J.

KL="KLn+LTRIM(STR(K,3).

KLM=HKLMn+LTRIM(STR(K,3).

I.TYPE("&KLMn)=UPPER(nC".

STOR.UPPER(“AAA")T.&K.

STOR.SPACE(30)T.&KL.

ELS.

STOR.&KLM+SPAC(30-LFN(&KLM))T.&KL.

ENDL

STOR.CHR(ASC(SUBS(&KL、1.1))+50)+CHR(ASC(SUBS(&KL、

2.1))+45).

+CHP(ASC(SUBS(&KL、3.1))+40)T.&K.

CLEA.

@1,3.SAY”修改□令“+STR(K,2.

@3,.SAY”原口令名为：”+&KL.

@3,5.SAY”原口令为”+&K.

@5,.SAY”□令名改为GE.&KL.

@5,5.SAY”改口令为GE.&K.

@8,3.SAY”继续修改？”GE.J.PICTUREHY.

REA.

STOR.TRIM(&KLM)T.&KL.

STOR.CH.(ASC(SUBS(&KL,1,1))-50)+CH.(ASC(SUBS(&K,2.1))-45).

+CHR(ASC(SUBS(&K.3.1))-40)T.&K.

K=K+.

ENDD.

SAV.T.KL.DB.AL.LIK.KL.

RETURN

三、口令校验程序的设计应注意以下一些问题.

1、口令明码不能显示。

2、口令输入允许一定的出错次数。

3、口令密码的检验能够采用通用模块完成。

4、口令明码长度有一定的要求。

5、口令输入出错时的处理要恰当。

第科目设置与管

-设置科目代码的意.

1、便于反映会计科目间的逻辑关系，便于分类、检索、加快计算机处

理速度，

利用会计科目代码的不同位数,能够反映会计科目间的逻辑关系。

2、减少数据含义的不确定性。

3、能够节省存储单元、提高运算速度和正确性.

4便于输入。

二、科目代码的设置要求和编码方.

1、科目代码设置要.

适合计算机处理;简明实用;要有系统性（一级科目代码位长3位，代码

首位为1表示资产类科目;2表示负债类科目;3表示所有者权益类科目;

4表示成本类科目;5表示损益类科自）；要有扩展性；单义性。

2编但）方.

会计科目的编码方式，一般采用群码，组码和顺序码等相结合的编码方式.

三、科目代码设.

1、科目代码设置主控模块

该模块是科目代码设置的主控模块，用户能够根据需求分别选择科目代

码

的增、删、改、查询、打印等功能，退出模块前，应根据总分类帐户与明

细帐户平行登记的原理，将各明细科目自下向上逐级汇总，进行核对，判

断总分类帐户的金额与其所属各明细分类帐户金额的合计数是否相等;

还

应根据资产等于负债加所有者权益的平衡关系，核对所有科目的借方余

额

是否等于贷方余额，以确保输入数据的正确性.

2、增加科目的内容及注意事项

应包括的内容主要有:科目代码、科目名称、科目级别、科目类别、余

额

方向，年初余额、期初余额、借方发生额、贷方发生额、借方累计发生

额、

贷方累计发生额。系统正常运行时，如果某科目已记帐，在该科目下级增

加新的明细科目，应考虑该科目下级各明细科目金额的合计数是否与该

科

目的金额相等。

3、科目代码设置主控模块

DEF.WIN.ZWSZ.FRO,4,2.T.15,5.SHA.COL.SCH.1.

D.WHIL..T.

ACT.WIN.ZWSZ.

SA..科目维护控制模块

PR0MPJ1:增加科

….PROMPJ2:单项查

….PROMPJ3:删除科

….PROMPJ4:修改科

….PR0MPJ5:全屏查

.…PR0MPJ6:印科目表

.…PROMPJO:退

SA."请选

MEN.T.CH.

DEA.WIN.ZWSZ.

D.CAS.

CAS.CHO=

D.ZWSZ2.

CAS.CHO=.

D.KMBR.

CAS.CHO=.

D.KMD.

CAS.CHO=.

D.KMX.

CAS.CHO.

D.KMBRO.

CAS.CHO=.

D.K2.

CAS.CHO=.

EXL

ENDCAS.

ENDD.

DEA.WIN.ZWSZ.

RETUR.

4增加科目的程序实现

5、修改科目模块程序设计时应考虑的问题主要有.

为方便操作、修改方式既可单一科目修改，也可对科目余额表进行浏览

修改；

被修改的科目应该没有被登帐，没有发生额和余额，避免造成会计核算的

数

据丢失或失真。

6删除科.

用于删除无用的科目，既可是一级科目或控制科目，也可是明细科目。删

除

科目模块程序设计时考虑的问题主要有：

1.如果删除的是明细科目，则要求该明细科目既无余额,也无发生额。

2.若是一级科目（总帐科目）或控制性科目，则要求该科目本身，及其所

属的所有明细科目都没有余额和发生额，目该一级科目或控制性科目被

删除后，其所属的所有明细科目也臼动被删除。

第三^自动转帐设

—、自动转帐及其意义

1、自动转帐

2、机制凭证

3、自动转帐分录

4、为什么要进行自动转帐设置

自动转帐分录的分

1、第一类自动转帐分录其金额的大小与本月发生的任何经济业务无关,

称为独立

自动分录。独立自动分录能够在任何时候用于编制机制凭证，即能够在

月初使

用，也巨能在月末使用。

2、第二类自动转帐分录其金额的大小与本月发生的业务有关,称为相

关自动分录。

相关自动分录只能在某些相关的经济业务发生后才能用来编制机制凭

证

自动转帐分录的定

1自动转帐分录文件的结构

1臼动转帐分录的定义

第四银行对帐的设

未达账项的类型及产生原因

1、未达账项的类型：

银收我未收未达帐项；银付我未付未达帐项；

我收银未收未达帐项；我付银未付未达帐项。

2未达账项的产生原因：

时间上的延误；记录上的错误。

二、银行对账模块应设置的切能

1、输入对帐单。经过此功能，把银行给企事业单位的对帐单输入计算

机，

存入”对帐单文件”o

2、初始银行未达帐项录入。经过此模块,把使用计算机辅助对帐前已

存在的

我有银无业务从银行存款余额调节表上摘录下来，存入“银行日记帐未

达

帐I页文件“O

3、自动银行对帐。由计算机自动在”对帐单文件”和“银行日记帐未

达帐项

文件”中寻找完全相同的经济业务予以核销，所谓完全相同的经济业务

是

指经济业务发生的时间、内容、摘要、结算票据号、金额都相同的经济

业

务，由于同一笔业务在银行和单位日记帐上分别由不同的人记载，经济业

务发生的时间，摘要等不可能一模一样，因此比较经济业务是否相同的标

准（也称匹配标准）只有票据号（如:支票号）和金额，对于没有票据号的经

济业务，只能看金额是否相同，一般情况下，可由计算机先比较票据号和

金额，核销掉相同的经济业务,剩卜的经济业务再用金额作匹配标注进行

匹配.

无论同时用票据号和金额作匹配标准，还是只用金额作匹配标准，都可能

有下列几种可能：

1.”对帐单文件”中一条业务记录只和”银行日记帐未达帐项”文件

中一条业务记录相同.

2”对帐单文件”中一条业务记录和”银行日记帐未达帐项文件”中

多条业务记录相同.

3.”对帐单文件”中多条业务记录和”银行日记帐未达帐项文件”中

一条业务记录相同.

4.”对帐单文件”中多条业务记录和”银行日记帐未达帐项文件”中

多条业务记录相同.

4手工核销未达帐.

有些经济业务是不可能经过“自动银行对帐”模块核销的，只能用强制

的

方式日人工核销.

四、银行对帐主程序

DEF.WIN.ZHDZDS.FRO.4,3.T.12,5.SHA.COL.SCH.l.

D.WHIL..T.

ACT.WIN.ZHDZDS.

Bl=

.O..SA..对帐单处

...B.PROMP/'录入银行对帐单

...B.PROMP."查询修改对帐单

...B.PROMP."打印银行对帐单

.4.B.PROMP/'生成银行调节表

…B.PROMP.".回

MEN.T.YHD.

D.CAS.

CAS.YHDZ=.

D.ZHS.

CAS.YHDZ=.

D.ZHC.

CAS.YHDZ=.

DEA.WIN.ZHDZDS.

D.ZHD.

ACT.WIN.ZHDZDS.

CAS.YHDZ=.

DEA.WIN.ZHDZDS.

D.SCDZ.

ACT.WIN.ZHDZDS.

CAS.YHDZ二.

EXL

ENDCAS.

ENDD.

DEA.WIN.ZHDZDS.

RET.

五，对帐单输入程序

DEF.WIN.ZHSR.FRO.2,1.T.17,6.SHA.COL.SCH.l.

DEF.WIN.ZHSR.FRO.l8,2.T.20,6.SHA.COL.SCH.1.

DEF.WIN.ZHSR.FRO.l8,2.T.20,6.SHA.COL.SCH.1.

ACT.WIN.ZHSR.

MY=HN.

.0,.SA.-银行对帐单数据将丢失！继续否Y/N7.GE.M.

REA.

DEA.WIN.ZHSR.

I.UPPE(MY)onY.

RET.

END.

ACT.WIN.ZHSR.

Q.SA..帐号和金额同时为空则退出.

SEL.l.

US.DATA\ZHDZ.IND.DATA\ZHDZB.

SEL..

US.DATA\ZHS.IND.DATA\ZHSR.

ZA.

DIM.MJE1(10),MJE2(lO),MZH(10.

D.WHIL..T.

I=.

D.WHIL.I<=1.

STO.O.O.T.MJE1(I),MJE2(I.

STO.SPACE(20.T.MZH(L

I=I+.

END.

I=.

MZJE=0..

ACT.WIN.ZHSR.

.0,.SA

.L.SA.”请输入总金额.GE.MZJ.PIC.".99.

.2,.SA..===============================.

.3,.SA

D.WHIL.I<=1.

.I+3,.GE.MZH(I.

.I+3,2.GE.MJE1(L

.I+3,4GE.MJE2(L

REA.

LLEN(TRIM(MZH(I)))=0.AND.(MJEl(I)=0.OR.MJE2(I)=0.

DEA.WIN.ZHSR.

DEA.WIN.ZHSR.

SEL..

US.

SEL.1.

US.

RET.

END.

SEL.l.

SEE.TRIM(MZH(I).

LEOF(.

ACT.WIN.ZHSR.

Q.SAJ帐号错，按任意继续

WAL".

MJE1(I)=

MJE2(2)=.

MZH(I)=SPACE(20.

DEA.WIN.ZHSR.

LOO.

END.

SEL..

APP.BLA.

REP.Z.WIT.MZH(I)JE.WIT.MJE1(I),JE.WIT.MJE2(L

REP.ZJ.WIT.MZJ.

I=I+.

END.

DEA.WIN.ZHSR.

ACT.WIN.ZHSR.

MX=nY.

.0,.SA.SPACE(55.

Q.SA..继续输入否Y/N7.GE.M.

REA.

DEA.WIN.ZHSR.

I.UPPE(MX)onY.

SEL.1.

US.

SEL..

US.

RET.

ELS.

LOO.

END.

END.

习题.

1.试编写”科目代码设置”主控模块的程序.

2.试编写“修改科目”模块的程序.

3.试编写“删除科目“模块的程序.

4.如果口令存放于数据库中口令设置”和”□

第四.凭证处理程序分析与设.

第一.凭证的手工处.

-凭证的分类

1、凭证一般分为原始凭证和记帐凭证

2、记帐凭证一般分为收款凭证、付款凭证和转帐凭证。

记帐凭证一般具有以下内容

1.凭证的名称

号

2.填制凭证的日期和编

3.经济业务的内容摘要

4.经济业务的金额

5.填制凭证的单位及有关人员

6,应借应贷帐户的名称.

7.所附原始凭证的张数和过帐备注.

二、会计人员对记帐凭证的处理程序大至如下.

1.根据原始凭证填制记帐凭证.

2.审核凭.，审查其合法性、正确性.

3.修改凭证，对错误的凭证进行修改.

4.查阅凭证，查阅已填制的凭证.

5.传递凭证，从填制或取得会计凭证到将其归档保存为止,在有关业务部

门之

间按照规定的时间，路线传递处理的程序。

第二.电算化凭证处.

一、电算化凭证处理的功能

1.录^为用户提供.

显示凭证表格；灵活的编辑手段；保存用户录入的凭证；

提供一定的检控功能；返回主控模块；

2.查^为用户提供：

用户查询某个特定凭证；按凭证编号查询；

按任一条件查询满足条件的第一张凭证；

按任意组合条件查询满足条件的第一张凭证(凭证编号不能参加条件组

合);

用户查询多张凭证•

按任一条件逐个查询满足条件的凭证；

按任意组合条件逐个查询满足条件的凭证；

暂存查询信息•

3.修改及删•

4凭证输*

—、电算化凭证处理与手工凭证处理的区别.

1.信息项不兀全相同

号

2.凭证的编方法不一样

3.存储形式不同

4.存储空间的利用率不—样

第三凭证处理程序的安全可靠

凭证出错的来源

1A为造成

2系统)处理程序出错。

3、电算化凭证处理模块的安全可靠性控制的措施：

1•严格的多级安全控.用户级；凭证级

2.全方位的录入检测

数据安全可靠性的实施措施

1逻辑校验.利用数据间的逻辑关系

2、平衡校验.利用”有借必有贷,借贷必相等”的会计基本准则.

3查询校验.利用数据的相对稳定性

4、关联校验.利用凭证数据的对应不可能性

5重复校验利用概率统计的原理

第四凭证处理程序的设

系统应满足的要

1.稳定

系统应能保证所有的处理稳定、处理的结果不随时间波动，仅仅依赖于

输入

2.致

系统内的数据必须保持致

3.良好的用户界

用户界面要求方便适用美观简洁。

4.灵活

不受时间过程的限制。

5.完备

提供一切有关凭证处理的功能，并加以强化。

6.快

凭证处理模块的设

第五.凭证处理程序的实

一任证录

KL«KL*KI*

*T**1**T**T**T*ej*rYwri*

*

,凭证输入总控程.PZSR.PR.

»*«»V«»t*■>»£«

*7**3**7*•[••[•*j»»j**j«•[•*7**7*q.

PAR.W_TITLE,BAR_NU.

HID.MEN.MAINMEN.

SE.COLO.O.SCHEM.1.T.RGB(150,150,150,50,50,50),,;

RGB(150,150,150,50,50,50),RGB(l50,150,150,150,0,0),RGB(150,150,150,

50,50,50.

DEFIN.WINDO.S.FRO.l,.T,23,7.FOOTE..H+W_TITLE+..COLO.SCHEM.1.

ACTIVAT.WINDO.S.

D.CAS.

CAS.BAR_NUM=.

D.PZSR1.

CHO.

CAS.BAR_NUM=.

D.PZSR2.

CHO=.

CAS.BAR_NUM=.

D.PZSR.

CHO=.

CAS.BAR_NUM=.

PZLXQ=HS.

D.CXPZKHC.WIT.PZLX.

CAS.BAR_NUM=.

PZLXQ="F.

D.CXPZKHC.WIT.PZLX.

CAS.BAR_NUM=.

PZLXQ=HZ.

D.CXPZKHC.WIT.PZLX.

CAS.BAR_NUM=.

D.PZXG1.

SEL..

DEL.AL.FO.JE=.

PAC.

CHO=.

CAS.BARNUM=1.

D.PZXG2.

SEL..

DEL.AL.FO.JE=.

PAC.

CHO=.

CAS.BAR_NUM=1.

D.PZXG.

SEL..

DEL.AL.FO.JE=.

PAC.

CHO=.

CAS.BAR_NUM=1.

D.DYP.

CAS.BAR_NUM=1.

D.DYPZMXB.

CAS.BAR_NUM=L

D.DYPZHZ.

ENDCAS.

I.CHO=.

D.PZKB.

ENDL

CLEA.WINDO.S.

RETUR.

*.EOF.PZSR.PR.

*1*q.*!**1*q.*!**1**1*q.*1*

*T**7**Tw*T**T»*T**7**T**T**T»*T»*Tw*1^*T**T**rw

・收款凭证输入程.PZSR11.PR.

*1**1**£**2*7.*!**1**1**£*7，7，*1**3**£*7，*J**1*

〃、^7*«、«、〃、，A、〃、*7*V、4、，A、〃、*4*V、〃、〃、*7*•

SE.TAL.OF.

DEF.WIN.PZSR.FRO.l9,2.T.21,6.SHA.COL.SCH.l.

DEF.WIN.PZSR.FRO.l9,l.T.21,7.SHA.COL.SCH.l.

A.."Y.

PUBLI.DIMENSIO.ZY(25..DFKM(25..JE(25..XMH(25.

D.WHIL.UPPER(AN)=HY.

JFKM

FDJ...

BH

RQ..MR.

MR..HS.

D.ZWB.WIT.BH.

M...

MH...

MHJ...

MHJ...

D.WHIL.UPPER(MX)="Y.

•••

D.WHIL.I<=2.

STOR.SPACE(24.T.ZY(L

DFKM(L.SPACE(11.

XMH(I..SPACE(10.

JE(I..O.O.

..I+.

ENDD.

CLEA.

D.WHIL..T.

CLEA.TYP.

A./'XXXXXXXXXXXXXXXXXXXXXXXX.

A..”999########.

A./'XXXXXXXXXX.

A..”.99.

D.WHIL..T.

SE.FORMA.T.PZ1.

REA.

I.READKEY()=36.OR.READKEY()=29・

EXL

ELS.

LOO.

ENDL

ENDD.

SE.FORMA.T.

.L.5.GE.FDJ.PICTURJ99.

REA.

I.JFKMl=n.AND.BHl=.

CLEA.

RETUR.

ENDL

I.MY=.

SELEC..

SEE."&BH1"+“S.

I..NOT.EOF(.

ACT.WIN.PZSR.

SA."重号，按任意键重新输入

WAL".

DEA.WIN.PZSR.

LOO.

ENDL

SELEC..

SEEJ&BH1"+“S.

L.NOT.EOF(.

ACT.WIN.PZSR.

SA."重号，按任意键重新输入

WAL”.

DEA.WIN.PZSR.

LOO.

ENDI.

ENDI.

SEL..

I.LEN(TRIM(BH1))<.

ACT.WIN.PZSR.

SA."编号长度不够4位，按任键重新输入

WAL”.

DEA.WIN.PZSR.

LOO.

ENDI.

SELEC..

LJFKM1=.

LOO.

ELS.

SEE.JFKM.

I..NOT.EOF(.

ACT.WIN.PZSR.

….SA.”借方科目名称J+TRIM(KMMC)+.按任意键继续.

WAL”.

DEA.WIN.PZSR.

ENDL

LEOF().OR.UPPE(KMRB)=HH.

ACT.WIN.PZSR.

SA..借方科目错，按任意键重新输入.

WAL”.

DEA.WIN.PZSR.

LOO.

ENDL

ENDL

♦♦♦

D.WHIL.I<=2.

I.DFKM(I)<>..

MHJ..MHJ2+JE(L

MHJ..MHJ.

ENDL

ENDD.

.1..6.GE.MHJ.PICTUR.”#########.##.

REA.

LMHJloMHJ.

ACT.WIN.PZSR.

SA."输入金额错，按任意键继续

WAL”.

DEA.WIN.PZSR.

MHJ..MH.

LOO.

ENDI.

FLA...

SELEC..

•••

D.WHIL.J<=2.

LJE(J)oO.O.

I.TRIM(DFKM(J))<>..

SEE.TRIM(DFKM(J).

I..NOT.EOF(.

MKMD..TRIM(DFKM(J).

KMMC

D.ZWKMM.WIT.MKMD..KMMC.

I.LEN(TRIM(KMMC1))<>.

ACT.WIN.PZSR.

SA,"贷方科目名称J+TRIM(KMMC1)+.按任意键继续.

WAL".

DEA.WIN.PZSR.

END.

ENDL

LEOF().OR.UPPE(KMRB)=HH.

FLA...

EXI.

ENDI.

ENDI.

ENDL

..J+.

ENDD.

LFLAG=.

ACT.WIN.PZSR.

SA.TRIM(DFKM(J))+t,贷方科目代码错，按任意键重新输・.

WAL".

DEA.WIN.PZSR.

MHJ..MH.

LOO.

ENDI.

FLAG...

SELEC..

•••

D.WHIL.I<=2.

I.LEN(TRIM(XMH(I)))<>.

SEE.TR1M(XMH(I).

I.EOF(.

ACT.WIN.PZSR.

SA."编号："+TRIM(XMH⑴)+”错，按任意键重新输入.

WAL”.

DEA.WIN.PZSR.

FLAG...

EXL

ENDI.

I.LEN(TRIM(XMH(I)))<>LEN(TRIM(PJH).

ACT.WIN.PZSR.

SA."编号："+TRIM(XMH⑴)+”错，按任意键重新输入.

WAL".

DEA.WIN.PZSR.

FLAG...

EXI.

ENDI.

ACT.WIN.PZSR.

SA."名称："+TRIM(DWMC)+.按任意键继续.

WAL”.

DEA.WIN.PZSR.

ENDI.

.・I+.

ENDD.

I.FLAG3=.

MHJ..MH.

LOO.

ENDI.

Y.."Y.

ACT.WIN.PZSR.

SA."请检查录入凭证正确否？Y/N.GE.Y.

REA.

I.UPPER(YN)o"Y.

DEA.WIN.PZSR.

LOO.

ELS.

MH..MHJ.

DEA.WIN.PZSR.

EXI.

ENDI.

ENDD.

SELEC..

•••

D.WHIL.J<=2.

IJE(J)oO.O.

I.DFKM(J)<>..

APPEN.BLAN.

REPLAC.R.WIT.RQ..B.WIT.BH..Z.WIT.ZY(J.

REPLAC.KMD.WIT.DFKM(J..J.WIT.JE(J..PZR.WIT/'S.

REPLAC.J.WIT.nD..PJ.WIT.XMH(J.

ENDI.

ENDI.

..J+.

ENDD.

ACT.WIN.PZSR.

STOR/'N.T.M.

SA."还有同号凭证.Y/N7.GE.M.

REA.

DEA.WIN.PZSR.

I.UPPER(MX尸'N.

APPEN.BLAN.

REPLAC.R.WIT.RQ..B.WIT.BH..Z.WIT.ZY(L.KMD.WIT.JFKM.

REPLAC.J.WIT.MH..PZR.WIT.nS..J.WIT."J.

REPLAC.FD.WIT.FDJ.

EXL

ENDL

M...

ENDD.

ACT.WIN.PZSR.

SA."继续输入否.Y/N.GE.A.

REA.

DEA.WIN.PZSR.

LUPPER(AN)o"Y.

EXI.

ENDI.

ENDD.

CLEA.

RETUR.

*.EOF.PZSR11.PR.

KA*r?**T**r1i*.»IY*weT**»2T****1T**.*!T***7***^*rX?^«

.生成凭证.ZWBH.PRG

•A**X*■£**2**!**1**£«*t«

*j»*7**7**»*»j*.1・*j**7*.*，T・*■•1]■,»7*•曲•»船(»”*7■*

PARAMETER.MB.

SE.TAL.OF.

SEL..

SE.IND.T.DATA\PZKHC.

G.TO.

LOCAT.FO.UPPER(PZRB尸UPPER(MRB.

I.EOF(.

SELEC..

SE.IND.T.PZK.

LOCAT.FO.UPPER(PZRB)=UPPER(MRB.

I.EOF(.

MB..n0001.

RETUR.

ELS.

G.BOTTO.

MB..B.

D.WHIL..NOT.BOF(.

LUPPER(PZRB)oUPPER(MRB.

SKL-.

I.BOF(.

MB..H0001.

EXI.

ENDL

ELS.

X..VAL(BH.

X..X1+.

X..TRIM(LTRIM(STR(X1)).

D.CAS.

CAS.LEN(X2)=.

MB，OOO"+X.

CAS.LEN(X2)=.

MB..nOO"+X.

CAS.LEN(X2)=.

MB..“O”+X.

CAS.LEN(X2)=.

MBH=X.

ENDCAS.

EXI.

ENDL

ENDD.

RETUR.

ENDI.

ELS.

G.BOTTO.

MB..B.

D.WHIL..NOT.BOF(.

I.UPPER(PZRB)<>UPPER(MRB.

SKI.-.

I.BOF(.

MB..H0001.

EXI.

ENDI.

ELS.

X..VAL(BH.

X..X1+.

X..TRIM(LTRIM(STR(X1)).

D.CAS.

CAS.LEN(X2)=.

MB..nOOOn+X.

CAS.LEN(X2)=.

MB..nOO"+X.

CAS.LEN(X2)=.

MB..U+X.

CAS.LEN(X2)=.

MBH二X.

ENDCAS.

EXL

ENDL

ENDD.

ENDI.

RETUR.

*j»*3**7**»**j**7*•；•*7*•；•*j»

.凭证输入格式文.PZSR11.FM..

■1,*1**?**1**1*“**1**1**1*4•

*T»*?w*T**T**T**T»*7**T^*T**T»*T»*jw*T»*T^*T**T»*

、1•*2^、［,、］■、，、］.、［■*1**1*、］.

q、*1、•*,*〃、

■

・第一・・

rKjJ*>rT*♦］、-卜*，1J、*KI>(、7♦］.、*•1［、**1*rKjJ*rjw7■］.、•

.17,5.SA;附单^张.

.5J.GE.JFKM.

.5,3.GE.RQ.

56.GE.BH.

.9,.GE.ZY(1.PIC.A.

.9,3.GE.DFKM(1.PIC.A.

.9,4GE.XMH(1.PIC.A.

.9,6.GE.JE(1.PIC.A.

.10,.GE.ZY(2.PIC.A.

.10,3.GE.DFKM(2.PIC.A.

,10,4.GE.XMH(2.PIC.A.

.l.,6.GE.JE(2.PIC.A.

.11,.GE.ZY(3.PIC.A.

.11,3GE.DFKM(3.PIC.A.

.11,4GE.XMH(3.PIC.A.

.11,6.GE.JE(3.PIC.A.

.12,.GE.ZY(4.PIC.A.

.12,3.GE.DFKM(4.PIC.A.

.12,4.GE.XMH(4.PIC.A.

.12,6.GE.JE(4.PIC.A.

.13,.GE.ZY(5.PIC.A.

.13,3.GE.DFKM(5.PIC.A.

.13,4.GE.XMH(5.PIC.A.

.13,6.GE.JE(5.PIC.A.

.17,2.SA;第一屏.

.20,2.SA.'输入完一张凭证键Fl退出.

REA.

，卜*1**1**5*q、q、,［、•

.生成科目名.ZW_KMM..

•*1*•*jw...•；••[•.[••[•rj»•；••[••[••[•rjw..••；•*•£[*,*•x[*•

PARAMETER.KMD..KMMC.

KMDM

KMDM….

KMDM

KMDM

KMDM..SUBSTR(KMDM,1,3.

D.CAS.

CAS.LEN(TRIM(KMDM))=1.

KMDM..SUBSTR(KMDM,1,5.

KMDM..SUBSTR(KMDM,1,7.

KMDM..SUBSTR(KMDM,1,9.

KMDM..SUBSTR(KMDM,1,11.

CAS.LEN(TRIM(KMDM))=.

KMDM..SUBSTR(KMDM,1,5.

KMDM..SUBSTR(KMDM,1,7.

KMDM..SUBSTR(KMDM,1,9.

CAS.LEN(TRIM(KMDM))=.

KMDM..SUBSTR(KMDM,1,5.

KMDM..SUBSTR(KMDM,1,7.

CAS.LEN(TRIM(KMDM))=.

KMDM..SUBSTR(KMDM,1,5.

ENDCAS.

M...

KMMC..n.

SELEC..

D.WHIL.MI<=.

M..STR(MI,1.

I.KMDM&MJo..

SEE.KMDM&M.

KMMC..KMMC1+TRIM(KMMC)+'7.

KMDM&MJ=..

ENDL

M..MI+.

ENDD.

RETUR.

KJ*KI*KL*KJ*****1*KL*

ri**T**!»*

.查询凭证程.CXPZKHC1.PR..

*1*•曲*1*一曲*£«*2*■】，*1*

*g»*j・*7**j・*j・

PAR.PZLX.

PUBLI.DIMENSIO.PZH1(1000.

STOR...T.PZH.

DEF.WIN.PZC.FRO.3,2.T.16,5.SHA.DOUB.COL.SCH.1.

DEEWIN.PZCX.FRO.18,2.T.21,6.SHA.DOUB.COL.SCH.l.

D.WHIL..T.

ACT.WIN.PZC.

.O..SA."凭证查询功能选择模块

PR0MPJ1.按日期查

当

….PROMPJ2.按凭证查

….PROMPJ3.按科目码查

….PROMPJ4.按金额查

.…PROMPJ5.按组合条件查询

.…PROMPJ6.查询期限发生额

PROMPJO.退

.10..SA.”请选择

MEN.T.C.

DEA.WIN.PZC.

B1..DATE(.

B1..DATE(.

I...

D.CAS.

CAS.CH=.

D.WHIL..T.

ACT.WIN.PZCX.

....SA."输入查询日期求B日

...1.GE.B1.

...2.GE.B1.

REA.

DEA.WIN.PZCX.

I.B11>BL

LOO.

ELS.

EXI.

ENDI.

ENDD.

SELEC..

B..小+DTOC(B11)+1

B..,nn+DTOC(B12)+"'.

B..HRQ>=CTOD(..B..").AND.RQ<=CTOD(..B..n).AND.UPPE(PZRB)=,";

・UPPE(PZLXQ)+”'.

KZ

D.CXPZKHC.WIT.PZLX..KZ.

I.KZlo..

LOO.

ENDI.

D.CXPZKHC.WIT.PZLXQ

CAS.CH=.

D.WHIL..T.

AL...

AL...

ACT.WIN.PZCX.

SA."请输入查询凭证号.号•号

...l.GE.Al.PICTUR.n9999.

...2.GE.A1.PICTURJ9999.

REA.

A11=TRIM(A11.

A12=TRIM(A12.

DEA.WIN.PZCX.

LA11>A12.0R.LEN(TRIM(A11))=O.OR.LEN(TRIM(A12))=.

LOO.

ELS.

EXI.

ENDI.

ENDD.

A1.+，AND.BH<=，"+A12+1