Registration

Dear SAP Community Member,
In order to fully benefit from what the SAP Community has to offer, please register at:
http://scn.sap.com
Thank you,
The SAP Community team.
Skip to end of metadata
Go to start of metadata
Error rendering macro 'code': Invalid value specified for parameter 'lang'
TABLES: ZTPP0371.      " インターフェース指図ヘッダ
* データ
TYPES: BEGIN OF TYP_DATA ,
        AUFNR_N       TYPE ZTPP0371-AUFNR_N,    "指図番号
        BUDAT         TYPE ZTPP0372-BUDAT,      "伝票の転記日付
        SEQ           TYPE ZTPP0371-SEQ,        "カウンタ
        ZDELKB        TYPE ZTPP0371-ZDELKB,     "取消区分
        AUFNR_W       TYPE ZTPP0371-AUFNR_W,    "指図番号
        ZSTATUS       TYPE ZTPP0371-ZSTATUS,    "処理ステータス
        WERKS         TYPE ZTPP0371-WERKS,      "プラント
        MATNR         TYPE ZTPP0371-MATNR,      "品目コード
        MAKTX         TYPE ZTPP0371-MAKTX,      "品目テキスト
        BMENGE        TYPE ZTPP0371-BMENGE,     "基本数量
        BMEINS        TYPE ZTPP0371-BMEINS,     "基本数量単位
        GSTRP         TYPE ZTPP0371-GSTRP,      "基準開始日
        ERTXT         TYPE ZTPP0371-ERTXT,      "エラーテキスト
        ZNETQTY1      TYPE ZTPP0372-ZNETQTY1,   "ネット数量
        MEINS         TYPE ZTPP0372-MEINS,      "基本数量単位
        LGORT         TYPE ZTPP0372-LGORT,      "保管場所
        MBLNR1        TYPE MBLNR,               "入出庫伝票番号
        MJAHR1        TYPE MJAHR,               "入出庫伝票年
        ZSECNO        TYPE CONSECNO,            "連続番号
        ERROR         TYPE CHAR100,             "ERROR
        BLOCK         TYPE ZTPP0003-ZZCHARG,    "ロット
        ZZBWTAR       TYPE ZTPP0003-ZZBWTAR,    "評価タイプ
    END OF TYP_DATA.
* BDCDATA作成用内部テーブル
DATA: BEGIN OF T_BDCDATA OCCURS 0.
        INCLUDE STRUCTURE BDCDATA.
DATA: END OF T_BDCDATA.
* BAPI実行後結果格納内部テーブル
DATA: BEGIN OF T_RET OCCURS 0.
        INCLUDE STRUCTURE BAPIRET2.
DATA: END OF T_RET.
*--- 内部テーブル定義 ---*
*CCNBC指図ヘッダテーブル
DATA: T_ZTPP0371      TYPE STANDARD TABLE OF ZTPP0371,
      W_ZTPP0371      TYPE ZTPP0371,
*共通PF生産実績テーブル
      T_ZTPP0372      TYPE STANDARD TABLE OF ZTPP0372,
      W_ZTPP0372      TYPE ZTPP0372,
*RESULT TABLE 共通PF生産実績テーブル & 共通PF生産実績テーブル
      T_DATA          TYPE STANDARD TABLE OF TYP_DATA,
      W_DATA          TYPE TYP_DATA,
*BAPI 通信構造: 入出庫伝票明細登録
      T_ITEM          TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
      W_ITEM          TYPE  BAPI2017_GM_ITEM_CREATE,
*リターンパラメータ
      T_RETURN        TYPE TABLE OF  BAPIRET2,
      W_RETURN        TYPE BAPIRET2,
*BAPI コミュニケーションストラクチャ: 入出庫伝票ヘッダデータ
      W_HEADER        TYPE  BAPI2017_GM_HEAD_01,
*  MMIM: 在庫管理トランザクションへの GM_CODE 新規キー割当
      W_CODE          TYPE  BAPI2017_GM_CODE,
*--- 変数定義 ---*
      W_COUNT         TYPE  I,                       "COUNT
      W_ELIKZ         TYPE  MSEG-ELIKZ,              "納入完了" 区分
      W_UPDATE        TYPE  CHAR1 VALUE 'S',         "UPDATE
      W_ZSTATUS       TYPE  CHAR1,                   "納入完了" 区分
      W_MODE          TYPE  CHAR1 VALUE 'A',          "納入完了" 区分n
      W_MBLNR         TYPE  MSEG-MBLNR,              "入出庫伝票番号
      W_GJAHR         TYPE  MKPF-MJAHR.              "年度 ADD 2001.09.18
CONSTANTS:
    CNS_ZSTATUS_OK_BF TYPE ZTPP0371-ZSTATUS VALUE '1',    "納入完了" 区分
    CNS_ZSTATUS_ER    TYPE ZTPP0371-ZSTATUS VALUE '4',    "納入完了" 区分
    CNS_ZSTATUS_OK    TYPE ZTPP0371-ZSTATUS VALUE '5',    "納入完了" 区分
    CNS_0001          TYPE CHAR4            VALUE '0001', "明細番号 (販売管理伝票)
    CNS_BWART         TYPE CHAR5            VALUE 'BWART',"移動タイプ (在庫管理)
    CNS_02            TYPE CHAR2            VALUE '02',   "BAPI 在庫移動トランザクションのコード割当
    CNS_X             TYPE CHAR1            VALUE 'X',
    CNS_0             TYPE CHAR1            VALUE '0',
    CNS_1             TYPE CHAR1            VALUE '1',
    CNS_2             TYPE CHAR1            VALUE '2',
    CNS_4             TYPE CHAR1            VALUE '4',
    CNS_5             TYPE CHAR1            VALUE '5',
    CNS_S             TYPE CHAR1            VALUE 'S'.
