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

《凭证打印显示辅助核算.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、凭证打印显示辅助核算1.在SQL定义自定义函数在查询分析其中执行以下语句：CREATEFUNCTIONGETACCNNAME(@MAK_NOVARCHAR(30),@ACC_NOVARCHAR(30),@ITMVARCHAR(30))RETURNSVARCHAR(500)WITHENCRYPTIONASBEGINDECLARE@CUS_NOVARCHAR(30),@SAL_NOVARCHAR(20),@DEP_NOVARCHAR(12),@PRD_NOVARCHAR(30),@BNK_NOVARCHAR(20),@NAMEVARCHAR(500)SELECT@CUS_NO=B.NAMEFR

2、OMVDTLAINNERJOINCUSTBONA.CUS_NO=B.CUS_NOWHEREA.MAK_NO=@MAK_NOANDA.ACC_NO=@ACC_NOANDA.ITM=@ITMSELECT@SAL_NO=B.NAMEFROMVDTLAINNERJOINSALMBONA.SAL_NO=B.SAL_NOWHEREA.MAK_NO=@MAK_NOANDA.ACC_NO=@ACC_NOANDA.ITM=@ITMSELECT@DEP_NO=B.NAMEFROMVDTLAINNERJOINDEPTBONA.DEP=B.DEPWHEREA.MAK_NO=@MAK_NOANDA.ACC_NO=@

3、ACC_NOANDA.ITM=@ITMSELECT@PRD_NO=B.NAMEFROMVDTLAINNERJOINPRDTBONA.PRD_NO=B.PRD_NOWHEREA.MAK_NO=@MAK_NOANDA.ACC_NO=@ACC_NOANDA.ITM=@ITMSELECT@BNK_NO=B.NAMEFROMVDTLAINNERJOINBACCBONA.BNK_NO=B.BACC_NOWHEREA.MAK_NO=@MAK_NOANDA.ACC_NO=@ACC_NOANDA.ITM=@ITMIF(ISNULL(@CUS_NO,'')<>''ORISNULL(@SAL_NO,'')<>'

4、'ORISNULL(@DEP_NO,'')<>''ORISNULL(@PRD_NO,'')<>''ORISNULL(@BNK_NO,'')<>'')BEGINSELECT@NAME=ISNULL(@CUS_NO,'')+''+ISNULL(@SAL_NO,'')+''+REPLACE(@DEP_NO,'FirstDepart','')+''+ISNULL(@PRD_NO,'')+''+ISNULL(@BNK_NO,'')ENDRETURN@NAMEEND下图说明各个模块作用：如需添加别的辅助核算，如票据、项目，请注意增加相应语句。1.恢复打印模板到系统中1.定义ADOQuery1检查ADO

5、中自定义的SQL语句是否正确：SELECTDBO.GETACCNNAME(MAK_NO,ACC_NO,ITM)FROMVDTLWHEREMAK_NO=:MAK_NOANDACC_NO=:ACC_NOANDITM=:ITM2.定义ADO属性Master，然后定义Params3.指定控件DataSet