公司间交易开票bapi

REPORT ZFIR025  .
TABLES: LIPS,LIKP ,VBRK ,SSCRFIELDS.
TYPE-POOLS: SLIS .
INCLUDE <ICON>.
*table
DATA: BEGIN OF GT_DATA OCCURS 0  ,
      SEL(1)                      ,
      LIGHT LIKE ICON-ID          ,
      FKDAT LIKE VBRK-FKDAT       , "出具发票日期
      VBELN LIKE LIKP-VBELN       ,
      POSNR LIKE LIPS-POSNR       ,
      VBELN_BL LIKE VBRP-VBELN    ,
      POSNR_BL LIKE VBRP-POSNR    ,
      VTWEG LIKE LIPS-VTWEG       ,
      SPART LIKE LIPS-SPART       ,
      VKOIV LIKE LIKP-VKOIV       ,
      VTEXT LIKE TVKOT-VTEXT      ,
      KUNIV LIKE LIKP-KUNIV       ,
      NAME1 LIKE KNA1-NAME1       ,
      MATNR LIKE LIPS-MATNR       ,
      MAKTX LIKE MAKT-MAKTX       ,
      LFIMG LIKE LIPS-LFIMG       , "交货数量
      VRKME LIKE LIPS-VRKME       , "交货单位
      FKDAT_N LIKE VBRK-FKDAT     , "设置后的出具发票日期
      VBTYP LIKE LIKP-VBTYP       , "凭证类别
      MESSAGE(100)               ,  "错误消息
      E_FLAG(1)                  ,  "错误标记
      S_FLAG(1)                  ,  "成功处理标记
      END OF GT_DATA .
DATA: GS_DATA LIKE GT_DATA .
*-已经处理的采购订单
DATA: G_SUCESS .
*bdc global data
DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

*ALV 变量
DATA: IT_FIELDS_ITEM TYPE LVC_T_FCAT.
DATA: GS_LAYOUT_ITEM TYPE LVC_S_LAYO.
DATA: GS_VARIANT  LIKE  DISVARIANT .

DATA:
    GT_EVENTS      TYPE SLIS_T_EVENT,
    GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
    G_STATUS_SET   TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',
    G_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND',
    G_TOP_OF_PAGE  TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
    G_TOP_OF_LIST  TYPE SLIS_FORMNAME VALUE 'TOP_OF_LIST',
    G_END_OF_LIST  TYPE SLIS_FORMNAME VALUE 'END_OF_LIST'.
*BAPI数据
**-header line
DATA: GS_HEADER LIKE BAPI2017_GM_HEAD_01 .
*-- item table
DATA: GT_ITEM TYPE TABLE OF BAPI2017_GM_ITEM_CREATE   ,
      GS_ITEM LIKE LINE OF GT_ITEM .

*-code
DATA: GS_CODE LIKE BAPI2017_GM_CODE .

*-export data
DATA: GS_DOCUMENT LIKE BAPI2017_GM_HEAD_RET  ,
      GS_DOCUMENT2 LIKE BAPI2017_GM_HEAD_RET ,
      GS_RETURN2  LIKE BAPIRET2              .
*-return table
DATA: GT_MESSAGE LIKE BAPIRET2 OCCURS 0  ,
      GS_MESSAGE LIKE LINE OF GT_MESSAGE .

*其他变量
*--错误标记
DATA: G_ERROR(1) TYPE C ,
      G_MESSAGE(100)    .
*询问标记
DATA: GV_ANSWER .
CONSTANTS: C_BUDAT_BUTTON(22) VALUE '@1U@设置发票日期' .
DATA: GV_BUDAT LIKE SY-DATUM ,
      GV_BUDAT_BUTTON(22) VALUE C_BUDAT_BUTTON .
*DATA: GT_TVKO LIKE TVKO OCCURS 0 WITH HEADER LINE  .
*====================================================================*
*  选择屏幕                                                           *
*====================================================================*
SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : SO_VBELN FOR LIPS-VBELN , "交货单号
                 SO_BILLN FOR VBRK-VBELN  MODIF ID BIL, "发票号
                 SO_VKOIV FOR LIKP-VKOIV , "销售组织
                 SO_BUDAT FOR LIKP-FKDAT MODIF ID DAY  .

SELECTION-SCREEN :SKIP 1 .
PARAMETERS: P_R1 RADIOBUTTON GROUP GP1 DEFAULT 'X'
            USER-COMMAND X, "开票处理
            P_R2 RADIOBUTTON GROUP GP1 . "未过账单据处理

SELECTION-SCREEN END OF BLOCK BLOCK1 .
*====================================================================*
* at selection-screen                                         *
*====================================================================*
AT SELECTION-SCREEN .
  CASE SSCRFIELDS-UCOMM.
    WHEN 'X'.
      IF P_R2 = 'X'.
        CLEAR: SO_BUDAT[] ,SO_BUDAT ,
               SO_VBELN[] ,SO_BILLN ,
               SO_VKOIV[] ,SO_VKOIV .
      ELSEIF P_R1 = 'X'.
        CLEAR: SO_BUDAT[] ,SO_BUDAT ,
               SO_VBELN[] ,SO_BILLN ,
               SO_VKOIV[] ,SO_VKOIV .
      ENDIF .
  ENDCASE.
