Foxtable(狐表)用户栏目专家坐堂 → [求助]销售


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

主题:[求助]销售

帅哥哟,离线,有人找我吗?
江南小镇
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/8/5 22:30:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/8/5 22:34:00 [只看该作者]

老师,下面的代码成本列不显示数据。


Select Case e.DataCol.name
    Case "商品编号", "数量"
        If e.newvalue <> e.oldvalue Then 
            If e.DataRow("数量") IsNot Nothing Then
                Dim r As DataRow = e.DataRow
                Dim sum As Double = DataTables("进").compute("sum(库存)", "商品编号 = '" & e.DataRow("商品编号") & "' And 库存状态 = '可出库'")
                If sum < r("数量") Then
                    msgbox("库存不够")
                Else
                    Dim count As Integer = 0
                    Dim cb As Double = 0
                    Dim drs As List(Of DataRow) = DataTables("进").Select("商品编号 = '" & e.DataRow("商品编号") & "' And 库存状态 = '可出库'", "日期, _Identify")
                    Dim s As String = ""
                    Dim K As String = ""
                    
                    For i As Integer = 0 To drs.count - 1
                        Dim dr As DataRow = drs(i)
                        count += dr("库存")
                        Dim sy As Integer = count - r("数量")
                        s &= dr("进货单号") & ","
                        K &= dr("库存") & ","
                        
                        If sy >= 0 Then
                            dr("出库") = dr("数量") - sy
                            cb += dr("单价") * dr("出库")
                            dr("库存") = sy
                            r("进货单号") = s.trim(",")
                            r("库存") = K.trim(",")
                            r("成本") = cb
                            Exit For
                        Else
                            dr("出库") = dr("数量")
                            dr("库存") = 0
                            cb += dr("单价") * dr("出库")
                        End If
                    Next
                End If
            End If
        End If                          
        
End Select

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/5 23:53:00 [只看该作者]

代码没问题。

 

1、你进货的两个日期是 2018-07-03 2017-07-09,请注意年份不同;

 

2、你第二行的进货,没有单价,导致计算值为0。


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/8/6 12:00:00 [只看该作者]

老师,库存数量在销表中的库存列中不能立刻更新要等新增行后在能看到上一次的库存数量。


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.table


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/6 12:18:00 [只看该作者]

Select Case e.DataCol.name
    Case "商品编号", "数量"
        If e.DataRow("数量") IsNot Nothing Then
            Dim r As DataRow = e.DataRow
            Dim sum As Double = DataTables("进").compute("sum(库存)", "商品编号 = '" & e.DataRow("商品编号") & "' And 库存状态 = '可出库'")
            If sum < r("数量") Then
                msgbox("库存不够")
            Else
                Dim count As Integer = 0
                Dim cb As Double = 0
                Dim drs As List(Of DataRow) = DataTables("进").Select("商品编号 = '" & e.DataRow("商品编号") & "' And 库存状态 = '可出库'", "日期, _Identify")
                Dim s As String = ""
                Dim K As String = ""
               
                For i As Integer = 0 To drs.count - 1
                    Dim dr As DataRow = drs(i)
                    count += dr("库存")
                    Dim sy As Integer = count - r("数量")
                   
                    If sy >= 0 Then
                        dr("出库") = dr("数量") - sy
                        cb += dr("单价") * dr("出库")
                        s &= dr("进货单号") & ","
                        K &= dr("库存") & ","
                        r("进货单号") = s.trim(",")
                        r("库存") = K.trim(",")
                        r("成本") = cb
                        Exit For
                    Else
                        s &= dr("进货单号") & ","
                        K &= "0,"
                        dr("出库") = dr("数量")
                        dr("库存") = 0
                        cb += dr("单价") * dr("出库")
                    End If
                Next
            End If
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/8/6 12:48:00 [只看该作者]

老师,上面问题解决了谢谢你,现在还有问题请求老师帮忙,如果销表数量列修改数据后希望存表数量列和进表数量列同时更新。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/6 14:37:00 [只看该作者]

以下是引用江南小镇在2018/8/6 12:48:00的发言:
老师,上面问题解决了谢谢你,现在还有问题请求老师帮忙,如果销表数量列修改数据后希望存表数量列和进表数量列同时更新。

 

理解上面代码,然后处理。

 

http://www.foxtable.com/webhelp/scr/1453.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/8/6 14:38:00 [只看该作者]

老师,如果进表和销表数量列发生变化希望进表的库存列和存表的数量列能及时更新,我下面的代码不能更新。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:库存.txt


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/6 15:32:00 [只看该作者]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:进销存 (1).table


 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1700 积分:11344 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2018/8/6 15:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:图像 026.png
图片点击可在新窗口打开查看

 回到顶部
总数 52 上一页 1 2 3 4 5 6 下一页