Correct me If i am Wrong !!!! Plzzz

[Former Member]

The requirment is:

Program Spec::

-

---

Program: For a set of selected material Read MARA-prdha and

update mvke-prodh and write out a success/fail report.

All error materials downloaded to a file.

Selection Screen:

Material (mvke-matnr)

Sales Org (mvke-vkorg)

Dis.Cha (mvke-vtweg)

Logic:

Use bapi for this update.

Material Selection logic: mara & mvke inner join where prodh

is blank + select options.

I have coded below: the <b>Problem is i am getting error like vkorg is inconsitent or blank for all Matnr i try to update plz help me with this.......</b>

ABLES : bapimathead, "HEADER DATA

bapi_mara, "CLIENT DATA

bapi_mvke, "Structure for BAPI_MVKE

bapi_mvkex, "CHECKBOX Structure for BAPI_MVKE

bapiret2,

mvke,

mara.

DATA :

BEGIN OF i_mara OCCURS 0,

matnr LIKE mara-matnr, "Material number

prdha LIKE mara-prdha, "Product hierarchy

END OF i_mara.

DATA :

BEGIN OF e_mara OCCURS 0,

matnr LIKE mara-matnr, "Material number

prdha LIKE mara-prdha, "Product hierarchy

END OF e_mara.

************************************************************************

• SELECTION SCREEN

************************************************************************

SELECT-OPTIONS : material FOR mvke-matnr,

sale_og FOR mvke-vkorg,

dis_cha FOR mvke-vtweg.

************************************************************************

• START-OF-SELECTION

************************************************************************

PERFORM 100_material_get.

PERFORM 200_bapi_upload.

PERFORM 300_download_error.

&----

---

*& Form 100_MATERIAL_GET

&----

---

• TO GET MATNR AND PRDHA INTO INTERNAL TABLE

----

---

FORM 100_material_get .

SELECT DISTINCT a_{matnr a}prdha INTO CORRESPONDING FIELDS OF TABLE i_mara

FROM ( mara AS a INNER JOIN mvke AS b

ON a_{matnr = b}matnr )

WHERE b_{prodh NE space AND b}matnr IN material AND b~vkorg IN sale_og

AND b~vtweg IN dis_cha.

ENDFORM. " 100_MATERIAL_GET

&----

---

*& Form 200_BAPI_UPLOAD

&----

---

• BAPI OPERATION

----

---

FORM 200_bapi_upload .

LOOP AT i_mara.

IF i_mara IS INITIAL.

CONTINUE.

ENDIF.

CLEAR : bapimathead,

bapi_mara,

bapi_mvke,

bapi_mvkex,

bapiret2.

• MATERIAL

bapimathead-material = i_mara-matnr.

• CLIENT DATA

bapi_mvke-prod_hier = i_mara-prdha.

bapi_mvkex-prod_hier = 'X'.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

headdata = bapimathead

salesdata = bapi_mvke

salesdatax = bapi_mvkex

IMPORTING

return = bapiret2.

IF sy-subrc EQ 0.

IF bapiret2-type EQ 'E'.

e_mara-matnr = i_mara-matnr.

e_mara-prdha = i_mara-prdha.

APPEND e_mara.

ELSE.

COMMIT WORK.

WRITE:/02 i_mara-matnr,

15 'Update Successful'.

ENDIF.

ELSE.

COMMIT WORK.

e_mara-matnr = i_mara-matnr.

e_mara-prdha = i_mara-prdha.

APPEND e_mara.

ENDIF.

ENDLOOP.

ENDFORM. " 200_BAPI_UPLOAD

&----

---

*& Form 300_DOWNLOAD_ERROR

&----

---

• DOWNLOAD ERROR FILE

----

---

FORM 300_download_error .

IF NOT e_mara[] IS INITIAL.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

filename = 'D:\MATNR_ERROR_DATA.TXT'

filetype = 'DAT'

TABLES

data_tab = e_mara

EXCEPTIONS

file_open_error = 1

file_write_error = 2

invalid_filesize = 3

invalid_type = 4

no_batch = 5

unknown_error = 6

invalid_table_width = 7

gui_refuse_filetransfer = 8

customer_error = 9

no_authority = 10

OTHERS = 11.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno.

ENDIF.

WRITE 😕 'ERROR FILE IN THE PATH D:\MATNR_ERROR_DATA.TXT' .

ENDIF.

ENDFORM. " 300_DOWNLOAD_ERROR

[RichHeilman]

Please make sure that you are filling both SALES_ORG and DISTR_CHAN in structures bapi_mvke and bapi_mvkex.

Regards,

RIch Heilman

[Former Member]

I tried in ur way but still i am facing the same problem.....could u plz help me out.

[former_member194198]

Its probably unrelated but you have some redundant code after the BAPI call.

There is no point checking SY-SUBRC = 0 when the function module is not returning any subrc. I'd remove that IF statement and concentrate on the return structure for error checking.

Rich