茶室收入日报表
花园茶室收入日报表
花园茶室收入日报表
一个收入日报表及传递单的设计实例
收入日报表及传递单的设计实例 在商业企业特别是有门市部的企业中，收款工作一般由基层出纳人员担任，这样门市或基层就需要和财务部门进行单据传递，有的还有交款工作，因此需要传递单比较正规。有的单位没有物流软件，这样就需要用EXCEL来设置收入日记账。如果传递单能够从日记账中自动生成，那么会减少录入人员的很大的工作量。 例：某事业单位，下属两个收款部门，一个总台，一个门市部。总台从事事业性收费和经营性收费，门市部从事经营性收费。两个部门都要每天将收到的款项和开具的单据交到财务部。 工作目的：设置一张规范的传递单。 工作要求：减少重复劳动，反映日报表中各要素统计情况。 了解了目的和要求后，先设计工作思路，然后按步骤逐步完成具体工作。 工作思路：设计两个单元表，主表用于序时反映每天的收入，相当于收入日报表；副表用于设计传递单，以极少的手工输入为判定条件，用公式导入其他的要素结果。 工作步骤： 一、建立两个单元表：如下图 以下的讲述中，有时会将收入日报表称为主表，将传递单称为副表。
二、设计收入日报表：格式如下 说明：1、交款单位只有两个：总台和门市部；收入项目有三种：应税收入、非税收入、定金；发票类型有四种：增值税发票、财政非税票据、定额发票、收据。所以这三项可以用数据有效性定为选项，输入时可以直接选择，不易出错： 2、金额栏等于后面的五种收款方式之和。 3、收入日报表可以在期末以数据透视表来的形式来进行分析和统计工作（这里不作介绍）。 二、设计传递单： 1、固定部份：传递单上，有一部份不需要输入，我们可以将其固定下来：
2、用SUM函数求合计金额。 3、合计金额与收款方式的各项之和核对。 公式如下： 结果如下： 4、手动输入部分：手动输入越少，越不容易出错。
日报表解释说明
1全局脚本 在全局脚本里建立起与数据库的连接，通过定时整点触发脚本，把变量写到数据库。WINCC里全局脚本触发定时器设定是每小时整点触发。 Option Explicit 变量声明 Function action 功能操作 Dim database 定义数据库 Dim strcn,cn Dim is_SQL Dim riqi Dim yali,wendu,liuliang,zhongliang,dianya,sudu 定义压力、温度、、、、 Dim DateTime 定义日期时间 riqi=Now Set yali= HMIRuntime.Tags("yali") 人机界面运行时间标签 yali.Read Set wendu= HMIRuntime.Tags("wendu") wendu.Read Set liuliang= HMIRuntime.Tags("liuliang") liuliang.Read Set zhongliang= HMIRuntime.Tags("zhongliang") zhongliang.Read Set dianya= HMIRuntime.Tags("dianya") dianya.Read Set sudu= HMIRuntime.Tags("sudu") sudu.Read strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=baobiao1;Data Source=.\wincc" Set cn=CreateObject("ADODB.connection") cn.connectionString=strcn cn.Open is_SQL="insert into ribao(riqi,yali,wendu,liuliang,zhongliang,dianya,sudu) Values('"& riqi &"','"&yali.Value &"','"&wendu.Value &"','"&liuliang.Value &"','"&zhongliang.Value &"','"&dianya.Value &"','"&sudu.Value &"')" cn.Execute is_SQL cn.Close End Functi