主题：实现“入库单在保存时自动生成会计凭证”

老师：能否提示一下如何能实现“入库单在保存时自动生成会计凭证”，运用哪些属性和方法？在帮助文件中有没有例子

具体业务的处理，帮助是不会有的。

 

参考 http://www.foxtable.com/webhelp/scr/1607.htm

 

我的思路是这样的，在采购入库主表审核后，能够在凭证明细表中自动增加一条：借：原材料     贷：应付账款-XX供应商

Dim ndr As DataRow = DataTables("凭证表").AddNew

ndr("编号") = "xxxx"

ndr("借") = "xxx"

ndr("贷") = "xxxxxxxx"

老师：在我项目中看样才能实现“采购入库主表审核后，能够在凭证明细表中自动增加一条：借：原材料     贷：应付账款-XX供应商”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

DataColChanged事件，参考代码

 

If e.DataCol.name = "审批" Then
    If e.NewValue = True Then
        Dim dt1 As DataTable = DataTables("凭证")
        Dim dt2 As DataTable = DataTables("凭证明细")
        Dim ndr As DataRow = dt1.addnew
        ndr("日期") = Date.Today
        ndr("凭证id") = e.DataRow("入库单号")
        Dim cdr1 As DataRow = dt2.AddNew
        cdr1("凭证id") = ndr("凭证id")
        cdr1("会计科目_一级科目") = "原材料"
        Dim cdr2 As DataRow = dt2.AddNew
        cdr2("凭证id") = ndr("凭证id")
        cdr2("会计科目_一级科目") = "应付账款"
        cdr2("会计科目_明细科目") = e.DataRow("供应商名称")
       
    End If
End If

谢谢！老师

老师：你好！感谢你的指导，你这个代码确实是自动生成凭证明细，但能否在入库单取消审核时，凭证明细对应行自动删除、在删除入库单时对应的凭证明细也删除了

参考代码

 

If e.DataCol.name = "审批" Then
    If e.NewValue = True Then
        Dim dt1 As DataTable = DataTables("凭证")
        Dim dt2 As DataTable = DataTables("凭证明细")
        Dim ndr As DataRow = dt1.addnew
        ndr("日期") = Date.Today
        ndr("凭证id") = e.DataRow("入库单号")
        Dim cdr1 As DataRow = dt2.AddNew
        cdr1("凭证id") = ndr("凭证id")
        cdr1("会计科目_一级科目") = "原材料"
        Dim cdr2 As DataRow = dt2.AddNew
        cdr2("凭证id") = ndr("凭证id")
        cdr2("会计科目_一级科目") = "应付账款"
        cdr2("会计科目_明细科目") = e.DataRow("供应商名称")
    Else

        Dim dt1 As DataTable = DataTables("凭证")
        Dim dt2 As DataTable = DataTables("凭证明细")

        dt1.DeleteFor("凭证id = '" & e.DataRow("入库单号") & "'")        

        dt2.DeleteFor("凭证id = '" & e.DataRow("入库单号") & "'")        
    End If
End If