Tarun Gambhir

August 31, 2015 5 minute read

Easy and efficient way of uploading pricing conditions in SAP system using a single exclusively designed program

Introduction

In order to upload pricing conditions in SAP system, we need to create a conversion program which caters to all condition tables and uploads the respective data. Now since all condition tables have different structures/key fields/fields, the BDC approach can’t solve the problem unless we do recordings for all Condition Types. Also in case a new condition type is added, then we need to add a new recording to the code, which increases the development/maintenance hours.

Each time pricing conditions need to be uploaded in the SAP system, a technical resource is required to create a conversion program which uploads the data into the system. This tool helps in uploading the pricing conditions for SD and MM module, thereby eliminating any multiple manual intervention.

Solution Details

As the requirement is to upload any condition table, we have to design a solution which caters to all condition type uploads.

So in order to make it generic for all condition types, we would be expecting the Condition Table name to be as a part of upload fields. Now using this Table Name, we would fetch the schema of corresponding Condition Table and map fields dynamically. Also we would be using the Conversion Exits on the various field values using the field information returned for each table.

For example, say the condition table name coming in upload file is A652. We will use FM “CATSXT_GET_DDIC_FIELDINFO” to the details for table fields. As a result from this FM, we will get all the fields with their attributes like:-

Key Flag (denotes whether the field is a part of Primary Key or not)
Domain Name
Data Element Name
Check Table Name
Length
Field Labels
Conversion Exit, etc..

The basic common fields in upload structure can be:-

KAPPL (Application)
KSCHL (Condition Type)
TABLE (Condition Table Name)

Now the point lies how we map the data from file to different condition tables, as each table has a different structure and also varying in number of fields.

Since any Database Table can have only 16 fields (max) as a part of Primary Keys. And there are 5 fields which are common in all A* tables:-

MANDT (Client)
KAPPL (Application)
KSCHL (Condition type)
KFRST (Release status)
DATBI (Validity end date of the condition record)

So remaining number of key fields left are 11 (16 – 5), now the upload structure of the file would have 11 fields as floating/generic value. So we keep FLD1-FLD11 of type FIELDNAME (Char 30).

The other fields in the upload file structure (common to all condition types) are:-

DATAB (Start Date of Condition Record)
DATBI (End Date of Condition Record)
KBETR (Condition Value)
KPEIN (Condition Price Unit)
MEINS (Unit of Measurement)
KRECH (Calculation Type for Condition)

So the final upload structure is:-

Field Names	Data Type	Description
KAPPL	KAPPL	Application
KSCHL	KSCHL	Condition Type
TABLE	TABNAME	Table Name
FLD1	FIELDNAME	Field Name
FLD2	FIELDNAME	Field Name
FLD3	FIELDNAME	Field Name
FLD4	FIELDNAME	Field Name
FLD5	FIELDNAME	Field Name
FLD6	FIELDNAME	Field Name
FLD7	FIELDNAME	Field Name
FLD8	FIELDNAME	Field Name
FLD9	FIELDNAME	Field Name
FLD10	FIELDNAME	Field Name
FLD11	FIELDNAME	Field Name
DATAB	KODATAB	Validity start date of the condition record
DATBI	KODATBI	Validity end date of the condition record
KBETR	KBETR_KOND	Rate (condition amount or percentage) where no scale exists
KPEIN	KPEIN	Condition pricing unit
MEINS	MEINS	Base Unit of Measure
KRECH	KRECH	Calculation type for condition

Now since in every A* table first 3 key fields are:-

MANDT
KAPPL
KSCHL

(NOTE: other 2 fields KFRST and DATBI are the last 2 key fields)

And first 3 fields in upload file are:-

KAPPL
KSCHL
TABLE

So rest of the key fields from A* table would be mapped to upload file fields FLD1-FLD11 based on the number of primary keys. Thus we will start mapping from field 4 of condition table to FLD1, FLD2 and so on till FLD11, based on the number of key fields.

In case we have 3 more key fields (excluding 5 common key fields), then in the upload file we will have values in fields FLD1, FLD2 and FLD3. In case any other field has a value, then it is an erroneous data, and nor these 3 fields can be blank (as they are part of primary keys).

For instance, let consider the table A652 (refer the snapshot in attachments)

The mapping of upload file to Condition Table would be like:-

1. FLD1 –> VBELN

2. FLD2 –> MATNR

3. FLD3 –> VRKME

4. FLD4 -to- FLD11 would remain as blank.

Also the data coming in these fields should be in continuous chain.

For instance if FLD1, FLD2 and FLD4 has values and FLD3 is initial, then also this record is erroneous.

1. In case of the above erroneous situation, an error message “Discontinuity in Variable Key Fields” is appended.

2. Validate the Processing Status from table T686E. In case no valid record found then append an error message “Invalid Processing status for conditions”.

3. Now using the field information returned from FM “CATSXT_GET_DDIC_FIELDINFO”, check if any Conversion Exit is applicable, and then use the value coming in the upload file field and apply the same to convert the value and then we can pass this to IDoc structures. In case any error occurs then append message coming from the Conversion Exit.

4. Check if the field is present in Segment

E1KOMG,
E1KONH, and
E1KONP

If field is found in the segment, then pass the value in the segment(s).

5. Also concatenate the key field values in a string called Variable Key.

6. After all key fields are covered with the above steps specified; then check for the length of the field. If field length is greater than 100, append a message “Variable Key too big”.

7. Get the Logical System Name from table T000 where Client = SY-MANDT. In case no record found then append an error message “No Partner Function Found”.

8. Concatenate ‘SAP’ SY-SYSID to form the Port Number.

9. In case no error is found till now and test run is not requested, then populate the IDoc Segments.

a. Pass Control Records
- Pass the Sender and Receiver Information.
- IDoc Type as COND_A04
- Message Type as COND_A
- Basic Type as COND_A04
- Direction as Inbound

b. Pass Data Records
- Now pass the above prepared data into segments
  - E1KOMG
    - Application
    - Condition Type
    - Variable Key
    - Region
    - E1KONH
      - Start Date
      - End Date
      - E1KONP
        
        Condition Type
        
        Condition Value
        
        Condition Unit
        
        Condition Price Unit
        
        Calculation Type for Condition

Business benefits

The above explained approach will upload all the relevant condition records in to the SAP system for SD and MM module using the iDoc approach (which is faster as compared to using BDC’s or LSMW’s).

The only thing which is crucial for using this tool is to understand the mapping of condition table with the upload file format. Once the mapping is done and a Tab Delimited Text file is provided to this program, it uploads the data in the desired tables; and thereby saving around 80% of estimated time. For instance, the general effort spent in developing the conversion program is 40 hours -versus- 8 hours spent in using this tool.

In addition, no maintenance is required in case any other change request is to be catered.

Thus this solution minimizes:

The functional effort of manually entering conditions records one by one.
The technical effort of developing conversion program using BDC’s for different condition tables. The number of these conversion program can vary depending upon the conditions to be uploaded.
The maintenance effort required as and when new condition types are added.

20 Comments

You must be Logged on to comment or reply to a post.

Former Member

September 1, 2015 at 4:51 am

That's a very helpful piece of information and the code will help a lot of developers in the implementation projects as well AMS.

Thanks for sharing.

Regards.

Former Member

September 1, 2015 at 12:25 pm

To implement the same with Microsoft Dynamics Ax takes around 1 hour or even no code is needed. Why it is so complicated with SAP? There is not a tool to Import automaticaly the CSV file with data to the Prices?

Tarun Gambhir

Blog Post Author

September 1, 2015 at 4:39 pm

