*&---------------------------------------------------------------------*
*& 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.