ABAP 连接 MES (在MES中取数据)

 

*&---------------------------------------------------------------------*
*& Report ZOSD0022                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*& Date:         2008-06-19
*& Author:       vista
*& Description: Display report for Broadcom EDI
*& Request:      DEVK924850 [DS080608]

*-----------------------------------------------------------------------
* Change History:
* ===============
* Task#    Date        By      Description
* DS080608 2008.11.14 wei_zhu 1.For lot number field remove all
*                              character that include and after “$” sign
*                              2.Add logic to check if the lot number
*                                has been transacted before. If already
*                                remove from report.
*                              Transport Request :DEVK925259
*-----------------------------------------------------------------------

REPORT ZOSD0022                                .

TABLES: VBAK,VBAP,AUFK,SYST.

TYPE-POOLS: SLIS.

DATA: C_VENDOR_CODE(20) TYPE C.

DATA: BEGIN OF ITAB OCCURS 0,
      FILE(6) TYPE C,
      FILE1(6) TYPE C , "Trading partner's contact person
      FILE2(23) TYPE C, "Trading partner's email (vendor code)
      FILE3(12) TYPE C, "Trading partner's fax (Start run program time)
      FILE4(13) TYPE C, "Trading partner's contact number
      FILE5(13) TYPE C, "Information Sender
      FILE6(33) TYPE C, "Trading partner's DUNS( LOT NUMBER)
      FILE7(5) TYPE C, "NA
      FILE8(5) TYPE C, "Contract Manufacturer
      FILE9(5) TYPE C, "NA
      FILE10(13) TYPE C, "create date of report
      FILE11(23) TYPE C, "YYYYMMDDTHHMMSS_BOM
      FILE12(13) TYPE C, "Broacom contact Person
      FILE13(13) TYPE C, "Broadcom Contact Person email
      FILE14(13) TYPE C, "Broadcom Contact Person fax
      FILE15(13) TYPE C, "Broadcom Contact number
      FILE16(13) TYPE C, "Information Receiver
      FILE17(13) TYPE C, "Broadcom DUNS
      FILE18(13) TYPE C, "Manufacturer
END OF ITAB.

DATA: BEGIN OF TIMI OCCURS 0,
      PO_NUMBER(15) TYPE C,
      LOT_NUMBER(30) TYPE C,
      END OF TIMI.

DATA: BEGIN OF T_CODE OCCURS 0,
      MFGORDERNAME(30),
      C_VENDOR_CODE(20) TYPE C,
      END OF T_CODE.

DATA: G_SVFILE LIKE RLGRAP-FILENAME.
DATA:G_FLAG.

DATA: FILENAME(33) TYPE C.
DATA: DATE1(25) TYPE C.
DATA: DATE2(30) TYPE C.
DATA: DATE(12) TYPE C.
CONCATENATE '"' SY-DATUM 'Z' '"' ',' INTO DATE.
CONCATENATE '"' SY-DATUM 'T' SY-UZEIT '.000Z' '"' ',' INTO DATE1.
CONCATENATE '"' SY-DATUM 'T' SY-UZEIT '_BOM' '_ASAT' '"' ',' INTO DATE2.

*&---------------------------------------------------------------------*
*&                      S E L E C T I O N S C R E E N                 *
*&---------------------------------------------------------------------*
SELECT-OPTIONS: P_WERKS FOR VBAP-WERKS NO-DISPLAY DEFAULT '3100'.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
PARAMETERS: P_BUDAT LIKE MKPF-BUDAT DEFAULT SY-DATUM,
            P_TIME LIKE SY-UZEIT DEFAULT '001500'.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_BUDAT1 LIKE MKPF-BUDAT DEFAULT SY-DATUM,
            P_TIME1 LIKE SY-UZEIT DEFAULT '001500'.
SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_SVPATH LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B3.

*----------------------------------------------------------------------*
* Macro Definition                                                    *
*----------------------------------------------------------------------*
* Get SQL Query result
DEFINE IMI_FETCH_DATA.