生产盘点凭证并录入实盘数据

原创 2013年12月03日 11:39:25
*&---------------------------------------------------------------------*
*& Report  ZMULT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZMULT.

DATA:IT_ITEM LIKE TABLE OF BAPI_PHYSINV_COUNT_ITEMS WITH HEADER LINE,
     RET_MSG LIKE TABLE OF BAPIRET2                 WITH HEADER LINE,
     G_INVDOC LIKE IKPF-IBLNR.

*& 产生盘点凭证
PERFORM CREATE_INVENTORY_DOCUMENT.
*&录入盘点数量
PERFORM RECORD_QUANTITY.
*& 更改数量
PERFORM CHANGE_QUANTITY.
*&---------------------------------------------------------------------*
*&      Form  CREATE_INVENTORY_DOCUMENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CREATE_INVENTORY_DOCUMENT .

  DATA: L_HEAD TYPE          BAPI_PHYSINV_CREATE_HEAD,
        ITEM   LIKE TABLE OF BAPI_PHYSINV_CREATE_ITEMS WITH HEADER LINE .


  L_HEAD-DOC_DATE      = SY-DATUM.   "凭证中的凭证日期
  L_HEAD-PLAN_DATE     = SY-DATUM.  "存货盘点的计划日期
  L_HEAD-PLANT         = '1000'.        "工厂
  L_HEAD-STGE_LOC      = 'X601'.     "库存地点
  L_HEAD-SPEC_STOCK    = 'X'.     "特殊库存标识
  L_HEAD-POST_BLOCK    = 'X'.     "由于实际盘点而冻结记帐
  L_HEAD-FREEZEBOOKINV = 'X'.     "冻结帐面库存
  L_HEAD-DEL_BATCHES   = 'X'.     "包括带有删除标识的批量


  ITEM-MATERIAL = '1000-00066'.

  APPEND ITEM.

  CALL FUNCTION 'BAPI_MATPHYSINV_CREATE_MULT'
    EXPORTING
      HEAD   = L_HEAD
    TABLES
      ITEMS  = ITEM
      RETURN = RET_MSG.

  PERFORM COMMIT_OPERATION.

ENDFORM.                    " CREATE_INVENTORY_DOCUMENT
*&---------------------------------------------------------------------*
*&      Form  COMMIT_OPERATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM COMMIT_OPERATION .
  READ TABLE RET_MSG WITH KEY TYPE = 'E'.
  IF SY-SUBRC <> 0.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT = 'X'.
    READ TABLE RET_MSG INDEX 1.
    IF SY-SUBRC = 0.
      WRITE:/ 'document:',RET_MSG-MESSAGE_V1.
    ENDIF.
  ELSE.
    LOOP AT RET_MSG.
      WRITE:/ 'erro message:',RET_MSG-MESSAGE.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " COMMIT_OPERATION
*&---------------------------------------------------------------------*
*&      Form  RECORD_QUANTITY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM RECORD_QUANTITY .

  REFRESH:RET_MSG.
  G_INVDOC = '0100045002'.

  IT_ITEM-ITEM = '001'.
  IT_ITEM-MATERIAL = '1000-00066'.
  IT_ITEM-ENTRY_QNT = 1.
  IT_ITEM-ENTRY_UOM = 'TAI'.
  APPEND IT_ITEM.

  CALL FUNCTION 'BAPI_MATPHYSINV_COUNT'
    EXPORTING
      PHYSINVENTORY = G_INVDOC
      FISCALYEAR    = 2010
      COUNT_DATE    = SY-DATUM
    TABLES
      ITEMS         = IT_ITEM
      RETURN        = RET_MSG.
  PERFORM COMMIT_OPERATION.
ENDFORM.                    " RECORD_QUANTITY
*&---------------------------------------------------------------------*
*&      Form  CHANGE_QUANTITY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM CHANGE_QUANTITY .
  CALL FUNCTION 'BAPI_MATPHYSINV_CHANGECOUNT'
    EXPORTING
      PHYSINVENTORY       = G_INVDOC
      FISCALYEAR          = '2010'
*     PERCENTAGE_VARIANCE =
    TABLES
      ITEMS               = IT_ITEM
      RETURN              = RET_MSG.
*   SERIALNUMBERS             =1

  PERFORM COMMIT_OPERATION.

ENDFORM.                    " CHANGE_QUANTITY
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

生产订单收货数量与物料凭证计算总数量不一致

先使用如下程序对已出错订单进行修正,然后再实施Note 1094999 - Goods receipt quantity is updated incorrectly -------------...

ERP条码解决方案,金蝶盘点机条码解决方案,应用PDA的信息化管理能给我们的生产管理带来怎么样的变化的探讨

ERP条码解决方案,金蝶盘点机条码解决方案,应用PDA的信息化管理能给我们的生产管理带来怎么样的变化的探讨。 当前越来越多的大大小小的中国企业已经接受了ERP的思想,大多数的商店,企业,工厂都会上一套...

cas 配置数据源 , 解决CAS 不支持你提供的凭证

(HTTP方式) 安装环境 Tomcat7.0JDK6CAS SERVER 3.5.2,下载地址  http://www.jasig.org/cas/download 1.打开cas\WEB...

新浪微博JAVA开发-保存AccessToken数据,可以作为下次登录凭证

根据新浪Open论坛上一些网友的介绍,首次登陆需要输入PIN码,生成AccessToken数据,保存下来,可以留作二次登录使用,俺以JAVA SDK提供例子修改并测试通过。...

基于SNC会计凭证录入Grid

  • 2013年12月14日 08:42
  • 16KB
  • 下载

大数据分析工具盘点-你不知道的15个新技术

大数据中的大作为,最近几周业内都忙碌着,很多初创公司和一些老牌的公司都推出了数据分析和数据管理产品,以及更新了现有产品,提供更丰富的功能与性能。   虽然这些技术都还只是蓝图规划,但是一些常见的主题...

盘点九种引人瞩目的开源大数据技术

越来越多的公司开始聚焦于大数据技术领域,而开源恰恰是大数据技术的灵魂。以下将为您介绍九大引人注目的开源大数据技术,请拭目以待: 1.Apache Hadoop Apache hadoop是一个...

资产盘点数据采集器 扫描枪(器)PDA应用APP

通过条码或者RFID技术结合PDA手持终端可实现数据采集自动化, 企业部门对固定资产进行条码预分配,并打印粘贴在固定资产上,当需要盘点时,由资产管理中心统一分配盘点任务到PDA手持终端上,盘点员只需拿...

前端数据可视化插件大盘点 图表/图谱/地图/关系图全有

在大数据时代,很多时候我们需要在网页中显示数据统计报表,从而能很直观地了解数据的走向,开发人员很多时候需要使用图表来表现一些数据。随着Web技术的发展,从传统只能依靠于flash、IE的vml,各个浏...
  • Angel_G
  • Angel_G
  • 2017年05月12日 09:44
  • 1977
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:生产盘点凭证并录入实盘数据
举报原因:
原因补充:

(最多只允许输入30个字)