*=======================================================================
*   選択画面用パラメータ定義
*=======================================================================
** 選択項目 ------------------------------------------------
**-デイフォルトはテスト実行OFF-スレッシュ-2004/10/21*
PARAMETERS: P_TEST AS CHECKBOX DEFAULT ''.
SELECTION-SCREEN BEGIN OF BLOCK SENTAKU WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
  S_AUFNR  FOR  ZTPP0371-AUFNR_N.
**-製造日付の追加-2004/11/01-スレッシュ*
SELECT-OPTIONS:
  S_BUDAT  FOR  ZTPP0371-BUDAT.
*  処理ステータス
SELECT-OPTIONS:
  S_STATUS FOR  ZTPP0371-ZSTATUS OBLIGATORY .
SELECTION-SCREEN END OF BLOCK SENTAKU.
PARAMETERS: P_CHARG TYPE AFPO-CHARG DEFAULT '受託生産品' NO-DISPLAY.
*=======================================================================
*** INITIALIZATION
*=======================================================================
*-<<< 初期処理(選択画面初期処理) >>>-------------------------------*
INITIALIZATION.
*  SET TITLEBAR 'T01' WITH TEXT-023.  "タイトルバーの設定
* P_STATUS 初期値を設定
  S_STATUS-SIGN   = 'I'.
  S_STATUS-OPTION = 'EQ'.
  S_STATUS-LOW    = CNS_ZSTATUS_OK_BF.
  APPEND S_STATUS.
  S_STATUS-SIGN   = 'I'.
  S_STATUS-OPTION = 'EQ'.
  S_STATUS-LOW    = CNS_ZSTATUS_ER.
  APPEND S_STATUS.
*=======================================================================
*** START OF SELECTION
*=======================================================================
START-OF-SELECTION.
*   ZTPP0271からデータ取得
  PERFORM FRM_GET_DATA_ZTPP0371.
*   総有効期間、転記日付の設定、T_DATAデータ移動
  PERFORM FRM_DATA_FIX.
  CHECK P_TEST = SPACE.
* Post goods movements with MB_CREATE_GOODS_MOVEMENT
  PERFORM F_BAPI_GOODSMOVEMENT.
  WRITE:/01     TEXT-003.
*=======================================================================
*** END OF SELECTION
*=======================================================================
END-OF-SELECTION.
  DATA: L_CNT TYPE I, "データカウンタ用ローカル変数
        L_OKCODDE_CNT TYPE I,
        L_ERCODE_CNT  TYPE I.
  WRITE:
      /110 TEXT-004.
*データ件数カウント
  CLEAR: W_COUNT.
  DESCRIBE TABLE T_DATA LINES W_COUNT.
  WRITE: /1(18) TEXT-005,
          20(8) W_COUNT.
  WRITE:  228(05) TEXT-006,
          234(010) SY-DATUM.
**実行日追加-スレッシュ-2005/02/15-end*
  DESCRIBE TABLE T_DATA LINES L_CNT.
*実行データ一覧表示
  LOOP AT T_DATA INTO W_DATA.
    IF W_DATA-ZSTATUS = CNS_ZSTATUS_OK.
      L_OKCODDE_CNT  = L_OKCODDE_CNT + 1.
    ELSEIF W_DATA-ZSTATUS = CNS_ZSTATUS_ER.
      L_ERCODE_CNT = L_ERCODE_CNT + 1.
    ENDIF.
  ENDLOOP.
  WRITE: /1(18) TEXT-007,
          20(8) L_OKCODDE_CNT.
  WRITE: /1(18) TEXT-008,
          20(8) L_ERCODE_CNT.
  ULINE /1(245).
  WRITE: /1 SY-VLINE,
          2(14) TEXT-009,
          16(1) SY-VLINE,
          17(10) TEXT-010,
          27(1) SY-VLINE,
          28(4) TEXT-011,
          32(1) SY-VLINE,
          33(4) TEXT-012,
          37(1) SY-VLINE,
          38(18) TEXT-013,
          56(1) SY-VLINE,
          57(7) TEXT-014,
          64(1) SY-VLINE,
          65(8) TEXT-015,
          73(1) SY-VLINE,
          74(12) TEXT-016,
          86(1) SY-VLINE,
          87(40) TEXT-017,
          127(1) SY-VLINE,
          128(15) TEXT-018,
          143(1) SY-VLINE,
          144(12) TEXT-019,
          156(1) SY-VLINE,
          157(10) TEXT-020,
          167(1) SY-VLINE,
          168(80) TEXT-021,
          248(1) SY-VLINE.
  ULINE /1(247).
  DATA: LW_FLAG TYPE CHAR1,
        LW_ZSTATUS TYPE CHAR1 VALUE '4'.
  LOOP AT T_DATA INTO W_DATA.
    AT NEW AUFNR_N .
      LW_FLAG = CNS_X.
    ENDAT.
    IF  LW_FLAG = CNS_X.
      PERFORM WRITE_OUTPUT_DATA.
    ELSE.
      IF   W_DATA-ZSTATUS =   LW_ZSTATUS .
        CLEAR:W_DATA-ZSTATUS,
              W_DATA-ERROR.
        PERFORM WRITE_OUTPUT_DATA.
      ELSE.
        PERFORM WRITE_OUTPUT_DATA.
      ENDIF.
    ENDIF.
  ENDLOOP.