Hello Pedro,

Thanks for the information. I wasn't aware of this tool. This solution was designed by me for one of my customer where they wanted to upload pricing through one custom transaction.

Best Regards,

Tarun

Former Member

September 2, 2015 at 6:36 am

Hi Tarun. Yes with with Microsoft Dynamics you can upload the Price Conditions using AIF and doing only some mapping between the file and the data. You can also do that by code with no more than 100 hundred lines of code.

Anyway, thanks a lot for the example. It is great.

Former Member

February 9, 2016 at 10:55 am

its useful document.

Thanks,

Vivek

Former Member

March 2, 2017 at 9:30 am

There is code attachment available I saw long back. But I cannot find it now. Where can I find the code attached to this particular blog. Thanks in anticipation

Devendra Singh

August 5, 2017 at 4:27 pm

Hi Tarun ,

Greetings for the day ahead .

I have a similar requirement .

Plz attach the code .

Would be grateful for your Help .

Thanks ,

Devendra Singh

NARSAIAH THOTTEMPUDI

August 24, 2017 at 10:55 am

Hi Tarun,

Could you please attach the code.

Thank you,

Narasaiah T

Willy Soetjoadi

April 18, 2018 at 6:06 am

Hi Tarun ,

I have a similar requirement.

Appreciated if you could attach the code.

Thank you for your Help .

Regards,

Willie T

Tarun Gambhir

July 24, 2018 at 6:33 am

////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////
*----------------------------------------------------------------------
* Object ID : XXXXXX
* Program : ZSD_PRICING_UPLOAD
* Author : Tarun Gambhir
* Date : 04/28/2015
* Description: Pricing Conditions Upload Conversion for VK11/VK12/VK13
*----------------------------------------------------------------------
* MODIFICATIONS LOG
*----------------------------------------------------------------------
* Request Text
* ---------- ----------------------------------------------------------
* Initial Version
*----------------------------------------------------------------------
REPORT zsd_pricing_upload.
*----------------------------------------------------------------------
* INCLUDES
*----------------------------------------------------------------------
INCLUDE: zsd_pricing_upload_top, " Global Declaration
zsd_pricing_upload_scr, " Selection Screen
zsd_pricing_upload_cls, " Local Class
zsd_pricing_upload_frm. " Sub-Routines
*----------------------------------------------------------------------*
* INITIALIZATION
*----------------------------------------------------------------------*
INITIALIZATION.
CREATE OBJECT o_cond.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
o_cond->f4_help( ).
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_efile.
o_cond->f4_ehelp( ).
AT SELECTION-SCREEN ON p_file.
o_cond->validate_file( ).
AT SELECTION-SCREEN ON p_efile.
o_cond->validate_efile( ).
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
o_cond->sos( ).
*----------------------------------------------------------------------*
* END-OF-SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
o_cond->eos( ).

////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////

