Foxtable(狐表) → 用户栏目 → 项目发布 → 记录贴-从无到有


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

主题：记录贴-从无到有
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		记录贴-从无到有  发帖心情 Post By：2021/5/10 9:42:00 [只看该作者]

写这个贴的最初的意愿是，在写的过程中会遇到问题。有时候找到解决办法。研究摸索浪费了很多时间，估计是自己学习能力不足。

当然了，代码我自认为也写的不好，将就用。

欢迎大佬进行指正。指正的同时最好留一下代码，有时候明白逻辑，但是不知道方法。

 

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


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2021/5/11 20:35:00 [只看该作者]

开发背景：服装企业
在使用的ERP：深圳思迅
开发目的：思迅报表数据分析做的不够完善，进而自己做数据提取，然后进行分析。很少录入模块，基本都使用查询表
 回到顶部
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2021/5/11 20:45:00 [只看该作者]

模块1:动态调货
选择条件：调出仓库,调入仓库，款号开头，品类，到货天数，件数。checkbox:去除现库存，去除买断款，去除曾调出，去除曾销售。
模块设计逻辑:
调出仓库和调入仓库必须选择，选择之后，先筛选出调出仓库的库存，然后显示根据款花色尺码，筛选上货天数，以及该款调出仓库进销存和调入仓库的进销存。
筛选调入仓库的库存，然后在调出仓库的库存里面筛选相同的款。
筛选调出仓库的买断款数据，由于不允许调出，筛选不显示。
筛选调入仓库曾经调出的数据，并进行标记。这里有碰到问题。本来计划标注颜色，不知道写。
筛选调入仓库曾经销售的数据，并进行标记。
最终得到的表格，可以查看调出仓库的进销存，上货的天数。以及查询调入仓库的进销存。然后人工进行在此基础上进行调货。
 回到顶部
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2021/5/11 20:46:00 [只看该作者]

ckStr = dcck.Text &","& drck.Text
    
    SqlKcb ="[t_im_barcode_stock].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[stock_qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库]From [t_im_barcode_stock] Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_im_barcode_stock].[branch_no]Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_barcode_stock].[item_no]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([t_im_barcode_stock].[item_barcode],5),1,3) Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_im_barcode_stock].[item_barcode],2)Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info].[item_clsno] Where [t_im_barcode_stock].[branch_no] not in (000101,000801,999801,999801,999901)and [stock_qty]<>0 and [item_brand]='01' and [t_im_barcode_stock].[item_no] Like '"&  kt.Text &"%'and [item_name] Like '"& pl.Text &"%'"
    SqlWqs =" [t_im_sheet_barcode_qty].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库] From [EFSG].[dbo].[t_im_sheet_barcode_qty]Left JOIN [t_im_sheet_master] ON [t_im_sheet_master].[sheet_no] = [t_im_sheet_barcode_qty].[sheet_no]Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = REPLACE([t_im_sheet_master].[d_branch_no]+'01',' ','') Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_sheet_barcode_qty] .[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info].[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([EFSG].[dbo].[t_im_sheet_barcode_qty].[item_barcode],5),1,3)Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_im_sheet_barcode_qty].[item_barcode],2) Where [t_im_sheet_master].trans_no='DO' and approve_flag = '1'and order_status = '0' and [t_im_sheet_barcode_qty].[item_no] Like '"&  kt.Text &"%'and [item_name] Like '"& pl.Text &"%'"
    SqlKcb = SqlKcb & "and [branch_name]  Like '%"&  dcck.Text &"%'"
    SqlWqs = SqlWqs & "and [branch_name]  Like '%"&  dcck.Text &"%'"
    
    Dim bd1 As New GroupTableBuilder("库存表",SqlKcb,"EFSG")
    Dim dt1 As fxDataSource
    bd1.Groups.AddDef("款号") '根据型号分组
    bd1.Groups.AddDef("品类")
    bd1.Groups.AddDef("品名")
    bd1.Groups.AddDef("季节")
    bd1.Groups.AddDef("花色")
    bd1.Groups.AddDef("尺码")
    bd1.Groups.AddDef("吊牌价")
    bd1.Groups.AddDef("仓库")
    bd1.Totals.AddDef("数量","现有库存_数量")
    dt1 = bd1.BuildDataSource()
    Dim bd2 As New GroupTableBuilder("未签收",SqlWqs,"EFSG")
    Dim dt2 As fxDataSource
    bd2.Groups.AddDef("款号") '根据型号分组
    bd2.Groups.AddDef("品类")
    bd2.Groups.AddDef("品名")
    bd2.Groups.AddDef("季节")
    bd2.Groups.AddDef("花色")
    bd2.Groups.AddDef("尺码")
    bd2.Groups.AddDef("吊牌价")
    bd2.Groups.AddDef("仓库")
    bd2.Totals.AddDef("数量","未签收_数量")
    dt2 = bd2.BuildDataSource()
    Dim nms As String() = {"款号","花色","尺码","季节","仓库","品类","品名","吊牌价"} '指定连接列
    dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
    Tables("动态调货_动态调货").DataSource =dt1
    With DataTables("动态调货_动态调货").DataCols  '用表达式列计算库存数据
        .Add("总库存数量",Gettype(Integer), "IsNull([现有库存_数量],0)+IsNull([未签收_数量],0)")
        .Add("最后上货天数",Gettype(Integer),"")
        .Add("调出仓库_进",Gettype(Integer),"")
        .Add("调出仓库_销",Gettype(Integer),"")
        .Add("调出仓库_存",Gettype(Integer),"")
        .Add("调入仓库_进",Gettype(Integer),"")
        .Add("调入仓库_销",Gettype(Integer),"")
        .Add("调入仓库_存",Gettype(Integer),"")
        .Add("备注",Gettype(String),100)
    End With
 回到顶部
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2021/5/11 20:47:00 [只看该作者]

