Hi everyone,
I have creted BAPI below but the value of Values tab is not coming , Pls help me how to add that. Thanks.
TYPE-POOLS: TRUXS.
DATA : BEGIN OF IT_RECORD OCCURS 0,
CHARACT_NAME(030),
DATA_TYPE(018),
LENGTH(002),
KEYDATE(008),
DESCRIPTION(030),
decimal(002),
UOM type meins,
ATWRT(20) TYPE c, " value
WERKS type WERKS_D,
SESET type QAUSWAHLMG_CL,
END OF IT_RECORD.
DATA : IT_DETAIL TYPE BAPICHARACTDETAIL,
IT_DESCR LIKE BAPICHARACTDESCR OCCURS 0 WITH HEADER LINE,
IT_VALUE LIKE BAPICHARACTVALUESCHAR OCCURS 0 WITH HEADER LINE,
IT_NUM like BAPICHARACTVALUESNUM OCCURS 0 WITH HEADER LINE,
IT_RET2 LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
IT_RET LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
WK_BAPICHARACTDETAIL type BAPICHARACTVALUESNUM,
IT_BAPICHARACTDETAIL type table of BAPICHARACTVALUESNUM.
DATA : WK_KEYDATE LIKE BAPICHARACTKEY-KEYDATE,
SLNO TYPE I,
IT_RAW TYPE TRUXS_T_TEXT_DATA.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS :P_PATH TYPE rlgrap-filename OBLIGATORY .
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PATH.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
FIELD_NAME = 'PATH'
IMPORTING
FILE_NAME = P_PATH.
START-OF-SELECTION.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_LINE_HEADER = 'X'
I_TAB_RAW_DATA = IT_RAW
I_FILENAME = P_path
TABLES
I_TAB_CONVERTED_DATA = IT_RECORD
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
ENDIF.
LOOP AT IT_RECORD.
refresh IT_BAPICHARACTDETAIL.
IT_DETAIL-CHARACT_NAME = IT_RECORD-CHARACT_NAME.
IT_DETAIL-DATA_TYPE = IT_RECORD-DATA_TYPE.
IT_DETAIL-LENGTH = IT_RECORD-LENGTH.
IT_DETAIL-STATUS = '1'.
IF IT_RECORD-DATA_TYPE = 'CHAR'.
IT_DETAIL-ADDITIONAL_VALUES = 'X'.
IT_DETAIL-PLANT = IT_RECORD-WERKS.
IT_DETAIL-SELECTED_SET = IT_RECORD-SESET.
endif.
IF IT_RECORD-DATA_TYPE = 'NUM'.
IT_DETAIL-DECIMALS = IT_RECORD-decimal.
IT_DETAIL-UNIT_OF_MEASUREMENT = IT_RECORD-uom.
IT_DETAIL-INTERVAL_ALLOWED = 'X'.
IT_DETAIL-VALUE_ASSIGNMENT = 'M'.
endif.
WK_KEYDATE = IT_RECORD-KEYDATE.
IT_DESCR-LANGUAGE_INT = SY-LANGU.
IT_DESCR-LANGUAGE_ISO = SY-LANGU.
IT_DESCR-DESCRIPTION = IT_RECORD-DESCRIPTION.
APPEND IT_DESCR.
T_VALUE-VALUE_CHAR = '4'."IT_RECORD-ATWRT.
IT_VALUE-VALUE_CHAR_HIGH = '7'.
IT_VALUE-DEFAULT_VALUE = '10'.
APPEND IT_VALUE.
CALL FUNCTION 'BAPI_CHARACT_CREATE'
EXPORTING
CHARACTDETAIL = IT_DETAIL
KEYDATE = WK_KEYDATE
TABLES
CHARACTDESCR = IT_DESCR
CHARACTVALUESCHAR = IT_VALUE
CHARACTVALUESCURR =
CHARACTVALUESDESCR =
CHARACTREFERENCES =
CHARACTRESTRICTIONS =
RETURN = IT_RET2.
Bluesky