*====================================================================*
* at selection-screen output                                         *
*====================================================================*
AT SELECTION-SCREEN OUTPUT .
  LOOP AT SCREEN .
    IF P_R2 = 'X' .
      IF SCREEN-GROUP1 = 'BIL'.
        SCREEN-INVISIBLE = 0.
      ELSEIF SCREEN-GROUP1 = 'DAY'.
        SCREEN-INVISIBLE = 1.
        SCREEN-INPUT = 0.
      ENDIF.
    ELSE.
      IF SCREEN-GROUP1 = 'BIL'.
        SCREEN-INVISIBLE = 1.
        SCREEN-INPUT = 0.
      ELSEIF SCREEN-GROUP1 = 'DAY'.
        SCREEN-INVISIBLE = 0.
        SCREEN-INPUT = 1.
      ENDIF.
    ENDIF.
    MODIFY   SCREEN .
  ENDLOOP .
*====================================================================*
*  Start-of-selection                                                *
*====================================================================*
START-OF-SELECTION.
  CASE 'X'.
    WHEN P_R1 .
      PERFORM GET_DATA1 .
    WHEN P_R2 .
      PERFORM GET_DATA2 .
  ENDCASE.
*<< add 20130414 增加权限检查
*权限检查
*  SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_TVKO
*    FROM TVKO WHERE VKORG IN SO_VKOIV .
  LOOP AT GT_DATA .
    AUTHORITY-CHECK OBJECT 'V_VBRK_VKO'
             ID 'VKORG' FIELD GT_DATA-VKOIV .
*             ID 'ACTVT' FIELD '__________'.
    IF SY-SUBRC <> 0.
      DELETE GT_DATA .
    ENDIF.
  ENDLOOP .
*>>

  SORT GT_DATA BY VKOIV FKDAT VBELN POSNR .
*====================================================================*
*  end-of-selection                                                  *
*====================================================================*
END-OF-SELECTION.
  IF NOT GT_DATA[] IS INITIAL .
    PERFORM DATA_DISPLAY.
  ELSE.
    MESSAGE  '没有需要处理的数据' TYPE 'S' DISPLAY LIKE 'E' .
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
FORM GET_DATA1 .
*-采购订单那行项目
  DATA: BEGIN OF LT_EKPO OCCURS 0 ,
        EBELN LIKE EKPO-EBELN      , "采购订单那编号
        EBELP LIKE EKPO-EBELP      , "采购订单行项目
        ELIKZ LIKE EKPO-ELIKZ      , "交货已完成
        END OF LT_EKPO .
*-采购订单物料凭证
  DATA: BEGIN OF LT_EKBE OCCURS 0  ,
         BELNR LIKE EKBE-BELNR      ,
         GJAHR LIKE EKBE-GJAHR      ,
         BUZEI LIKE EKBE-BUZEI      ,
         EBELN LIKE EKBE-EBELN      ,
         EBELP LIKE EKBE-EBELP      ,
         MATNR LIKE EKBE-MATNR      ,
         CHARG LIKE EKBE-CHARG      ,
         MENGE LIKE EKBE-MENGE      ,
         SHKZG LIKE EKBE-SHKZG      ,
         BWART LIKE EKBE-BWART      ,
         VBELN_ST TYPE VBELN_VL,
         VBELP_ST TYPE POSNR_VL,
        END OF  LT_EKBE .
*-合计
  DATA: BEGIN OF LT_EKBE_MOD OCCURS 0    ,
         VBELN_ST TYPE POSNR_VL,
         VBELP_ST TYPE POSNR_VL,
         MENGE LIKE EKBE-MENGE            ,
        END OF  LT_EKBE_MOD              .
  DATA: LV_EBELN LIKE EKKO-EBELN .
  DATA: LV_LIFNR LIKE LFA1-LIFNR .
  DATA: LV_WERKS LIKE T001L-WERKS .

  SELECT  A~BELNR A~BUZEI  A~GJAHR A~BUZEI A~BWART
          A~EBELN A~EBELP A~MATNR A~CHARG A~MENGE A~SHKZG
          A~SHKZG
*    A~VBELN_ST  A~VBELP_ST
    INTO CORRESPONDING FIELDS OF TABLE LT_EKBE
    FROM EKBE AS A INNER JOIN EKPO AS B
    ON A~EBELN = B~EBELN
    AND A~EBELP = B~EBELP
    WHERE  A~BWART IN ('101','102','122','Z19','Z20')
    AND A~VGABE  in ('1','6')
    AND B~PSTYP = '0'.