Dim SqlZdckd As String
    Dim SqlZdrkd As String
    Dim SqlCgshd As String
    Dim SqlCgthd As String
    Dim SqlXsmx As String
    Dim SqlKctzr As String
    Dim SqlKctzc As String
    Dim SqlPdcyd As String
    
    
    SqlZdckd ="[t_im_sheet_barcode_qty].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库] From [EFSG].[dbo].[t_im_sheet_barcode_qty]Left JOIN [t_im_sheet_master] ON [t_im_sheet_master].[sheet_no] = [t_im_sheet_barcode_qty].[sheet_no]Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_im_sheet_master].[branch_no] Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_sheet_barcode_qty] .[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info].[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([EFSG].[dbo].[t_im_sheet_barcode_qty].[item_barcode],5),1,3)Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_im_sheet_barcode_qty].[item_barcode],2) Where [t_im_sheet_master].trans_no='DO' and approve_flag = '1'and [item_brand]='01'"
    SqlZdrkd ="[t_im_sheet_barcode_qty].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库] From [EFSG].[dbo].[t_im_sheet_barcode_qty]Left JOIN [t_im_sheet_master] ON [t_im_sheet_master].[sheet_no] = [t_im_sheet_barcode_qty].[sheet_no]Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = REPLACE([t_im_sheet_master].[d_branch_no]+'01',' ','')  Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_sheet_barcode_qty] .[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info].[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([EFSG].[dbo].[t_im_sheet_barcode_qty].[item_barcode],5),1,3)Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_im_sheet_barcode_qty].[item_barcode],2) Where [t_im_sheet_master].trans_no='DO' and approve_flag = '1'and [item_brand]='01'"
    SqlCgshd ="[t_im_sheet_barcode_qty].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库]From [t_im_sheet_barcode_qty]Left JOIN [t_pm_sheet_master] ON [t_pm_sheet_master].[sheet_no] = [t_im_sheet_barcode_qty].[sheet_no] Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_pm_sheet_master].[branch_no]Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_sheet_barcode_qty} .[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info}.[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([t_im_sheet_barcode_qty].[item_barcode],5),1,3) Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_im_sheet_barcode_qty].[item_barcode],2) Where [t_im_sheet_barcode_qty].[trans_no]='PI' and [item_brand]='01'"
    SqlCgthd ="[t_im_sheet_barcode_qty].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库]From [t_im_sheet_barcode_qty]Left JOIN [t_pm_sheet_master] ON [t_pm_sheet_master].[sheet_no] = [t_im_sheet_barcode_qty].[sheet_no] Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_pm_sheet_master].[branch_no]Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_sheet_barcode_qty} .[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info}.[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([t_im_sheet_barcode_qty].[item_barcode],5),1,3) Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_im_sheet_barcode_qty].[item_barcode],2) Where [t_im_sheet_barcode_qty].[trans_no]='RO' and [item_brand]='01'"
    SqlKctzr = "[t_im_sheet_barcode_qty].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库]  From [t_im_sheet_barcode_qty] Left JOIN [t_im_sheet_master] ON [t_im_sheet_master].[sheet_no] = [t_im_sheet_barcode_qty}.[sheet_no]Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_im_sheet_master}.[branch_no]Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_sheet_barcode_qty}.[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info}.[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right({t_im_sheet_barcode_qty}.[item_barcode],5),1,3) Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right({t_im_sheet_barcode_qty}.[item_barcode],2) Where [t_im_sheet_barcode_qty].[trans_no]='oo'and [db_no]='+' and [approve_flag]='1' and [item_brand]='01'"
    SqlKctzc = "[t_im_sheet_barcode_qty].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[qty]) As [数量],CONVERT(INT,[sale_price]) As [吊牌价],[branch_name] As [仓库]  From [t_im_sheet_barcode_qty] Left JOIN [t_im_sheet_master] ON [t_im_sheet_master].[sheet_no] = [t_im_sheet_barcode_qty}.[sheet_no]Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_im_sheet_master}.[branch_no]Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_sheet_barcode_qty}.[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info}.[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right({t_im_sheet_barcode_qty}.[item_barcode],5),1,3) Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right({t_im_sheet_barcode_qty}.[item_barcode],2) Where [t_im_sheet_barcode_qty].[trans_no]='oo'and [db_no]='-' and [approve_flag]='1' and [item_brand]='01'"
    SqlPdcyd ="[t_im_check_sum].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[balance_qty]) As [数量],CONVERT(INT,[t_im_check_sum].sale_price) As [吊牌价],[branch_name] As [仓库] From [t_im_check_sum] Left JOIN [t_im_check_init] ON [t_im_check_init].[sheet_no] = [t_im_check_sum].[sheet_no] Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_im_check_sum].[branch_no]Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_im_check_sum].[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info].[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([t_im_check_sum].[item_barcode],5),1,3) Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_im_check_sum].[item_barcode],2) where [balance_qty]<>'0' and [approve_flag]='1'and [item_brand]='01'"
    SqlXsmx = "[t_rm_saleflow].[item_no] As [款号],[item_name] As [品类],[item_subname] As [品名],[item_clsname] As [季节],[color_name] As [花色],[size_name] As [尺码],CONVERT(INT,[sale_qnty]) As [数量],CONVERT(INT,[t_bd_item_info].[sale_price]) As [吊牌价],[sell_way] As [销售类型码],[branch_name] As [仓库] From [t_rm_saleflow] Left JOIN [t_bd_branch_info] ON [t_bd_branch_info].[branch_no] = [t_rm_saleflow].[branch_no]Left JOIN [t_bd_item_info] ON [t_bd_item_info].[item_no] = [t_rm_saleflow].[item_no]Left JOIN [t_bd_item_cls] ON [t_bd_item_cls].[item_clsno] = [t_bd_item_info].[item_clsno]Left JOIN [t_bd_color_code] ON [t_bd_color_code].[color_id] = substring(right([t_rm_saleflow].[item_barcode],5),1,3) Left JOIN [t_bd_size_code] ON [t_bd_size_code].[size_id] = right([t_rm_saleflow].[item_barcode],2) where [item_brand]='01'"
    
    SqlZdckd = SqlZdckd & "and [t_im_sheet_barcode_qty].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    SqlZdrkd = SqlZdrkd & "and [t_im_sheet_barcode_qty].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    SqlCgshd = SqlCgshd & "and [t_im_sheet_barcode_qty].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    SqlCgthd = SqlCgthd & "and [t_im_sheet_barcode_qty].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    SqlKctzr = SqlKctzr & "and [t_im_sheet_barcode_qty].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    SqlKctzc = SqlKctzc & "and [t_im_sheet_barcode_qty].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    SqlPdcyd = SqlPdcyd & "and [t_im_check_sum].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    SqlXsmx = SqlXsmx & "and [t_rm_saleflow].[item_no] like '" & kt.Value & "%'And [branch_name] in ('" & ckStr.replace(",", "','") & "')"
    
    
    Dim b1 As New GroupTableBuilder("直调出库",SqlZdckd,"EFSG")
    Dim d1 As fxDataSource
    b1.Groups.AddDef("款号") '根据型号分组
    b1.Groups.AddDef("花色")
    b1.Groups.AddDef("尺码")
    b1.Groups.AddDef("仓库")
    b1.Totals.AddDef("数量","直调出库单_数量")
    d1 = b1.BuildDataSource()
    
    Dim b2 As New GroupTableBuilder("直调入库",SqlZdrkd,"EFSG")
    Dim d2 As fxDataSource
    b2.Groups.AddDef("款号") '根据型号分组
    b2.Groups.AddDef("花色")
    b2.Groups.AddDef("尺码")
    b2.Groups.AddDef("仓库")
    b2.Totals.AddDef("数量","直调入库单_数量")
    d2 = b2.BuildDataSource()
    
    Dim b3 As New GroupTableBuilder("采购收货",SqlCgshd,"EFSG")
    Dim d3 As fxDataSource
    b3.Groups.AddDef("款号") '根据型号分组
    b3.Groups.AddDef("花色")
    b3.Groups.AddDef("尺码")
    b3.Groups.AddDef("仓库")
    b3.Totals.AddDef("数量","采购收货_数量")
    d3 = b3.BuildDataSource()
    
    Dim b4 As New GroupTableBuilder("采购退货",SqlCgthd,"EFSG")
    Dim d4 As fxDataSource
    b4.Groups.AddDef("款号") '根据型号分组
    b4.Groups.AddDef("花色")
    b4.Groups.AddDef("尺码")
    b4.Groups.AddDef("仓库")
    b4.Totals.AddDef("数量","采购退货_数量")
    d4 = b4.BuildDataSource()
    
    Dim b5 As New GroupTableBuilder("销售",SqlXsmx,"EFSG")
    Dim d5 As fxDataSource
    b5.Filter="销售类型码<>'B'"
    b5.Groups.AddDef("款号") '根据型号分组
    b5.Groups.AddDef("花色")
    b5.Groups.AddDef("尺码")
    b5.Groups.AddDef("仓库")
    b5.Totals.AddDef("数量","销售_数量")
    d5 = b5.BuildDataSource()
    
    Dim b6 As New GroupTableBuilder("退货",SqlXsmx,"EFSG")
    Dim d6 As fxDataSource
    b6.Filter="销售类型码='B'"
    b6.Groups.AddDef("款号") '根据型号分组
    b6.Groups.AddDef("花色")
    b6.Groups.AddDef("尺码")
    b6.Groups.AddDef("仓库")
    b6.Totals.AddDef("数量","退货_数量")
    d6 = b6.BuildDataSource()
    
    Dim b7 As New GroupTableBuilder("库存调整入",SqlKctzr,"EFSG")
    Dim d7 As fxDataSource
    b7.Groups.AddDef("款号") '根据型号分组
    b7.Groups.AddDef("花色")
    b7.Groups.AddDef("尺码")
    b7.Groups.AddDef("仓库")
    b7.Totals.AddDef("数量","库存调整入_数量")
    d7 = b7.BuildDataSource()
    
    Dim b8 As New GroupTableBuilder("库存调整出",SqlKctzc,"EFSG")
    Dim d8 As fxDataSource
    b8.Groups.AddDef("款号") '根据型号分组
    b8.Groups.AddDef("花色")
    b8.Groups.AddDef("尺码")
    b8.Groups.AddDef("仓库")
    b8.Totals.AddDef("数量","库存调整出_数量")
    d8 = b8.BuildDataSource()
    
    Dim b9 As New GroupTableBuilder("盘点差异",SqlPdcyd,"EFSG")
    Dim d9 As fxDataSource
    b9.Groups.AddDef("款号") '根据型号分组
    b9.Groups.AddDef("花色")
    b9.Groups.AddDef("尺码")
    b9.Groups.AddDef("仓库")
    b9.Totals.AddDef("数量","盘点差异_数量")
    d9 = b9.BuildDataSource()
    
    Dim nm As String() = {"款号","花色","尺码","仓库"} '指定连接列
    d1.Combine(nm,d2,nm) '将销售统计数据组合到进货统计数据
    d1.Combine(nm,d3,nm) '将销售统计数据组合到进货统计数据
    d1.Combine(nm,d4,nm) '将销售统计数据组合到进货统计数据
    d1.Combine(nm,d5,nm) '将销售统计数据组合到进货统计数据
    d1.Combine(nm,d6,nm) '将销售统计数据组合到进货统计数据
    d1.Combine(nm,d7,nm) '将销售统计数据组合到进货统计数据
    d1.Combine(nm,d8,nm) '将销售统计数据组合到进货统计数据
    d1.Combine(nm,d9,nm) '将销售统计数据组合到进货统计数据
    Tables("动态调货_出入库明细").DataSource =d1
    
    With DataTables("动态调货_出入库明细").DataCols  '用表达式列计算库存数据
        .Add("实入数量",Gettype(Integer), "IsNull([库存调整入_数量],0)+IsNull([直调入库单_数量],0)+IsNull([采购收货_数量],0)+IsNull([盘点差异_数量],0)-IsNull([库存调整出_数量],0)-IsNull([直调出库单_数量],0)-IsNull([采购退货_数量],0)")
        .Add("销售数量",Gettype(Integer), "IsNull([销售_数量],0)-IsNull([退货_数量],0)")
        .Add("剩余",Gettype(Integer), "IsNull([实入数量],0)-IsNull([销售数量],0)")
    End With
 回到顶部
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2021/5/11 20:51:00 [只看该作者]