*&---------------------------------------------------------------------*
*&      FORM  FRM_GET_DATA_ZTPP0271
*&---------------------------------------------------------------------*
*       ZTPP0271 指図ヘッダデータ取得
*----------------------------------------------------------------------*
FORM FRM_GET_DATA_ZTPP0371.
  SELECT *  INTO TABLE T_ZTPP0371 FROM ZTPP0371
                        WHERE AUFNR_N IN S_AUFNR   "指図番号
                          AND BUDAT   IN S_BUDAT   "伝票の転記日付
                          AND ZSTATUS IN S_STATUS. "処理ステータス
**-対象レコードの抽出-スレッシュ-2004/10/14-START*
  SORT T_ZTPP0371 BY AUFNR_N  "指図番号
                     BUDAT    "伝票の転記日付
                     SEQ      "カウンタ
              DESCENDING.
**削除フラグあれば対象外にする
  DELETE T_ZTPP0371 WHERE DELFLG = CNS_X.
  CLEAR W_ZTPP0371.
**内部テーブルにデータがない場合
  IF T_ZTPP0371 IS INITIAL.
    MESSAGE I143(ZREP01) WITH
            TEXT-022.
  ENDIF.
**-対象レコードの抽出-スレッシュ-2004/10/14-END*
ENDFORM.                               " FRM_GET_DATA_ZTPP0271
*&---------------------------------------------------------------------*
*&      FORM  FRM_DATA_FIX
*&---------------------------------------------------------------------*
*       総有効期間、転記日付の設定、T_DATAデータ移動
*----------------------------------------------------------------------*
FORM FRM_DATA_FIX.
  SORT T_ZTPP0371 BY AUFNR_N    "指図番号
                     BUDAT      "伝票の転記日付
                     SEQ        "カウンタ
                     ZSECNO     "連続番号
                     ZDELKB.    "取消区分
  IF T_ZTPP0371 IS NOT INITIAL.
*  GET DB FROM  T_ZTPP0372  FOR ALL ENTRIES T_ZTPP0371
    SELECT * INTO TABLE  T_ZTPP0372 FROM ZTPP0372
     FOR ALL ENTRIES IN T_ZTPP0371
                           WHERE AUFNR_N = T_ZTPP0371-AUFNR_N  "指図番号
                            AND  BUDAT   = T_ZTPP0371-BUDAT    "伝票の転記日付
                            AND  SEQ     = T_ZTPP0371-SEQ      "カウンタ
                            AND  ZSECNO  = T_ZTPP0371-ZSECNO   "連続番号
                            AND  ZDELKB  = T_ZTPP0371-ZDELKB.  "取消区分
    LOOP AT T_ZTPP0371 INTO W_ZTPP0371.
*  GET DB FROM  T_ZTPP0372
      DATA: ZZCHARG TYPE  ZTPP0003-ZZCHARG,
            ZZBWTAR TYPE  ZTPP0003-ZZBWTAR.
      CLEAR: ZZCHARG, ZZBWTAR.
      SELECT SINGLE ZZCHARG ZZBWTAR FROM ZTPP0003 INTO (ZZCHARG,ZZBWTAR)
      WHERE ZZBCAUART = W_ZTPP0371-AUART  "指図番号
                                           AND ZZBCAUART  < SY-DATUM         "DATE
                                           AND ZZDATBI    > SY-DATUM.        "DATE
      LOOP AT T_ZTPP0372  INTO W_ZTPP0372
                                          WHERE AUFNR_N = W_ZTPP0371-AUFNR_N  "指図番号
                                            AND BUDAT   = W_ZTPP0371-BUDAT    "伝票の転記日付
                                            AND SEQ     = W_ZTPP0371-SEQ      "カウンタ
                                            AND ZSECNO  = W_ZTPP0371-ZSECNO   "連続番号
                                            AND ZDELKB  = W_ZTPP0371-ZDELKB.  "取消区分
        W_DATA-AUFNR_N    = W_ZTPP0371-AUFNR_N.   "指図番号
        W_DATA-BUDAT      = W_ZTPP0371-BUDAT.     "伝票の転記日付
        W_DATA-SEQ        = W_ZTPP0371-SEQ.       "カウンタ
        W_DATA-ZDELKB     = W_ZTPP0371-ZDELKB.    "取消区分
        W_DATA-AUFNR_W    = W_ZTPP0371-AUFNR_W.   "指図番号
        W_DATA-ZSTATUS    = W_ZTPP0371-ZSTATUS.   "処理ステータス
        W_DATA-WERKS      = W_ZTPP0371-WERKS.     "プラント
        W_DATA-MATNR      = W_ZTPP0371-MATNR.     "品目コード
        W_DATA-MAKTX      = W_ZTPP0371-MAKTX.     "品目テキスト
        W_DATA-BMENGE     = W_ZTPP0371-BMENGE.    "基本数量
        W_DATA-BMEINS     = W_ZTPP0371-BMEINS.    "基本数量単位
        W_DATA-GSTRP      = W_ZTPP0371-GSTRP.     "基準開始日
        W_DATA-ERTXT      = W_ZTPP0371-ERTXT.     "エラーテキスト
        W_DATA-ZNETQTY1   = W_ZTPP0372-ZNETQTY1.  "ネット数量
        W_DATA-MEINS      = W_ZTPP0372-MEINS.     "基本数量単位
        W_DATA-MBLNR1     = W_ZTPP0372-MBLNR1.    "基本数量単位
        W_DATA-MJAHR1     = W_ZTPP0372-MJAHR1.    "入出庫伝票年
        W_DATA-ZSECNO     = W_ZTPP0371-ZSECNO.    "連続番号
        W_DATA-LGORT      = W_ZTPP0372-LGORT.     "保管場所
        W_DATA-BLOCK      = ZZCHARG.              "ロット
        W_DATA-ZZBWTAR    = ZZBWTAR.
        APPEND  W_DATA TO  T_DATA.
        CLEAR: W_DATA,W_ZTPP0372.
      ENDLOOP.
      CLEAR W_ZTPP0371.
    ENDLOOP.
  ENDIF.