*    AND A~VBELN_ST IN SO_VBELN
*    AND A~VBELN_ST NE SPACE .
  LOOP AT LT_EKBE .
    CLEAR: LT_EKBE_MOD .
    MOVE-CORRESPONDING LT_EKBE TO  LT_EKBE_MOD .
    CASE LT_EKBE-BWART .
      WHEN '102' OR '122' OR 'Z20'.
        LT_EKBE_MOD-MENGE =  LT_EKBE_MOD-MENGE * ( -1 ) .
    ENDCASE.
    COLLECT LT_EKBE_MOD .
  ENDLOOP.
  SORT LT_EKBE_MOD BY VBELN_ST VBELP_ST .
  IF NOT LT_EKBE[] IS INITIAL .
    SELECT  A~KUNIV A~FKDAT A~VBTYP A~FKDAT AS FKDAT_N B~VBELN B~POSNR
            A~VKOIV B~MATNR B~LFIMG B~VRKME B~VTWEG
            B~SPART  C~NAME1 D~MAKTX
      INTO CORRESPONDING FIELDS OF TABLE GT_DATA
      FROM LIKP AS A INNER JOIN LIPS AS B
      ON A~VBELN = B~VBELN
      INNER JOIN KNA1 AS C
      ON A~KUNIV = C~KUNNR
      INNER JOIN  VBUP AS E
      ON B~VBELN = E~VBELN
      AND B~POSNR = E~POSNR
      LEFT OUTER JOIN MAKT AS D
    ON B~MATNR = D~MATNR
    AND   D~SPRAS = '1'
      FOR ALL ENTRIES IN LT_EKBE
    WHERE B~VBELN = LT_EKBE-VBELN_ST
      AND B~POSNR = LT_EKBE-VBELP_ST
      AND A~VKOIV IN SO_VKOIV
      AND E~FKIVP IN ('A','B')
      AND A~FKDAT IN SO_BUDAT .
  ENDIF.
  LOOP AT GT_DATA .
    CLEAR:LT_EKBE_MOD .
    READ TABLE LT_EKBE_MOD WITH KEY VBELN_ST = GT_DATA-VBELN
                                    VBELP_ST = GT_DATA-POSNR
                                    BINARY SEARCH .
    GT_DATA-LFIMG = GT_DATA-LFIMG - LT_EKBE_MOD-MENGE .
    IF GT_DATA-LFIMG <> 0 .
      DELETE GT_DATA .
    ENDIF.
  ENDLOOP .
  LOOP AT GT_DATA .
    SELECT SINGLE VTEXT INTO GT_DATA-VTEXT
      FROM  TVKOT WHERE VKORG = GT_DATA-VKOIV
      AND SPRAS = '1'.
    MODIFY GT_DATA .
  ENDLOOP .
ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  DATA_PROCESS
*&---------------------------------------------------------------------*
FORM DATA_DISPLAY .
  DATA: LV_REPID LIKE SY-REPID.
  DATA: LT_FIELDS TYPE SLIS_T_FIELDCAT_ALV.
  DATA: WA_FIELDS TYPE LINE OF SLIS_T_FIELDCAT_ALV.
  DATA: LS_LAYOUT TYPE SLIS_LAYOUT_ALV.



  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = SY-CPROG
      I_INTERNAL_TABNAME     = 'GT_DATA'
      I_CLIENT_NEVER_DISPLAY = 'X'
      I_INCLNAME             = 'ZFIR025'
    CHANGING
      CT_FIELDCAT            = LT_FIELDS
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
  IF SY-SUBRC <> 0.

  ENDIF.
  DEFINE  SET_FIELDS_TEXT.
    WA_FIELDS-SELTEXT_L = &1.
    WA_FIELDS-SELTEXT_M = &1.
    WA_FIELDS-SELTEXT_S = &1.
    WA_FIELDS-DDICTXT   = 'L' .
    WA_FIELDS-REPTEXT_DDIC = &1.
    WA_FIELDS-EDIT         = &2.
  END-OF-DEFINITION.
  LOOP AT LT_FIELDS INTO WA_FIELDS.

    CASE WA_FIELDS-FIELDNAME.
      WHEN 'SEL'.
        WA_FIELDS-NO_OUT = 'X' .
      WHEN 'LIGHT'.
        SET_FIELDS_TEXT '信号灯' ''.
        WA_FIELDS-ICON = 'X'       .
      WHEN 'EBELN'.
        SET_FIELDS_TEXT '交货单号       .' ''.
*      WHEN 'EBELP'.
*        SET_FIELDS_TEXT '交货行项目'  ''.
      WHEN 'VBELN_BL'.
        SET_FIELDS_TEXT '发票号         .' ''.
