文档章节

Adjust inventory PhysicalInvent of InventBatch

fandyx
 fandyx
发布于 2015/01/30 16:16
字数 171
阅读 23
收藏 0
// Copyright (C), 2015, CEU Co., Ltd.
// USR Changed by 2015-01-30T16:14:10 Fandy Xie 谢宇帆
// Version       : 1.0
// Description   : 负库存批号调整,后进先出
// Return        :
static void fandy_adjustInventBatch(Args _args)
{
    inventSum           inventSum, parmInventSum;
    inventDimParm       parmInventDimParm;
    inventBatch         inventBatch;
    inventDim           inventDim, parmInventDim, inventDimLocal;
    qty                 remainQty = -45;
    InventDimGroupId    dimGroupId;
    ;
    
    parmInventDim   = inventDim::find("V200224796");
    parmInventSum   = inventSum::find("IK50204", parmInventDim.inventDimId);
    dimGroupId      = parmInventSum.inventTable().DimGroupId;
    
    setprefix(strfmt("%1,%2,%3",parmInventSum.ItemId, parmInventDim.preFixNotItemDim(dimGroupId), parmInventSum.PhysicalInvent));
    parmInventDimParm.initPhysicalInvent(dimGroupId);
    parmInventDimParm.InventBatchIdFlag = Noyes::No;
    while select inventSum
        where inventSum.ItemId          == parmInventSum.ItemId &&
              inventSum.Closed          == NoYes::No            &&
              inventSum.AvailPhysical   > 0
    #inventDimJoin(inventSum.InventDimId, inventDim, parmInventDim, parmInventDimParm)
/*
    join inventDim
        where inventDim.inventDimId         == inventSum.InventDimId            &&
              inventDim.InventLocationId    == parmInventDim.InventLocationId   &&
              inventDim.inventSerialId      == parmInventDim.inventSerialId     &&
              inventDim.InventSiteId        == parmInventDim.InventSiteId       &&
              inventDim.InventColorId       == parmInventDim.InventColorId
*/
    join inventBatch
        order by ProdDate
        where inventBatch.inventBatchId     == inventDim.inventBatchId  &&
              inventBatch.itemId            == inventSum.ItemId
    {
        inventDimLocal = inventSum.inventDim();
        
        if (abs(remainQty) > inventSum.AvailPhysical)
        {
            // doInsertJournalTrans(inventSum, - inventSum.AvailPhysical);
            info(strfmt("%1,%2,%3", inventSum.ItemId, inventDimLocal.preFix(), - inventSum.AvailPhysical));
            remainQty   += inventSum.AvailPhysical;
        }
        else
        {
            //doInsertJournalTrans(inventSum, remainQty);
            info(strfmt("%1,%2,%3", inventSum.ItemId, inventDimLocal.preFix(), remainQty));
            remainQty   = 0;
        }
        if (remainQty == 0)
            break;
    }

}


© 著作权归作者所有

共有 人打赏支持
fandyx
粉丝 0
博文 39
码字总数 11111
作品 0
东莞
技术主管
Python ansible常用模块

import ansible.runnerimport ansible.playbookimport ansible.inventoryfrom ansible import callbacksfrom ansible import utils 远程执行命令hosts = [hosts]host_inventory = ansible.i......

aaron428
01/04
0
0
Hawkular 1.0 Alpha1 发布,监控解决方案

Hawkular 1.0 Alpha1 发布了,Hawkular 是一个开源的监控解决方案,是 RHQ 项目 的改进版本,受益于多年的经验,Hawkular 设计之初就考虑模块化和可伸缩性,因此组件可在应用之外进行重用。H...

oschina
2015/06/05
804
0
Ansible基于服务树进行分组全量接口调用

Ansible APi 说明 Info > ansible2.0更贴近于ansible cli的常用命令执行方式,不同于上一版本只能发送单个命令或playbook;而更推荐用户在调用ansibleAPI的时候,将playbook的每个task拆分出...

煮酒品茶
2017/12/25
0
0
centos7 ansible yum安装web软件

一、网站拓扑 ansible主机inventory的情况: # cat ansible_inventory.txt [front] 10.11.7.224 ansibleconnection=ssh ansiblesshuser=root ansiblessh_pass=xuAK 10.11.5.209 ansibleconn......

youkoudiancom
2017/04/15
0
0
ansible (2.4.2.0) API python调用重写 | 适用于 web

转自 jumpserver 5.0 测试版本 下载地址 只是简单改了一下 能够单独使用。 目录结构 下面两个是演示文件 先 pip3 install ansible==2.4.2.0 安装 例子...

295631788
01/02
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Mac OS X下Maven的安装与配置

Mac OS X 安装Maven: 下载 Maven, 并解压到某个目录。例如/Users/robbie/apache-maven-3.3.3 打开Terminal,输入以下命令,设置Maven classpath $ vi ~/.bash_profile 添加下列两行代码,之后...

TonyStarkSir
今天
3
0
关于编程,你的练习是不是有效的?

最近由于工作及Solution项目的影响,我在重新学习DDD和领域建模的一些知识。然后,我突然就想到了这个问题,以及我是怎么做的? 对于我来说,提升技能的项目会有四种: 纯兴趣驱动的项目。即...

问题终结者
今天
4
0
打开eclipse出现an error has occurred see the log file

解决方法: 1,打开eclipse安装目录下的eclipse.ini文件; 2,打开的文本文件最后添加一行 --add-modules=ALL-SYSTEM 3,保存重新打开Eclipse。...

任梁荣
昨天
4
0
搞定Northwind示例数据库,无论哪个版本的SQLServer都受用

Northwind数据库 从这里可以找到突破口: http://social.msdn.microsoft.com/Forums/zh-CN/Vsexpressvb/thread/8490a1c6-9018-40c9-aafb-df9f79d29cde 下面是MSDN: http://msdn2.microsoft......

QQZZFT
昨天
1
0
mysql主从同步,安装配置操作

准备 两台mysql服务,我这里准备了如下: 主库:192.168.176.128 从库:192.168.176.131 如何在Linux上安装mysql服务,请看https://blog.csdn.net/qq_18860653/article/details/80250499 操作...

小致dad
昨天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部