ENDFORM.                               " FRM_DATA_FIX
*&---------------------------------------------------------------------*
*&      Form  F_OUTPUT_WRITE
*&---------------------------------------------------------------------*
*       OUTPUT_WRITE ERROR AND SUCCESS COUNT
*----------------------------------------------------------------------*
FORM F_BAPI_GOODSMOVEMENT .
  LOOP AT T_DATA INTO W_DATA.
    IF W_DATA-ZNETQTY1 <> CNS_0.
      IF W_DATA-ZDELKB = CNS_0.
**      製造指図登録
        PERFORM BDC_CO02_CHANGE_FLAG.
      ELSE.
*    CANCEL BAPI_GOODSMVT_CANCEL
        PERFORM CANCEL_GOODSMOVEMENT.
      ENDIF.
    ELSE.
      W_ZSTATUS  = CNS_5.
      PERFORM F_UPDATE_ZTPP0371 USING  W_DATA-AUFNR_N  "指図番号
                                       W_DATA-BUDAT    "伝票の転記日付
                                       W_DATA-SEQ      "カウンタ
                                       W_DATA-ZSECNO   "連続番号
                                       W_DATA-ZDELKB   "取消区分
                                CHANGING  W_ZSTATUS .  "処理ステータス
      W_ZSTATUS  = CNS_5.
      PERFORM F_UPDATE_ZTPP0372 USING  W_DATA-AUFNR_N  "指図番号
                                       W_DATA-BUDAT    "伝票の転記日付
                                       W_DATA-SEQ      "カウンタ
                                       W_DATA-ZSECNO   "連続番号
                                       W_DATA-ZDELKB   "取消区分
                             CHANGING  W_ZSTATUS .     "処理ステータス
    ENDIF.
  ENDLOOP.
  CLEAR   W_DATA.
ENDFORM.                    " F_BAPI_GOODSMOVEMENT
*&---------------------------------------------------------------------*
*&      Form  BDC_CO02_CHANGE_FLAG
*&---------------------------------------------------------------------*
*     Get DB from 指図明細
*----------------------------------------------------------------------*
FORM BDC_CO02_CHANGE_FLAG .
**指図明細
  CLEAR W_ELIKZ.
  SELECT SINGLE ELIKZ INTO W_ELIKZ FROM AFPO
                     WHERE AUFNR = W_DATA-AUFNR_N "指図番号
                     AND   POSNR = CNS_0001       "明細番号 (販売管理伝票)
                     AND   ELIKZ = SPACE.         "納入完了" 区分
  IF  SY-SUBRC <> 0.
*    RUN BDC C002
*    --- (変更 第一画面) ---*
    PERFORM BDC_DYNPRO USING 'SAPLCOKO1'    '0110'.
*         指図番号
    PERFORM BDC_FIELD  USING 'CAUFVD-AUFNR' W_DATA-AUFNR_N.  "指図番号
*         ボタン:エンタ
    PERFORM BDC_FIELD  USING 'BDC_OKCODE'   '/00'.
*    --- (指図変更 ヘッダ) ---*
    PERFORM BDC_DYNPRO USING 'SAPLCOKO1'    '0115'.
*         タグ:入庫
    PERFORM BDC_FIELD  USING 'BDC_OKCODE'   '=KOWE'.
*    --- (指図登録 ヘッダ(入庫タグ)) ---*
    PERFORM BDC_DYNPRO USING 'SAPLCOKO1'    '0115'.
*         納入完了区分
    PERFORM BDC_FIELD  USING 'AFPOD-ELIKZ'  ' '.
*         ボタン:保存
    PERFORM BDC_FIELD  USING 'BDC_OKCODE'   '=BU'.
*        トランザクションコール(CO02)
    CALL TRANSACTION 'CO02' USING T_BDCDATA
                            MODE   W_MODE
                            UPDATE W_UPDATE.
    IF SY-SUBRC = 0.
*  Post goods movements with MB_CREATE_GOODS_MOVEMENT
      PERFORM BAPI_GOODSMVT_CREATE.
    ENDIF.
  ELSE.
*  Post goods movements with MB_CREATE_GOODS_MOVEMENT
    PERFORM BAPI_GOODSMVT_CREATE.
  ENDIF.
  CLEAR:  T_BDCDATA.
  REFRESH T_BDCDATA.
ENDFORM.                    " BDC_CO02_CHANGE_FLAG
*&---------------------------------------------------------------------*
*&      Form  BAPI_GOODSMVT_CREATE
*&---------------------------------------------------------------------*
*     共通テーブル
*----------------------------------------------------------------------*
FORM BAPI_GOODSMVT_CREATE .
*共通テーブル
  DATA: W_ZZDATA1 TYPE ZNN0001-ZZDATA1,                     "文字項目長 = 10
        WL_DATSTR  TYPE CHAR10.                             " 日付入力用テキスト項目
