凭证打印显示辅助核算.doc

凭证打印显示辅助核算1. 在SQL定义自定义函数在查询分析其中执行以下语句：CREATE FUNCTION GETACCNNAME(MAK_NO VARCHAR(30),ACC_NO VARCHAR(30),ITM VARCHAR(30)RETURNS VARCHAR(500)WITH ENCRYPTION ASBEGIN DECLARE CUS_NO VARCHAR(30), SAL_NO VARCHAR(20), DEP_NO VARCHAR(12), PRD_NO VARCHAR(30), BNK_NO VARCHAR(20), NAME VARCHAR(500) SELECT CUS_NO=B.NAME FROM VDTL A INNER JOIN CUST B ON A.CUS_NO=B.CUS_NO WHERE A.MAK_NO=MAK_NO AND A.ACC_NO=ACC_NO AND A.ITM=ITM SELECT SAL_NO=B.NAME FROM VDTL A INNER JOIN SALM B ON A.SAL_NO=B.SAL_NO WHERE A.MAK_NO=MAK_NO AND A.ACC_NO=ACC_NO AND A.ITM=ITM SELECT DEP_NO=B.NAME FROM VDTL A INNER JOIN DEPT B ON A.DEP=B.DEP WHERE A.MAK_NO=MAK_NO AND A.ACC_NO=ACC_NO AND A.ITM=ITM SELECT PRD_NO=B.NAME FROM VDTL A INNER JOIN PRDT B ON A.PRD_NO=B.PRD_NO WHERE A.MAK_NO=MAK_NO AND A.ACC_NO=ACC_NO AND A.ITM=ITM SELECT BNK_NO=B.NAME FROM VDTL A INNER JOIN BACC B ON A.BNK_NO=B.BACC_NO WHERE A.MAK_NO=MAK_NO AND A.ACC_NO=ACC_NO AND A.ITM=ITM IF (ISNULL(CUS_NO,) OR ISNULL(SAL_NO,) OR ISNULL(DEP_NO,) OR ISNULL(PRD_NO,) OR ISNULL(BNK_NO,) BEGIN SELECT NAME=ISNULL(CUS_NO,)+ +ISNULL(SAL_NO,)+ +REPLACE(DEP_NO,First Depart,)+ +ISNULL(PRD_NO,)+ +ISNULL(BNK_NO,) END RETURN NAME END下图说明各个模块作用：如需添加别的辅助核算，如票据、项目，请注意增加相应语句。2. 恢复打印模板到系统中3. 定义ADOQuery1检查ADO中自定义的SQL语句是否正确：SELECT DBO.GETACCNNAME(MAK_NO,ACC_NO,ITM) FROM VDTL WHERE MAK_NO=:MAK_NO AND