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


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

主题:[求助]销售

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


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

老师,出库.出库明细表自动输入窗口能和库存代码结合使用吗


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

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


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


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

请具体说明你给的例子如何测试?要做到什么效果?

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


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

老师,打开出库表在出库.出库明细关联表的商品ID列打开下拉链窗口表在该窗口表中可否进行选择输出到出库.出库明细关联表中吗

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


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

肯定可以

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


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

老师,我在下拉链窗口表选择行输出可总是输出的是第一行。

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


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

我在关联表测试没有问题。

如果是在出库明细表选择的应该给出库明细表赋值,而不是给关联表赋值

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


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

老师,在出库.出库明细表赋值后出库_数量列输入数据时出库批次号列的批次号自动修改了。

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


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

检查出库明细表的表事件,肯定有代码影响了

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


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

老师,是你帮我设置的代码,现在不知怎样修改。
Select Case e.DataCol.name
    Case "商品ID", "出库_数量"
        If e.newvalue <> e.oldvalue Then '不是重置列
            
            If e.DataRow("出库_数量") IsNot Nothing Then
                Dim r As DataRow = e.DataRow
                If e.DataCol.name = "出库_数量" AndAlso e.OldValue<> Nothing Then
                    Dim count As Integer = 0
                    Dim bhs = r("入库批次号").split(",")
                    Dim kcs = r("提取数量").split(",")
                    For i As Integer = 0 To bhs.length-1
                        Dim fdr As DataRow = DataTables("入库明细").find("入库单编号明细 = '" & bhs(i) & "'")
                        If fdr IsNot Nothing Then
                            fdr("出库") -= kcs(i)
                        End If
                    Next
                End If
                Dim sum As Double = DataTables("入库明细").compute("sum(库存)", "商品ID = '" & e.DataRow("商品ID") & "' 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("商品ID = '" & e.DataRow("商品ID") & "' 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
                            cb += dr("入库_单价") * (dr("库存")-sy)
                            K &= dr("库存")-sy & ","
                            dr("出库") = dr("入库_数量") - sy
                            s &= dr("入库单编号明细") & ","
                            r("入库批次号") = s.trim(",")
                            r("提取数量") = K.trim(",")
                            r("成本") = cb
                            Exit For
                        Else
                            s &= dr("入库单编号明细") & ","
                            K &= dr("库存") & ","
                            cb += dr("入库_单价") * dr("库存")
                            dr("出库") = dr("入库_数量")
                            dr("库存") = 0
                        End If
                    Next
                End If
                
            End If
            
        End If
End Select


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


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

还是回头先好好学学基础。我们给的代码不能理解,不去理解,更不会改,随便一些功能的变化都要等着别人处理,这是不现实的。这些代码对你不但没有好处,反而是你前进的障碍,项目开展的阻碍,因为别人的代码你改也不是,不改也不是,改不改项目开发都无法继续下去。

换个角度,不如先做一些简单的进销存处理,比如这个视频的用法:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=24512


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