How to transport InfoObject Conversion Routine
Hi,
I am using an existing coversion routine to my InfoObjects, this conversion routine is a custom object which already existed in Dev created by someone and i have just used it for my InfoObjects, now how can i transport this conversion routine to CONS, is it enough if i just transport the INPUT and OUTPUT function module.
Thanks
Akila. R
hi Just go to the transport Connection, select the infoobjet automatically the conversion routines will be associated with it no need of collecting it seperately .
for example
ALPHA conversion is used in the BW system for each presetting for character characteristics. The ALPHA conversion routine is registered automatically when a characteristic is created. If you do not want to use this routine, you have to remove it manually.
The ALPHA conversion routine is used, for example, with account numbers or document numbers.
For conversions from an internal to an external format (function module CONVERSION_EXIT_ALPHA_OUTPUT) the process is reversed. Blank characters on the left-hand side are omitted from the output.
CONVERSION_EXIT_ALPHA_OUTPUT ths functional module will be transorted automatically with out your notice
hope this helps
santosh
Edited by: Santhosh Nagaraj on Sep 16, 2009 2:59 PM
Edited by: Santhosh Nagaraj on Sep 16, 2009 3:00 PM
Similar Messages
-
Infoobject Conversion Routine Alpha
Hi All,
At the time of creating infoobjects under General Tab we have option Conversion Routine : Alpha (by default), can anybody put light on that what is that exactly.
Thanks and Regards
Asim.Hi,
See the following program, and the same logic you can apply in Transfer Rules/Transformations. Take ABAPer help.
REPORT ZALPHA_INPUT.
DATA: ZI(18) TYPE C,
ZO(12) TYPE C.
DATA: ZS(12) TYPE C,
ZR(18) TYPE C.
ZI = '000000099999889925'.
ZS = '099999889925'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = ZI
IMPORTING
OUTPUT = ZO.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = ZS
IMPORTING
OUTPUT = ZR .
Write:/ ZI.
Write:/ ZO.
Write:/ ZS.
Write:/ ZR.
Thanks
Reddy -
How to use conversion routine?
hi,
in my z-table i have a field called matnr for the material number say.
its domain defines it as 18 char.
say i have created an entry say 200.
so it will be saved may be as 000000000000000200.
i want it should be displayed with as 200.
and if i search for say 200.
so it should not look for the proceeding zero's.
it should not give me an error that record doesn't exists.
please tell me how to use exaclty conversion routine.
thanks
ektahi all,
the problem has been solved.
CONVERSION_EXIT_MATN1_OUTPUT this FM module can only be used where the z-table has matnr of the type MATNR the standard matnr of the table mara.
so in my program it was not working.
my data element was not matnr.
i had used a popup for position finder.
so it could not read the material number which had zeros as prefixes.
thanks for all the help
thanks
ekta
below the code is mentioned...................
*******************************C O D E*******************************************
WHEN '&POS'.
popup_title = 'Choose The Material Number'.
CLEAR it_fields.
it_fields-tabname = 'Z10ET_TAB_MAT01'.
it_fields-fieldname = 'MATNR'.
it_fields-field_attr = ' '.
it_fields-field_obl = 'X'.
APPEND it_fields.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
no_value_check = 'X'
popup_title = popup_title
start_column = '5'
start_row = '5'
IMPORTING
returncode = returncode
TABLES
fields = it_fields
EXCEPTIONS
error_in_fields = 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.
IF returncode = ' '.
MESSAGE i036 WITH it_fields-value.
SORT it_material_data BY matnr.
READ TABLE it_material_data INTO wa_material_data
WITH KEY matnr = it_fields-value.
IF sy-subrc = 0.
tab_ctrl1-top_line = sy-tabix.
REFRESH it_fields.
CLEAR returncode.
CLEAR ok_code_0101.
ELSE.
CONCATENATE concat it_fields-value INTO v_matnr.
READ TABLE it_material_data INTO wa_material_data
WITH KEY matnr = v_matnr.
IF sy-subrc = 0.
tab_ctrl1-top_line = sy-tabix.
REFRESH it_fields.
CLEAR returncode.
CLEAR ok_code_0101.
ELSE.
MESSAGE i037 WITH it_fields-value.
REFRESH it_fields.
CLEAR returncode.
CLEAR ok_code_0101.
ENDIF.
ENDIF.
ENDIF. -
Hello Gurus,
I am fetching dates from tables in source system, which is of type Decimal 15.
Now this in a very strange format, as you see in the source system tables.
Hence I want to use an conversion routine in BI, at the infoobject level.
I have created ZABCDATE, with a datatype DATS.
My 1st question is, is there a way to write your own conversion routine.
My 2nd question is, how can I define conversion routines at the datasource level.
Thanks in advance
Full points to correct answers
Edited by: bw on Jan 21, 2009 12:59 AMHi.......
1) is there a way to write your own conversion routine.
Yes..........u can write ur own ABAP code in the End routine of the Transformation..........
2) is, how can I define conversion routines at the datasource level.
If u write ur own ABAP code for conversion in the Transformation...........then that will be at datasource level........ie datasource specific.......
Regards,
Debjani..... -
How to reset Conversion Routine NUMCV in InfoObject
Dear all,
In order to test, I deleted the Conversion Routine NUMCV in tab General of an InfoObject. And now I'd like to reset it as NUMCV. A message says: Conversion Routine NUMCV was deleted.
How can I resolve it?
Thanks a lot in advanceThanks for your answer.
I've tried to create a new InfoObject, but everytime when I choose "Data type" as NUMC and then choose "Convers. Rout" as "NUMCV", it's said : Conversion Routine NUMCV was deleted.
Do you have any idea? -
How to remove conversion routine "ABPSN"
Dear gurus,
In my transfer rules, under the tab "DataSource/Trans. Structure", I have a field PSPID whose "Conversion Routine" has the value "ABPSN". This conversion routine converts the external format to the SAP format which, however, is not what I want. I want to remain the original format so I need to remove this "ABPSN" conversion routine. When I double clicked it, it linked to the InfoObject 0PROJECT maintanace screen. On that screen, I removed the conversion routine "PROJ" for 0PROJECT, but still ABPSN remains and the data loaded into the InfoCube have been converted.
So how can I remove this ABPSN convertion routine?
Thanks in advance.
Jin MingHi Jin Ming,
Conversion Exit ABSPN is related to WBS element and not project at R/3 side.
But at BW side this routine internally calls Project routine .
The Process is,
1. Delete all transactional data , from related ODS & Cube wherever 0PRoject is used .
2. Delete master data from 0Project.
3. Change object 0Project remove the conversion using Tcode RSD1.
4. Load master data for 0Project.
5. Load transaction data.
Hope that helps.
Regards
Mr Kapadia -
How to "Custom conversion routine" in BW
Hi team,
The R3 table level field has converion routine which stores the value as "A" .
When you display this in application (or) using ALV, it shows as "AB". There are custom function modules behind this conversion routine.
In BW, when we extract until PSA, we are getting "A".
I see the option at Info object level to write" conversion routine" but how and where to start this conversion routine in BW.
In BW, we want to show "AB"
Thanks
AngeloHi,
this problem is solved in transformation PSA to InfoObject using formula or routine.
Regards,
Conrado
www.forosap.com
Spanish SAP Forum Administrator
Edited by: Conrado Linquet on Mar 29, 2010 5:54 PM -
How to write conversion routine for key figure?
Our customer has this requirment:
we need to know the last time of some TV program in BEx report, If a TV program last 500 seconds, we need show the key figure like this: 00:08:20, If a TV program last 100000 seconds, we need show the key figure like 27:46:40 (27 hours and 46 minitues and 27 seconds), If we define a key figure as time, BW system will report a error that say it is not acceptable time. If we want to define a integer, but we need display it like hhmmss format. We know we can write conversion routine for char. but I don't how to write conversion routine for key figure. Please give me any hint if any other solutions?
Edited by: SY DONG on Dec 2, 2010 3:36 AMIf you want to do in Transformation Layer :
You can use routine ...break up the seconds into minute hour and seconds
you will have to handle few cases in this:
let say your variable lv_seconds holds the number of seconds you want to convert to hour min and seconds
DATA: lv_seconds type i,
lv_hrs type i,
lv_sec type i,
lv_min type i.
lv_hrs = lv_seconds / 3600
if lv_hrs >= 1.
lv_min = (lv_hrs - trunc(lv_hrs))*60
here again handle seconds if min >60.
else.
lv_hrs = '00'.
lv_min = lv_hrs*60
It is just hint ..how you can manipulate the seconds to get it...you will have to think about the complete algorithm
Regards,
RK -
How To transport the Routines with UR
i HAVE THE ur WHICH I SELECTED from Object types in Transport connection now how to transport the routines
please tell what to select
soniyaHi Soniya,
If you have collected the UR, the routines would also get collected. You can verify this in the RSA1? Transport connection screen, or if you have assigned to a request, open up the request and see if you can see R3TR ROUT entries.
Hope this helps... -
How to delimit leading zero in vendor number in OO ABAP ALV without using conversion routine
Hi,
How to delimit leading zero in OO ABAP ALV without using conversion routine, because I have many fields like vendor, customer, material number etc..
How to address this leading zero.
I appreciate your quick response.
Regards,
Nalini S.Hi Nalini,
Delimiting leading zeros in fields has to be done via conversion routines, as suggested by Vadamalai you need to pass on the conversion routine name in you field catalog variable.
Now as to which object oriented approach are you using to have your table contents display in ALV as it matters -
Using FACTORY method of CL_SALV_TABLE class, or
Using SET_TABLE_FOR_FIRST_DISPLAY method of CL_GUI_ALV_GRID class.
Using FACTORY method of CL_SALV_TABLE will do your own work, no need to apply any conversion routines or set long/medium/short text for columns as we do in field catalogs!
Cheers,
Varun -
How can solve this ORA-03120: two-task conversion routine: integer overflow
Hello everybody,
I'm writing this query "SELECT rowid from <mytable>" and I get this error: ORA-03120
Does anybody know how can i solve it?
Thanks in adviceHere is the cause and action as suggested in the Oracle Error Guide...please see if it helps you to fix the error
ORA-03120:two-task conversion routine:integer overflow
Cause: An integer value in an internal Oracle structure overflowed when being sent or received over a heterogeneous connection. This can happen when an invalid buffer length or too great a row count is specified. It usually indicates a bug in user application.
Action: Check parameters to Oracle calls. If the problem recurs, reduce all integer parameters, column values not included, to less than 32767
Regards,
Murali Mohan -
Urgent: Transport Connection Conversion: Wrong Setting : How to correct
Hi Friends In our BI Ssystem somebody have wrongly put the Settings in Transport Connect -- "Conversion Button" The entry as DS4CLNT200 (Development BI System ---QS4CLNT200 (Quality BI System))
Which should never be the case . It should always be DE4CLNT200 Development ECC System - QE4CLNT200 Quality ECC System.
Please help me how to resolve this I just want to delete it but when i try deleting it gives error that entry not found in DE4CLNT200 . I guess it is already assigned now.
please help me , will really appreciate it .how to delete this.
Thanks
PoonamHi Poonam,
Please take a look at this OSS note - 524554 (Storing destination in the BW environment), 325525 (Copying and renaming system in a BW environment).
Hope this helps,
Bye... -
Conversion Routine... plz help
Dear Gurus,
There is a text field in R3 called as SGTXT related to some finance table... some of the records in this field directly start with '#' character and then the details.. Well here is the problem.. I m loading to ODS 0FIAR_O04 and it ends up in error due to the above mentioned problem.. the infoobject which carry the data from SGTXT field is 0POSTXT...
I decided to go for a conversion routive in transfer rule for this field.. but i dont know how to write routines.. can you plz help me with the steps as well as the code to remove '#' from SGTXT.... Thanks.
For more help i m attaching the conversion routine with is automatically generated by system... only i hv to add code to remove '#' character... kindly go thru it and suggest me where to add and what to add...
here it is
PROGRAM CONVERSION_ROUTINE.
Type pools used by conversion program
TYPE-POOLS: RS, RSARC, RSARR, SBIWA, RSSM.
Declaration of transfer structure (selected fields only)
TYPES: BEGIN OF TRANSFER_STRUCTURE ,
InfoObject 0POSTXT: CHAR - 000050
SGTXT(000050) TYPE C,
END OF TRANSFER_STRUCTURE .
Global code used by conversion rules
$$ begin of global - insert your declaration only below this line -
TABLES: ...
DATA: ...
$$ end of global - insert your declaration only before this line -
FORM COMPUTE_POSTXT
Compute value of InfoObject 0POSTXT
in communication structure /BIC/CS0FI_AR_4
Technical properties:
field name = POSTXT
data element = /BI0/OIPOSTXT
data type = CHAR
length = 000060
decimals = 000000
ABAP type = C
ABAP length = 000120
reference field =
Parameters:
--> RECORD_NO Record number
--> TRAN_STRUCTURE Transfer structure
<-- RESULT Return value of InfoObject
<-> G_T_ERRORLOG Error log
<-- RETURNCODE Return code (to skip one record)
<-- ABORT Abort code (to skip whole data package)
FORM COMPUTE_POSTXT
USING RECORD_NO LIKE SY-TABIX
TRAN_STRUCTURE TYPE TRANSFER_STRUCTURE
G_S_MINFO TYPE RSSM_S_MINFO
CHANGING RESULT TYPE /BI0/OIPOSTXT
G_T_ERRORLOG TYPE rssm_t_errorlog_int
RETURNCODE LIKE SY-SUBRC
ABORT LIKE SY-SUBRC. "set ABORT 0 to cancel datapackage
$$ begin of routine - insert your code only below this line -
DATA: l_s_errorlog TYPE rssm_s_errorlog_int.
RESULT = .
returncode 0 means skip this record
RETURNCODE = 0.
abort 0 means skip whole data package !!!
ABORT = 0.
$$ end of routine - insert your code only before this line -
ENDFORM.
FORM INVERT_POSTXT
Inversion of selection criteria for InfoObject 0POSTXT
This subroutine needs to be implemented only for SAP RemoteCubes
(for better performance) and for the Report/Report Interface
(drill through).
--> I_RT_CHAVL_CS Ranges table for current InfoObject
--> I_THX_SELECTION_CS Selection criteria for all other InfoObjects
<-- C_T_SELECTION Selection criteria for fields of
transfer structure
<-- E_EXACT Flag: Inversion was exact
FORM INVERT_POSTXT
USING I_RT_CHAVL_CS TYPE RSARC_RT_CHAVL
I_THX_SELECTION_CS TYPE RSARC_THX_SELCS
CHANGING C_T_SELECTION TYPE SBIWA_T_SELECT
E_EXACT TYPE RS_BOOL.
$$ begin of inverse routine - insert your code only below this line-
DATA:
L_S_SELECTION LIKE LINE OF C_T_SELECTION.
An empty selection means all values
CLEAR C_T_SELECTION.
L_S_SELECTION-FIELDNM = 'SGTXT'.
Selection of all values may be not exact
E_EXACT = RS_C_FALSE.
$$ end of inverse routine - insert your code only before this line -
ENDFORM.It has been solved.. thanks everyone for inputs.. points awarded to concerened.. thanks.
-
U rgent:"i want to know the work of this "conversion routine".
Hi all,
In the domain of any field in the database table there is one option called "conversion routine" just below to "output list".
i want to know the work of this "conversion routine".
can any one please tell me the practical use of this with real time example.
good points will be rewarded for helpful answer.
thanks in advance
Message was edited by:
tapu abapHi,
REPORT ZTEST.
TYPES: UPC_YS_API_CHASEL_T TYPE STANDARD TABLE OF UPC_YS_API_CHASEL.
TYPES: UPC_YS_API_CHAPRO_T TYPE STANDARD TABLE OF UPC_YS_API_CHAPRO.
TYPES: UPC_YS_API_KYFPRO_T TYPE STANDARD TABLE OF UPC_YS_API_KYFPRO.
CLASS CL_ABAP_CONV_ROUTINE DEFINITION DEFERRED.
TYPES: BEGIN OF CONVEXIT_LOOKUP_S,
CONVEXIT TYPE LVC_S_FCAT-CONVEXIT,
O_CONVEXIT TYPE REF TO CL_ABAP_CONV_ROUTINE,
END OF CONVEXIT_LOOKUP_S.
TYPES: CONVEXIT_LOOKUP_T TYPE HASHED TABLE OF CONVEXIT_LOOKUP_S
WITH UNIQUE KEY CONVEXIT.
TYPES: FIELDCATALOG_UNIQUE TYPE HASHED TABLE OF LVC_S_FCAT
WITH UNIQUE KEY FIELDNAME.
TYPES: BEGIN OF PLAN_AREA_STRUCT_CACHE,
PLANNING_AREA TYPE UPC_AREA-AREA,
FIELDCATALOG TYPE LVC_T_FCAT,
CHARACTERISTICS TYPE ZUPC_YS_API_CHAPRO_T,
KEYFIGURES TYPE ZUPC_YS_API_KYFPRO_T,
TRANSACTION_DATA_TABLE TYPE REF TO DATA,
END OF PLAN_AREA_STRUCT_CACHE.
TYPES: PLAN_AREA_STRUCT_CACHE_T TYPE SORTED TABLE OF
PLAN_AREA_STRUCT_CACHE WITH UNIQUE KEY PLANNING_AREA.
* CLASS CX_DATE_CONVERSION DEFINITION
CLASS CX_DATE_CONVERSION DEFINITION INHERITING FROM CX_DYNAMIC_CHECK.
PUBLIC SECTION.
DATA: MESSAGE TYPE STRING.
METHODS CONSTRUCTOR
IMPORTING MESSAGE TYPE STRING.
ENDCLASS. "CX_DATE_CONVERSION DEFINITION
* CLASS CX_DATE_CONVERSION IMPLEMENTATION
CLASS CX_DATE_CONVERSION IMPLEMENTATION.
METHOD CONSTRUCTOR.
SUPER->CONSTRUCTOR( ).
ME->MESSAGE = MESSAGE.
ENDMETHOD. "CONSTRUCTOR
ENDCLASS. "CX_DATE_CONVERSION IMPLEMENTATION
* CLASS CL_ABAP_CONV_ROUTINE DEFINITION
CLASS CL_ABAP_CONV_ROUTINE DEFINITION.
PUBLIC SECTION.
METHODS APPLY_CONV_INPUT
IMPORTING
INPUT TYPE ANY
EXPORTING
OUTPUT TYPE ANY .
METHODS APPLY_CONV_OUTPUT
IMPORTING
INPUT TYPE ANY
EXPORTING
OUTPUT TYPE ANY .
METHODS GET_CONVEXIT
RETURNING
VALUE(CONVEXIT) TYPE CONVEXIT .
METHODS SET_CONVEXIT
IMPORTING
VALUE(CONVEXIT) TYPE CONVEXIT .
METHODS CONSTRUCTOR
IMPORTING
CONVEXIT TYPE CONVEXIT OPTIONAL .
PRIVATE SECTION.
DATA CONVEXIT TYPE CONVEXIT .
METHODS GET_INPUT_CONVERSION_EXIT
RETURNING
VALUE(FUNCTION_MODULE_NAME) TYPE STRING .
METHODS GET_OUTPUT_CONVERSION_EXIT
RETURNING
VALUE(FUNCTION_MODULE_NAME) TYPE STRING .
ENDCLASS. "CL_ABAP_CONV_ROUTINE DEFINITION
* CLASS CL_ABAP_CONV_ROUTINE IMPLEMENTATION
CLASS CL_ABAP_CONV_ROUTINE IMPLEMENTATION.
METHOD APPLY_CONV_INPUT .
DATA: FUNCT_MOD TYPE STRING.
IF NOT ME->CONVEXIT IS INITIAL.
* Only apply conversion routine if it exits
CALL METHOD ME->GET_INPUT_CONVERSION_EXIT
RECEIVING
FUNCTION_MODULE_NAME = FUNCT_MOD.
CALL FUNCTION FUNCT_MOD
EXPORTING
INPUT = INPUT
IMPORTING
OUTPUT = OUTPUT.
ELSE.
* Can only hope this works
OUTPUT = INPUT.
ENDIF.
ENDMETHOD. "APPLY_CONV_INPUT
METHOD APPLY_CONV_OUTPUT.
DATA: FUNCT_MOD TYPE STRING.
IF NOT ME->CONVEXIT IS INITIAL.
* Only apply conversion routine if it exits
CALL METHOD ME->GET_OUTPUT_CONVERSION_EXIT
RECEIVING
FUNCTION_MODULE_NAME = FUNCT_MOD.
CALL FUNCTION FUNCT_MOD
EXPORTING
INPUT = INPUT
IMPORTING
OUTPUT = OUTPUT.
ELSE.
* Can only hope this works
OUTPUT = INPUT.
ENDIF.
ENDMETHOD. "APPLY_CONV_OUTPUT
METHOD CONSTRUCTOR.
IF CONVEXIT IS SUPPLIED.
CALL METHOD ME->SET_CONVEXIT
EXPORTING
CONVEXIT = CONVEXIT.
ENDIF.
ENDMETHOD. "CONSTRUCTOR
METHOD GET_CONVEXIT.
CONVEXIT = ME->CONVEXIT.
ENDMETHOD. "GET_CONVEXIT
METHOD SET_CONVEXIT.
ME->CONVEXIT = CONVEXIT.
ENDMETHOD. "SET_CONVEXIT
METHOD GET_INPUT_CONVERSION_EXIT.
* Generate standard conversion routines for input conversion
* This is based on standard SAP ABAP help documentation
CONCATENATE 'CONVERSION_EXIT_' ME->CONVEXIT
'_INPUT' INTO FUNCTION_MODULE_NAME.
ENDMETHOD. "GET_INPUT_CONVERSION_EXIT
METHOD GET_OUTPUT_CONVERSION_EXIT.
* Generate standard conversion routines for output conversion
* This is based on standard SAP ABAP help documentation
CONCATENATE 'CONVERSION_EXIT_' ME->CONVEXIT
'_OUTPUT' INTO FUNCTION_MODULE_NAME.
ENDMETHOD. "GET_OUTPUT_CONVERSION_EXIT
ENDCLASS. "CL_ABAP_CONV_ROUTINE IMPLEMENTATION
* CLASS CL_ABAP_CONV_DECIMAL DEFINITION
CLASS CL_ABAP_CONV_DECIMAL DEFINITION.
PUBLIC SECTION.
CLASS-DATA SAP_DECIMAL_FMT_SPACE TYPE USR01-DCPFM VALUE ' '
READ-ONLY .
CLASS-DATA SAP_DECIMAL_FMT_X TYPE USR01-DCPFM VALUE 'X' READ-ONLY .
CLASS-DATA SAP_DECIMAL_FMT_Y TYPE USR01-DCPFM VALUE 'Y' READ-ONLY .
CLASS-DATA USER_DECIMAL_FORMAT TYPE USR01-DCPFM READ-ONLY .
CLASS-METHODS CLASS_CONSTRUCTOR .
CLASS-METHODS CONVERT_DECIMAL_EXT2INT
IMPORTING
EXTERNAL_VALUE TYPE STRING
CHANGING
INTERNAL_VALUE TYPE P
RAISING
CX_SY_CONVERSION_OVERFLOW
CX_SY_CONVERSION_NO_NUMBER .
CLASS-METHODS CONVERT_DECIMAL_INT2EXT
IMPORTING
INTERNAL_VALUE TYPE P
CHANGING
EXTERNAL_VALUE TYPE STRING .
ENDCLASS. "CL_ABAP_CONV_DECIMAL DEFINITION
* CLASS CL_ABAP_CONV_DECIMAL IMPLEMENTATION
CLASS CL_ABAP_CONV_DECIMAL IMPLEMENTATION.
METHOD CLASS_CONSTRUCTOR .
SELECT SINGLE DCPFM FROM USR01 INTO USER_DECIMAL_FORMAT
WHERE BNAME = SY-UNAME.
ENDMETHOD. "CLASS_CONSTRUCTOR
METHOD CONVERT_DECIMAL_EXT2INT .
* THE GOAL IS TO GET THIS INTO INTERNAL FORMAT WHICH IS EQUIVALENT TO
* EX. NNNNN.NN
DATA: NUM_STR TYPE STRING.
NUM_STR = EXTERNAL_VALUE.
CONDENSE NUM_STR NO-GAPS.
CASE USER_DECIMAL_FORMAT.
WHEN SAP_DECIMAL_FMT_X.
REPLACE ALL OCCURRENCES OF ',' IN NUM_STR WITH SPACE.
CONDENSE NUM_STR NO-GAPS.
WHEN SAP_DECIMAL_FMT_SPACE.
REPLACE ALL OCCURRENCES OF '.' IN NUM_STR WITH SPACE.
CONDENSE NUM_STR NO-GAPS.
REPLACE ALL OCCURRENCES OF ',' IN NUM_STR WITH '.'.
WHEN SAP_DECIMAL_FMT_Y.
REPLACE ALL OCCURRENCES OF ',' IN NUM_STR WITH '.'.
ENDCASE.
INTERNAL_VALUE = NUM_STR.
ENDMETHOD. "CONVERT_DECIMAL_EXT2INT
METHOD CONVERT_DECIMAL_INT2EXT .
* THE GOAL IS TO GET THIS INTO EXTERNAL FORMAT WHICH IS BASED ON SAP
* USER PROFILE SETTINGS
* CURRENT INPUT FORMAT EQUIVALENT IS EX. NNNNN.NN
DATA: TEMP(70) TYPE C.
WRITE INTERNAL_VALUE TO TEMP.
EXTERNAL_VALUE = TEMP.
ENDMETHOD. "CONVERT_DECIMAL_INT2EXT
ENDCLASS. "CL_ABAP_CONV_DECIMAL IMPLEMENTATION
* CLASS CL_ABAP_CONV_DATE DEFINITION
CLASS CL_ABAP_CONV_DATE DEFINITION.
PUBLIC SECTION.
CLASS-DATA SAP_DATE_FMT_5 TYPE USR01-DATFM VALUE '5' READ-ONLY .
CLASS-DATA SAP_DATE_FMT_6 TYPE USR01-DATFM VALUE '6' READ-ONLY .
CLASS-DATA SAP_DATE_FMT_3 TYPE USR01-DATFM VALUE '3' READ-ONLY .
CLASS-DATA SAP_DATE_FMT_4 TYPE USR01-DATFM VALUE '4' READ-ONLY .
CLASS-DATA SAP_DATE_FMT_1 TYPE USR01-DATFM VALUE '1' READ-ONLY .
CLASS-DATA SAP_DATE_FMT_2 TYPE USR01-DATFM VALUE '2' READ-ONLY .
CLASS-DATA USER_DATE_FORMAT TYPE USR01-DATFM READ-ONLY .
CLASS-METHODS CONVERT_DATE_EXT2INT
IMPORTING
EXTERNAL_DATE TYPE STRING
RETURNING
VALUE(INTERNAL_DATE) TYPE D
RAISING
CX_DATE_CONVERSION .
CLASS-METHODS CONVERT_DATE_INT2EXT
IMPORTING
INTERNAL_DATE TYPE D
RETURNING
VALUE(EXTERNAL_DATE) TYPE STRING .
CLASS-METHODS CLASS_CONSTRUCTOR .
ENDCLASS. "CL_ABAP_CONV_DATE DEFINITION
* CLASS CL_ABAP_CONV_DATE IMPLEMENTATION
CLASS CL_ABAP_CONV_DATE IMPLEMENTATION.
METHOD CLASS_CONSTRUCTOR.
SELECT SINGLE DATFM FROM USR01 INTO USER_DATE_FORMAT
WHERE BNAME = SY-UNAME.
ENDMETHOD. "CLASS_CONSTRUCTOR
METHOD CONVERT_DATE_EXT2INT.
* HERE ARE THE CURRENT DATE FORMATS FROM SAP GUI
*1 DD.MM.YYYY
*2 MM/DD/YYYY
*3 MM-DD-YYYY
*4 YYYY.MM.DD
*5 YYYY/MM/DD
*6 YYYY-MM-DD
DATA: PERMITTED_NUMBERS TYPE STRING VALUE '0123456789'.
DATA: TEMP_DATE TYPE D.
DATA: MESSAGE_VALID_NUMERICS TYPE STRING
VALUE 'Only Numerics (0-9) are acceptable.'.
DATA: MESSAGE_VALID_FORMAT TYPE STRING
VALUE 'Invalid date format.'.
IF STRLEN( EXTERNAL_DATE ) = 10.
CASE USER_DATE_FORMAT.
WHEN SAP_DATE_FMT_1.
IF EXTERNAL_DATE+2(1) = '.' AND EXTERNAL_DATE+5(1) = '.'.
TEMP_DATE+0(4) = EXTERNAL_DATE+6(4). " YEAR
TEMP_DATE+4(2) = EXTERNAL_DATE+3(2). " MONTH
TEMP_DATE+6(2) = EXTERNAL_DATE+0(2). " DAY
IF NOT ( TEMP_DATE CO PERMITTED_NUMBERS ).
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_NUMERICS." ISSUE ERROR
ENDIF.
ELSE.
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_FORMAT. " ISSUE ERROR
ENDIF.
WHEN SAP_DATE_FMT_2.
IF EXTERNAL_DATE+2(1) = '/' AND EXTERNAL_DATE+5(1) = '/'.
TEMP_DATE+0(4) = EXTERNAL_DATE+6(4). " YEAR
TEMP_DATE+4(2) = EXTERNAL_DATE+0(2). " MONTH
TEMP_DATE+6(2) = EXTERNAL_DATE+3(2). " DAY
IF NOT ( TEMP_DATE CO PERMITTED_NUMBERS ).
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_NUMERICS. " ISSUE
ENDIF.
ELSE.
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_FORMAT. " ISSUE ERROR
ENDIF.
WHEN SAP_DATE_FMT_3.
IF EXTERNAL_DATE+2(1) = '-' AND EXTERNAL_DATE+5(1) = '-'.
TEMP_DATE+0(4) = EXTERNAL_DATE+6(4). " YEAR
TEMP_DATE+4(2) = EXTERNAL_DATE+0(2). " MONTH
TEMP_DATE+6(2) = EXTERNAL_DATE+3(2). " DAY
IF NOT ( TEMP_DATE CO PERMITTED_NUMBERS ).
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_NUMERICS." ISSUE ERROR
ENDIF.
ELSE.
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_FORMAT. " ISSUE ERROR
ENDIF.
WHEN SAP_DATE_FMT_4.
IF EXTERNAL_DATE+4(1) = '.' AND EXTERNAL_DATE+7(1) = '.'.
TEMP_DATE+0(4) = EXTERNAL_DATE+0(4). " YEAR
TEMP_DATE+4(2) = EXTERNAL_DATE+5(2). " MONTH
TEMP_DATE+6(2) = EXTERNAL_DATE+8(2). " DAY
IF NOT ( TEMP_DATE CO PERMITTED_NUMBERS ).
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_NUMERICS." ISSUE ERROR
ENDIF.
ELSE.
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_FORMAT. " ISSUE ERROR
ENDIF.
WHEN SAP_DATE_FMT_5.
IF EXTERNAL_DATE+4(1) = '/' AND EXTERNAL_DATE+7(1) = '/'.
TEMP_DATE+0(4) = EXTERNAL_DATE+0(4). " YEAR
TEMP_DATE+4(2) = EXTERNAL_DATE+5(2). " MONTH
TEMP_DATE+6(2) = EXTERNAL_DATE+8(2). " DAY
IF NOT ( TEMP_DATE CO PERMITTED_NUMBERS ).
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_NUMERICS." ISSUE ERROR
ENDIF.
ELSE.
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_FORMAT. " ISSUE ERROR
ENDIF.
WHEN SAP_DATE_FMT_6.
IF EXTERNAL_DATE+4(1) = '-' AND EXTERNAL_DATE+7(1) = '-'.
TEMP_DATE+0(4) = EXTERNAL_DATE+0(4). " YEAR
TEMP_DATE+4(2) = EXTERNAL_DATE+5(2). " MONTH
TEMP_DATE+6(2) = EXTERNAL_DATE+8(2). " DAY
IF NOT ( TEMP_DATE CO PERMITTED_NUMBERS ).
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_NUMERICS." ISSUE ERROR
ENDIF.
ELSE.
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_FORMAT. " ISSUE ERROR
ENDIF.
ENDCASE.
INTERNAL_DATE = TEMP_DATE.
ELSEIF STRLEN( EXTERNAL_DATE ) = 8.
* ASSUME NORMAL DATE FORMAT (YYYYMMDD)
INTERNAL_DATE = EXTERNAL_DATE.
ELSE.
RAISE EXCEPTION TYPE CX_DATE_CONVERSION
EXPORTING MESSAGE = MESSAGE_VALID_FORMAT. " ISSUE ERROR
ENDIF.
ENDMETHOD. "CONVERT_DATE_EXT2INT
METHOD CONVERT_DATE_INT2EXT.
* HERE ARE THE CURRENT DATE FORMATS FROM SAP GUI
*1 DD.MM.YYYY
*2 MM/DD/YYYY
*3 MM-DD-YYYY
*4 YYYY.MM.DD
*5 YYYY/MM/DD
*6 YYYY-MM-DD
DATA: EXTERNAL_DATE_TEMP(10) TYPE C.
WRITE INTERNAL_DATE TO EXTERNAL_DATE_TEMP.
EXTERNAL_DATE = EXTERNAL_DATE_TEMP.
ENDMETHOD. "CONVERT_DATE_INT2EXT
ENDCLASS. "CL_ABAP_CONV_DATE IMPLEMENTATION
* CLASS CX_SEM_BPS_DATA_ACCESS DEFINITION
CLASS CX_SEM_BPS_DATA_ACCESS DEFINITION INHERITING FROM CX_DYNAMIC_CHECK
PUBLIC SECTION.
DATA: MESSAGE TYPE STRING.
DATA: RETURN_T TYPE BAPIRET2_T.
METHODS CONSTRUCTOR
IMPORTING
MESSAGE TYPE STRING
RETURN_T TYPE BAPIRET2_T OPTIONAL.
ENDCLASS. "CX_SEM_BPS_DATA_ACCESS DEFINITION
* CLASS CX_SEM_BPS_DATA_ACCESS IMPLEMENTATION
CLASS CX_SEM_BPS_DATA_ACCESS IMPLEMENTATION.
METHOD CONSTRUCTOR.
SUPER->CONSTRUCTOR( ).
ME->MESSAGE = MESSAGE.
ME->RETURN_T = RETURN_T.
ENDMETHOD. "CONSTRUCTOR
ENDCLASS. "CX_SEM_BPS_DATA_ACCESS IMPLEMENTATION
* CLASS CL_SEMBPS_DATA_ACCESSOR DEFINITION
CLASS CL_SEMBPS_DATA_ACCESSOR DEFINITION.
PUBLIC SECTION.
DATA TRANSACTION_DATA TYPE REF TO DATA .
CLASS-DATA C_LEVEL TYPE UPC_PLEVEL-PLEVEL VALUE 'ZLABAP' READ-ONLY .
CLASS-DATA C_LAYOUT TYPE UPP_PARAM-PARAM VALUE 'ZMABAP' READ-ONLY .
CLASS-DATA C_ADHOC_PACK TYPE UPC_PACKAGE-PPACKAGE VALUE '0-ADHOC'
READ-ONLY .
CLASS-DATA C_MULTIPLAN_AREA TYPE UPC_YS_API_CHAPRO-CHANM VALUE
'_AREA_____' READ-ONLY .
METHODS GET_INFOCUBE
RETURNING
VALUE(INFOCUBE) TYPE UPC_BW_AREA-INFOCUBE .
METHODS GET_CHARACTERISTIC_SELECTIONS
EXPORTING
CHARACTERISTIC_SELECTION TYPE UPC_YS_API_CHASEL_T .
METHODS REFRESH
RAISING
CX_SEM_BPS_DATA_ACCESS .
METHODS CONSTRUCTOR
IMPORTING
PLANNING_AREA TYPE UPC_AREA-AREA
IT_FIELDCATALOG TYPE LVC_T_FCAT
TRANSACTION_DATA_TABLE TYPE REF TO DATA
CHARACTERISTIC_SELECTION TYPE UPC_YS_API_CHASEL_T
RAISING
CX_SEM_BPS_DATA_ACCESS .
METHODS GET_PLANNING_AREA
RETURNING
VALUE(PLANNING_AREA) TYPE UPC_AREA-AREA .
METHODS GET_CHARACTERISTICS
EXPORTING
CHARACTERISTICS TYPE UPC_YS_API_CHAPRO_T .
METHODS GET_KEYFIGURES
EXPORTING
KEYFIGURES TYPE UPC_YS_API_KYFPRO_T .
METHODS SAVE
RAISING
CX_SEM_BPS_DATA_ACCESS .
PRIVATE SECTION.
DATA CONVEXIT_LOOKUP TYPE CONVEXIT_LOOKUP_T .
DATA INFOCUBE TYPE UPC_BW_AREA-INFOCUBE .
DATA IT_FIELDCATALOG TYPE FIELDCATALOG_UNIQUE .
DATA PLANNING_AREA TYPE UPC_AREA-AREA .
DATA CHARACTERISTICS TYPE UPC_YS_API_CHAPRO_T .
DATA KEYFIGURES TYPE UPC_YS_API_KYFPRO_T .
DATA CHARACTERISTIC_SELECTION TYPE UPC_YS_API_CHASEL_T .
DATA LAYOUT_COL_SPEC TYPE STANDARD TABLE OF UPC_YS_API_COL .
CLASS-METHODS FORCE_ERROR_MESSAGE
IMPORTING
MESSAGE TYPE STRING OPTIONAL
RETURN_STRUCT TYPE BAPIRET2 OPTIONAL
RETURN_STRUCTS TYPE BAPIRET2_T OPTIONAL
RAISING
CX_SEM_BPS_DATA_ACCESS .
CLASS-METHODS CHECK_MESSAGE
IMPORTING
E_SUBRC TYPE SY-SUBRC
RETURN_STRUCT TYPE BAPIRET2
RAISING
CX_SEM_BPS_DATA_ACCESS .
METHODS SET_CHARACTERISTIC_SELECTION
IMPORTING
CHARACTERISTIC_SELECTION TYPE UPC_YS_API_CHASEL_T .
METHODS SET_PLANNING_AREA
IMPORTING
PLANNING_AREA TYPE UPC_AREA-AREA
RAISING
CX_SEM_BPS_DATA_ACCESS .
METHODS VALIDATE_PLANNING_OBJECTS
RAISING
CX_SEM_BPS_DATA_ACCESS .
CLASS-METHODS CHECK_MESSAGES
IMPORTING
RETURN_STRUCTS TYPE BAPIRET2_T
E_SUBRC TYPE SY-SUBRC
RAISING
CX_SEM_BPS_DATA_ACCESS .
METHODS READ_DATA
RAISING
CX_SEM_BPS_DATA_ACCESS .
ENDCLASS. "CL_SEMBPS_DATA_ACCESSOR DEFINITION
* CLASS CL_SEMBPS_DATA_ACCESSOR IMPLEMENTATION
CLASS CL_SEMBPS_DATA_ACCESSOR IMPLEMENTATION.
METHOD CONSTRUCTOR .
DATA: WA_FIELDCATALOG TYPE LVC_S_FCAT.
DATA: CONVEXIT_WA TYPE CONVEXIT_LOOKUP_S.
* BUILD CONVERSION EXITS AND FIELDCATALOG
LOOP AT IT_FIELDCATALOG INTO WA_FIELDCATALOG.
INSERT WA_FIELDCATALOG INTO TABLE ME->IT_FIELDCATALOG[].
IF NOT WA_FIELDCATALOG-CONVEXIT IS INITIAL.
CLEAR CONVEXIT_WA.
CONVEXIT_WA-CONVEXIT = WA_FIELDCATALOG-CONVEXIT.
CREATE OBJECT CONVEXIT_WA-O_CONVEXIT
EXPORTING
CONVEXIT = WA_FIELDCATALOG-CONVEXIT.
INSERT CONVEXIT_WA INTO TABLE ME->CONVEXIT_LOOKUP.
ENDIF.
ENDLOOP.
CALL METHOD ME->SET_PLANNING_AREA
EXPORTING
PLANNING_AREA = PLANNING_AREA.
CALL METHOD ME->SET_CHARACTERISTIC_SELECTION
EXPORTING
CHARACTERISTIC_SELECTION = CHARACTERISTIC_SELECTION.
* POINT TO TABLE CONTAINING TRANSACTION DATA
ME->TRANSACTION_DATA = TRANSACTION_DATA_TABLE.
* READ DATA
CALL METHOD ME->REFRESH.
ENDMETHOD. "CONSTRUCTOR
METHOD GET_CHARACTERISTICS .
CHARACTERISTICS[] = ME->CHARACTERISTICS[].
ENDMETHOD. "GET_CHARACTERISTICS
METHOD GET_CHARACTERISTIC_SELECTIONS.
CHARACTERISTIC_SELECTION[] = ME->CHARACTERISTIC_SELECTION[].
ENDMETHOD. "GET_CHARACTERISTIC_SELECTIONS
METHOD GET_INFOCUBE .
INFOCUBE = ME->INFOCUBE.
ENDMETHOD. "GET_INFOCUBE
METHOD GET_KEYFIGURES .
KEYFIGURES[] = ME->KEYFIGURES[].
ENDMETHOD. "GET_KEYFIGURES
METHOD GET_PLANNING_AREA .
PLANNING_AREA = ME->PLANNING_AREA.
ENDMETHOD. "GET_PLANNING_AREA
METHOD REFRESH.
CALL METHOD ME->READ_DATA.
ENDMETHOD. "REFRESH
METHOD SAVE .
DATA: E_SUBRC TYPE SY-SUBRC.
DATA: ES_RETURN TYPE BAPIRET2.
DATA: CHARACTERISTICS_WA TYPE UPC_YS_API_CHAPRO.
DATA: WA_REF TYPE REF TO DATA.
DATA: ITK_ROW TYPE TABLE OF UPC_YS_API_ROW.
DATA: ITK_ROW_WA TYPE UPC_YS_API_ROW.
DATA: LAYOUT_COL_SPEC_WA TYPE UPC_YS_API_COL.
DATA: ITK_DATA TYPE TABLE OF UPC_YS_API_DATA.
DATA: ITK_DATA_WA TYPE UPC_YS_API_DATA.
DATA: ETK_RETURN TYPE TABLE OF BAPIRET2.
DATA: WA_FIELDCATALOG TYPE LVC_S_FCAT.
DATA: CONVERSION_EXIT TYPE STRING.
DATA: KEYFIG TYPE STRING.
DATA: DATE_CHAR TYPE STRING.
DATA: MESSAGE TYPE STRING.
CONSTANTS: FIND_FIELD_ERR TYPE STRING VALUE 'Unable to find field'.
FIELD-SYMBOLS: <TD_FIELD> TYPE ANY.
FIELD-SYMBOLS: <TD_WA> TYPE ANY.
FIELD-SYMBOLS: <TD_TAB> TYPE STANDARD TABLE.
ASSIGN ME->TRANSACTION_DATA->* TO <TD_TAB>.
CREATE DATA WA_REF LIKE LINE OF <TD_TAB>.
ASSIGN WA_REF->* TO <TD_WA>.
CLEAR <TD_WA>.
DATA: ROWC TYPE I.
ROWC = 1.
LOOP AT <TD_TAB> INTO <TD_WA>.
* FILL CHARACTERISTIC DATA
LOOP AT ME->CHARACTERISTICS INTO CHARACTERISTICS_WA.
ASSIGN COMPONENT CHARACTERISTICS_WA-CHANM OF STRUCTURE <TD_WA>
TO <TD_FIELD>.
IF SY-SUBRC = 0.
ITK_ROW_WA-ROW = ROWC.
ITK_ROW_WA-CHANM = CHARACTERISTICS_WA-CHANM.
CLEAR ITK_ROW_WA-CHAVLEXT.
* APPLY OUTPUT CONVERSION EXIT FOR SAP EXTERNAL TYPE
* ONLY APPLIES WHEN VALUE IS NOT UNASSIGNED ('#') MEANING INITIAL(ABAP)
* FOR EXTERNAL CONVERSION UNASSIGED ('#') IS JUST A BLANK
IF NOT <TD_FIELD> IS INITIAL.
READ TABLE ME->IT_FIELDCATALOG INTO WA_FIELDCATALOG
WITH TABLE KEY FIELDNAME = ITK_ROW_WA-CHANM.
IF SY-SUBRC = 0 AND NOT WA_FIELDCATALOG-CONVEXIT IS INITIAL.
DATA: CONVEXIT_WA TYPE CONVEXIT_LOOKUP_S.
READ TABLE ME->CONVEXIT_LOOKUP INTO CONVEXIT_WA
WITH TABLE KEY CONVEXIT = WA_FIELDCATALOG-CONVEXIT.
CALL METHOD CONVEXIT_WA-O_CONVEXIT->APPLY_CONV_OUTPUT
EXPORTING
INPUT = <TD_FIELD>
IMPORTING
OUTPUT = <TD_FIELD>.
ITK_ROW_WA-CHAVLEXT = <TD_FIELD>.
ELSEIF SY-SUBRC = 0 AND WA_FIELDCATALOG-INTTYPE = 'D'.
* APPLY DATE CONVERSION TO EXTERNAL FORMAT BASED ON USER PROFILE
CALL METHOD CL_ABAP_CONV_DATE=>CONVERT_DATE_INT2EXT
EXPORTING
INTERNAL_DATE = <TD_FIELD>
RECEIVING
EXTERNAL_DATE = DATE_CHAR.
ITK_ROW_WA-CHAVLEXT = DATE_CHAR.
ELSE.
ITK_ROW_WA-CHAVLEXT = <TD_FIELD>.
ENDIF.
ENDIF.
APPEND ITK_ROW_WA TO ITK_ROW.
ELSE.
* FAILURE TO FIND THE FIELD IN THE POINTER WILL RESULT IN
* TRANSACTION DATA INTEGRITY ISSUES, WE SHOULD ERROR OUT
CONCATENATE FIND_FIELD_ERR CHARACTERISTICS_WA-CHANM
INTO MESSAGE.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>FORCE_ERROR_MESSAGE
EXPORTING
MESSAGE = MESSAGE.
ENDIF.
ENDLOOP.
* FILL KEY FIGURE DATA
LOOP AT ME->LAYOUT_COL_SPEC INTO LAYOUT_COL_SPEC_WA.
ASSIGN COMPONENT LAYOUT_COL_SPEC_WA-CHAVLEXT
OF STRUCTURE <TD_WA> TO <TD_FIELD>.
IF SY-SUBRC = 0.
ITK_DATA_WA-ROW = ROWC.
ITK_DATA_WA-COL = LAYOUT_COL_SPEC_WA-COL.
READ TABLE ME->IT_FIELDCATALOG INTO WA_FIELDCATALOG
WITH TABLE KEY FIELDNAME = LAYOUT_COL_SPEC_WA-CHAVLEXT.
IF WA_FIELDCATALOG-INTTYPE = 'P'.
* MUST CONVERT TO EXTERNAL FORMAT FOR DECIMALS
CALL METHOD CL_ABAP_CONV_DECIMAL=>CONVERT_DECIMAL_INT2EXT
EXPORTING
INTERNAL_VALUE = <TD_FIELD>
CHANGING
EXTERNAL_VALUE = KEYFIG.
ELSEIF WA_FIELDCATALOG-INTTYPE = 'F'
OR WA_FIELDCATALOG-INTTYPE = 'I'.
KEYFIG = <TD_FIELD>.
ENDIF.
ITK_DATA_WA-VALUE = KEYFIG.
APPEND ITK_DATA_WA TO ITK_DATA.
ELSE.
* FAILURE TO FIND THE FIELD IN THE POINTER WILL RESULT IN
* TRANSACTION DATA INTEGRITY ISSUES, WE SHOULD ERROR OUT
CONCATENATE FIND_FIELD_ERR LAYOUT_COL_SPEC_WA-CHAVLEXT
INTO MESSAGE.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>FORCE_ERROR_MESSAGE
EXPORTING
MESSAGE = MESSAGE.
ENDIF.
ENDLOOP.
ROWC = ROWC + 1.
ENDLOOP.
* SET ADHOC PACKAGE SELECTIONS
CALL FUNCTION 'API_SEMBPS_ADHOCPACKAGE_SET'
EXPORTING
I_AREA = ME->PLANNING_AREA
I_PLEVEL = CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
IMPORTING
E_SUBRC = E_SUBRC
ES_RETURN = ES_RETURN
TABLES
ITK_CHASEL = CHARACTERISTIC_SELECTION.
* THROW EXCEPTIONS IF NECESSARY
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCT = ES_RETURN.
CALL FUNCTION 'API_SEMBPS_SETDATA'
EXPORTING
I_AREA = ME->PLANNING_AREA
I_PLEVEL = CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
I_PACKAGE = CL_SEMBPS_DATA_ACCESSOR=>C_ADHOC_PACK
I_LAYOUT = CL_SEMBPS_DATA_ACCESSOR=>C_LAYOUT
IMPORTING
E_SUBRC = E_SUBRC
TABLES
ITK_ROW = ITK_ROW
ITK_DATA = ITK_DATA
ETK_RETURN = ETK_RETURN.
* THROW EXCEPTIONS IF NECESSARY
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGES
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCTS = ETK_RETURN.
* SAVE THE DATA INTO THE CUBE
CALL FUNCTION 'API_SEMBPS_POST'
IMPORTING
E_SUBRC = E_SUBRC
ES_RETURN = ES_RETURN.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCT = ES_RETURN.
* CLEAR SEM BPS DATA BUFFER AS WEIRD BEHAVIOR MAY OCCUR IF
* NOT CLEARED WHETHER IF SUCCESSFUL OR NOT
CALL FUNCTION 'API_SEMBPS_REFRESH'
IMPORTING
E_SUBRC = E_SUBRC
ES_RETURN = ES_RETURN.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCT = ES_RETURN.
ENDMETHOD. "SAVE
METHOD CHECK_MESSAGE .
DATA: RETURN_T TYPE BAPIRET2_T.
APPEND RETURN_STRUCT TO RETURN_T.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGES
EXPORTING
RETURN_STRUCTS = RETURN_T
E_SUBRC = E_SUBRC.
ENDMETHOD. "CHECK_MESSAGE
METHOD CHECK_MESSAGES .
IF E_SUBRC <> 0.
DATA: MESSAGE TYPE STRING.
DATA: RETURN TYPE BAPIRET2.
READ TABLE RETURN_STRUCTS INTO RETURN WITH KEY TYPE = 'E'.
IF SY-SUBRC <> 0.
READ TABLE RETURN_STRUCTS INTO RETURN WITH KEY TYPE = 'A'.
ENDIF.
MESSAGE = RETURN-MESSAGE.
RAISE EXCEPTION TYPE CX_SEM_BPS_DATA_ACCESS
EXPORTING
MESSAGE = MESSAGE
RETURN_T = RETURN_STRUCTS.
ENDIF.
ENDMETHOD. "CHECK_MESSAGES
METHOD FORCE_ERROR_MESSAGE.
DATA: RC TYPE SY-SUBRC VALUE 4.
IF MESSAGE IS SUPPLIED.
DATA: RETURN TYPE BAPIRET2.
RETURN-TYPE = 'E'.
RETURN-MESSAGE = MESSAGE.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
RETURN_STRUCT = RETURN
E_SUBRC = RC.
ENDIF.
IF RETURN_STRUCT IS SUPPLIED.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
RETURN_STRUCT = RETURN_STRUCT
E_SUBRC = RC.
ENDIF.
IF RETURN_STRUCTS IS SUPPLIED.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGES
EXPORTING
RETURN_STRUCTS = RETURN_STRUCTS
E_SUBRC = RC.
ENDIF.
ENDMETHOD. "FORCE_ERROR_MESSAGE
METHOD READ_DATA .
DATA: CHAR_DATA TYPE TABLE OF UPC_YS_API_ROW.
DATA: KEYFIG_DATA TYPE TABLE OF UPC_YS_API_DATA.
DATA: ETK_ROW_WA TYPE UPC_YS_API_ROW.
DATA: ETK_COL TYPE TABLE OF UPC_YS_API_COL.
DATA: ETK_RETURN TYPE TABLE OF BAPIRET2.
DATA: KEYFIGURES_WA TYPE UPC_YS_API_KYFPRO.
DATA: E_SUBRC TYPE SY-SUBRC.
DATA: ES_RETURN TYPE BAPIRET2.
DATA: ETK_COL_WA TYPE UPC_YS_API_COL.
DATA: WA_REF TYPE REF TO DATA.
DATA: HAS_DATA TYPE BOOLEAN.
DATA: KEYFIG_DATA_WA TYPE UPC_YS_API_DATA.
DATA: LINE1 TYPE I.
DATA: LINE2 TYPE I.
DATA: MESSAGE TYPE STRING.
CONSTANTS: FIND_FIELD_ERR TYPE STRING VALUE 'Unable to find field '.
FIELD-SYMBOLS: <TD_FIELD> TYPE ANY.
FIELD-SYMBOLS: <TD_WA> TYPE ANY.
FIELD-SYMBOLS: <TD_TAB> TYPE STANDARD TABLE.
CALL FUNCTION 'API_SEMBPS_ADHOCPACKAGE_SET'
EXPORTING
I_AREA = ME->PLANNING_AREA
I_PLEVEL = CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
IMPORTING
E_SUBRC = E_SUBRC
ES_RETURN = ES_RETURN
TABLES
ITK_CHASEL = ME->CHARACTERISTIC_SELECTION.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCT = ES_RETURN.
CALL FUNCTION 'API_SEMBPS_GETDATA'
EXPORTING
I_AREA = ME->PLANNING_AREA
I_PLEVEL = CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
I_PACKAGE = CL_SEMBPS_DATA_ACCESSOR=>C_ADHOC_PACK
I_LAYOUT = CL_SEMBPS_DATA_ACCESSOR=>C_LAYOUT
I_READ_ONLY = 'X'
IMPORTING
E_SUBRC = E_SUBRC
TABLES
ETK_ROW = CHAR_DATA
ETK_COL = ETK_COL
ETK_DATA = KEYFIG_DATA
ETK_RETURN = ETK_RETURN.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGES
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCTS = ETK_RETURN.
* SET LAYOUT COLUMN SPECIFICATION
ME->LAYOUT_COL_SPEC[] = ETK_COL[].
* CHECK TO SEE IF THE COLUMN SPEC CONTAINS ALL KEY FIGURES REQUIRED
* THIS WOULD GUARANTEE THAT ALL THE KEY FIGURES PRESENT IN THE CUBE
* ARE ALSO IN THE LAYOUT
DESCRIBE TABLE ME->KEYFIGURES LINES LINE1.
DESCRIBE TABLE ME->LAYOUT_COL_SPEC LINES LINE2.
IF LINE1 <> LINE2.
LOOP AT ME->KEYFIGURES INTO KEYFIGURES_WA.
READ TABLE ME->LAYOUT_COL_SPEC
WITH KEY CHAVLEXT = KEYFIGURES_WA-KYFNM
TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 4.
CONCATENATE 'Layout ' CL_SEMBPS_DATA_ACCESSOR=>C_LAYOUT
' is missing keyfigure: ' KEYFIGURES_WA-KYFNM
INTO ES_RETURN-MESSAGE.
APPEND ES_RETURN TO ETK_RETURN.
ENDIF.
ENDLOOP.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>FORCE_ERROR_MESSAGE
EXPORTING
RETURN_STRUCTS = ETK_RETURN.
ENDIF.
* CLEAR TRANSACTION DATA IF ANY
ASSIGN TRANSACTION_DATA->* TO <TD_TAB>.
REFRESH <TD_TAB>.
CREATE DATA WA_REF LIKE LINE OF <TD_TAB>.
ASSIGN WA_REF->* TO <TD_WA>.
DATA: PREV_ROWID TYPE UPC_YS_API_ROW-ROW VALUE 1.
DATA: WA_FIELDCATALOG TYPE LVC_S_FCAT.
DATA: CONVERSION_EXIT TYPE STRING.
DATA: DECIMAL_CONV TYPE STRING.
DATA: DATE_CONV TYPE STRING.
CLEAR <TD_WA>.
* SORT DATA
SORT KEYFIG_DATA BY ROW.
SORT ETK_COL BY COL.
SORT CHAR_DATA BY ROW.
* INSERT ALL CHARACTERISTIC ROWS
LOOP AT CHAR_DATA INTO ETK_ROW_WA.
IF ETK_ROW_WA-CHANM IS NOT INITIAL.
IF ETK_ROW_WA-ROW <> PREV_ROWID.
CLEAR HAS_DATA.
PREV_ROWID = ETK_ROW_WA-ROW.
APPEND <TD_WA> TO <TD_TAB>.
CLEAR <TD_WA>.
ENDIF.
HAS_DATA = 'X'.
ASSIGN COMPONENT ETK_ROW_WA-CHANM OF STRUCTURE
<TD_WA> TO <TD_FIELD>.
IF SY-SUBRC = 0.
CLEAR <TD_FIELD>.
IF ETK_ROW_WA-CHAVLEXT <> '#'.
* APPLY INPUT CONVERSION EXIT FOR SAP INTERNAL DATA ELEMENTS
* ONLY APPLIES WHEN VALUE IS NOT UNASSIGNED ('#')
READ TABLE ME->IT_FIELDCATALOG INTO WA_FIELDCATALOG
WITH TABLE KEY FIELDNAME = ETK_ROW_WA-CHANM.
IF SY-SUBRC = 0 AND NOT WA_FIELDCATALOG-CONVEXIT IS INITIAL.
<TD_FIELD> = ETK_ROW_WA-CHAVLEXT.
* APPLY INPUT CONVERSION EXIT IF ANY, CHECK INFOOBJECT RSD1 TRANSACTION
DATA: CONVEXIT_WA TYPE CONVEXIT_LOOKUP_S.
READ TABLE ME->CONVEXIT_LOOKUP INTO CONVEXIT_WA
WITH TABLE KEY CONVEXIT = WA_FIELDCATALOG-CONVEXIT.
CALL METHOD CONVEXIT_WA-O_CONVEXIT->APPLY_CONV_INPUT
EXPORTING
INPUT = <TD_FIELD>
IMPORTING
OUTPUT = <TD_FIELD>.
ELSEIF SY-SUBRC = 0 AND WA_FIELDCATALOG-INTTYPE = 'D'.
* APPLY DATE CONVERSION AS THERE IS NO COVERSION EXIT FOR DATES DUE TO
* SAPGUI DISPLAY FORMATS BASED ON USER PROFILES
TRY.
DATE_CONV = ETK_ROW_WA-CHAVLEXT.
CALL METHOD CL_ABAP_CONV_DATE=>CONVERT_DATE_EXT2INT
EXPORTING
EXTERNAL_DATE = DATE_CONV
RECEIVING
INTERNAL_DATE = <TD_FIELD>.
CATCH CX_DATE_CONVERSION .
* THERE SHOULD BE NO DATE CONVERSION ERROR.
ENDTRY.
ELSE.
<TD_FIELD> = ETK_ROW_WA-CHAVLEXT.
ENDIF.
ENDIF.
ELSE.
* FAILURE TO FIND THE FIELD IN THE POINTER WILL RESULT IN
* TRANSACTION DATA INTEGRITY ISSUES, WE SHOULD ERROR OUT
CONCATENATE FIND_FIELD_ERR ETK_ROW_WA-CHANM
INTO MESSAGE.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>FORCE_ERROR_MESSAGE
EXPORTING
MESSAGE = MESSAGE.
ENDIF.
ENDIF.
ENDLOOP.
* APPEND THE LAST ROW
IF HAS_DATA IS NOT INITIAL.
APPEND <TD_WA> TO <TD_TAB>.
ENDIF.
* INSERT ALL KEY FIGURES
LOOP AT KEYFIG_DATA INTO KEYFIG_DATA_WA.
READ TABLE <TD_TAB> INTO <TD_WA> INDEX KEYFIG_DATA_WA-ROW.
IF SY-SUBRC <> 0.
* SUMMARY LINE WHICH INDICATES COMPLETION
EXIT.
ENDIF.
* AVAILABLE KEY FIGURES
READ TABLE ETK_COL INTO ETK_COL_WA
INDEX KEYFIG_DATA_WA-COL.
ASSIGN COMPONENT ETK_COL_WA-CHAVLEXT OF STRUCTURE
<TD_WA> TO <TD_FIELD>.
IF SY-SUBRC = 0.
READ TABLE ME->IT_FIELDCATALOG INTO WA_FIELDCATALOG
WITH TABLE KEY FIELDNAME = ETK_COL_WA-CHAVLEXT.
IF WA_FIELDCATALOG-INTTYPE = 'P'.
DECIMAL_CONV = KEYFIG_DATA_WA-VALUE.
CALL METHOD CL_ABAP_CONV_DECIMAL=>CONVERT_DECIMAL_EXT2INT
EXPORTING
EXTERNAL_VALUE = DECIMAL_CONV
CHANGING
INTERNAL_VALUE = <TD_FIELD>.
ELSEIF WA_FIELDCATALOG-INTTYPE = 'F' OR
WA_FIELDCATALOG-INTTYPE = 'I'.
<TD_FIELD> = KEYFIG_DATA_WA-VALUE.
ENDIF.
MODIFY <TD_TAB> INDEX KEYFIG_DATA_WA-ROW FROM <TD_WA>
TRANSPORTING (ETK_COL_WA-CHAVLEXT) .
ELSE.
* FAILURE TO FIND THE FIELD IN THE POINTER WILL RESULT IN
* TRANSACTION DATA INTEGRITY ISSUES, WE SHOULD ERROR OUT
CONCATENATE FIND_FIELD_ERR ETK_ROW_WA-CHANM
INTO MESSAGE.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>FORCE_ERROR_MESSAGE
EXPORTING
MESSAGE = MESSAGE.
ENDIF.
ENDLOOP.
ENDMETHOD. "READ_DATA
METHOD SET_CHARACTERISTIC_SELECTION.
DATA: CHARACTERISTIC_SELECTION_WA TYPE UPC_YS_API_CHASEL.
DATA: WA_FIELDCATALOG TYPE LVC_S_FCAT.
DATA: CONV_EXIT TYPE STRING.
DATA: DATE_CONV TYPE STRING.
DATA: TEMP_DATE TYPE D.
* basically convert the selection criteria to external values and hold
* copy of that
REFRESH ME->CHARACTERISTIC_SELECTION.
LOOP AT CHARACTERISTIC_SELECTION INTO CHARACTERISTIC_SELECTION_WA.
READ TABLE ME->IT_FIELDCATALOG INTO WA_FIELDCATALOG
WITH TABLE KEY FIELDNAME = CHARACTERISTIC_SELECTION_WA-CHANM.
IF SY-SUBRC = 0.
IF NOT WA_FIELDCATALOG-CONVEXIT IS INITIAL.
DATA: CONVEXIT_WA TYPE CONVEXIT_LOOKUP_S.
READ TABLE ME->CONVEXIT_LOOKUP INTO CONVEXIT_WA
WITH TABLE KEY CONVEXIT = WA_FIELDCATALOG-CONVEXIT.
CALL METHOD CONVEXIT_WA-O_CONVEXIT->APPLY_CONV_OUTPUT
EXPORTING
INPUT = CHARACTERISTIC_SELECTION_WA-LOW
IMPORTING
OUTPUT = CHARACTERISTIC_SELECTION_WA-LOW.
CALL METHOD CONVEXIT_WA-O_CONVEXIT->APPLY_CONV_OUTPUT
EXPORTING
INPUT = CHARACTERISTIC_SELECTION_WA-HIGH
IMPORTING
OUTPUT = CHARACTERISTIC_SELECTION_WA-HIGH.
ELSEIF WA_FIELDCATALOG-INTTYPE = 'D'.
* DATE TYPE CONVERSION BASED ON SAP GUI
IF NOT CHARACTERISTIC_SELECTION_WA-LOW IS INITIAL.
TEMP_DATE = CHARACTERISTIC_SELECTION_WA-LOW.
CALL METHOD CL_ABAP_CONV_DATE=>CONVERT_DATE_INT2EXT
EXPORTING
INTERNAL_DATE = TEMP_DATE
RECEIVING
EXTERNAL_DATE = DATE_CONV.
CHARACTERISTIC_SELECTION_WA-LOW = DATE_CONV.
ENDIF.
IF NOT CHARACTERISTIC_SELECTION_WA-HIGH IS INITIAL.
TEMP_DATE = CHARACTERISTIC_SELECTION_WA-HIGH.
CALL METHOD CL_ABAP_CONV_DATE=>CONVERT_DATE_INT2EXT
EXPORTING
INTERNAL_DATE = TEMP_DATE
RECEIVING
EXTERNAL_DATE = DATE_CONV.
CHARACTERISTIC_SELECTION_WA-HIGH = DATE_CONV.
ENDIF.
ENDIF.
APPEND CHARACTERISTIC_SELECTION_WA TO
ME->CHARACTERISTIC_SELECTION.
ENDIF.
ENDLOOP.
ENDMETHOD. "SET_CHARACTERISTIC_SELECTION
METHOD SET_PLANNING_AREA.
DATA: ES_RETURN TYPE BAPIRET2.
DATA: E_SUBRC TYPE SY-SUBRC.
* CHECK TO SEE OF PLANNING AREA IS A MULTI-PLANNING AREA
CALL FUNCTION 'API_SEMBPS_AREA_GETDETAIL'
EXPORTING
I_AREA = PLANNING_AREA
IMPORTING
E_SUBRC = E_SUBRC
ES_RETURN = ES_RETURN
TABLES
ETK_CHAPRO = ME->CHARACTERISTICS
ETK_KYFPRO = ME->KEYFIGURES.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCT = ES_RETURN.
ME->PLANNING_AREA = PLANNING_AREA.
* FIND THE INFOCUBE RELATED TO THE PLANNING AREA
SELECT SINGLE INFOCUBE FROM UPC_BW_AREA INTO ME->INFOCUBE
WHERE AREA = PLANNING_AREA.
CALL METHOD ME->VALIDATE_PLANNING_OBJECTS.
ENDMETHOD. "SET_PLANNING_AREA
METHOD VALIDATE_PLANNING_OBJECTS.
DATA: E_SUBRC TYPE SY-SUBRC.
DATA: ES_RETURN TYPE BAPIRET2.
DATA: ES_RETURN_T TYPE TABLE OF BAPIRET2.
DATA: ETK_CHA TYPE TABLE OF UPC_YS_API_PLEVEL_CHA.
DATA: ETK_CHA_WA TYPE UPC_YS_API_PLEVEL_CHA.
DATA: CHARACTERISTIC_WA TYPE UPC_YS_API_CHAPRO.
DATA: KEYFIGURES_WA TYPE UPC_YS_API_KYFPRO.
DATA: ETK_CHASEL TYPE TABLE OF UPC_YS_API_CHASEL.
DATA: ETK_KYF TYPE TABLE OF UPC_YS_KYF.
DATA: ETK_RETURN TYPE TABLE OF BAPIRET2.
DATA: LINES1 TYPE I.
DATA: LINES2 TYPE I.
DATA: E_LEADCOL_COMPL TYPE UPC_YS_API_INFO-LEADCOL_COMPL.
DATA: ETK_HEAD_INFO TYPE TABLE OF UPC_YS_API_HEAD_INFO.
DATA: ETK_ROW_INFO TYPE TABLE OF UPC_YS_API_ROW_INFO.
DATA: ETK_COL_INFO TYPE TABLE OF UPC_YS_API_COL_INFO.
* CHECK TO SEE IF ITS A MULTI-PLANNING AREA
READ TABLE ME->CHARACTERISTICS TRANSPORTING NO FIELDS
WITH KEY CHANM = CL_SEMBPS_DATA_ACCESSOR=>C_MULTIPLAN_AREA.
* MULTI-PLANNING AREAS SHOULD NOT BE ACCEPTABLE TO THIS AS IT LEADS
* TO REFERENCING OF PLANNING AREAS IN ITS LEVEL/PACKAGES/LAYOUTS WHICH
* IS HARDER TO MAINTAIN
IF SY-SUBRC = 0.
REFRESH ME->CHARACTERISTICS.
REFRESH ME->KEYFIGURES.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 'E'.
ES_RETURN-MESSAGE = 'DO NOT USE MULTI-PLANNING AREAS'.
APPEND ES_RETURN TO ES_RETURN_T.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>FORCE_ERROR_MESSAGE
EXPORTING
RETURN_STRUCTS = ES_RETURN_T.
ENDIF.
* CHECK THE PLANNING LEVEL
CALL FUNCTION 'API_SEMBPS_PLEVEL_GETDETAIL'
EXPORTING
I_AREA = ME->PLANNING_AREA
I_PLEVEL = CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
IMPORTING
E_SUBRC = E_SUBRC
ES_RETURN = ES_RETURN
TABLES
ETK_CHA = ETK_CHA
ETK_CHASEL = ETK_CHASEL
ETK_KYF = ETK_KYF.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGE
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCT = ES_RETURN.
* CHECK TO SEE IF THE SAME NUMBER OF CHARACTERISTICS EXISTS IN LEVEL
DESCRIBE TABLE ME->CHARACTERISTICS LINES LINES1.
DESCRIBE TABLE ETK_CHA LINES LINES2.
IF LINES1 <> LINES2.
* ERROR OUT THE MISSING CHARACTERISTICS FROM THE PLANNING LEVEL
LOOP AT ME->CHARACTERISTICS INTO CHARACTERISTIC_WA.
READ TABLE ETK_CHA WITH KEY CHANM = CHARACTERISTIC_WA-CHANM
TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 'E'.
CONCATENATE 'Missing characteristic ' CHARACTERISTIC_WA-CHANM
' from planning level ' CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
INTO ES_RETURN-MESSAGE.
APPEND ES_RETURN TO ES_RETURN_T.
ENDIF.
ENDLOOP.
ENDIF.
* CHECK TO SEE IF EVERY CHARACTERISTIC IS AVAIABLE FOR SELECTION IN
* PACKAGE
READ TABLE ETK_CHA WITH KEY PACKSEL = SPACE TRANSPORTING NO FIELDS.
IF SY-SUBRC = 0.
* ERROR OUT THE CHARACTERISTICS THAT ARE NOT AVAILABLE FOR PACKAGE
* SELECTIONS
LOOP AT ETK_CHA INTO ETK_CHA_WA WHERE PACKSEL = SPACE.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 'E'.
CONCATENATE 'Characteristic ' ETK_CHA_WA-CHANM
' needs to be available for selection in planning level '
CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL INTO ES_RETURN-MESSAGE.
APPEND ES_RETURN TO ES_RETURN_T.
ENDLOOP.
ENDIF.
* CHECK TO SEE IF THE SAME NUMBER OF KEYFIGURES EXISTS IN LEVEL
DESCRIBE TABLE ME->KEYFIGURES LINES LINES1.
DESCRIBE TABLE ETK_KYF LINES LINES2.
IF LINES1 <> LINES2.
* ERROR OUT THE MISSING KEYFIGURES FROM THE PLANNING LEVEL
LOOP AT ME->KEYFIGURES INTO KEYFIGURES_WA.
READ TABLE ETK_KYF WITH KEY KYFNM = KEYFIGURES_WA-KYFNM
TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 'E'.
CONCATENATE 'Missing keyfigure ' KEYFIGURES_WA-KYFNM
' from planning level ' CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
INTO ES_RETURN-MESSAGE.
APPEND ES_RETURN TO ES_RETURN_T.
ENDIF.
ENDLOOP.
ENDIF.
* CHECK THE PLANNING LAYOUT
CALL FUNCTION 'API_SEMBPS_LAYOUT_GETDETAIL'
EXPORTING
I_AREA = ME->PLANNING_AREA
I_PLEVEL = CL_SEMBPS_DATA_ACCESSOR=>C_LEVEL
I_LAYOUT = CL_SEMBPS_DATA_ACCESSOR=>C_LAYOUT
IMPORTING
E_SUBRC = E_SUBRC
E_LEADCOL_COMPL = E_LEADCOL_COMPL
TABLES
ETK_HEAD_INFO = ETK_HEAD_INFO
ETK_ROW_INFO = ETK_ROW_INFO
ETK_COL_INFO = ETK_COL_INFO
ETK_RETURN = ETK_RETURN.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>CHECK_MESSAGES
EXPORTING
E_SUBRC = E_SUBRC
RETURN_STRUCTS = ETK_RETURN.
* MAKE SURE THAT HEADER AREA IS EMPTY AS ALL THE DATA READ IS IN LEAD
* COLUMNS ONLY
IF NOT ETK_HEAD_INFO[] IS INITIAL.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 'E'.
CONCATENATE 'Header area must be empty in layout '
CL_SEMBPS_DATA_ACCESSOR=>C_LAYOUT
INTO ES_RETURN-MESSAGE.
APPEND ES_RETURN TO ES_RETURN_T.
ENDIF.
* MAKE SURE THAT LAYOUT TYPE IS KEY FIGURES IN DATA COLUMNS
IF NOT E_LEADCOL_COMPL IS INITIAL.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 'E'.
CONCATENATE 'Layout ' CL_SEMBPS_DATA_ACCESSOR=>C_LAYOUT
' must be of type "Key Figs in data columns"'
INTO ES_RETURN-MESSAGE.
APPEND ES_RETURN TO ES_RETURN_T.
ENDIF.
* CHECK FOR THE SAME NUMBER OF CHARACTERISTICS IN LEAD COLUMNS OF LAYOUT
* AND IN PLANNING AREA
DESCRIBE TABLE ME->CHARACTERISTICS LINES LINES1.
DESCRIBE TABLE ETK_ROW_INFO LINES LINES2.
IF LINES1 <> LINES2.
* ERROR OUT THE MISSING CHARACTERISTICS FROM THE PLANNING LEVEL
LOOP AT ME->CHARACTERISTICS INTO CHARACTERISTIC_WA.
READ TABLE ETK_ROW_INFO WITH KEY CHANM = CHARACTERISTIC_WA-CHANM
TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0.
CLEAR ES_RETURN.
ES_RETURN-TYPE = 'E'.
CONCATENATE 'Missing characteristic ' CHARACTERISTIC_WA-CHANM
' from planning layout ' CL_SEMBPS_DATA_ACCESSOR=>C_LAYOUT
INTO ES_RETURN-MESSAGE.
APPEND ES_RETURN TO ES_RETURN_T.
ENDIF.
ENDLOOP.
ENDIF.
* IF MESSAGES ARE AVAILBLE FROM CUSTOM CHECKS THROW EXCEPTION
IF NOT ES_RETURN_T[] IS INITIAL.
CALL METHOD CL_SEMBPS_DATA_ACCESSOR=>FORCE_ERROR_MESSAGE
EXPORTING
RETURN_STRUCTS = ES_RETURN_T.
ENDIF.
ENDMETHOD. "VALIDATE_PLANNING_OBJECTS
ENDCLASS. "CL_SEMBPS_DATA_ACCESSOR IMPLEMENTATION
* CLASS CL_SEMBPS_DATA_ACCESS_FACTORY DEFINITION
CLASS CL_SEMBPS_DATA_ACCESS_FACTORY DEFINITION.
PUBLIC SECTION.
CLASS-METHODS CREATE_DATA_ACCESSOR
IMPORTING
PLAN_AREA TYPE UPC_AREA-AREA
CHARACTERISTIC_SELECTION TYPE UPC_YS_API_CHASEL_T
DDIC_STRUCTURE_NAME TYPE DD02L-TABNAME OPTIONAL
EXPORTING
O_DATA_ACCESSOR TYPE REF TO CL_SEMBPS_DATA_ACCESSOR
CHANGING
TRANSACTION_DATA_TABLE TYPE STANDARD TABLE OPTIONAL
RAISING
CX_SEM_BPS_DATA_ACCESS .
CLASS-METHODS GET_PLANNING_AREA_SPECS
IMPORTING
PLANNING_AREA TYPE UPC_AREA-AREA
EXPORTING
TRANSACTION_DATA_STRUCT TYPE REF TO DATA
KEYFIGURES TYPE UPC_YS_API_KYFPRO_T
FIELDCATALOG TYPE LVC_T_FCAT
CHARACTERISTICS TYPE UPC_YS_API_CHAPRO_T
RAISING
CX_SEM_BPS_DATA_ACCESS .
PRIVATE SECTION.
CLASS-DATA PLAN_AREA_CACHE TYPE PLAN_AREA_STRUCT_CACHE_T .
CLASS-METHODS CREATE_DYNAMIC_STRUCTURE
IMPORTING
PLANNING_AREA TYPE UPC_AREA-AREA
EXPORTING
TRANSACTION_DATA_STRUCT TYPE REF TO DATA
KEYFIGURES TYPE UPC_YS_API_KYFPRO_T
FIELDCATALOG TYPE LVC_T_FCAT
CHARACTERISTICS TYPE UPC_YS_API_CHAPRO_T
RAISING
CX_SEM_BPS_DATA_ACCESS .
ENDCLASS. "CL_SEMBPS_DATA_ACCESS_FACTORY DEFINITION
* CLASS CL_SEMBPS_DATA_ACCESS_FACTORY IMPLEMENTATION
CLASS CL_SEMBPS_DATA_ACCESS_FACTORY IMPLEMENTATION.
METHOD CREATE_DATA_ACCESSOR.
DATA: TRANSACTION_DATA_STRUCT TYPE REF TO DATA.
DATA: FIELDCATALOG TYPE LVC_T_FCAT.
IF TRANSACTION_DATA_TABLE IS SUPPLIED
AND DDIC_STRUCTURE_NAME IS SUPPLIED AND
NOT DDIC_STRUCTURE_NAME IS INITIAL.
* RETRIEVE FIELD CATALOG OF THE DDIC STRUCTURE TO PROVIDE
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
I_STRUCTURE_NAME = DDIC_STRUCTURE_NAME
CHANGING
CT_FIELDCAT = FIELDCATALOG
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
GET REFERENCE OF TRANSACTION_DATA_TABLE INTO
TRANSACTION_DATA_STRUCT.
ELSE.
* GENERATE INTERNAL TABLE AND ITS FIELD CATALOG DYNAMICALLY
CALL METHOD CL_SEMBPS_DATA_ACCESS_FACTORY=>GET_PLANNING_AREA_SPECS
EXPORTING
PLANNING_AREA = PLAN_AREA
IMPORTING
TRANSACTION_DATA_STRUCT = TRANSACTION_DATA_STRUCT
FIELDCATALOG = FIELDCATALOG.
ENDIF.
* CREATE DATA ACCESSOR
CREATE OBJECT O_DATA_ACCESSOR
EXPORTING
PLANNING_AREA = PLAN_AREA
IT_FIELDCATALOG = FIELDCATALOG
TRANSACTION_DATA_TABLE = TRANSACTION_DATA_STRUCT
CHARACTERISTIC_SELECTION = CHARACTERISTIC_SELECTION.
ENDMETHOD. "CREATE_DATA_ACCESSOR
METHOD GET_PLANNING_AREA_SPECS.
DATA: PLAN_AREA_CACHE_WA TYPE PLAN_AREA_STRUCT_CACHE.
FIELD-SYMBOLS: <TD_TAB_DEFINITION> TYPE STANDARD TABLE.
READ TABLE PLAN_AREA_CACHE
WITH TABLE KEY PLANNING_AREA = PLANNING_AREA
INTO PLAN_AREA_CACHE_WA.
* CREATE INTERNAL TABLE REFLECTING THE PLANNING AREA AND CACHE IT
* TO AVOID TOO MANY CALLS TO CREATION OF DYNAMIC INTERNAL TABLES
* SAP HAS RESTRICTED DEVELOPERS FROM CREATING
IF SY-SUBRC <> 0.
CLEAR PLAN_AREA_CACHE_WA.
CALL METHOD
CL_SEMBPS_DATA_ACCESS_FACTORY=>CREATE_DYNAMIC_STRUCTURE
EXPORTING
PLANNING_AREA = PLANNING_AREA
IMPORTING
TRANSACTION_DATA_STRUCT =
PLAN_AREA_CACHE_WA-TRANSACTION_DATA_TABLE
KEYFIGURES = PLAN_AREA_CACHE_WA-KEYFIGURES
FIELDCATALOG = PLAN_AREA_CACHE_WA-FIELDCATALOG
CHARACTERISTICS = PLAN_AREA_CACHE_WA-CHARACTERISTICS.
PLAN_AREA_CACHE_WA-PLANNING_AREA = PLANNING_AREA.
INSERT PLAN_AREA_CACHE_WA INTO TABLE PLAN_AREA_CACHE.
ENDIF.
FIELDCATALOG[] = PLAN_AREA_CACHE_WA-FIELDCATALOG.
CHARACTERISTICS[] = PLAN_AREA_CACHE_WA-CHARACTERISTICS[].
KEYFIGURES[] = PLAN_AREA_CACHE_WA-KEYFIGURES[].
ASSIGN PLAN_AREA_CACHE_WA-TRANSACTION_DATA_TABLE->*
TO <TD_TAB_DEFINITION>.
* CREATE A NEW REFERENCE
CREATE DATA TRANSACTION_DATA_STRUCT LIKE
<TD_TAB_DEFINITION>.
ENDMETHOD. "GET_PLANNING_AREA_SPECS
METHOD CREATE_DYNAMIC_STRUCTURE.
DATA: ES_RETURN TYPE BAPIRET2.
DATA: E_SUBRC TYPE SY-SUBRC.
DATA: MESSAGE TYPE STRING.
CALL FUNCTION 'API_SEMBPS_AREA_GETDETAIL'
EXPORTING
I_AREA = PLANNING_AREA
IMPORTING
E_SUBRC = E_SUBRC
ES_RETURN = ES_RETURN
TABLES
ETK_CHAPRO = CHARACTERISTICS
ETK_KYFPRO = KEYFIGURES.
IF E_SUBRC <> 0.
MESSAGE = ES_RETURN-MESSAGE.
RAISE EXCEPTION TYPE CX_SEM_BPS_DATA_ACCESS
EXPORTING MESSAGE = MESSAGE.
ENDIF.
READ TABLE CHARACTERISTICS TRANSPORTING NO FIELDS
WITH KEY CHANM = CL_SEMBPS_DATA_ACCESSOR=>C_MULTIPLAN_AREA.
IF SY-SUBRC = 0.
MESSAGE = 'DO NOT USE MULTI-PLANNING AREAS'.
RAISE EXCEPTION TYPE CX_SEM_BPS_DATA_ACCESS
EXPORTING MESSAGE = MESSAGE.
ENDIF.
DATA: CHAR_WA TYPE UPC_YS_API_CHAPRO.
DATA: KEYFIG_WA TYPE UPC_YS_API_KYFPRO.
DATA: WA_FIELDCATALOG TYPE LVC_S_FCAT.
DATA: RETURN TYPE BAPIRET2.
DATA: DETAILS TYPE BAPI6108.
* CHARACTERISTIC FIELDCATALOG
LOOP AT CHARACTERISTICS INTO CHAR_WA.
WA_FIELDCATALOG-INTTYPE = CHAR_WA-INTTP.
WA_FIELDCATALOG-FIELDNAME = CHAR_WA-CHANM.
WA_FIELDCATALOG-DATATYPE = CHAR_WA-DATATP.
WA_FIELDCATALOG-INTLEN = CHAR_WA-INTLEN.
WA_FIELDCATALOG-DECIMALS = CHAR_WA-DECIMALS.
WA_FIELDCATALOG-OUTPUTLEN = CHAR_WA-OUTPUTLEN.
CALL FUNCTION 'BAPI_IOBJ_GETDETAIL'
EXPORTING
INFOOBJECT = CHAR_WA-CHANM
IMPORTING
DETAILS = DETAILS
RETURN = RETURN.
IF RETURN-TYPE = 'E'.
MESSAGE = RETURN-MESSAGE.
RAISE EXCEPTION TYPE CX_SEM_BPS_DATA_ACCESS
EXPORTING MESSAGE = MESSAGE.
ENDIF.
WA_FIELDCATALOG-CONVEXIT = DETAILS-CONVEXIT.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
ENDLOOP.
* KEYFIGURE FIELDCATALOG
LOOP AT KEYFIGURES INTO KEYFIG_WA.
WA_FIELDCATALOG-INTTYPE = KEYFIG_WA-INTTP.
WA_FIELDCATALOG-FIELDNAME = KEYFIG_WA-KYFNM.
WA_FIELDCATALOG-DATATYPE = KEYFIG_WA-DATATP.
WA_FIELDCATALOG-INTLEN = KEYFIG_WA-DIGITS.
WA_FIELDCATALOG-DECIMALS = KEYFIG_WA-DECIMALS.
WA_FIELDCATALOG-DD_OUTLEN = KEYFIG_WA-OUTPUTLEN.
CALL FUNCTION 'BAPI_IOBJ_GETDETAIL'
EXPORTING
INFOOBJECT = KEYFIG_WA-KYFNM
IMPORTING
DETAILS = DETAILS
RETURN = RETURN.
IF RETURN-TYPE = 'E'.
MESSAGE = RETURN-MESSAGE.
RAISE EXCEPTION TYPE CX_SEM_BPS_DATA_ACCESS
EXPORTING MESSAGE = MESSAGE.
ENDIF.
WA_FIELDCATALOG-CONVEXIT = DETAILS-CONVEXIT.
APPEND WA_FIELDCATALOG TO FIELDCATALOG.
ENDLOOP.
* AVOID TOO MANY CALLS TO THIS FUNCTION MODULE
IF NOT FIELDCATALOG[] IS INITIAL.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
IT_FIELDCATALOG = FIELDCATALOG
IMPORTING
EP_TABLE = TRANSACTION_DATA_STRUCT
EXCEPTIONS
GENERATE_SUBPOOL_DIR_FULL = 1
OTHERS = 2.
CASE SY-SUBRC.
WHEN 1.
RAISE EXCEPTION TYPE CX_SEM_BPS_DATA_ACCESS EXPORTING
MESSAGE = 'Dynamic table creation failure on subpool'.
WHEN 2.
RAISE EXCEPTION TYPE CX_SEM_BPS_DATA_ACCESS EXPORTING
MESSAGE = 'Dynamic table creation failure'.
ENDCASE.
ENDIF.
ENDMETHOD. "CREATE_DYNAMIC_STRUCTURE
ENDCLASS. "CL_SEMBPS_DATA_ACCESS_FACTORY IMPLEMENTATION
Look at this link:
<a href="http://help.sap.com/saphelp_nw04/helpdata/en/cf/21ee19446011d189700000e8322d00/frameset.htm">http://help.sap.com/saphelp_nw04/helpdata/en/cf/21ee19446011d189700000e8322d00/frameset.htm</a>
Pls reward points.
Regards,
Ameet -
WBS element conversion routines
Hey guys,
I recently added PS_PSP_PNR to 2LIS_11_VAHDR in order to extract the WBS element from the sales document header. So far so good and everything works fine. In the extractor checker I get the data as expected e.g. 'S-00017.02.09'.
The problem occurs as soon as the data is transferred to BW. In the transfer structure I see that PS_PSP_PNR har conversion routine ABPSP that converts the WBS from external format CHAR(24) to internal NUMC(8). And this is what is causing me the trouble! In the PSA the WBS from above is converted to '00029788'.
I tried several different approaches. If the field is mapped directly to 0WBS_ELEMT the value '00029788' is obviously also written to the DSO and further up the data flow.
I tried coding an ABAP routine in the transfer rules which does not seem to work:
call function 'CONVERSION_EXIT_ABPSP_OUTPUT'
exporting
input = TRAN_STRUCTURE-ps_psp_pnr
importing
output = RESULT.
RETURNCODE = 0.
ABORT = 0.
Since the routine above did not help me at all I tested the FM in SE37 and it does not return any values for '00029788'.
Any clues on this? How to proceed?
BR
Stefan.Well... Didn't want to wait any further for an answer, so I appended PS_POSID to the extract structure and filled this field in ZXRSAU01. In the exit I used 'CONVERSION_EXIT_ABPSP_OUTPUT' to convert to the correct format.
BR
Stefan
Maybe you are looking for
-
Touchscreen no longer working after webosdoctor
What are my options here? The select language screen comes up, but the screen is unresponsive to my touch. The buttons on the side still work however. Any advice? Post relates to: HP TouchPad (WiFi) This question was solved. View Solution.
-
Passing username & password in HTTP Header
Hi all, My 1st query. I want to access a url which asks for username & password. how can i put my username & password in the http header so that when i call that url it shouldn't ask for the username & password.can anyone plz show it as a piece of se
-
hi gurus, I have a client who implemented R/3)(about to go live) and they want the reporting partin ABAp to be done in Bw.And the thing is there is nothing done in Bw upto now.Everything has to be done from scratch.Can anybody guide me in this rega
-
Hi there, I made some nice webpage with adobe edge, and additionaly I would like to implement store finder made with google maps. Any idea how I should do this? Here the website: http://www.heelbopps.com And here the map: http://www.heelbopps.com/map
-
Working with Photoshop files within FCP
Did anybody havinga problem with the psd file? I created some layers (20 to 40) in Photoshop, then import it in FCP. Find out some of the layer's position is shifted just a little bit. Any of you experts know why? Thanks.