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


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

主题：[求助]销售
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]销售  发帖心情 Post By：2018/8/3 11:59:00 [显示全部帖子]


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


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("数量")
                    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 Select
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/3 12:37:00 [显示全部帖子]

老师好，销售表重置商品编号为连续出库，成本列数据不显示。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/4 13:08:00 [显示全部帖子]

老师，我说的是重置商品编号列后库存数量不正确

图片点击可在新窗口打开查看此主题相关图片如下：图像 023.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/4 17:19:00 [显示全部帖子]

以下是引用江南小镇在2018/8/4 13:08:00的发言：
老师，我说的是重置商品编号列后库存数量不正确

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/4 23:45:00 [显示全部帖子]

以下是引用江南小镇在2018/8/4 17:19:00的发言：

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

老师，在按菜单重置按钮时项目销表（重置商品编号列）库存列不应该发生变化。（重置商品编号后库存数量不正确）
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/5 22:30:00 [显示全部帖子]

谢谢老师

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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/6 12:00:00 [显示全部帖子]

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


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/6 12:48:00 [显示全部帖子]

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

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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/8/6 14:38:00 [显示全部帖子]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:库存.txt
 回到顶部
总数 27 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08691 秒, 9 次数据查询