*&---------------------------------------------------------------------*
*& Include ZSD_PRICING_UPLOAD_CLS
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* CLASS lcl_cond DEFINITION
*----------------------------------------------------------------------*
* Local Class
*----------------------------------------------------------------------*
CLASS lcl_cond DEFINITION FINAL.
PUBLIC SECTION.
METHODS : constructor,
f4_help,
f4_ehelp,
validate_file,
validate_efile,
sos,
eos,
upload_data,
get_partner_num,
get_check_data,
process_data,
display_alv,
download_error_records,
create_fcat,
append_fcat IMPORTING im_field TYPE fieldname
im_text TYPE scrtext_l,
alv,
get_table_details,
validate_data,
pass_isocode_for_vrkme,
pass_vistex,
conversion_routine IMPORTING im_convexit TYPE convexit
im_leng TYPE ddleng,
call_conv_exit IMPORTING im_func TYPE rs38l_fnam
im_leng TYPE ddleng,
populate_idoc_data,
pass_control_record,
pass_data_record,
post_data,
direct_update,
append_log IMPORTING im_tabix TYPE sytabix
im_key TYPE fc_text
im_type TYPE msgty
im_msg TYPE bapi_msg,
format_message IMPORTING im_msgid TYPE sy-msgid
im_msgno TYPE sy-msgno
im_msgv1 TYPE sy-msgv1
im_msgv2 TYPE sy-msgv2
im_msgv3 TYPE sy-msgv3
im_msgv4 TYPE sy-msgv4
EXPORTING ex_msg TYPE any
EXCEPTIONS not_found,
upload_pres_file IMPORTING im_pfile TYPE localfile
EXPORTING ex_data TYPE STANDARD TABLE
EXCEPTIONS upload_failed,
validate_txt_file IMPORTING im_file TYPE localfile
EXCEPTIONS invalid_txt,
validate_pres_file IMPORTING im_pfile TYPE localfile
EXCEPTIONS filenotsplitted
invalid_directory
invalid_filename,
split_file_path IMPORTING im_file TYPE localfile
EXPORTING ex_dir TYPE any
ex_fname TYPE any
EXCEPTIONS filenotsplitted.
ENDCLASS. "lcl_cond DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_cond IMPLEMENTATION
*----------------------------------------------------------------------*
* Local Class
*----------------------------------------------------------------------*
CLASS lcl_cond IMPLEMENTATION.
METHOD constructor.
v_repid = sy-repid.
ENDMETHOD. "constructor
METHOD f4_help.
DATA: lt_table TYPE filetable,
lv_rc TYPE i.
FIELD-SYMBOLS: <lfs_table> TYPE file_table.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
default_extension = c_text
CHANGING
file_table = lt_table
rc = lv_rc
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error = 2
error_no_gui = 3
not_supported_by_gui = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE 'Error in value-request for upload file'(020) TYPE c_i.
LEAVE LIST-PROCESSING.
ELSE.
READ TABLE lt_table ASSIGNING <lfs_table> INDEX 1.
IF <lfs_table> IS ASSIGNED.
p_file = <lfs_table>-filename.
ENDIF.
ENDIF.
ENDMETHOD. "f4_help
METHOD f4_ehelp.
DATA lv_path TYPE string.
CALL METHOD cl_gui_frontend_services=>directory_browse
CHANGING
selected_folder = lv_path
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc = 0.
p_efile = lv_path.
ELSE.
MESSAGE 'Error in value-request for download path'(028) TYPE c_i.
ENDIF.
ENDMETHOD. "f4_ehelp
METHOD validate_file.
DATA: lv_result TYPE abap_bool,
lv_file TYPE string.
lv_file = p_file.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = lv_file
RECEIVING
result = lv_result
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF sy-subrc <> 0 OR ( sy-subrc = 0 AND lv_result = space ).
MESSAGE 'Invalid file path'(024) TYPE c_e.
ENDIF.
ENDMETHOD. "validate_file
METHOD validate_efile.
DATA: lv_file TYPE string,
lv_result TYPE abap_bool.
IF p_error = abap_true.
IF p_efile IS INITIAL.
MESSAGE 'Enter a valid file path'(029) TYPE c_e.
ENDIF.
lv_file = p_efile.
CALL METHOD cl_gui_frontend_services=>directory_exist
EXPORTING
directory = lv_file
RECEIVING
result = lv_result
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF sy-subrc <> 0 OR ( sy-subrc = 0 AND lv_result = space ).
MESSAGE 'Invalid error file path'(030) TYPE c_e.
ENDIF.
ENDIF.
ENDMETHOD. "validate_efile
METHOD sos.
*~~No File Path is given
IF p_file IS INITIAL.
MESSAGE 'File path missing'(010) TYPE c_s DISPLAY LIKE c_e.
LEAVE LIST-PROCESSING.
ENDIF.
upload_data( ).
CHECK v_flag IS INITIAL.
get_partner_num( ).
IF t_main IS NOT INITIAL AND " upload data
v_error IS INITIAL. " error flag
*~~Get Check Data for Condition Type & Iso codes
get_check_data( ).
*~~Process Upload Records
process_data( ).
ENDIF.
ENDMETHOD. "sos
METHOD eos.
CHECK t_main IS NOT INITIAL.
*~~If no upload error occured
IF v_flag = space.
*~~If error record(s) download is requested
IF p_error = abap_true.
IF t_error IS INITIAL.
MESSAGE 'No error record(s) to be downloaded'(033) TYPE c_i.
ELSE.
download_error_records( ).
ENDIF.
ENDIF.
*~~If no log is there to be displayed
IF t_log IS INITIAL.
MESSAGE 'No data to display'(002) TYPE c_i.
ELSE.
*~~Display complete log in ALV
display_alv( ).
ENDIF.
ENDIF.
ENDMETHOD. "eos
METHOD upload_data.
CLEAR : t_main, v_flag.
CALL METHOD me->upload_pres_file
EXPORTING
im_pfile = p_file
IMPORTING
ex_data = t_main
EXCEPTIONS
upload_failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE c_i NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
v_flag = abap_true.
ENDIF.
ENDMETHOD. "upload_data
METHOD get_partner_num.
CLEAR : v_partn, v_port, v_error.
CONCATENATE c_sap sy-sysid INTO v_port.
SELECT SINGLE logsys FROM t000 INTO v_partn
WHERE mandt = sy-mandt.
IF sy-subrc <> 0.
v_error = abap_true.
CLEAR v_key.
CALL METHOD append_log
EXPORTING
im_tabix = '0'
im_key = v_key
im_type = c_e
im_msg = 'No Partner Function Found'(003).
t_error = t_main.
ENDIF.
ENDMETHOD. "get_partner_num
METHOD get_check_data.
DATA li_main TYPE STANDARD TABLE OF ty_main.
CLEAR : t_t685, t_t006.
*~~Application
li_main = t_main.
SORT li_main BY kappl.
DELETE ADJACENT DUPLICATES FROM li_main COMPARING kappl.
IF li_main IS NOT INITIAL.
SELECT kappl FROM t681a INTO TABLE t_t681a
FOR ALL ENTRIES IN li_main
WHERE kappl = li_main-kappl.
IF sy-subrc = 0.
SORT t_t681a BY kappl.
ENDIF.
ENDIF.
*~~Condition Type
CLEAR li_main.
li_main = t_main.
SORT li_main BY kappl kschl.
DELETE ADJACENT DUPLICATES FROM li_main COMPARING kappl kschl.
IF li_main IS NOT INITIAL.
SELECT kschl FROM t685 INTO TABLE t_t685
FOR ALL ENTRIES IN li_main
WHERE kappl = li_main-kappl
AND kschl = li_main-kschl.
IF sy-subrc = 0.
SORT t_t685 BY kschl.
ENDIF.
ENDIF.
*~~Iso codes
CLEAR li_main.
li_main = t_main.
SORT li_main BY meins.
DELETE ADJACENT DUPLICATES FROM li_main COMPARING meins.
IF li_main IS NOT INITIAL.
SELECT msehi isocode FROM t006 INTO TABLE t_t006
FOR ALL ENTRIES IN li_main
WHERE msehi = li_main-meins.
IF sy-subrc = 0.
SORT t_t006 BY msehi.
ENDIF.
ENDIF.
ENDMETHOD. "get_check_data
METHOD process_data.
UNASSIGN <fs_main>.
CLEAR : o_e1komg, o_e1konh, o_e1konp.
CREATE DATA : o_e1komg TYPE (c_komg),
o_e1konh TYPE (c_konh),
o_e1konp TYPE (c_konp).
IF o_e1komg IS NOT INITIAL AND o_e1konh IS NOT INITIAL AND o_e1konp IS
NOT INITIAL.
UNASSIGN : <fs_komg>, <fs_konh>, <fs_konp>.
ASSIGN : o_e1komg->* TO <fs_komg>,
o_e1konh->* TO <fs_konh>,
o_e1konp->* TO <fs_konp>.
ENDIF.
CLEAR t_error.
LOOP AT t_main ASSIGNING <fs_main>.
CLEAR : v_tabix, v_error, v_vakey.
IF <fs_komg> IS ASSIGNED AND <fs_konh> IS ASSIGNED AND <fs_konp> IS A
SSIGNED.
CLEAR : <fs_komg>, <fs_konh>, <fs_konp>.
ENDIF.
v_tabix = sy-tabix.
get_table_details( ).
validate_data( ).
IF v_error = space.
populate_idoc_data( ).
ENDIF.
ENDLOOP.
ENDMETHOD. "process_data
METHOD download_error_records.
CLEAR v_efile.
CONCATENATE p_efile '\Error_' sy-datum sy-uzeit '.txt'
INTO v_efile.
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename = v_efile
write_field_separator = abap_true
CHANGING
data_tab = t_error
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
not_supported_by_gui = 22
error_no_gui = 23
OTHERS = 24.
IF sy-subrc <> 0.
MESSAGE 'Error downloading error record(s)'(031) TYPE c_i.
ENDIF.
ENDMETHOD. "download_error_records
METHOD display_alv.
IF t_log IS INITIAL.
MESSAGE 'No log to be displayed'(017) TYPE c_i.
LEAVE LIST-PROCESSING.
ENDIF.
create_fcat( ).
alv( ).
ENDMETHOD. "display_alv
METHOD create_fcat.
append_fcat( EXPORTING im_field = 'TYPE' im_text = 'Message Type'(018)
).
append_fcat( EXPORTING im_field = 'TABIX' im_text = 'Record No'(019) ).
append_fcat( EXPORTING im_field = 'KEY' im_text = 'Record Key'(021) ).
append_fcat( EXPORTING im_field = 'MSG' im_text = 'Message'(022) ).
ENDMETHOD. "create_fcat
METHOD append_fcat.
DATA lw_fcat TYPE slis_fieldcat_alv.
lw_fcat-fieldname = im_field.
lw_fcat-seltext_s = lw_fcat-seltext_m = lw_fcat-seltext_l = im_text.
lw_fcat-ddictxt = 'L'.
lw_fcat-tabname = 'T_LOG'.
APPEND lw_fcat TO t_fcat.
CLEAR lw_fcat.
ENDMETHOD. "append_fcat
METHOD alv.
DATA : lw_layout TYPE slis_layout_alv.
lw_layout-colwidth_optimize = abap_true.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = v_repid
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = lw_layout
it_fieldcat = t_fcat
TABLES
t_outtab = t_log
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE 'Error displaying ALV' TYPE c_i.
LEAVE LIST-PROCESSING.
ENDIF.
ENDMETHOD. "alv
METHOD get_table_details.
FIELD-SYMBOLS <lfs_ddfields> TYPE STANDARD TABLE.
CLEAR t_ddfields.
UNASSIGN <fs_t006>.
IF <fs_main> IS ASSIGNED.
READ TABLE t_t006 ASSIGNING <fs_t006> WITH KEY msehi = <fs_main>-
meins BINARY SEARCH.
IF <fs_t006> IS ASSIGNED.
<fs_main>-meins = <fs_t006>-isocode.
ENDIF.
UNASSIGN <fs_table>.
READ TABLE t_table ASSIGNING <fs_table> WITH KEY table = <fs_main>-
table.
IF <fs_table> IS ASSIGNED.
UNASSIGN <lfs_ddfields>.
ASSIGN <fs_table>-info->* TO <lfs_ddfields>.
IF <lfs_ddfields> IS ASSIGNED.
t_ddfields = <lfs_ddfields>.
ENDIF.
ELSE.
APPEND INITIAL LINE TO t_table ASSIGNING <fs_table>.
IF <fs_table> IS ASSIGNED.
<fs_table>-table = <fs_main>-table.
UNASSIGN <lfs_ddfields>.
CREATE DATA <fs_table>-info TYPE ddfields.
ASSIGN <fs_table>-info->* TO <lfs_ddfields>.
ENDIF.
ENDIF.
IF t_ddfields IS NOT INITIAL.
RETURN.
ENDIF.
CALL FUNCTION 'CATSXT_GET_DDIC_FIELDINFO'
EXPORTING
im_structure_name = <fs_main>-table
IMPORTING
ex_ddic_info = t_ddfields
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
v_error = abap_true.
CLEAR v_key.
v_key = <fs_main>-table.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = c_e
im_msg = 'Invalid Condition Table'(004).
*~~Append Error
APPEND <fs_main> TO t_error.
ENDIF.
IF <lfs_ddfields> IS ASSIGNED.
<lfs_ddfields> = t_ddfields.
ENDIF.
ENDIF.
ENDMETHOD. "get_table_details
METHOD validate_data.
DATA : lv_count TYPE i,
lv_tabix TYPE sytabix,
lv_flag TYPE char1.
FIELD-SYMBOLS <lfs_dfies> TYPE any.
*~~Check for APPLICATION
UNASSIGN <fs_t681a>.
READ TABLE t_t681a ASSIGNING <fs_t681a> WITH KEY kappl = <fs_main>-
kappl BINARY SEARCH.
IF <fs_t681a> IS NOT ASSIGNED.
v_error = abap_true.
CLEAR v_key.
CONCATENATE <fs_main>-kschl <fs_main>-
table INTO v_key SEPARATED BY c_sep.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = c_e
im_msg = 'Invalid Application'(005).
*~~Append Error
APPEND <fs_main> TO t_error.
ENDIF.
*~~Check for CONDITION TYPE
UNASSIGN <fs_t685>.
READ TABLE t_t685 ASSIGNING <fs_t685> WITH KEY kschl = <fs_main>-
kschl BINARY SEARCH.
IF <fs_t685> IS NOT ASSIGNED.
v_error = abap_true.
CLEAR v_key.
CONCATENATE <fs_main>-kschl <fs_main>-
table INTO v_key SEPARATED BY c_sep.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = c_e
im_msg = 'Invalid Condition Type'(006).
*~~Append Error
APPEND <fs_main> TO t_error.
ENDIF.
*~~Check for FIELD CONTINUITY
lv_count = 4.
lv_tabix = 4.
CLEAR : sy-index, lv_flag, v_leng, v_len.
WHILE sy-index <= 11.
UNASSIGN <fs_field>.
ASSIGN COMPONENT lv_count OF STRUCTURE <fs_main> TO <fs_field>.
IF <fs_field> IS ASSIGNED.
IF <fs_field> IS INITIAL.
lv_flag = abap_true.
ELSE.
IF lv_flag = abap_true.
CLEAR v_key.
v_key = <fs_main>-kschl.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = c_e
im_msg = 'Discontinuity in Variable Key Fields'(007).
v_error = abap_true.
*~~Append Error
APPEND <fs_main> TO t_error.
EXIT.
ELSE.
CLEAR o_data.
READ TABLE t_ddfields ASSIGNING <fs_dfies> INDEX lv_tabix.
IF <fs_dfies> IS ASSIGNED.
CREATE DATA o_data TYPE (<fs_dfies>-rollname).
IF o_data IS BOUND.
ASSIGN o_data->* TO <fs_value>.
IF <fs_value> IS ASSIGNED.
<fs_value> = <fs_field>.
IF sy-index = 1.
CLEAR v_leng.
ELSE.
v_leng = v_leng + v_len.
ENDIF.
IF <fs_dfies>-convexit IS NOT INITIAL.
conversion_routine( EXPORTING im_convexit = <fs_dfies>-
convexit
im_leng = <fs_dfies>-leng ).
ELSE.
CLEAR v_len.
v_len = <fs_dfies>-leng.
v_vakey+v_leng(v_len) = <fs_value>.
ENDIF.
*~~Replace value of VRKME by T006-ISOCODE value
pass_isocode_for_vrkme( ).
*~~Assign the field value in KOMG structure
UNASSIGN <lfs_dfies>.
ASSIGN COMPONENT <fs_dfies>-
fieldname OF STRUCTURE <fs_komg> TO <lfs_dfies>.
IF <lfs_dfies> IS ASSIGNED.
<lfs_dfies> = <fs_value>.
ENDIF.
*~~Assign the field value in KONH structure
UNASSIGN <lfs_dfies>.
ASSIGN COMPONENT <fs_dfies>-
fieldname OF STRUCTURE <fs_konh> TO <lfs_dfies>.
IF <lfs_dfies> IS ASSIGNED.
<lfs_dfies> = <fs_value>.
ENDIF.
*~~Assign the field value in KONP structure
UNASSIGN <lfs_dfies>.
ASSIGN COMPONENT <fs_dfies>-
fieldname OF STRUCTURE <fs_konp> TO <lfs_dfies>.
IF <lfs_dfies> IS ASSIGNED.
<lfs_dfies> = <fs_value>.
ENDIF.
*~~Pass Vistex Data if required
pass_vistex( ).
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
lv_count = lv_count + 1.
lv_tabix = lv_tabix + 1.
ENDWHILE.
*~~Check variable key not more than 100 digits
CLEAR lv_count.
lv_count = strlen( v_vakey ).
IF lv_count > 100.
v_error = abap_true.
CLEAR v_key.
CONCATENATE <fs_main>-kschl <fs_main>-table v_vakey
INTO v_key SEPARATED BY c_sep.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = c_e
im_msg = 'Variable Key too big'(008).
*~~Append Error
APPEND <fs_main> TO t_error.
ENDIF.
ENDMETHOD. "validate_data
METHOD pass_isocode_for_vrkme.
IF <fs_dfies>-fieldname = c_vrkme.
UNASSIGN <fs_t006>.
READ TABLE t_t006 ASSIGNING <fs_t006>
WITH KEY msehi = <fs_value> BINARY SEARCH.
IF <fs_t006> IS ASSIGNED.
<fs_value> = <fs_t006>-isocode.
ENDIF.
ENDIF.
ENDMETHOD. "pass_isocode_for_vrkme
METHOD pass_vistex.
FIELD-SYMBOLS <lx_idoc> TYPE any.
UNASSIGN <lx_idoc>.
ASSIGN COMPONENT <fs_dfies>-
fieldname OF STRUCTURE <fs_komg> TO <lx_idoc>.
IF <lx_idoc> IS ASSIGNED.
<lx_idoc> = <fs_value>.
ENDIF.
UNASSIGN <lx_idoc>.
ASSIGN COMPONENT <fs_dfies>-
fieldname OF STRUCTURE <fs_konh> TO <lx_idoc>.
IF <lx_idoc> IS ASSIGNED.
<lx_idoc> = <fs_value>.
ENDIF.
UNASSIGN <lx_idoc>.
ASSIGN COMPONENT <fs_dfies>-
fieldname OF STRUCTURE <fs_konp> TO <lx_idoc>.
IF <lx_idoc> IS ASSIGNED.
<lx_idoc> = <fs_value>.
ENDIF.
ENDMETHOD. "pass_vistex
METHOD conversion_routine.
DATA lv_func TYPE rs38l_fnam.
CONCATENATE c_conv im_convexit c_input INTO lv_func.
UNASSIGN <fs_cexit>.
READ TABLE t_cexit ASSIGNING <fs_cexit> WITH KEY funcname = lv_func.
IF <fs_cexit> IS NOT ASSIGNED.
SELECT funcname parameter paramtype FROM fupararef
APPENDING TABLE t_cexit
WHERE funcname = lv_func.
IF sy-subrc = 0.
SORT t_cexit BY funcname.
ENDIF.
ENDIF.
call_conv_exit( EXPORTING im_func = lv_func
im_leng = im_leng ).
ENDMETHOD. "conversion_routine
METHOD call_conv_exit.
DATA lv_msg TYPE bapi_msg.
DATA : li_ptab TYPE abap_func_parmbind_tab,
lw_ptab TYPE abap_func_parmbind,
li_etab TYPE abap_func_excpbind_tab,
lw_etab TYPE abap_func_excpbind.
UNASSIGN <fs_cexit>.
LOOP AT t_cexit ASSIGNING <fs_cexit> WHERE funcname = im_func.
CASE <fs_cexit>-paramtype.
WHEN 'I'.
IF <fs_cexit>-parameter = c_inp.
lw_ptab-name = <fs_cexit>-parameter.
lw_ptab-kind = abap_func_exporting.
GET REFERENCE OF <fs_value> INTO lw_ptab-value.
INSERT lw_ptab INTO TABLE li_ptab.
ENDIF.
WHEN 'E'.
IF <fs_cexit>-parameter = c_out.
lw_ptab-name = <fs_cexit>-parameter.
lw_ptab-kind = abap_func_importing.
GET REFERENCE OF <fs_value> INTO lw_ptab-value.
INSERT lw_ptab INTO TABLE li_ptab.
ENDIF.
WHEN 'X'.
lw_etab-name = c_other.
lw_etab-value = 1.
INSERT lw_etab INTO TABLE li_etab.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
IF sy-subrc = 0.
CALL FUNCTION im_func
PARAMETER-TABLE
li_ptab
EXCEPTION-TABLE
li_etab.
CASE sy-subrc.
WHEN 0.
CLEAR v_len.
v_len = im_leng.
v_vakey+v_leng(v_len) = <fs_value>.
WHEN 1.
v_error = abap_true.
CALL METHOD me->format_message
EXPORTING
im_msgid = sy-msgid
im_msgno = sy-msgno
im_msgv1 = sy-msgv1
im_msgv2 = sy-msgv2
im_msgv3 = sy-msgv3
im_msgv4 = sy-msgv4
IMPORTING
ex_msg = lv_msg
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
CLEAR lv_msg.
CONCATENATE 'Error occured while using Conversion Exit'(009) im
_func
INTO lv_msg SEPARATED BY space.
ENDIF.
CLEAR v_key.
CONCATENATE <fs_main>-kschl <fs_main>-
table INTO v_key SEPARATED BY c_sep.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = c_e
im_msg = lv_msg.
*~~Append Error
APPEND <fs_main> TO t_error.
ENDCASE.
ENDIF.
ENDMETHOD. "call_conv_exit
METHOD populate_idoc_data.
*~~Populate IDOC Control Record
pass_control_record( ).
*~~Populate IDOC Data Record
pass_data_record( ).
*~~Post the data in IDOC
post_data( ).
ENDMETHOD. "populate_idoc_data
METHOD pass_control_record.
CLEAR : w_edidc, t_edidc.
w_edidc-rcvpor = v_port.
w_edidc-rcvprt = c_ls.
w_edidc-rcvprn = v_partn.
w_edidc-sndpor = v_port.
w_edidc-sndprt = c_ls.
w_edidc-sndprn = v_partn.
w_edidc-doctyp = c_dctyp.
w_edidc-mestyp = c_mstyp.
w_edidc-idoctp = c_bstyp.
w_edidc-direct = c_in.
APPEND w_edidc TO t_edidc.
CLEAR w_edidc.
ENDMETHOD. "pass_control_record
METHOD pass_data_record.
CLEAR : w_edidd, t_edidd, w_e1komg, w_e1konh, w_e1konp,
v_segnm, v_hlevl.
IF <fs_komg> IS ASSIGNED.
w_e1komg = <fs_komg>.
ENDIF.
IF <fs_konh> IS ASSIGNED.
w_e1konh = <fs_konh>.
ENDIF.
IF <fs_konp> IS ASSIGNED.
w_e1konp = <fs_konp>.
ENDIF.
*~~Initialize the Segment Number and Higher Level
v_segnm = c_segnm.
v_hlevl = c_hlevl.
*~~Pass the data for E1KOMG
w_edidd-segnum = v_segnm.
w_edidd-segnam = c_komg.
w_edidd-hlevel = v_hlevl.
w_e1komg-kvewe = <fs_main>-table+0(1).
w_e1komg-kotabnr = <fs_main>-table+1(3).
w_e1komg-kappl = <fs_main>-kappl.
w_e1komg-kschl = <fs_main>-kschl.
w_e1komg-vakey = v_vakey.
w_edidd-sdata = w_e1komg.
APPEND w_edidd TO t_edidd.
CLEAR w_edidd.
*~~Increment the Segment Number
v_segnm = v_segnm + 1.
*~~Pass the data for E1KONH
w_edidd-segnum = v_segnm.
w_edidd-segnam = c_konh.
w_edidd-hlevel = v_hlevl.
w_e1konh-datab = <fs_main>-datab.
w_e1konh-datbi = <fs_main>-datbi.
w_edidd-sdata = w_e1konh.
APPEND w_edidd TO t_edidd.
CLEAR w_edidd.
*~~Increment the Segment Number & Higher Level
v_segnm = v_segnm + 1.
v_hlevl = v_hlevl + 1.
*~~Pass the data for E1KONP
w_edidd-segnum = v_segnm.
w_edidd-segnam = c_konp.
w_edidd-hlevel = v_hlevl.
w_e1konp-kschl = <fs_main>-kschl.
w_e1konp-kbetr = <fs_main>-kbetr.
w_e1konp-kpein = <fs_main>-kpein.
w_e1konp-kmein = <fs_main>-meins.
w_e1konp-krech = <fs_main>-krech.
CASE w_e1konp-krech.
WHEN c_a.
w_e1konp-kzbzg = c_b.
w_e1konp-konwa = c_per.
WHEN c_c.
w_e1konp-kzbzg = c_c.
w_e1konp-konwa = <fs_main>-waers.
ENDCASE.
w_edidd-sdata = w_e1konp.
APPEND w_edidd TO t_edidd.
CLEAR w_edidd.
ENDMETHOD. "pass_data_record
METHOD post_data.
*~~Update using DIRECT UPDATE
direct_update( ).
ENDMETHOD. "post_data
METHOD direct_update.
DATA: lv_msg TYPE bapi_msg,
lv_type TYPE msgty.
CLEAR : t_edids, t_return, t_bdi_ser.
*~~Pass the details to the generated IDOC Number
CALL FUNCTION 'IDOC_INPUT_COND_A'
EXPORTING
input_method = space
mass_processing = space
TABLES
idoc_contrl = t_edidc
idoc_data = t_edidd
idoc_status = t_edids
return_variables = t_return
serialization_info = t_bdi_ser
EXCEPTIONS
wrong_function_called = 1
OTHERS = 2.
IF sy-subrc <> 0.
CLEAR lv_msg.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
INTO lv_msg.
CLEAR v_key.
CONCATENATE <fs_main>-kschl <fs_main>-table v_vakey
INTO v_key SEPARATED BY c_sep.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = c_e
im_msg = lv_msg.
*~~Append Error
APPEND <fs_main> TO t_error.
ELSE.
UNASSIGN <fs_edids>.
LOOP AT t_edids ASSIGNING <fs_edids>.
CLEAR lv_msg.
IF <fs_edids>-status = c_53.
lv_msg = 'Changes done successfully'(011).
lv_type = c_s.
ELSE.
MESSAGE ID <fs_edids>-msgid TYPE <fs_edids>-
msgty NUMBER <fs_edids>-msgno
WITH <fs_edids>-msgv1 <fs_edids>-msgv2 <fs_edids>-
msgv3 <fs_edids>-msgv4
INTO lv_msg.
lv_type = c_e.
*~~Append Error
APPEND <fs_main> TO t_error.
ENDIF.
CLEAR v_key.
CONCATENATE <fs_main>-kschl <fs_main>-table v_vakey
INTO v_key SEPARATED BY c_sep.
CALL METHOD me->append_log
EXPORTING
im_tabix = v_tabix
im_key = v_key
im_type = lv_type
im_msg = lv_msg.
ENDLOOP.
ENDIF.
ENDMETHOD. "direct_update
METHOD append_log.
DATA lw_log TYPE ty_log.
lw_log-tabix = im_tabix.
lw_log-key = im_key.
lw_log-type = im_type.
lw_log-msg = im_msg.
APPEND lw_log TO t_log.
CLEAR lw_log.
ENDMETHOD. "append_log
METHOD format_message.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = im_msgid
lang = sy-langu
no = im_msgno
v1 = im_msgv1
v2 = im_msgv2
v3 = im_msgv3
v4 = im_msgv4
IMPORTING
msg = ex_msg
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
CLEAR ex_msg.
RAISE not_found.
ENDIF.
ENDMETHOD. "format_message
METHOD upload_pres_file.
DATA : lv_file TYPE string.
*~~Clear Log & File Name
CLEAR : t_log, lv_file.
lv_file = im_pfile.
*~~Check file for a TXT File
CALL METHOD me->validate_txt_file
EXPORTING
im_file = im_pfile
EXCEPTIONS
invalid_txt = 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
RAISING upload_failed.
ENDIF.
*~~Validate File Path and File Name
CALL METHOD me->validate_pres_file
EXPORTING
im_pfile = im_pfile
EXCEPTIONS
filenotsplitted = 1
invalid_directory = 2
invalid_filename = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
RAISING upload_failed.
ENDIF.
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = lv_file
has_field_separator = abap_true
CHANGING
data_tab = ex_data
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
not_supported_by_gui = 17
error_no_gui = 18
OTHERS = 19.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
RAISING upload_failed.
ENDIF.
*~~Check for number of records upload
IF ex_data IS INITIAL.
MESSAGE 'No data found in the upload file'(012) TYPE c_i.
ENDIF.
ENDMETHOD. "upload_pres_file
METHOD validate_txt_file.
DATA : lv_len TYPE int4,
lv_file TYPE char4.
lv_len = strlen( im_file ).
lv_len = lv_len - 3.
lv_file = im_file+lv_len(3).
CALL FUNCTION '/SAPDII/CONVERT_CASE'
EXPORTING
if_input = lv_file
if_langu = sy-langu
if_tocase = c_u
IMPORTING
ef_output = lv_file.
IF lv_file <> c_text.
MESSAGE 'Invalid Text File'(013) TYPE c_i RAISING invalid_txt.
ENDIF.
ENDMETHOD. "VALIDATE_TXT_FILE
METHOD validate_pres_file.
DATA : lv_res TYPE abap_bool,
lv_fname TYPE string,
lv_dir TYPE string.
*~~Split FilePath and FileName
CALL METHOD me->split_file_path
EXPORTING
im_file = im_pfile
IMPORTING
ex_dir = lv_dir
ex_fname = lv_fname
EXCEPTIONS
filenotsplitted = 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
RAISING filenotsplitted.
ENDIF.
*--Method to Validate Directory
CALL METHOD cl_gui_frontend_services=>directory_exist
EXPORTING
directory = lv_dir
RECEIVING
result = lv_res
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF lv_res IS INITIAL.
MESSAGE 'Invalid Directory'(014) TYPE c_i RAISING invalid_directory.
ELSE.
CLEAR lv_res.
*--Method to Validate File
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = lv_fname
RECEIVING
result = lv_res
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF lv_res IS INITIAL.
MESSAGE 'Invalid Filename'(015) TYPE c_i RAISING invalid_filename.
ENDIF.
ENDIF.
ENDMETHOD. "validate_pres_file
METHOD split_file_path.
*--FM to split File Path into Directory and File Name
CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
EXPORTING
full_name = im_file
IMPORTING
stripped_name = ex_fname
file_path = ex_dir
EXCEPTIONS
x_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE 'File and Path not splitted'(016) TYPE c_i RAISING filenotspl
itted.
ENDIF.
ENDMETHOD. "split_file_path
ENDCLASS. "lcl_cond IMPLEMENTATION