** GET DB 共通テーブル
  SELECT SINGLE ZZDATA1 INTO W_ZZDATA1   FROM ZNN0001
                     WHERE ZZKEY1 = SY-REPID                "長さ 16 の項目
                     AND   ZZKEY2 = CNS_BWART               "移動タイプ (在庫管理)
                     AND   ZZKEY3 = CNS_1.                  "文字項目長 = 10
  WRITE: W_DATA-BUDAT TO WL_DATSTR. "伝票の転記日付
  W_HEADER-PSTNG_DATE = WL_DATSTR.  "伝票の転記日付
  W_HEADER-DOC_DATE   = WL_DATSTR.  "伝票の伝票日
*        GOODSMVT_HEADER
  W_CODE-GM_CODE    =  CNS_02. "BAPI 在庫移動トランザクションのコード割当
*** T_ITEM
  CONSTANTS: LCNS_0004 TYPE CHAR4 VALUE  '0004',  "移動理由
             LCNS_F      TYPE CHAR1 VALUE  'F'.   "移動区分
  W_ITEM-MOVE_TYPE  =  W_ZZDATA1.            "転送ロットの評価タイプ
  W_ITEM-MOVE_REAS  =  LCNS_0004.            "移動理由
  W_ITEM-MVT_IND    =  LCNS_F.               "移動区分
  W_ITEM-ORDERID    =  W_DATA-AUFNR_W.       "指図番号
  W_ITEM-STGE_LOC   =  W_DATA-LGORT.         "保管場所
  W_ITEM-BATCH      =  W_DATA-BLOCK.         "ロット番号
  W_ITEM-ENTRY_QNT  =  W_DATA-ZNETQTY1.      "入力単位での数量
  W_ITEM-ENTRY_UOM  =  W_DATA-MEINS.         "入力単位
  W_ITEM-VAL_TYPE   =  W_DATA-ZZBWTAR.       " 評価タイプ
  APPEND W_ITEM TO T_ITEM.
  CLEAR:W_ITEM.
*  Post goods movements with MB_CREATE_GOODS_MOVEMENT
  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
        EXPORTING
          GOODSMVT_HEADER               = W_HEADER "入出庫伝票ヘッダデータ
          GOODSMVT_CODE                 = W_CODE   "在庫移動に対するコードのトランザクションへの割当
          TESTRUN                       = SPACE    "在庫移動シミュレーション
*           GOODSMVT_REF_EWM            =
       IMPORTING
*           GOODSMVT_HEADRET            =
         MATERIALDOCUMENT               = W_MBLNR    "出庫伝票番号
         MATDOCUMENTYEAR                = W_GJAHR
        TABLES
          GOODSMVT_ITEM                 = T_ITEM     "通信構造: 入出庫伝票明細登録
*           GOODSMVT_SERIALNUMBER       =
          RETURN                        =  T_RETURN  "リターンメッセージ
*           GOODSMVT_SERV_PART_DATA     =
*           EXTENSIONIN                 =
.
  READ TABLE T_RETURN INTO W_RETURN INDEX 1.
  IF  W_RETURN-TYPE = CNS_S.
*BAPI で外部 COMMIT 実行
    PERFORM BAPI_TRANSACTION_COMMIT.
    W_ZSTATUS = CNS_5.
    PERFORM F_UPDATE_ZTPP0371 USING  W_DATA-AUFNR_N  "指図番号
                                     W_DATA-BUDAT    "伝票の転記日付
                                     W_DATA-SEQ      "カウンタ
                                     W_DATA-ZSECNO   "カウンタ
                                     W_DATA-ZDELKB   "連続番号
                           CHANGING  W_ZSTATUS.      "処理ステータス
    W_ZSTATUS = CNS_5.
    UPDATE ZTPP0372 SET ZSTATUS = W_ZSTATUS                    "処理ステータス
                        MBLNR1  = W_MBLNR                      "入出庫伝票年
                        MJAHR1  = W_GJAHR                      "入出庫伝票年
                        ZEILE1  = CNS_0001                     "入出庫伝票の明細
                             WHERE  AUFNR_N  = W_DATA-AUFNR_N  "指図番号
                               AND  BUDAT    = W_DATA-BUDAT    "伝票の転記日付
                               AND  SEQ      = W_DATA-SEQ      "カウンタ
                               AND  ZSECNO   = W_DATA-ZSECNO   "カウンタ
                               AND  ZDELKB   = W_DATA-ZDELKB.  "連続番号
    COMMIT WORK.
    W_DATA-ZSTATUS = CNS_5.
    W_DATA-ERROR  =  W_RETURN-MESSAGE.                         "処理ステータス
    MODIFY T_DATA FROM W_DATA TRANSPORTING ZSTATUS ERROR .
    CLEAR T_RETURN.
  ELSE.
* ****BAPI ERROR LOG
    W_ZSTATUS  = CNS_4.
    PERFORM F_BAPIERROR_LOG_ZTPP0371
                          USING   W_DATA-AUFNR_N   "指図番号
                                  W_DATA-BUDAT     "伝票の転記日付
                                  W_DATA-SEQ       "カウンタ
                                  W_DATA-ZSECNO    "カウンタ
                                  W_DATA-ZDELKB    "連続番号
                                  W_RETURN-MESSAGE "メッセージ変数
                          CHANGING  W_ZSTATUS.     "処理ステータス
    W_ZSTATUS  = CNS_2.
    PERFORM F_BAPIERROR_LOG_ZTPP0372
                          USING   W_DATA-AUFNR_N   "指図番号
                                  W_DATA-BUDAT     "伝票の転記日付
                                  W_DATA-SEQ       "カウンタ
                                  W_DATA-ZSECNO    "カウンタ
                                  W_DATA-ZDELKB    "連続番号
                                  W_RETURN-MESSAGE "メッセージ変数
                           CHANGING  W_ZSTATUS.    "処理ステータス
    W_DATA-ZSTATUS = CNS_4.
    W_DATA-ERROR  =  W_RETURN-MESSAGE.             "処理ステータス
    MODIFY T_DATA FROM W_DATA TRANSPORTING ZSTATUS ERROR .
    CLEAR T_RETURN.
  ENDIF.