*      WHEN 'POSNR_BL'.
*        SET_FIELDS_TEXT '发票行项目'    ''.
      WHEN 'FKDAT'.
        SET_FIELDS_TEXT '默认出具发票日期.' ''.
      WHEN 'VKOIV'.
        SET_FIELDS_TEXT '销售组织'    ''.
      WHEN 'VTWEG' OR 'SPART'.
        WA_FIELDS-NO_OUT = 'X' .
      WHEN 'KUNIV'.
        SET_FIELDS_TEXT '公司间客户'    ''.
      WHEN 'NAME1'.
        SET_FIELDS_TEXT '客户名称'    ''.
      WHEN 'MATNR'.
        SET_FIELDS_TEXT '商品编号' ''.
      WHEN 'MAKTX'.
        SET_FIELDS_TEXT '商品描述' ''.
      WHEN 'LFIMG'.
        SET_FIELDS_TEXT '交货数量' ''.
      WHEN 'VRKME'.
        SET_FIELDS_TEXT '交货单位' ''.
      WHEN 'MESSAGE'.
        SET_FIELDS_TEXT '消息                          .' ''  .
      WHEN 'E_FLAG'.
        WA_FIELDS-NO_OUT = 'X' .
      WHEN 'S_FLAG'.
        WA_FIELDS-NO_OUT = 'X' .
    ENDCASE .
    MODIFY LT_FIELDS FROM WA_FIELDS.
  ENDLOOP.
  LV_REPID = SY-REPID .
  PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
  PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
  LS_LAYOUT-BOX_FIELDNAME = 'SEL'.
  LS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  LS_LAYOUT-ZEBRA = 'X' .

  DATA: LS_GRIDSETTINGS TYPE LVC_S_GLAY .
*  LS_GRIDSETTINGS-EDT_CLL_CB = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = LV_REPID
      I_CALLBACK_PF_STATUS_SET = 'SET_PF'
      I_CALLBACK_USER_COMMAND  = 'USER_COM'
*     I_GRID_TITLE             = F_TITLE
      IS_LAYOUT                = LS_LAYOUT
      IT_FIELDCAT              = LT_FIELDS
      IT_EVENTS                = GT_EVENTS[]
      IS_VARIANT               = GS_VARIANT
      I_GRID_SETTINGS          = LS_GRIDSETTINGS
    TABLES
      T_OUTTAB                 = GT_DATA.
ENDFORM.                    " DATA_PROCESS
*&---------------------------------------------------------------------*
*&      Form  EVENTTAB_BUILD
*&---------------------------------------------------------------------*
FORM EVENTTAB_BUILD  USING RT_EVENTS TYPE SLIS_T_EVENT.
*"REGISTRATION OF EVENTS TO HAPPEN DURING LIST DISPLAY
  DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
*

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = RT_EVENTS.
  READ TABLE RT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
  IF SY-SUBRC = 0.
    MOVE G_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO RT_EVENTS.
  ENDIF.

ENDFORM.                    " EVENTTAB_BUILD
*&---------------------------------------------------------------------*
*&      FORM  TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
FORM TOP_OF_PAGE.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
*     I_LOGO             = 'ENJOYSAP_LOGO'
      IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM.                    "TOP_OF_PAGE
"
*&---------------------------------------------------------------------*
*&      Form  COMMENT_BUILD
*&---------------------------------------------------------------------*
FORM COMMENT_BUILD  USING    LT_TOP_OF_PAGE TYPE
                                        SLIS_T_LISTHEADER .
  DATA: LV_DATA(11) .
  DATA: LV_DATA1(8).
  DATA: LS_LINE TYPE SLIS_LISTHEADER.
  CLEAR LS_LINE.
  LS_LINE-TYP  = 'H'.
  LS_LINE-KEY  = ''.
  CASE 'X'.
    WHEN P_R1 .
      LS_LINE-INFO = '公司间交易开票--生成销售发票'.
    WHEN P_R2 .
      LS_LINE-INFO = '公司间交易开票--发票重新过账'.
  ENDCASE.
  APPEND LS_LINE TO LT_TOP_OF_PAGE.
  CLEAR LS_LINE.
*  LS_LINE-TYP  = 'S'.
*  LS_LINE-KEY  = ''.
*  LV_DATA1 = GV_BUDAT.
*  WRITE LV_DATA1 TO LV_DATA USING EDIT MASK '____年__月__日' .
*  IF NOT GV_BUDAT IS INITIAL .
*    CONCATENATE '※过账日期:'LV_DATA '※' INTO LS_LINE-INFO .
*  ELSE.
*    LS_LINE-INFO = '※过账日期: 凭证默认的过账日期' .
*  ENDIF.
*  APPEND LS_LINE TO LT_TOP_OF_PAGE.
ENDFORM.                    " COMMENT_BUILD


*&---------------------------------------------------------------------*
*&      FORM  USER_COM
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->R_UCOMM      TEXT
*      -->RS_SELFIELD  TEXT
*----------------------------------------------------------------------*
FORM USER_COM USING R_UCOMM LIKE SY-UCOMM
                  RS_SELFIELD TYPE SLIS_SELFIELD.

  DATA: L_GRID TYPE REF TO CL_GUI_ALV_GRID.
  DATA: LV_VAIID(1) .
  DATA: LV_DATA1(8) .
  DATA: LV_DATE(11) .
  DATA: LV_TEXTLINE2 TYPE STRING .
  LV_DATA1 = GV_BUDAT .
  WRITE LV_DATA1 TO LV_DATE USING EDIT MASK '____年__月__日' .
  IF NOT GV_BUDAT IS INITIAL .
    CONCATENATE '设置的过账日期为:' LV_DATE  INTO LV_TEXTLINE2 .
  ELSE.
    LV_TEXTLINE2 = '过账日期为:凭证默认的过账日期' .
  ENDIF.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = L_GRID.
  CALL METHOD L_GRID->CHECK_CHANGED_DATA
    IMPORTING
      E_VALID = LV_VAIID.
  CASE R_UCOMM.
    WHEN '&PROC'.
    WHEN 'SAVE'.