////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////

*&---------------------------------------------------------------------*
*& Include ZSD_PRICING_UPLOAD_FRM
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* FORM TOP_OF_PAGE
*----------------------------------------------------------------------*
* Sub-Routine for Top Of Page for ALV
*----------------------------------------------------------------------*
FORM top_of_page.
DATA: lt_top TYPE slis_t_listheader,
lw_top TYPE slis_listheader,
lv_datum TYPE char10.
*~~Header
lw_top-typ = c_h.
lw_top-info = 'Pricing Upload'(023).
APPEND lw_top TO lt_top. CLEAR lw_top.
*~~Username
lw_top-typ = c_s.
lw_top-key = 'Username:'(025).
lw_top-info = sy-uname.
APPEND lw_top TO lt_top. CLEAR lw_top.
*~~Date
lw_top-typ = c_s.
lw_top-key = 'Date:'(026).
WRITE sy-datum TO lv_datum.
lw_top-info = lv_datum.
APPEND lw_top TO lt_top. CLEAR lw_top.
*~~Error Log (if dowloaded)
IF p_error = abap_true AND v_efile IS NOT INITIAL.
lw_top-typ = c_s.
lw_top-key = 'Error File Path:'(032).
lw_top-info = v_efile.
APPEND lw_top TO lt_top. CLEAR lw_top.
ENDIF.
*~~Print Top of page
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = lt_top.
ENDFORM. "top_of_page