For Each r As DataRow In DataTables("动态调货_动态调货").Select("")
        Dim dr As DataRow = DataTables("直调入库单明细").Find("款号='" & r("款号") & "' and 花色='" & r("花色") & "'and 尺码='" & r("尺码") & "'and 仓库='" & r("仓库") & "'","日期 desc")
        If dr IsNot Nothing Then
            Dim t1 As TimeSpan =  Date.Today - CDate(dr("日期"))
            r("最后上货天数") = t1.TotalDays
        End If
        Dim dcMx As DataRow = DataTables("动态调货_出入库明细").Find("款号='" & r("款号") & "' and 花色='" & r("花色") & "'and 尺码='" & r("尺码") & "'and 仓库='" & r("仓库") & "'")
        If dcMx IsNot Nothing Then
            r("调出仓库_进") = dcMx("实入数量")
            r("调出仓库_销") = dcMx("销售数量")
            r("调出仓库_存") = dcMx("剩余")
        End If
        Dim drMx As DataRow = DataTables("动态调货_出入库明细").Find("款号='" & r("款号") & "' and 花色='" & r("花色") & "'and 尺码='" & r("尺码") & "'and 仓库='" & drck.Text & "'")
        If drMx IsNot Nothing Then
            r("调入仓库_进") = drMx("实入数量")
            r("调入仓库_销") = drMx("销售数量")
            r("调入仓库_存") = drMx("剩余")
        End If
    Next
    
    
    Dim SqlDrKcb As String
    Dim SqlDrWqs As String

    Dim bdDr As New GroupTableBuilder("库存表",SqlDrKcb,"EFSG")
    Dim dtDr As fxDataSource
    bdDr.Groups.AddDef("款号") '根据型号分组
    bdDr.Groups.AddDef("品类")
    bdDr.Groups.AddDef("品名")
    bdDr.Groups.AddDef("季节")
    bdDr.Groups.AddDef("花色")
    bdDr.Groups.AddDef("尺码")
    bdDr.Groups.AddDef("吊牌价")
    bdDr.Groups.AddDef("仓库")
    bdDr.Totals.AddDef("数量","现有库存_数量")
    dtDr = bdDr.BuildDataSource()
    Dim bdDr2 As New GroupTableBuilder("未签收",SqlDrWqs,"EFSG")
    Dim dtDr2 As fxDataSource
    bdDr2.Groups.AddDef("款号") '根据型号分组
    bdDr2.Groups.AddDef("品类")
    bdDr2.Groups.AddDef("品名")
    bdDr2.Groups.AddDef("季节")
    bdDr2.Groups.AddDef("花色")
    bdDr2.Groups.AddDef("尺码")
    bdDr2.Groups.AddDef("吊牌价")
    bdDr2.Groups.AddDef("仓库")
    bdDr2.Totals.AddDef("数量","未签收_数量")
    dtDr2 = bdDr2.BuildDataSource()
    Dim n As String() = {"款号","花色","尺码","季节","仓库","品类","品名","吊牌价"} '指定连接列
    dtDr.Combine(n,dtDr2,n) '将销售统计数据组合到进货统计数据
    Tables("动态调货_调入仓库库存").DataSource =dtDr
    With DataTables("动态调货_调入仓库库存").DataCols  '用表达式列计算库存数据
        .Add("数量",Gettype(Integer), "IsNull([现有库存_数量],0)+IsNull([未签收_数量],0)")
    End With
    
    Dim SqlZdckd_dr As String
    
    Dim b1_dr As New GroupTableBuilder("调入仓库明细",SqlZdckd_dr,"EFSG")
    b1_dr.Groups.AddDef("款号") '根据型号分组
    b1_dr.Groups.AddDef("花色")
    b1_dr.Groups.AddDef("尺码")
    b1_dr.Groups.AddDef("仓库")
    b1_dr.Totals.AddDef("数量")
    Tables("动态调货_调出仓库出库单明细").DataSource = b1_dr.BuildDataSource
    
    For Each nbr As DataRow In DataTables("动态调货_动态调货").Select("")
        If DataTables("动态调货_调入仓库库存").Compute("Sum(数量)","款号='" & nbr("款号") & "' and 花色='" & nbr("花色") & "'and 尺码='" & nbr("尺码") & "'")>0 Then
            nbr("备注")= "有库存"
        End If
        If DataTables("买断款").Compute("Sum(数量)","款号='" & nbr("款号") & "'and 花色='" & nbr("花色") & "'and 尺码='" & nbr("尺码") & "'and 仓库='" & nbr("仓库") & "'")>0 Then
            nbr("备注")= nbr("备注")&"|买断款"
        End If
        If DataTables("销售明细").Compute("Sum(数量)","款号='" & nbr("款号") & "'and 花色='" & nbr("花色") & "'and 尺码='" & nbr("尺码") & "'and 仓库='" & drck.Value & "'")>0 Then
            nbr("备注")= nbr("备注")&"|曾销售"
        End If
        If DataTables("动态调货_调出仓库出库单明细").Compute("Sum(数量)","款号='" & nbr("款号") & "'and 花色='" & nbr("花色") & "'and 尺码='" & nbr("尺码") & "'and 仓库='" & drck.Value & "'")>0 Then
            nbr("备注")= nbr("备注")&"|曾调出"
        End If
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
zaq3574020
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1738 威望：0 精华：0 注册：2018/8/23 14:16:00 		  发帖心情 Post By：2021/5/11 20:52:00 [只看该作者]

以上是这个模块，有的语句发不出来，已经删除。
小白记录贴，望大家指正。
本帖就是记录，以及希望得到大家帮助，把这个软件写好，自己提高技术。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询