SELECT LIFNR LAND1 ADRNR INTO TABLE IT_LFA1 * Get vendor's details into internal tables WRITE: / 'Validating vendor''s data' COLOR COL_HEADING.ĬALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' WRITE: / 'No of Lines read and stored:', L_LINE. WRITE: / 'No of Header Lines declared are more than total lines'. * Upload data file from presentation server
* Initialise variables and internal tables.ĬALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' * Write report footer or send 'No Data' message MESSAGE E398(00) WITH 'Please enter error filename'. IF P_TESTMD IS INITIAL AND P_ERFILE IS INITIAL. PARAMETERS: P_TESTMD AS CHECKBOX DEFAULT 'X'.ĪT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.ĪT SELECTION-SCREEN ON VALUE-REQUEST FOR P_ERFILE. P_FILENM LIKE RLGRAP-FILENAME OBLIGATORY,
SELECTION-SCREEN: BEGIN OF BLOCK A WITH FRAME TITLE TEXT-004. TX_BAPICOMREX TYPE TABLE OF BAPICOMREX WITH HEADER LINE.ĭATA: G_CHECK_ADDRESS LIKE SZAD_FIELD-FLAG VALUE 'X', "*131i TX_BAPIADSMTX TYPE TABLE OF BAPIADSMTX WITH HEADER LINE, TX_BAPIADFAXX TYPE TABLE OF BAPIADFAXX WITH HEADER LINE, TX_BAPIADTELX TYPE TABLE OF BAPIADTELX WITH HEADER LINE,
TX_BAPIAD1VLX TYPE TABLE OF BAPIAD1VLX WITH HEADER LINE, T_RET TYPE TABLE OF BAPIRET2 WITH HEADER LINE, T_BAPICOMREM TYPE TABLE OF BAPICOMREM WITH HEADER LINE, T_BAPIADSMTP TYPE TABLE OF BAPIADSMTP WITH HEADER LINE, T_BAPIADFAX TYPE TABLE OF BAPIADFAX WITH HEADER LINE, T_BAPIADTEL TYPE TABLE OF BAPIADTEL WITH HEADER LINE, T_BAPIAD1VL TYPE TABLE OF BAPIAD1VL WITH HEADER LINE, MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE, WEBRE LIKE LFM1-WEBRE, "GR-based invoice inveri check TSAC, "Communication types (central address management)ĭATA: IT_KBUKA TYPE HASHED TABLE OF TYP_K_KBUKA WITH UNIQUE KEYĭATA: IT_TSAC TYPE HASHED TABLE OF TYP_TSAC WITH UNIQUE KEY COMM_TYPEĭATA: IT_LFA1 TYPE HASHED TABLE OF TYP_LFA1 WITH UNIQUE KEY LFM1, "Vendor Master (purchasing organization data) TABLES: LFA1, "Vendor Master (General Section) Error rendering macro 'code': Invalid value specified for parameter '.' REPORT ZF_VENDOR_UPDATE_COM NO STANDARD PAGE HEADING
0 kommentar(er)