////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////

*&---------------------------------------------------------------------*
*& Include ZSD_PRICING_UPLOAD_SCR
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) text-034.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) text-035.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(70) text-036.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS p_file TYPE localfile OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-027.
PARAMETERS: p_error AS CHECKBOX DEFAULT 'X',
p_efile TYPE localfile.
SELECTION-SCREEN END OF BLOCK b2.

////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////

*&---------------------------------------------------------------------*
*& Include ZSD_PRICING_UPLOAD_TOP
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------
* CLASS
*----------------------------------------------------------------------
CLASS lcl_cond DEFINITION DEFERRED.
*----------------------------------------------------------------------
* TYPES
*----------------------------------------------------------------------
TYPE-POOLS slis.
TYPES: BEGIN OF ty_main,
kappl TYPE kappl,
kschl TYPE kschl,
table TYPE tabname,
fld1 TYPE fieldname,
fld2 TYPE fieldname,
fld3 TYPE fieldname,
fld4 TYPE fieldname,
fld5 TYPE fieldname,
fld6 TYPE fieldname,
fld7 TYPE fieldname,
fld8 TYPE fieldname,
fld9 TYPE fieldname,
fld10 TYPE fieldname,
fld11 TYPE fieldname,
datab TYPE kodatab,
datbi TYPE kodatbi,
kbetr TYPE kbetr_kond,
kpein TYPE kpein,
meins TYPE meins,
krech TYPE krech,
waers TYPE waers,
END OF ty_main,
BEGIN OF ty_t681a,
kappl TYPE kappl, " Application
END OF ty_t681a,
BEGIN OF ty_t685,
kschl TYPE kschl, " Condition Type
END OF ty_t685,
BEGIN OF ty_t006,
msehi TYPE msehi, " Uom
isocode TYPE isocd_unit, " ISO Code
END OF ty_t006,
BEGIN OF ty_cexit,
funcname TYPE rs38l_fnam, " FunctionMod Name
parameter TYPE rs38l_par_, " Parameter
paramtype TYPE rs38l_kind, " Parameter Type
END OF ty_cexit,
BEGIN OF ty_table,
table TYPE tabname,
info TYPE REF TO data,
END OF ty_table,
BEGIN OF ty_log,
tabix TYPE sytabix,
key TYPE fc_text,
type TYPE msgty,
msg TYPE bapi_msg,
END OF ty_log.
*----------------------------------------------------------------------
* CONSTANTS
*----------------------------------------------------------------------
CONSTANTS : c_i TYPE char1 VALUE 'I', " Info
c_s TYPE char1 VALUE 'S', " Success
c_e TYPE char1 VALUE 'E', " Error
c_segnm TYPE idocdsgnum VALUE '000001', " Segment Num
c_hlevl TYPE edi_hlevel VALUE '01', " Higher Level
c_komg TYPE edilsegtyp VALUE 'E1KOMG', " Segment Name
c_konh TYPE edilsegtyp VALUE 'E1KONH', " Segment Name
c_konp TYPE edilsegtyp VALUE 'E1KONP', " Segment Name
c_dctyp TYPE edi_doctyp VALUE 'COND_A04', " IDOC Type
c_bstyp TYPE edi_idoctp VALUE 'COND_A04', " Basic Type
c_mstyp TYPE edi_mestyp VALUE 'COND_A', " Message Type
c_ls TYPE edi_rcvprt VALUE 'LS', " Partner System
c_in TYPE edi_direct VALUE '2', " Direction
c_sap TYPE char3 VALUE 'SAP', " SAP
c_53 TYPE edi_status VALUE '53', " Success Status
c_a TYPE stfkz VALUE 'A', " Scale Type
c_b TYPE kzbzg VALUE 'B', " Scale Type
c_c TYPE kzbzg VALUE 'C', " Scale basis in
dicator
c_per TYPE konwa VALUE '%', " Rate unit (cur
rency or percentage)
c_conv TYPE char16 VALUE 'CONVERSION_EXIT_',
c_input TYPE char6 VALUE '_INPUT',
c_vrkme TYPE fieldname VALUE 'VRKME', " Sales Unit
c_sep TYPE char1 VALUE '/', " Seperator
c_u TYPE char1 VALUE 'U', " Upper Case
c_text TYPE string VALUE 'TXT', " TXT
c_inp TYPE rs38l_par_ VALUE 'INPUT',
c_out TYPE rs38l_par_ VALUE 'OUTPUT',
c_other TYPE abap_excpname VALUE 'OTHERS',
c_h TYPE char01 VALUE 'H'.
*----------------------------------------------------------------------
* VARIABLES
*----------------------------------------------------------------------
DATA : v_repid TYPE syrepid, " Report ID
v_efile TYPE string, " Error File Path
v_flag TYPE char1, " Upload Failed
v_tabix TYPE sytabix, " Record Index
v_error TYPE char1, " Error in record
v_vakey TYPE vakey_50, " Variable Key
v_key TYPE fc_text, " Key for SALV Disp
v_segnm TYPE idocdsgnum, " Segment Num
v_hlevl TYPE edi_hlevel, " Higher Level
v_partn TYPE edi_rcvprn, " Partner Number
v_port TYPE edi_rcvpor, " Port
v_len TYPE ddleng, " Strlen
v_leng TYPE ddleng. " Strlen
*----------------------------------------------------------------------
* WORK AREAS
*----------------------------------------------------------------------
DATA : w_edidc TYPE edidc, " Control Record
w_edidd TYPE edidd, " Data Record
w_e1komg TYPE e1komg, " Segment Data
w_e1konh TYPE e1konh, " Segment Data
w_e1konp TYPE e1konp. " Segment Data
*----------------------------------------------------------------------
* INTERNAL TABLES
*----------------------------------------------------------------------
DATA : t_main TYPE STANDARD TABLE OF ty_main, " Upload Data
t_error TYPE STANDARD TABLE OF ty_main, " Error Data
t_t681a TYPE STANDARD TABLE OF ty_t681a, " Application
t_t685 TYPE STANDARD TABLE OF ty_t685, " Condition Types
t_t006 TYPE STANDARD TABLE OF ty_t006, " ISO Codes
t_edidc TYPE STANDARD TABLE OF edidc, " Control Record
t_edidd TYPE STANDARD TABLE OF edidd, " Data Record
t_edids TYPE STANDARD TABLE OF bdidocstat, " Status Record
t_return TYPE STANDARD TABLE OF bdwfretvar, " Return
t_bdi_ser TYPE STANDARD TABLE OF bdi_ser, " IDOC Structure
t_ddfields TYPE ddfields,
t_cexit TYPE STANDARD TABLE OF ty_cexit,
t_table TYPE STANDARD TABLE OF ty_table,
t_log TYPE STANDARD TABLE OF ty_log,
t_fcat TYPE slis_t_fieldcat_alv.
*----------------------------------------------------------------------
* OBJECTS
*----------------------------------------------------------------------
DATA : o_cond TYPE REF TO lcl_cond,
o_data TYPE REF TO data,
o_e1komg TYPE REF TO data,
o_e1konh TYPE REF TO data,
o_e1konp TYPE REF TO data.
*----------------------------------------------------------------------
* FIELD-SYMBOLS
*----------------------------------------------------------------------
FIELD-SYMBOLS : <fs_main> TYPE ty_main,
<fs_t681a> TYPE ty_t681a,
<fs_t685> TYPE ty_t685,
<fs_t006> TYPE ty_t006,
<fs_edids> TYPE bdidocstat,
<fs_dfies> TYPE dfies,
<fs_field> TYPE any,
<fs_value> TYPE any,
<fs_komg> TYPE any,
<fs_konh> TYPE any,
<fs_konp> TYPE any,
<fs_cexit> TYPE ty_cexit,
<fs_table> TYPE ty_table.