*bapi 处理
      CASE 'X'.
        WHEN P_R1 .
          CLEAR: GV_ANSWER .
          CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
            EXPORTING
              TEXTLINE1      = '生成发票前请确认过账日期!'
              TEXTLINE2      = LV_TEXTLINE2
              TITEL          = '继续处理？'
              CANCEL_DISPLAY = ' '
            IMPORTING
              ANSWER         = GV_ANSWER.
          IF     GV_ANSWER EQ 'J'.
            PERFORM CREATE_BILLING .
          ELSE.
            MESSAGE '处理被取消' TYPE 'S' DISPLAY LIKE 'E' .
            EXIT .
          ENDIF.
        WHEN P_R2 .
      ENDCASE.
      RS_SELFIELD-REFRESH = 'X' .
    WHEN 'RELEASE'.
      IF P_R2 = 'X' .
        CLEAR: GV_ANSWER .
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
          EXPORTING
            TEXTLINE1      = '发票重新过账前请确认过账日期!'
            TEXTLINE2      = LV_TEXTLINE2
            TITEL          = '继续处理？'
            CANCEL_DISPLAY = ' '
          IMPORTING
            ANSWER         = GV_ANSWER.
        IF     GV_ANSWER EQ 'J'.
          PERFORM BILLING_RELEASE .
        ELSE.
          MESSAGE '处理被取消' TYPE 'S' DISPLAY LIKE 'E' .
          EXIT .
        ENDIF.
      ENDIF.
      RS_SELFIELD-REFRESH = 'X' .
    WHEN 'DATE'.

      CALL SCREEN 0200 STARTING AT 20 15
                       ENDING   AT 40 5 .
      IF NOT GV_BUDAT IS INITIAL .
        LV_DATA1 = GV_BUDAT .
        WRITE LV_DATA1 TO LV_DATE USING EDIT MASK '____年__月__日' .
        CONCATENATE '@1U@当前发票日期:' LV_DATE INTO GV_BUDAT_BUTTON .
        LOOP AT GT_DATA .
          GT_DATA-FKDAT_N = GV_BUDAT .
          MODIFY  GT_DATA .
        ENDLOOP.
      ELSE.
        GV_BUDAT_BUTTON  = C_BUDAT_BUTTON .
        LOOP AT GT_DATA .
          GT_DATA-FKDAT_N = GT_DATA-FKDAT .
          MODIFY GT_DATA .
        ENDLOOP.
      ENDIF.
      RS_SELFIELD-REFRESH = 'X' .
    WHEN 'GROUP'.
    WHEN '&DATA_SAVE'.
    WHEN 'DELE'.
    WHEN '&F03' OR '&F15' OR '&F12'.
    WHEN '&IC1'.
      IF RS_SELFIELD-FIELDNAME = 'VBELN' .
        CLEAR: GT_DATA .
        READ TABLE GT_DATA INDEX RS_SELFIELD-TABINDEX .
        IF NOT  GT_DATA-VBELN IS INITIAL .
          SET PARAMETER ID 'VL' FIELD GT_DATA-VBELN .
          CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN .
        ENDIF.
      ENDIF.
      IF RS_SELFIELD-FIELDNAME = 'VBELN_BL' .
        CLEAR: GT_DATA .
        READ TABLE GT_DATA INDEX RS_SELFIELD-TABINDEX .
        IF NOT  GT_DATA-VBELN_BL IS INITIAL .
          SET PARAMETER ID 'VF' FIELD GT_DATA-VBELN_BL .
          CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN .
        ENDIF.
      ENDIF.

  ENDCASE.
ENDFORM.                    "USER_COM

*&---------------------------------------------------------------------*
*&      FORM  SET_PF
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->EXTAB      TEXT
*----------------------------------------------------------------------*
FORM SET_PF USING  EXTAB TYPE SLIS_T_EXTAB.
  CASE 'X' .
    WHEN P_R1 .
      SET PF-STATUS 'LIST' EXCLUDING EXTAB .
    WHEN P_R2 .
      SET PF-STATUS 'LIST25' EXCLUDING EXTAB .
  ENDCASE .