ENDFORM.                    " BAPI_GOODSMVT_CREATE
*  &---------------------------------------------------------------------*
*  &      Form  BDC_DYNPRO
*  &---------------------------------------------------------------------*
*         プログラム名&画面番号セット
*  ----------------------------------------------------------------------*
*        --> PROGRAM  プログラム名
*        --> DYNPRO   画面番号
*  ----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM    TYPE ANY            " プログラム名
                      DYNPRO     TYPE ANY.           " 画面番号
  CLEAR T_BDCDATA.
  T_BDCDATA-PROGRAM  = PROGRAM.                      "BDC モジュールプール
  T_BDCDATA-DYNPRO   = DYNPRO.                       "BDC Dynpro 番号
  T_BDCDATA-DYNBEGIN = CNS_X.                        "BDC Dynpro 開始
  APPEND T_BDCDATA.
ENDFORM.                               " BDC_DYNPRO
*  &---------------------------------------------------------------------*
*  &      Form  BDC_FIELD
*  &---------------------------------------------------------------------*
*         項目値セット
*  ----------------------------------------------------------------------*
*        --> FNAM  Dynpro 項目
*        --> FVAL  登録値
*  ----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM  TYPE ANY                  " Dynpro 項目
                     FVAL  TYPE ANY.                 " 登録値
  CLEAR T_BDCDATA.
  T_BDCDATA-FNAM = FNAM.                             "項目名
  T_BDCDATA-FVAL = FVAL.                             "BDC 項目値
  APPEND T_BDCDATA.
ENDFORM.                               " BDC_FIELD
*&---------------------------------------------------------------------*
*&      Form  CANCEL_GOODSMOVEMENT
*&---------------------------------------------------------------------*
*        CANCEL_GOODSMOVEMENT
*----------------------------------------------------------------------*
FORM CANCEL_GOODSMOVEMENT .
  DATA: LW_MBLNR   TYPE BAPI2017_GM_HEAD_02-MAT_DOC,    "入出庫伝票番号
        LW_MJAHR   TYPE BAPI2017_GM_HEAD_02-DOC_YEAR,   "入出庫伝票年
        LW_DATE    TYPE BAPI2017_GM_HEAD_02-PSTNG_DATE, "伝票の転記日付
*MMIM: 入出庫転記用の一般 FM 出力構造
        LW_EXPORT  TYPE BAPI2017_GM_HEAD_RET.
  LW_MBLNR      = W_DATA-MBLNR1.                        "入出庫伝票番号
  LW_MJAHR      = W_DATA-MJAHR1.                        "入出庫伝票年
  LW_DATE       = W_DATA-BUDAT.                         "伝票の転記日付
*Reverse Goods Movements with MB_CANCEL_GOODS_MOVEMENT
  CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'
     EXPORTING
       MATERIALDOCUMENT          = LW_MBLNR             "入出庫伝票番号
       MATDOCUMENTYEAR           = LW_MJAHR             "入出庫伝票年
       GOODSMVT_PSTNG_DATE       = LW_DATE              "伝票の転記日付
*         GOODSMVT_PR_UNAME      =
     IMPORTING
       GOODSMVT_HEADRET          = LW_EXPORT           " 入出庫転記用の一般 FM 出力構造
     TABLES
       RETURN                    = T_RETURN            "リターンメッセージ
*         GOODSMVT_MATDOCITEM    =
             .
*  Read リターンメッセージ
  READ TABLE T_RETURN INTO W_RETURN INDEX 1.
  IF  W_RETURN-TYPE = CNS_S.
*BAPI で外部 COMMIT 実行
    PERFORM BAPI_TRANSACTION_COMMIT.
    W_ZSTATUS = CNS_5.
    PERFORM F_UPDATE_ZTPP0371 USING  W_DATA-AUFNR_N   "指図番号
                                     W_DATA-BUDAT     "伝票の転記日付
                                     W_DATA-SEQ       "カウンタ
                                     W_DATA-ZSECNO    "カウンタ
                                     W_DATA-ZDELKB    "連続番号
                           CHANGING  W_ZSTATUS.       "処理ステータス
    W_ZSTATUS = CNS_5.
    UPDATE ZTPP0372 SET ZSTATUS = W_ZSTATUS            "処理ステータス
                        MBLNR2  = LW_EXPORT-MAT_DOC    "入出庫伝票番号
                        MJAHR2  = LW_EXPORT-DOC_YEAR   "入出庫伝票年
                        ZEILE2  = CNS_0001
                             WHERE  AUFNR_N  = W_DATA-AUFNR_N  "指図番号
                               AND  BUDAT    = W_DATA-BUDAT    "伝票の転記日付
                               AND  SEQ      = W_DATA-SEQ      "カウンタ
                               AND  ZSECNO   = W_DATA-ZSECNO   "カウンタ
                               AND  ZDELKB   = W_DATA-ZDELKB.  "連続番号
    IF SY-SUBRC = 0.
      COMMIT WORK.
    ENDIF.
    W_DATA-ZSTATUS = CNS_5.
    W_DATA-ERROR  =  W_RETURN-MESSAGE. "メッセージ変数
    MODIFY T_DATA FROM W_DATA TRANSPORTING ZSTATUS ERROR .
  ELSE.
