Foxtable(狐表)用户栏目专家坐堂 → 请教 有2个表 一个采购入库单 另一个是销售出库单 ,计算成本采用先进先出法 ?


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

主题:请教 有2个表 一个采购入库单 另一个是销售出库单 ,计算成本采用先进先出法 ?

帅哥哟,离线,有人找我吗?
huaziqiao1976
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1175 威望:0 精华:0 注册:2020/9/28 9:41:00
  发帖心情 Post By:2023/9/18 12:02:00 [显示全部帖子]

增加一列“库存量",在填制入库单时填列,以对应每次的进货量,出库时,用控件获取进货日期为正序库存量大于等于1的行库存量、单价等,够减时改写库存量,直到0为止  ,代码最好写在商品目录的下拉窗口里

Dim dr As DataRow
dr = 
DataTables("产品").SQLFind("产品编号 = '03'"'找出编号为03的产品
With DataTables(
"订单")
    dr = .SQLFind(
"产品 = 'PD01'","日期"'找出第一次订购PD01产品的记录
    dr = .SQLFind(
"产品 = 'PD01'","日期",1'找出第二次订购PD01产品的记录
End With

 回到顶部