Sample ABAP Code For BDS for Excel Document

Sample ABAP Code For BDS for Excel Document. Author : Rachmad Kurniawan ( SAP Consultant ) - Indonesia T-Code OAOR. Assigning new class name to Class Type using t-code SBDSV1. PROCESS BEFORE OUTPUT. MODULE M_STATUS_9000. * PROCESS AFTER INPUT. MODULE M_USER_COMMAND_9000. REPORT zsd8001. TABLES: nast, kna1, likp, lips, mchb, vbfa, vbpa, t001l, t005t, tvstt. INCLUDE zabxixls. TYPES: BEGIN OF ty_pick, vbeln LIKE likp-vbeln, vstel LIKE likp-vstel, vtext LIKE tvstt-vtext, werks LIKE likp-werks, plant LIKE t001w-name1, lfdat LIKE likp-lfdat, lddat LIKE likp-lddat, vbelv LIKE vbfa-vbelv, cname LIKE kna1-name1, stras LIKE kna1-stras, ort01 LIKE kna1-ort01, pstlz LIKE kna1-pstlz, landx LIKE t005t-landx, END OF ty_pick. DATA: BEGIN OF t_mtrl OCCURS 0, werks LIKE likp-werks, matnr LIKE lips-matnr, arktx LIKE lips-arktx, lfimg LIKE lips-lfimg, ntgew LIKE lips-ntgew, lgort LIKE lips-lgort, lgobe LIKE t001l-lgobe, END OF t_mtrl. DATA: x_pick TYPE ty_pick, t_line TYPE STANDARD TABLE OF tline WITH HEADER LINE. DATA: d_adrnr LIKE vbpa-adrnr, d_name1

LIKE kna1-name1, d_name2 LIKE kna1-name1, d_stras LIKE kna1-stras, d_ort01 LIKE kna1-ort01, d_pstlz LIKE kna1-pstlz, d_land1 LIKE kna1-land1, d_landx LIKE t005t-landx. SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE text_f01. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 1(32) text_p01 FOR FIELD p_vbeln. PARAMETERS: p_vbeln LIKE likp-vbeln OBLIGATORY. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK b01. INITIALIZATION. text_f01 = 'Selection'. text_p01 = 'Delivery No'. START-OF-SELECTION. *_Get and check Delivey number SELECT SINGLE vbeln vstel werks lfdat lddat INTO CORRESPONDING FIELDS OF x_pick FROM likp WHERE vbeln = p_vbeln. IF sy-subrc NE 0. MESSAGE 'Delivery number does not exsist.' TYPE 'S'. EXIT. ENDIF. SELECT SINGLE vtext INTO x_pick-vtext FROM tvstt WHERE spras = 'E' AND vstel = x_pick-vstel. TRANSLATE x_pick-vtext TO UPPER CASE. *_Get Sales Order No SELECT SINGLE vbelv INTO x_pick-vbelv FROM vbfa WHERE vbeln = p_vbeln AND vbtyp_v = 'C'. *_Get shipment address SELECT SINGLE adrnr INTO d_adrnr FROM vbpa WHERE vbeln = p_vbeln AND parvw = 'WE'. "'SH'. IF sy-subrc = 0. SELECT SINGLE name1 name2 stras ort01 pstlz land1 INTO (d_name1, d_name2, d_stras, d_ort01, d_pstlz, d_land1) FROM kna1 WHERE adrnr = d_adrnr. CONCATENATE d_name1 d_name2 INTO d_name1 SEPARATED BY space. SELECT SINGLE landx INTO d_landx FROM t005t WHERE spras...

Website: kurniawan.rachmad.googlepages.com | Filesize: 487kb
No of Page(s): 16
Download Sample ABAP Code For BDS for Excel Document.pdf