////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////

Fabio Iavarone

April 7, 2022 at 12:47 pm

Thanks. It seems does not manage the scales quantity. Could you please share the code "update" for also managing the scales? Thanks a lot.

Guillermo vallejo

February 18, 2020 at 4:12 pm

The code will solve TK11/TK12 uploads?

Thanks

Raja Mohan Kella

August 12, 2020 at 2:29 pm

Hi Tarun,

I tried using the same IDOC approach and also tried RV_CONDITION_COPY, RV_CONDITION_SAVE and RV_CONDITION_RESET. I can see condition records are visible in table KONH, that records are created. But now problem is same records are not visible in VK13 transaction code. I’m passing exactly the same parameters as you mentioned. Could you please let me know what might be the issue?

Nicolas Kohler

May 3, 2023 at 7:46 pm

Likely caused by missing conversion from external to internal format due to leading zeroes.

Nagabhushan H.S

April 6, 2022 at 3:09 pm

Hi Tarun,

This is very very useful blog... Awesome Work!!

Regards,

Bhushan

Przemyslaw Koniecny

April 14, 2023 at 11:18 am

Thank you Taurn, it is very helpfull.

Do you know how to use this function module for "Change condition Validity" ??? .

Now if we want to restrict existing condition from 01.04.2023 - 31.12.9999 to 01.04.2023 - 01.05.2023 FM IDOC_INPUT_COND_A will change and add two records:
01.04.2023 - 01.05.2023 ( created )
02.05.2023 - 31.12.9999 ( Changed)
.... this is wrong result, because we just need to set "stop using" for existing conditions.

