Foxtable(狐表)用户栏目专家坐堂 → 会计凭证的设计和录入


  共有13757人关注过本帖树形打印复制链接

主题:会计凭证的设计和录入

美女呀,离线,留言给我吧!
采菊东篱下
  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/8 23:11:00 [只看该作者]

我现在死追问的是怎么引用保存窗口中的贷方合计金额?因为借方的金额等于窗口中的贷方合计金额。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 23:16:00 [只看该作者]

窗口中的贷方合计金额保存到哪里?

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/8 23:48:00 [只看该作者]

保存到收付转财务数据源表

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 8:34:00 [只看该作者]

保存到收付转财务数据源表哪一行?
[此贴子已经被作者于2021/4/9 8:34:38编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/9 9:49:00 [只看该作者]

我不是有代码了吗?添加一行,现在这行其他数据都显示了,就差统计。
'一.数据录入:
Select Case e.StripItem.Name
    Case "保存" '保存代
        If e.Form.Controls("rq").text = "" Then
            messagebox.show("请选择日期")
            Return
        ElseIf Tables("收款凭证_Table1").Compute("Count([贷方科目])") = 0 Then
            Return
        End If
        For Each dt As DataRow In Tables("收款凭证_Table1").DataTable.Select("[贷方科目] Is not null")
            Dim Tel As String = dt("明细科目")
            Dim Parts() As String = Tel.Split("-")
            dt("日期") = e.Form.Controls("rq").text
            dt("凭证号") = e.Form.Controls("dh").text
            dt("安日期生成单号辅助列") = e.Form.Controls("dh1").text
            dt("附件张数") = e.Form.Controls("TextBox1").text
            dt("录入员") = e.Form.Controls("lry").text
            dt("字号") = "收"
            dt("借或贷") = "贷"
            dt("操作人姓名") = User.Name & " " & Date.Now
            If Parts.length > 0 Then
                dt("二级科目") = Parts(0)
                If Parts.length > 1 Then
                    dt("三级科目") = Parts(1)
                    If Parts.length > 2 Then
                        dt("四级科目") = Parts(2)
                        If Parts.length > 3 Then
                            dt("五级科目") = Parts(3)
                            dt.Save
                        End If
                    End If
                End If
            End If
        Next
        Dim r As DataRow = DataTables("收付转财务数据源").SQLFind("[字号] = '收' And Month([日期]) = " & Month(e.Form.Controls("rq")) & " And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '借'")
        If r Is Nothing Then
            r = DataTables("收付转财务数据源").addnew
            r("日期") = e.Form.Controls("rq").text
            r("凭证号") = e.Form.Controls("dh").text
            r("借或贷") = "借"
            r("安日期生成单号辅助列") = e.Form.Controls("dh1").text
            r("附件张数") = e.Form.Controls("TextBox1").text
            r("录入员") = e.Form.Controls("lry").text
            r("字号") = "收"
            r("操作人姓名") = User.Name & " " & Date.Now
            Dim Tel0 As String = e.Form.Controls("ComboBox3").text
            Dim Parts0() As String = Tel0.Split("-")
            If Parts0.length > 0 Then
                r("借方科目") = Parts0(0)
                If Parts0.length > 1 Then
                    r("二级科目") = Parts0(1)
                End If
            End If
            r("借方金额") = DataTables("收付转财务数据源").Compute("Sum(贷方金额)","[字号] = '收' And [日期] = #" & e.Form.Controls("rq") & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '贷'")
        ElseIf r IsNot Nothing Then
            r("日期") = e.Form.Controls("rq").text
            r("凭证号") = e.Form.Controls("dh").text
            r("附件张数") = e.Form.Controls("TextBox1").text
            r("录入员") = e.Form.Controls("lry").text
            r("操作人姓名") = User.Name & " " & Date.Now
            Dim Tel0 As String = e.Form.Controls("ComboBox3").text
            Dim Parts0() As String = Tel0.Split("-")
            If Parts0.length > 0 Then
                r("借方科目") = Parts0(0)
                If Parts0.length > 1 Then
                    r("二级科目") = Parts0(1)
                End If
            End If
            r("借方金额") = DataTables("收付转财务数据源").Compute("Sum(贷方金额)","[字号] = '收' And [日期] = #" & e.Form.Controls("rq") & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "'And [借或贷] = '贷'")
        End If
        DataTables("收付转财务数据源").Save()
End Select
[此贴子已经被作者于2021/4/9 9:54:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 9:59:00 [只看该作者]

看不懂您的代码,请使用文字描述:保存到收付转财务数据源表哪一行?和哪一个条件的数据对应?

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  57楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/9 10:21:00 [只看该作者]

借方金额等于收款凭证窗口贷方金额合计:
我这样写:
r("借方金额") = Tables("记账凭证_Table1").Cols("贷方金额").GrandTotal
这样写:
r("借方金额") = Tables("收款凭证_Table1").DataTable.Compute("Sum(贷方金额)")
这样写:
r("借方金额") = DataTables("收付转财务数据源").Compute("Sum(贷方金额)","[字号] = '收' And [日期] = #" & e.Form.Controls("rq") & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '贷'")
都没有数据。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  58楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 10:26:00 [只看该作者]

窗口贷方金额有值吗?

r("借方金额") = Tables("收款凭证_Table1").Compute("Sum(贷方金额)")

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/4/9 10:38:00 [只看该作者]

有值啊,手工输入的啊。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  60楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 10:44:00 [只看该作者]

有值,下面代码肯定可以统计到数据
dim a as double = Tables("收款凭证_Table1").Compute("Sum(贷方金额)")
msgbox(a)
r("借方金额") = a

 回到顶部
总数 184 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..19