***   ERROR LOG
    W_ZSTATUS  = CNS_2.
    PERFORM F_BAPIERROR_LOG_ZTPP0371
                          USING   W_DATA-AUFNR_N               "指図番号
                                  W_DATA-BUDAT                 "伝票の転記日付
                                  W_DATA-SEQ                   "カウンタ
                                  W_DATA-ZSECNO                "カウンタ
                                  W_DATA-ZDELKB                "連続番号
                                  W_RETURN-MESSAGE             "メッセージ変数
                           CHANGING  W_ZSTATUS .               "処理ステータス
    W_ZSTATUS  = CNS_2.
    PERFORM F_BAPIERROR_LOG_ZTPP0372
                          USING   W_DATA-AUFNR_N              "指図番号
                                  W_DATA-BUDAT                "伝票の転記日付
                                  W_DATA-SEQ                  "カウンタ
                                  W_DATA-ZSECNO               "カウンタ
                                  W_DATA-ZDELKB               "処理ステータス
                                  W_RETURN-MESSAGE            "メッセージ変数
                           CHANGING  W_ZSTATUS .              "処理ステータス
    W_DATA-ZSTATUS = CNS_4.
    W_DATA-ERROR  =  W_RETURN-MESSAGE. "メッセージ変数
    MODIFY T_DATA FROM W_DATA TRANSPORTING ZSTATUS ERROR .
  ENDIF.
ENDFORM.                    " CANCEL_GOODSMOVEMENT
*&---------------------------------------------------------------------*
*&      Form  F_UPDATE_ZTPP0371
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_W_DATA_AUFNR_N        "指図番号
*      -->P_W_DATA_BUDAT          "伝票の転記日付
*      -->P_W_DATA_SEQ            "カウンタ
*      -->P_W_DATA_ZSECNO         "カウンタ
*      -->P_W_DATA_ZDELKB         "処理ステータス
*----------------------------------------------------------------------*
FORM F_UPDATE_ZTPP0371  USING    P_AUFNR_N TYPE ANY    "指図番号
                                 P_BUDAT   TYPE ANY    "伝票の転記日付
                                 P_SEQ     TYPE ANY    "カウンタ
                                 P_ZSECNO  TYPE ANY    "カウンタ
                                 P_ZDELKB  TYPE ANY    "処理ステータス
                        CHANGING P_ZSTATUS TYPE ANY.   "処理ステータス
  UPDATE ZTPP0371 SET ZSTATUS = P_ZSTATUS              "処理ステータス
               WHERE   AUFNR_N   = P_AUFNR_N           "指図番号
                 AND     BUDAT   = P_BUDAT             "伝票の転記日付
                 AND     SEQ     = P_SEQ               "カウンタ
                 AND     ZSECNO  = P_ZSECNO            "カウンタ
                 AND     ZDELKB  = P_ZDELKB.           "処理ステータス
  IF SY-SUBRC = 0.
    COMMIT WORK.
  ENDIF.
ENDFORM.                    " F_UPDATE_ZTPP0371
*&---------------------------------------------------------------------*
*&      Form  F_UPDATE_ZTPP0372
*----------------------------------------------------------------------*
*      -->P_W_DATA_AUFNR_N        "指図番号
*      -->P_W_DATA_BUDAT          "伝票の転記日付
*      -->P_W_DATA_SEQ            "カウンタ
*      -->P_W_DATA_ZSECNO         "カウンタ
*      -->P_W_DATA_ZDELKB         "処理ステータス
*----------------------------------------------------------------------*
FORM F_UPDATE_ZTPP0372     USING    P_AUFNR_N TYPE ANY   "指図番号
                                    P_BUDAT   TYPE ANY   "伝票の転記日付
                                    P_SEQ     TYPE ANY   "カウンタ
                                    P_ZSECNO  TYPE ANY   "カウンタ
                                    P_ZDELKB  TYPE ANY   "処理ステータス
                           CHANGING P_ZSTATUS TYPE ANY.  "処理ステータス
  UPDATE ZTPP0372 SET ZSTATUS = P_ZSTATUS                "処理ステータス
               WHERE     AUFNR_N = P_AUFNR_N             "指図番号
                 AND     BUDAT   = P_BUDAT               "伝票の転記日付
                 AND     SEQ     = P_SEQ                 "カウンタ
                 AND     ZSECNO  = P_ZSECNO              "カウンタ
                 AND     ZDELKB  = P_ZDELKB.             "処理ステータス
  IF SY-SUBRC = 0.
    COMMIT WORK.
  ENDIF.
