Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能给个按天算仓储费的代码思路吗？


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

主题：能给个按天算仓储费的代码思路吗？
帅哥哟，离线，有人找我吗？
有点甜
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你入库多少笔，出库多少笔都没问题啊。

 

出入库有所有记录的明细啊。

 

假如入库有5行数据，那就根据入库日期，计算每一行到今天的费用；出库有2行，那就计算出库日期，到今天的费用。

 

最后，可以得到入库费用，出库费用，相减就是你的仓库费。
 回到顶部
帅哥哟，离线，有人找我吗？
xxfoxtable
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1696 积分：15831 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/2/13 11:17:00 [只看该作者]

 For Each crk As DataRow In  DataTables("出入库").sqlselect("编号 = '" & dr("编号")  & "','日期'") 
            Dim ccf As DataRow=DataTables("日库存表").addnew
            ccf("日期")=crk("日期")
            ccf("编号")=crk("编号")
            ccf("英文名称")=crk("英文名称")
            ccf("中文名称")=crk("中文名称")
            ccf("包装规格")=crk("包装规格")
            ccf("危险等级")=crk("危险等级")
            ccf("基本单位")=crk("基本单位")
            ccf("单号")=crk("单号")
            ccf("摘要")=crk("摘要")
            ccf("仓储单价")=crk("仓储单价")
            If crk("摘要")="入库"
                ccf("入库数量")=crk("基本数量")
                ccf("入库辅助数量")=crk("辅助数量")
                ccf("库存数量")=qc1+crk("基本数量")
                ccf("库存辅助数量")=qc1+crk("辅助数量")
            Else
                ccf("出库数量")=crk("基本数量")
                ccf("出库辅助数量")=crk("辅助数量")
                ccf("库存数量")=qc1-crk("基本数量")
                ccf("库存辅助数量")=qc2-crk("辅助数量")
            End If
            ccf("仓储费")=Math.Ceiling(ccf("库存数量")*1.1)*crk("仓储单价")
            qc1=ccf("库存数量")
            qc2=ccf("库存辅助数量")
            pdny=year(crk("日期")) & month(crk("日期"))
            Dim jsrq As DataRow=DataTables("计算日期").sqlfind("年月='" & pdny & "'")
            If jsrq Is Nothing
                jsrq=DataTables("计算日期").AddNew
                jsrq("年月")=pdny
                jsrq.Save
            End If
        Next
    Next
请老师帮我完善一下，怎么生成日库存吧，把中间缺的日期补上，谢谢 
[此贴子已经被作者于2018/2/13 11:24:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

统计入库，统计出库，相减，就是库存。

 

比如 统计小于等于2018-02-13的入库，统计小于2018-02-13的出库，相减就行啊。

 

看不懂你的代码要表达什么。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

出入库，如果要生成统计表，就参考

 

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

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


加好友 发短信
等级：七尾狐 帖子：1696 积分：15831 威望：0 精华：0 注册：2017/6/1 23:12:00 		  发帖心情 Post By：2018/2/13 11:34:00 [只看该作者]

是个简便好方法，但过几年数据量大了，这样计算会不会慢
[此贴子已经被作者于2018/2/13 12:11:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
总数 26 上一页 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.04297 秒, 4 次数据查询