Can you help ?

Kind regard
Przemek

Nicolas Kohler

May 3, 2023 at 7:45 pm

not possible - the program by default creates a new condition record. However if you would extend the input file structure with the field LOEVM_KO and map that to E1KONP - then you should be able to have a new record which is flagged for deletion - not necessarily what you want to achieve but still works.

Nicolas Kohler

May 3, 2023 at 7:21 pm

First - excellent post and code - thank you.

Addon because someone else asked and I needed the same ... scale is passed in structure KONM - added a (partially correct) code snippet below but consider this issue: If you work with a flat file and want to add multiple records you will need to adjust the program accordingly as it currently operates on a line by line basis. If you were to add multiple scale values you need to modify the program by changing the logic in method PROCESS_DATA so you create header record first, then condition value then scale and loop accordingly (change the LOOP at GT_MAIN and change the method POPULATE_IDOC_DATA to follow that logic.

Remember that you need to populate field KRECH with the correct value for the scale - in my case for quantities I need to use C

types:  begin of ty_main,
          kappl  type kappl,
          kschl  type kschl,
          table  type tabname,
          fld1   type fieldname,
          fld2   type fieldname,
          fld3   type fieldname,
          fld4   type fieldname,
          fld5   type fieldname,
          fld6   type fieldname,
          fld7   type fieldname,
          fld8   type fieldname,
          fld9   type fieldname,
          fld10  type fieldname,
          fld11  type fieldname,
          datab  type kodatab,
          datbi  type kodatbi,
          kbetr  type kbetr_kond,
          kpein  type kpein,
          meins  type meins,
          krech  type krech,
          waers  type waers,
          kstbm  type kstbm,
          kbetr2 type kbetr_kond,
        end of ty_main,

Enhance constants, work area, objects and field symbols:

//////////////////////////////////////////////////////
TOP include
* constant section
... context
           c_komg    type edilsegtyp value 'E1KOMG', " Segment Name
           c_konh    type edilsegtyp value 'E1KONH', " Segment Name
           c_konp    type edilsegtyp value 'E1KONP', " Segment Name
           c_konm    type edilsegtyp value 'E1KONM', " Segment Name
           c_dctyp   type edi_doctyp value 'COND_A04', " IDOC Type

* work areas
... context
      gs_e1konh type e1konh, " Segment Data
      gs_e1konp type e1konp, " Segment Data
      gs_e1konm type e1konm. " Segment data

* objects
... context
      o_e1konh type ref to data,
      o_e1konp type ref to data,
      o_e1konm type ref to data.

* field symbols
... context
               <fs_konh>  type any,
               <fs_konp>  type any,
               <fs_konm>  type any,
//////////////////////////////////////////////////////
CLS include:
  method process_data.
    unassign <fs_main>.
    clear: o_e1komg,
           o_e1konh,
           o_e1konp,
           o_e1konm.
    create data: o_e1komg type (c_komg),
                 o_e1konh type (c_konh),
                 o_e1konp type (c_konp),
                 o_e1konm type (c_konm).
    if o_e1komg is not initial and
       o_e1konh is not initial and
       o_e1konp is not initial and
       o_e1konm is not initial.
      unassign: <fs_komg>,
                <fs_konh>,
                <fs_konp>,
                <fs_konm>.
      assign: o_e1komg->* to <fs_komg>,
              o_e1konh->* to <fs_konh>,
              o_e1konp->* to <fs_konp>,
              o_e1konm->* to <fs_konm>.
    endif.
    clear gt_error.
    loop at gt_main assigning <fs_main>.
      clear : gv_tabix, gv_error, gv_vakey.
      if <fs_komg> is assigned and
         <fs_konh> is assigned and
         <fs_konp> is assigned and
         <fs_konm> is assigned.
        clear: <fs_komg>,
               <fs_konh>,
               <fs_konp>,
               <fs_konm>.
      endif.
      gv_tabix = sy-tabix.
      get_table_details( ).
      validate_data( ).
      if gv_error = space.
        populate_idoc_data( ).
      endif.
    endloop.
  endmethod. "process_data
//////////////////////////////////////////////////////
  method validate_data.
... context
*~~Assign the field value in KONP structure
                  unassign <lfs_dfies>.
                  assign component <fs_dfies>-fieldname of structure <fs_konp> to <lfs_dfies>.
                  if <lfs_dfies> is assigned.
                    <lfs_dfies> = <fs_value>.
                  endif.
*~~Assign the field value in KONM structure
                  unassign <lfs_dfies>.
                  assign component <fs_dfies>-fieldname of structure <fs_konm> to <lfs_dfies>.
                  if <lfs_dfies> is assigned.
                    <lfs_dfies> = <fs_value>.
                  endif.
//////////////////////////////////////////////////////
  method pass_vistex.
... context
    assign component <fs_dfies>-fieldname of structure <fs_konp> to <lx_idoc>.
    if <lx_idoc> is assigned.
      <lx_idoc> = <fs_value>.
    endif.
    assign component <fs_dfies>-fieldname of structure <fs_konm> to <lx_idoc>.
    if <lx_idoc> is assigned.
      <lx_idoc> = <fs_value>.
    endif.
//////////////////////////////////////////////////////
  method pass_data_record.
... context
    if <fs_konp> is assigned.
      gs_e1konp = <fs_konp>.
    endif.
    if <fs_konm> is assigned.
      gs_e1konm = <fs_konm>.
    endif.
... context
    gs_edidd-sdata = gs_e1konp.
    append gs_edidd to gt_edidd.
    clear gs_edidd.
    gv_segnm = gv_segnm + 1.
    gv_hlevl = gv_hlevl + 1.
    gs_edidd-segnum = gv_segnm.
    gs_edidd-segnam = c_konm.
    gs_edidd-hlevel = gv_hlevl.
    gs_e1konm-kstbm = <fs_main>-kstbm.
    gs_e1konm-kbetr = <fs_main>-kbetr.
    gs_edidd-sdata = gs_e1konm.
    append gs_edidd to gt_edidd.
    clear gs_edidd.
//////////////////////////////////////////////////////

Nicolas Kohler

May 4, 2023 at 9:45 pm

will update above code in a few days - using a 2nd file for scaling records based on KRECH value. File will have to use the same input structure as the main file DATBI to create unique key.

One more thing to consider: Input file will require YYYYMMDD regardless of your user settings - it will otherwise not work.

Raj K

May 17, 2023 at 8:52 am

Hi Nicolas,

I have a similar requirement for ICM Condition Pricing .

Appreciate if you could attach the complete updated code .

Thank you for your Help .!!

Easy and efficient way of uploading pricing conditions in SAP system using a single exclusively designed program

Assigned Tags