ENDFORM.                    " F_UPDATE_ZTPP0372
*&---------------------------------------------------------------------*
*&      Form  F_BAPIERROR_LOG_ZTPP0371
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_W_DATA_AUFNR_N         "指図番号
*      -->P_W_DATA_BUDAT           "伝票の転記日付
*      -->P_W_DATA_SEQ             "カウンタ
*      -->P_W_DATA_ZSECNO          "カウンタ
*      -->P_W_DATA_ZDELKB          "処理ステータス
*      -->P_W_RETURN_MESSAGE       "メッセージ変数
*      <--P_W_ZSTATUS              "処理ステータス
*----------------------------------------------------------------------*
FORM F_BAPIERROR_LOG_ZTPP0371  USING    P_AUFNR_N TYPE ANY  "指図番号
                                        P_BUDAT   TYPE ANY  "伝票の転記日付
                                        P_SEQ     TYPE ANY  "カウンタ
                                        P_ZSECNO  TYPE ANY  "カウンタ
                                        P_ZDELKB  TYPE ANY   "処理ステータス
                                        P_MESSAGE TYPE ANY   "メッセージ変数
                               CHANGING P_ZSTATUS TYPE ANY.  "処理ステータス
  UPDATE ZTPP0371 SET ZSTATUS =  P_ZSTATUS                   "処理ステータス
                      ERTXT   =  P_MESSAGE                   "メッセージ変数
            WHERE   AUFNR_N   =  P_AUFNR_N                    "指図番号
              AND     BUDAT   =  P_BUDAT                      "伝票の転記日付
              AND     SEQ     =  P_SEQ                        "カウンタ
              AND     ZSECNO  =  P_ZSECNO                     "処理ステータス
              AND     ZDELKB  =  P_ZDELKB.                    "処理ステータス
  IF SY-SUBRC = 0.
    COMMIT WORK.
  ENDIF.
ENDFORM.                    " F_BAPIERROR_LOG_ZTPP0371
*&---------------------------------------------------------------------*
*&      Form  F_BAPIERROR_LOG_ZTPP0372
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_W_DATA_AUFNR_N  text   "指図番号
*      -->P_W_DATA_BUDAT  text     "伝票の転記日付
*      -->P_W_DATA_SEQ  text       "カウンタ
*      -->P_W_DATA_ZSECNO  text    "カウンタ
*      -->P_W_DATA_ZDELKB  text    "処理ステータス
*      -->P_W_RETURN_MESSAGE  text "メッセージ変数
*      <--P_W_ZSTATUS  text        "処理ステータス
*----------------------------------------------------------------------*
FORM F_BAPIERROR_LOG_ZTPP0372  USING    P_AUFNR_N TYPE ANY    "指図番号
                                        P_BUDAT   TYPE ANY    "伝票の転記日付
                                        P_SEQ     TYPE ANY    "カウンタ
                                        P_ZSECNO  TYPE ANY    "カウンタ
                                        P_ZDELKB  TYPE ANY    "処理ステータス
                                        P_MESSAGE TYPE ANY    "メッセージ変数
                               CHANGING P_ZSTATUS TYPE ANY.   "処理ステータ
  UPDATE ZTPP0372 SET ZSTATUS =  P_ZSTATUS                    "処理ステータ
                      ERTXT   =  P_MESSAGE                    "メッセージ変数
                 WHERE   AUFNR_N   = P_AUFNR_N                "指図番号
                   AND     BUDAT   = P_BUDAT                  "伝票の転記日付
                   AND     SEQ     = P_SEQ                    "カウンタ
                   AND     ZSECNO  = P_ZSECNO                 "カウンタ
                   AND     ZDELKB  = P_ZDELKB.                "処理ステータス
  IF SY-SUBRC = 0.
    COMMIT WORK.
  ENDIF.
ENDFORM.                    " F_BAPIERROR_LOG_ZTPP0372
*&---------------------------------------------------------------------*
*&      Form  WRITE_OUTPUT_DATA
*&---------------------------------------------------------------------*
*       WRITE_OUTPUT_DATA
*----------------------------------------------------------------------*
FORM WRITE_OUTPUT_DATA .
  WRITE: /1 SY-VLINE,
          2(14) W_DATA-AUFNR_N,   "指図番号(CCNBC)
          16(1) SY-VLINE,
          17(10) W_DATA-BUDAT,    "製造日付(CCWJ)
          27(1) SY-VLINE,
          28(4) W_DATA-AUFNR_W,   "指図番号(CCWJ)
          32(1) SY-VLINE,
          33(4) W_DATA-ZSECNO,    "カウンタ
          37(1) SY-VLINE,
          38(18) W_DATA-AUFNR_W,  "指図番号
          56(1) SY-VLINE,
          57(7) W_DATA-ZSTATUS,   "処理STS
          64(1) SY-VLINE,
          65(8) W_DATA-WERKS,     "プラント
          73(1) SY-VLINE,
          74(12) W_DATA-MATNR,    "品目コード
          86(1) SY-VLINE,
          87(40) W_DATA-MAKTX,    "品目テキスト
          127(1) SY-VLINE,
          128(15) W_DATA-BMENGE UNIT W_DATA-BMEINS,  "基本数量
          143(1) SY-VLINE,
          144(12) W_DATA-BMEINS,  "基本数量単位
          156(1) SY-VLINE,
          157(10) W_DATA-GSTRP,  "指図開始日
          167(1) SY-VLINE,
          168(80) W_DATA-ERROR,  "ERROR RECORD
          248(1) SY-VLINE.
  ULINE /1(247).
  CLEAR LW_FLAG.
ENDFORM.                    " WRITE_OUTPUT_DATA
*&---------------------------------------------------------------------*
*&      Form  BAPI_TRANSACTION_COMMIT
*&---------------------------------------------------------------------*
*       TRANSACTION_COMMIT
*----------------------------------------------------------------------*
FORM BAPI_TRANSACTION_COMMIT .
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
         WAIT          = CNS_X
*          IMPORTING
*            RETURN        =
            .
ENDFORM.                    " BAPI_TRANSACTION_COMMIT
  • No labels