ENDFORM.                    "SET_PF
*&---------------------------------------------------------------------*
*&      Form  GOOD_RECEIVE
*&---------------------------------------------------------------------*
FORM CREATE_BILLING.
  DATA: LV_ERROR TYPE C .
  DATA: LT_BILLINGDATAIN LIKE  BAPIVBRK OCCURS 0 WITH HEADER LINE .
  DATA: LT_RETURN LIKE BAPIRET1 OCCURS 0 WITH HEADER LINE .
  DATA: LT_SUCCESS  LIKE  BAPIVBRKSUCCESS OCCURS 0 WITH HEADER LINE.
  DATA: LT_ERRORS LIKE BAPIVBRKERRORS OCCURS 0 WITH HEADER LINE .
  DATA: LT_ZTFI025 LIKE ZTFI025 OCCURS 0 WITH HEADER LINE .
  DATA: BEGIN OF  LT_DATA OCCURS 0 ,
         VBELN LIKE LIKP-VBELN        ,
         POSNR LIKE LIPS-POSNR        ,
         VBTYP LIKE LIKP-VBTYP        ,
        END OF LT_DATA .
  DATA: LS_DATA LIKE LT_DATA .
  CLEAR: LT_DATA[] .
  LOOP AT GT_DATA WHERE SEL = 'X' AND S_FLAG = ''.
    CLEAR: LT_DATA .
    MOVE-CORRESPONDING GT_DATA TO LT_DATA .
    APPEND LT_DATA .
  ENDLOOP .
  SORT LT_DATA .
  IF LT_DATA[] IS INITIAL .
    MESSAGE '请至少选择一条处理没有处理的数据!' TYPE 'S' DISPLAY LIKE 'E'.
    EXIT .
  ENDIF.
  LOOP AT GT_DATA WHERE SEL = 'X' AND S_FLAG = 'X'.
  ENDLOOP .
  IF SY-SUBRC = 0 .
    MESSAGE '不要选择已经处理过的数据!' TYPE 'S' DISPLAY LIKE 'E' .
    EXIT .
  ENDIF.

  CLEAR: LT_BILLINGDATAIN[] ,LT_ZTFI025[] .
  LOOP AT LT_DATA .
    LS_DATA = LT_DATA.
    CLEAR: LT_BILLINGDATAIN .
    LT_BILLINGDATAIN-REF_DOC  = LS_DATA-VBELN .
    LT_BILLINGDATAIN-REF_ITEM = LS_DATA-POSNR .
    IF NOT GV_BUDAT IS INITIAL .
      LT_BILLINGDATAIN-BILL_DATE = GV_BUDAT .
    ENDIF.
    IF LT_DATA-VBTYP = 'T' .
      LT_BILLINGDATAIN-ORDBILLTYP = 'IG'.
    ELSE.
      LT_BILLINGDATAIN-ORDBILLTYP = 'IV'.
    ENDIF.
    LT_BILLINGDATAIN-REF_DOC_CA = 'J'.
    APPEND LT_BILLINGDATAIN .
*    LT_BILLINGDATAIN-SALESORG = GT_DATA-VKOIV.
*    LT_BILLINGDATAIN-DISTR_CHAN = GT_DATA-VTWEG .
*    LT_BILLINGDATAIN-DIVISION   = GT_DATA-SPART.
    AT END OF VBELN .

*      CALL FUNCTION 'BAPI_BILLINGDOC_CREATEFROMDATA'
      CALL FUNCTION 'BAPI_BILLINGDOC_CREATEMULTIPLE'
*        EXPORTING
*         CREATORDATAIN   =
*          TESTRUN         = 'X'
*          POSTING         = 'X'
        TABLES
*         BILLING_DATA_IN = LT_BILLINGDATAIN[]
          BILLINGDATAIN   = LT_BILLINGDATAIN[]
*         CONDITIONDATAIN =
*         CCARDDATAIN     =
*         TEXTDATAIN      =
          ERRORS          = LT_ERRORS[]
          RETURN          = LT_RETURN[]
          SUCCESS         = LT_SUCCESS.
      IF NOT  LT_SUCCESS[] IS INITIAL  .
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = 'X'.
        CLEAR:LT_RETURN ,LV_ERROR .
        READ TABLE LT_RETURN WITH KEY TYPE = 'E' .
        IF SY-SUBRC = 0 .
          LV_ERROR = 'X' .
        ENDIF.
        LOOP AT LT_SUCCESS .
          CLEAR: GT_DATA .
          GT_DATA-LIGHT = '@5B@' .
          GT_DATA-S_FLAG = 'X' .
          GT_DATA-VBELN_BL = LT_SUCCESS-BILL_DOC .
          GT_DATA-POSNR_BL = LT_SUCCESS-BILL_DOC_ITEM .
          IF LV_ERROR = 'X'.
            GT_DATA-LIGHT = '@5D@' .
            CONCATENATE '发票已生成，没有生成财务凭证：'
            LT_RETURN-MESSAGE INTO  GT_DATA-MESSAGE.

            LOOP AT GT_DATA INTO GS_DATA
              WHERE  SEL = 'X'  AND VBELN = LT_SUCCESS-REF_DOC
                                AND POSNR = LT_SUCCESS-REF_DOC_ITEM.
              CLEAR: LT_ZTFI025 .
              MOVE-CORRESPONDING GS_DATA TO  LT_ZTFI025 .
*--设置发票日期
              LT_ZTFI025-FKDAT    = GS_DATA-FKDAT_N .
