用Access数据库管理应收账款

来源:www.accessoft.com 点击数:16698 　 | 收藏 | 复制

时　间:2017-01-15 11:24:19
作　者:竹笛 ID：8 城市：上海 QQ：2851379730
摘　要:用ACCESS数据库对应收账款进行高效管理
正　文:

离春节只有2周了，大多数的单位都急于按期收到欠款，老板愁、员工愁，老板愁的是要发全公司奖金，员工愁的是如果未能按期回收被考核罚款，应收款这项工作需要时时关注，就可以少产生一些更长日期的拖欠，少一些被动。

    以前，公司的应收款笔数不多，随着公司的发展，应收款笔数越来越多，开始表现出以下问题：
    1.到了每月月底，需要统计全公司有多少应收款
    2.有时候会忘记，未能在即将到期之前提醒客户付款
    3.应收款下个月、2个月内、3个月内，半年内，一年内各有多少万不清楚，需要花费时间分类
    以上的问题看似简单，但简单的事情每个月都需要去做，耗费不少工作时间。

为什么不用access数据库开发一个应收款自动分类功能呢？基于这个想法，花了一天时间终于开发应收款到期的自动分类功能，如下图所示（注：单位名称为假设的）：

开发思路：
根据应收日期和当前日期，算出距离天数，然后根据天数进行分类。

开发参考：
在这里，提2点供大家参考，一是如何分类，二是如何展现数据。

1.如何分类
对于应收款距离天数的分类，因为数据存储在SQL SERVER上，故提供示例代码如下：

在视图中计算出距离天数的公式：

		

	DATEDIFF(day, GETDATE(), YsDate)

存储过程：

USE [UMVsoftData]
GO
/****** 对象:  StoredProcedure [clientMIS].[p_calcAccountReceivableDays]    脚本日期: 01/15/2017 11:05:10 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

Alter PROCEDURE [clientMIS].[p_calcAccountReceivableDays]
AS
--将应收款天数结果保存到临时表中，D0001-离到期15天之内；D0002-离到期15-30天……
Select 
    ClientID
  , MinTs
  , (
     CASE
     WHEN MinTs >= 365 THEN 'D0009'
     WHEN MinTs >= 180 THEN 'D0006'
     WHEN MinTs >= 90 THEN 'D0005'
     WHEN MinTs >= 60 THEN 'D0004'
     WHEN MinTs >= 30 THEN 'D0003'
     WHEN MinTs >= 15 THEN 'D0002'
     WHEN MinTs >= 0 THEN 'D0001'
     ELSE 'D0007'
     END
    ) AS YsSort
INTO #tblTEMP_AccountReceivableDays
FROM View_AccountReceivableMinDate

--初始化所有不是黑名单的客户为没有应收款
Update UMVtblCodeClient SET [C_SortID4] = 'D0000' FROM UMVtblCodeClient Where [C_SortID4] <> 'D0008'

--更新应收款的类别
Update UMVtblCodeClient
SET [C_SortID4] = T.YsSort
FROM UMVtblCodeClient INNER JOIN #tblTEMP_AccountReceivableDays AS T ON T.ClientID = UMVtblCodeClient.ClientID

2.如何展现数据：
可参考：《B008多级动态分类显示数据源码》：http://www.accessoft.com/store_show.asp?ID=42

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】