*&---------------------------------------------------------------------*

*& Report  Z_ARBA_PZB

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT  z_arba_pzb.

TABLES:mara,ekpo,zbmm0005_po.

DATA:gt_mara LIKE TABLE OF mara WITH HEADER LINE.

*DATA:gt_mara_show LIKE TABLE OF mara WITH HEADER LINE.

DATA:gt_/arba/tvarv LIKE TABLE OF /arba/tvarv WITH HEADER LINE.

DATA:gt_/arba/tvarv_del LIKE TABLE OF /arba/tvarv WITH HEADER LINE.

DATA:gt_/arba/tvarv_res LIKE TABLE OF /arba/tvarv WITH HEADER LINE.

DATA: lc_cursor TYPE CURSOR.

selection-SCREEN BEGIN OF BLOCK bl2 WITH FRAME  TITLE TEXT-004.

  selection-SCREEN: BEGIN OF LINE,

    COMMENT 3(60) TEXT-005,

  END OF LINE,

  BEGIN OF LINE,

    COMMENT 3(60) TEXT-007,

  END OF LINE.

selection-SCREEN END OF BLOCK bl2.

SELECTION-SCREEN BEGIN OF BLOCK 001 WITH FRAME TITLE TEXT-001.

  SELECT-OPTIONS s_matnr FOR zbmm0005_po-matnr NO INTERVALS  .          "物料

SELECTION-SCREEN END OF BLOCK 001.

*/ARBA/EXTERNAL_SID   P       I EQ  CSOTExternalSystemP

*/ARBA/MATERIAL_MASTER_EXPORT MATNR S 1     I EQ  51CZ8560000001

*/ARBA/MATERIAL_MASTER_EXPORT MATNR S 2     I EQ  51CZ8560000002

*/ARBA/TEMP_DIRECTORY   P       I EQ  /ARBA/MASTERDATA

*DC_WAITTIME    P       I EQ  1

*FLUSH_MM_DOC_CHANGES   P       I EQ

*&---------------------------------------------------------------------*

DATA:lv_numb TYPE /arba/tvarv-numb.

OPEN CURSOR   WITH HOLD lc_cursor FOR SELECT * FROM mara WHERE  matnr IN s_matnr

*  and  ERSDA  BETWEEN '20201221' and '20201228'

ORDER BY PRIMARY KEY .

DO.

  FETCH NEXT CURSOR lc_cursor INTO TABLE gt_mara PACKAGE SIZE 2000.

  IF sy-subrc <> 0.

    EXIT.

  ENDIF.

*->删除配置表上次发送过的数据

  FREE:gt_/arba/tvarv.

  SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_/arba/tvarv

  FROM /arba/tvarv.

  LOOP AT gt_/arba/tvarv.

    IF gt_/arba/tvarv-name = '/ARBA/MATERIAL_MASTER_EXPORT'..

      MOVE-CORRESPONDING gt_/arba/tvarv TO gt_/arba/tvarv_del.

      APPEND gt_/arba/tvarv_del.CLEAR gt_/arba/tvarv_del."删除上次用过的物料相关数据

    ELSE.

      MOVE-CORRESPONDING gt_/arba/tvarv TO gt_/arba/tvarv_res.

      APPEND gt_/arba/tvarv_res.CLEAR gt_/arba/tvarv_res."其他数据

    ENDIF.

  ENDLOOP.

  DELETE /arba/tvarv FROM TABLE gt_/arba/tvarv_del."删除上次用过的物料相关数据

  EXEC SQL.

    COMMIT

  ENDEXEC.

  CLEAR:lv_numb.

  LOOP AT gt_mara.

    lv_numb = lv_numb  + 1.

    gt_/arba/tvarv_res-name = '/ARBA/MATERIAL_MASTER_EXPORT'..

    gt_/arba/tvarv_res-fieldname = 'MATNR'.

    gt_/arba/tvarv_res-TYPE = 'S'.

    gt_/arba/tvarv_res-numb = lv_numb.

    gt_/arba/tvarv_res-SIGN = 'I'.

    gt_/arba/tvarv_res-opti = 'EQ'.

    gt_/arba/tvarv_res-low = gt_mara-matnr.

    APPEND gt_/arba/tvarv_res.CLEAR gt_/arba/tvarv_res."结果表 result

  ENDLOOP.

  MODIFY /arba/tvarv FROM TABLE gt_/arba/tvarv_res." 控制哪些物料需要进标准程序

  EXEC SQL.

    COMMIT

  ENDEXEC.