*--
              LT_ZTFI025-VBELN_BL = LT_SUCCESS-BILL_DOC .
              LT_ZTFI025-POSNR_BL = LT_SUCCESS-BILL_DOC_ITEM .
              LT_ZTFI025-MESSAGE   = GT_DATA-MESSAGE.
              LT_ZTFI025-FLAG_S = '' .
              APPEND LT_ZTFI025 .
            ENDLOOP .
            IF NOT LT_ZTFI025[] IS INITIAL .
              MODIFY ZTFI025 FROM TABLE LT_ZTFI025 .
            ENDIF.

          ELSE.
            GT_DATA-MESSAGE =   '发票成功生成' .
          ENDIF.
          MODIFY GT_DATA TRANSPORTING LIGHT S_FLAG VBELN_BL
                                      POSNR_BL MESSAGE
                            WHERE SEL = 'X'
                              AND VBELN = LT_SUCCESS-REF_DOC
                              AND POSNR = LT_SUCCESS-REF_DOC_ITEM.


        ENDLOOP.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
        LOOP AT  LT_ERRORS .
          CLEAR: GT_DATA .
          GT_DATA-LIGHT = '@5C@' .
          GT_DATA-MESSAGE  = LT_ERRORS-MESSAGE .
          MODIFY GT_DATA TRANSPORTING LIGHT MESSAGE
                              WHERE SEL = 'X'
                                AND VBELN = LT_ERRORS-REF_DOC
                                AND POSNR = LT_ERRORS-REF_DOC_ITEM.
        ENDLOOP.
        CLEAR:LT_RETURN .
        READ TABLE LT_RETURN WITH KEY TYPE = 'E' . .
        LOOP AT GT_DATA WHERE
          SEL = 'X' AND  LIGHT = '' AND VBELN = LS_DATA-VBELN  .
          GT_DATA-LIGHT = '@5C@' .
          GT_DATA-MESSAGE  = LT_RETURN-MESSAGE .
          MODIFY GT_DATA .
        ENDLOOP .
      ENDIF.
      CLEAR: LT_BILLINGDATAIN[] ,LT_ERRORS[] ,LT_SUCCESS[] ,LT_RETURN[].
    ENDAT .
  ENDLOOP .

ENDFORM.                    " GOOD_RECEIVE
*&---------------------------------------------------------------------*
*&      Form  GET_DATA2
*&---------------------------------------------------------------------*
FORM GET_DATA2 .
  DATA: BEGIN OF LT_VBRK OCCURS 0 ,
        VBELN LIKE VBRK-VBELN ,
        RFBSK LIKE VBRK-RFBSK ,
        FKSTO LIKE VBRK-FKSTO ,
        END OF LT_VBRK .
  SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_DATA
    FROM ZTFI025
    WHERE VBELN IN SO_VBELN
     AND  VKOIV IN SO_VKOIV
     AND VBELN_BL IN SO_BILLN
     AND  FLAG_S = '' .
  IF NOT  GT_DATA[] IS INITIAL .
    SELECT VBELN RFBSK FKSTO INTO CORRESPONDING FIELDS OF TABLE LT_VBRK
     FROM VBRK FOR ALL ENTRIES IN  GT_DATA
      WHERE VBELN = GT_DATA-VBELN_BL .

    SORT LT_VBRK BY VBELN .
    LOOP AT GT_DATA .
      CLEAR: LT_VBRK .
      READ TABLE LT_VBRK WITH KEY
      VBELN = GT_DATA-VBELN_BL BINARY SEARCH.
*-已经过账，或者发票被取消时，不再显示
      IF LT_VBRK-RFBSK = 'C' OR  LT_VBRK-FKSTO = 'X'.
        DELETE GT_DATA .
        CONTINUE .
      ENDIF.
      GT_DATA-FKDAT_N = GT_DATA-FKDAT .
    ENDLOOP .
  ENDIF.


ENDFORM.                    " GET_DATA2
*&---------------------------------------------------------------------*
*&      Form  BILLING_RELEASE
*&---------------------------------------------------------------------*
FORM BILLING_RELEASE .
*--bdc data define
  DATA:  LS_OPTION LIKE CTU_PARAMS.
  DATA: LV_CNT TYPE I .
  DATA: LV_MSGID  LIKE SY-MSGID,
         LV_MSGNR  LIKE SY-MSGNO ,
         E_MESSAGE(100) TYPE C .

  DATA: LV_BILLINGDOCUMENT LIKE BAPIVBRKSUCCESS-BILL_DOC ,
         LS_RETURN LIKE BAPIRETURN1 .

  DATA: BEGIN OF LT_BILLING OCCURS 0 ,
        VBELN_BL LIKE ZTFI025-VBELN_BL ,
        END OF  LT_BILLING .


  LOOP AT GT_DATA WHERE SEL = 'X' AND S_FLAG  = ''.
    IF NOT GT_DATA-VBELN_BL IS INITIAL .
      MOVE-CORRESPONDING GT_DATA TO LT_BILLING .
      APPEND LT_BILLING .
    ENDIF.
  ENDLOOP .
  SORT LT_BILLING .
  DELETE ADJACENT DUPLICATES FROM LT_BILLING COMPARING ALL FIELDS .
  IF LT_BILLING[] IS INITIAL .
    MESSAGE '请至少选择一条没有处理成功的数据' TYPE 'S' DISPLAY LIKE 'E'.
    EXIT .
  ENDIF.

