离春节只有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