*&---------------------------------------------------------------------*

*->调用job进行发送

  PERFORM frm_create_job.

*  SUBMIT z_arba_master_send

*

*  AND RETURN

*  WITH p_cus3  = 'X'

*  WITH p_dc = 'X'

*  WITH p_flo   = 'X'

*  WITH  p_werks  = 'X'

*  WITH  p_matmas  = 'X'.

  EXEC SQL.

    COMMIT

  ENDEXEC.

ENDDO."

FREE:gt_/arba/tvarv_res.

SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_/arba/tvarv

FROM /arba/tvarv WHERE name = '/ARBA/MATERIAL_MASTER_EXPORT' AND fieldname = 'MATNR' AND TYPE = 'S'. .

DELETE /arba/tvarv FROM TABLE gt_/arba/tvarv.

COMMIT WORK AND WAIT.

*&---------------------------------------------------------------------*

FORM frm_create_job.

  DATA: l_jobnumber TYPE btcjobcnt.

  DATA: l_jobname   TYPE btcjob VALUE 'ZSEND'.

  "--- 不转换后台会出现参数错误 ---

*  CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'

*  EXPORTING

*    INPUT  = pv_date

*  IMPORTING

*    OUTPUT = rv_user_date.

  CALL FUNCTION 'ENQUE_SLEEP'

  EXPORTING

    seconds = 1. "

  "检查权限

  AUTHORITY-CHECK OBJECT 'S_BTCH_ADM' FOR USER sy-uname ID 'BTCADMIN' FIELD 'Y'.

  IF sy-subrc NE 0.

    MESSAGE  '没有权限'  TYPE   'E'. .

  ELSE.

    CALL FUNCTION 'JOB_OPEN'

    EXPORTING

      jobname          = l_jobname

    IMPORTING

      jobcount         = l_jobnumber

    EXCEPTIONS

      cant_create_job  = 1

      invalid_job_data = 2

      jobname_missing  = 3

      OTHERS           = 4.

    IF sy-subrc = 0.

      SUBMIT z_arba_master_send USER sy-uname

      VIA JOB l_jobname NUMBER l_jobnumber

      AND RETURN

      WITH p_cus3  = 'X'

      WITH p_dc = 'X'

      WITH p_flo   = 'X'

      WITH  p_werks  = 'X'

*    WITH rd_a2 =  ' '

*    WITH s_ma_cb =  ' '

*不传的参数不能填，否则后台会秒执行成功日期要转换为用户内部格式

      WITH  p_matmas  = 'X'.

      IF sy-subrc = 0.

        DATA:lv_status TYPE tbtco-status.

        CALL FUNCTION 'ENQUE_SLEEP'

        EXPORTING

          seconds = 55. "

*        DO   .

*          CLEAR:lv_status.

*          CALL FUNCTION 'ENQUE_SLEEP'

*            EXPORTING

*              seconds = 20. "

*          SELECT SINGLE   status INTO lv_status FROM tbtco WHERE jobname = 'ZSEND' AND jobcount =  l_jobnumber.

*          IF sy-subrc = 0.

*            IF  lv_status = 'F'.

*              EXIT.

*            ENDIF.

*          ENDIF.

*        ENDDO.

        CALL FUNCTION 'JOB_CLOSE'

        EXPORTING

          jobcount             = l_jobnumber

          jobname              = l_jobname

          strtimmed            = 'X'

        EXCEPTIONS

          cant_start_immediate = 1

          invalid_startdate    = 2

          jobname_missing      = 3

          job_close_failed     = 4

          job_nosteps          = 5

          job_notex            = 6

          lock_failed          = 7

          OTHERS               = 8.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.                    "FRM_CREATE_JOB

*&---------------------------------------------------------------------*

*LOOP AT gt_mara.

*  lv_numb = lv_numb  + 1.

*  gt_/arba/tvarv_res-name = '/ARBA/MATERIAL_MASTER_EXPORT'..

*  gt_/arba/tvarv_res-fieldname = 'MATNR'.

*  gt_/arba/tvarv_res-type = 'S'.

*  gt_/arba/tvarv_res-numb = lv_numb.

*  gt_/arba/tvarv_res-sign = 'I'.

*  gt_/arba/tvarv_res-opti = 'EQ'.

*  gt_/arba/tvarv_res-low = gt_mara-matnr.

*

*  APPEND gt_/arba/tvarv_res.CLEAR gt_/arba/tvarv_res.

*ENDLOOP.