*********************BDC 处理
  CLEAR: BDCDATA[].
  CLEAR LS_OPTION.
  LS_OPTION-DEFSIZE  = 'X'.
  LS_OPTION-RACOMMIT = 'X'.
  LS_OPTION-DISMODE  = 'N'.
  LS_OPTION-UPDMODE  = 'S'.
  DATA:LV_DATA_BL(10) .
  CLEAR: LV_DATA_BL .
  WRITE: GV_BUDAT TO LV_DATA_BL   .
  LOOP AT LT_BILLING .
    CLEAR: BDCDATA[] ,MESSTAB[] .
    PERFORM BDC_DYNPRO USING  :
           'SAPMV60A'        '0101'                'X',
           'BDC_OKCODE'      '=UEBP'               ' ',
           'VBRK-VBELN'      LT_BILLING-VBELN_BL   ' '. "发票号
    IF NOT GV_BUDAT IS INITIAL .
      PERFORM BDC_DYNPRO USING  :
             'SAPMV60A'        '0104'                'X',
             'BDC_OKCODE'      '=KFDE'               ' '.
      PERFORM BDC_DYNPRO USING  :
             'SAPMV60A'        '6001'                'X',
             'VBRK-FKDAT'      LV_DATA_BL            ' ',
             'BDC_OKCODE'      '=UEBP'               ' '.
      PERFORM BDC_DYNPRO USING  :
             'SAPMV60A'        '0104'                'X',
             'BDC_OKCODE'      '=FKFR'               ' '.
    ELSE.
      PERFORM BDC_DYNPRO USING  :
             'SAPMV60A'        '0104'                'X',
             'BDC_OKCODE'      '=FKFR'               ' '.
    ENDIF.
    CALL TRANSACTION 'VF02' USING           BDCDATA
                             OPTIONS   FROM  LS_OPTION
                             MESSAGES  INTO  MESSTAB.


    CLEAR LV_CNT.
    DESCRIBE TABLE MESSTAB LINES LV_CNT.
    READ TABLE MESSTAB INDEX LV_CNT.

* 错误处理
    CLEAR: LV_MSGID , LV_MSGNR .
    LV_MSGID = 'VF' .
    LV_MSGNR  = '311'.
    CLEAR: E_MESSAGE .
    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        MSGID               = MESSTAB-MSGID
        MSGNR               = MESSTAB-MSGNR
        MSGV1               = MESSTAB-MSGV1
        MSGV2               = MESSTAB-MSGV2
        MSGV3               = MESSTAB-MSGV3
        MSGV4               = MESSTAB-MSGV4
      IMPORTING
        MESSAGE_TEXT_OUTPUT = E_MESSAGE.
*错误时
    IF MESSTAB-MSGID NE LV_MSGID OR MESSTAB-MSGNR NE LV_MSGNR.
      CLEAR: GT_DATA .
      GT_DATA-MESSAGE = E_MESSAGE .
      GT_DATA-LIGHT = '@5C@'.
      MODIFY GT_DATA TRANSPORTING MESSAGE LIGHT
      WHERE VBELN_BL = LT_BILLING-VBELN_BL .
*成功时
    ELSE.
      CLEAR: GT_DATA .

      UPDATE ZTFI025 SET FLAG_S = 'X'
          WHERE VBELN_BL = LT_BILLING-VBELN_BL .
      CLEAR: GT_DATA .
      GT_DATA-MESSAGE =  E_MESSAGE .
      GT_DATA-LIGHT = '@5B@'.
      GT_DATA-S_FLAG  = 'X' .
      MODIFY GT_DATA TRANSPORTING MESSAGE LIGHT S_FLAG
      WHERE VBELN_BL = LT_BILLING-VBELN_BL .
    ENDIF.
  ENDLOOP .
ENDFORM.                    " BILLING_RELEASE
*&---------------------------------------------------------------------*
*&      Form  BDC_DYNPRO
*&---------------------------------------------------------------------*
FORM BDC_DYNPRO  USING  PROGRAM DYNPRO P_MODE .
  CLEAR BDCDATA.
  IF P_MODE = 'X'.
    BDCDATA-PROGRAM  = PROGRAM.
    BDCDATA-DYNPRO   = DYNPRO.
    BDCDATA-DYNBEGIN = 'X'.
  ELSE.
    BDCDATA-FNAM = PROGRAM .
    BDCDATA-FVAL = DYNPRO.
  ENDIF.
  APPEND BDCDATA.
ENDFORM.                    " BDC_DYNPRO
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0200  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0200 INPUT.
  CASE SY-UCOMM .
    WHEN 'OK' .
      IF NOT GV_BUDAT IS INITIAL .
        MESSAGE '发票日期被设置!'TYPE 'S' DISPLAY LIKE 'S' .
      ELSE.
        MESSAGE '发票日期被重置为默认日期!'TYPE 'S' DISPLAY LIKE 'S' .
      ENDIF.
      LEAVE TO SCREEN  0 .
    WHEN 'CANC'.
      MESSAGE '发票日期设置取消!'TYPE 'S' DISPLAY LIKE 'S' .
      LEAVE TO SCREEN  0 .
  ENDCASE .
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS '0200'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0200  OUTPUT