*&---------------------------------------------------------------------*
*& Report Z_ANLZ_HERO_FA
*&
*& Extract SAP Data For Time-Dependent Asset Allocations SAP TABLE ANLZ Into cvs File Called ANLZ.csv
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Report Z_KNA1_HERO_CUS
*&
*& Extract SAP Data For General Data in Customer Master SAP TABLE KNA1 Into cvs File Called KNA1.csv
*&---------------------------------------------------------------------*
*& Developed By - Vivek Nigam
*& Date - 25/06/2024
*& Modified by-Vivek Nigam
*& Date - 03/07/2024 - Added INNER JOIN WITH KNB1 & ADDED WHERE CLAUSE TO FILTER DATA BASED ON
*& LEGAL ENTITY NAME / COMPANY CODE
*& Date - 25/07/2024- ADDED SELLECTION SCREEN TO SELECT FILE OUTPUT PATH AND LEGAL ENTITY NAME TO FILTER DATA
*& LEGAL ENTITY NAME / COMPANY CODE
*& Date - 26/07/2024- ADDED VARIANTS FOR SCHEDULING BASED ON SELECTION SCREEN
*& Date - 01/08/2024 ADDED UK61 FOR NEW COST CENTER / LEGAL ENTITY
*&---------------------------------------------------------------------*
*&--ANLN1 KOSTL --ANLN1 KOSTL @12:38
*&---------------------------------------------------------------------*
*Modified By Vivek Nigam Dated On 05/12/2024 @ 09:48 AM To Fix Lover Case File Extention Issue & UTF-8 Encoding: 4110
*&-*Modified By Vivek Nigam Dated On 05/12/2024 @ 09:48 AM To Fix Lover Case File Extention Issue & UTF-8 Encoding: 4110
*Modified By Vivek Nigam Dated On 05/12/2024 @ 10:51 AM to fix output path And Added new HFT Path --------------------------------------------------------------------*
*https://lpl.sharepoint.com/:x:/r/sites/HEROProgramme-02.Pilot-UK/_layouts/15/Doc.aspx?sourcedoc=%7B47845D33-17F4-48A5-A6CC-3C91E7896F36%7D&file=02.HERO_design_source_schemas_fixed_asset_2.xlsx&action=default&mobileredirect=true
REPORT Z_ANLZ_HERO_FA.
TYPE-POOLS: VRM.
DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
PARAMETERS: ENTITY(10) AS LISTBOX VISIBLE LENGTH 10.
*&--PARAMETERS : OPPATH LIKE RLGRAP-FILENAME DEFAULT 'C:\tmp\TT\ANLZ.csv'.
*PARAMETERS : OPATH TYPE STRING DEFAULT '\\UKCROAPTST\tmp\Interfaces\HFT\SAP_Hero_Prod\Raw\IN\UK\UK01\ANLZ.csv'.
PARAMETERS : OPATH TYPE STRING LOWER CASE DEFAULT '\\UKDATWNINTP01\SAP_Hero_OAT\raw\in\uk\UK01\ANLZ.csv'.
AT SELECTION-SCREEN OUTPUT.
NAME = 'ENTITY'.
VALUE-KEY = 'UK01'.
VALUE-TEXT = 'UK01'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK75'.
VALUE-TEXT = 'UK75'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK21'.
VALUE-TEXT = 'UK21'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK31'.
VALUE-TEXT = 'UK31'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK41'.
VALUE-TEXT = 'UK41'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK02'.
VALUE-TEXT = 'UK02'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK73'.
VALUE-TEXT = 'UK73'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK04'.
VALUE-TEXT = 'UK04'.
APPEND VALUE TO LIST.
VALUE-KEY = 'UK61'.
VALUE-TEXT = 'UK61'.
APPEND VALUE TO LIST.
CALL FUNCTION 'VRM_SET_VALUES' EXPORTING ID = NAME VALUES = LIST.
*&------PARAMETERS p_lname TYPE char5.
*&------PARAMETERS p_oppath TYPE char50.
*&------AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lname.
*&------AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_oppath.
*&------AT SELECTION-SCREEN ON VALUE-REQUEST FOR OPPATH.
START-OF-SELECTION.
*&------WRITE: / 'LEGAL ENTITY NAME:', ENTITY.
*&------WRITE: / 'OUTPUT FILE PATH:', OPATH.
type-pools:TRUXS.
* This below code is added by VN again to Fix Header Issue
*Dated On 27-Oct-2024 @10:40 AM
*DATA: begin of OPATH occurs 0,
*
*line(50) type c,
*
*end of OPATH.
*
**FORM build_header_line.
*
*OPATH-line = 'ANLN1'.
*
*append header_line.
*
*OPATH-line = 'KOSTL'.
*
*append header_line.
*
*OPATH-line = 'BUKRS'.
*
*append header_line.
*
*
**ENDFORM.
***build_header_line.
**ENDFORM. build_header_line.
**Header Program End Here
data: begin of itab occurs 0,
anln1 like anlz-anln1,
kostl like anlz-kostl,
* BUKRS like anlz-BUKRS,
end of itab.
data: itab1 type TRUXS_T_TEXT_DATA.
select DISTINCT
ANLZ~anln1
ANLZ~kostl
* ANLZ~BUKRS
from ANLZ INNER JOIN ANLA ON ANLZ~ANLN1 = ANLA~ANLN1
into table itab
WHERE ANLA~DEAKT ='00000000' AND ANLZ~BUKRS = ENTITY.
*"header data --ANLN1 KOSTL
itab-ANLN1 = 'ANLN1'.
itab-KOSTL = 'KOSTL'.
Insert itab index 1.
CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'
EXPORTING
I_FIELD_SEPERATOR = ','
TABLES
I_TAB_SAP_DATA = itab
CHANGING
I_TAB_CONVERTED_DATA = itab1
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = OPATH
CODEPAGE = '4110' "4310 codepage 4310 encodes as UTF-8.
TABLES
data_tab = itab1
EXCEPTIONS
OTHERS = 1.
No comments:
Post a Comment