VA01-Method SAVE_DOCUMENT_PREPARE

Former Member — Fri, 29 Jun 2012 14:23:57 GMT

Hi Experts,

I’m new to SAP so I was wondering if any help could be given with the following:

I’ve been asked to alter our existing custom version of SAVE_DOCUMENT_PREPARE.At the moment it is pulling data at item level from the table mara.Now the business wish this to be altered so data is pulled at "header level”. How do I do this?

Any help appreciated!!

Regards,

Michael

Re: VA01-Method SAVE_DOCUMENT_PREPARE

former_member223981 — Fri, 29 Jun 2012 16:06:15 GMT

Method save_document_prepare is called in include MV45AF0B_BELEG_SICHERN during the save of the sales order:

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

call method l_sd_sales_exit->save_document_prepare

EXPORTING

ft180 = t180

CHANGING

f_subrc = da_subrc

fvbak = vbak

fxvbap = xvbap[]

fxkomv = xkomv[]

fxvbapf = xvbapf[]

fxvbfa = xvbfa[]

fxvbep = xvbep[]

fxvbkd = xvbkd[]

fxvbpa = xvbpa[]

fxvbuk = xvbuk[]

fxvbup = xvbup[]

fxfpla = xfpla[]

fxfplt = xfplt[]

fyvbak = yvbak

fyvbap = yvbap[]

fyvbapf = yvbapf[]

fyvbfa = yvbfa[]

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

VBAK is a table that contains the sales order header information and is probably the table you are looking for.

VBAP contains the item data; the item of a sales order will contain a material which has information stored in table MARA. Therefore, I assume this is what you are referring to.

Hope this helps.

Re: VA01-Method SAVE_DOCUMENT_PREPARE

Former Member — Fri, 29 Jun 2012 16:10:25 GMT

It would not be logical to obtain data from MARA at the "header" (VBAK) level of a sales order. The materials exist only in the item level (table VBAP). So, what could you possibly obtain from MARA, based upon the content of VBAK?

Re: VA01-Method SAVE_DOCUMENT_PREPARE

Former Member — Mon, 02 Jul 2012 08:21:34 GMT

Hi guys,

thanks for the responses.Maybe if i put up the code i have now that might make things clearer.If anyone could take a look at the following and even point me in the right direction it would be appreciated.

The enclosed code is what i have as is,but the business want it changed to perform a check on partner function at header level.

*If IS_VBAK-VKORG NE '4200' and IS_VBAK-SPART NE '10'.

*---> Check that this enhancement is active in switch framework using ID = YSD008

CHECK is_vbak-vkorg NE ' '.

CHECK /chc/cl_enhswitch=>is_enh_active(

iv_enhancement_id = /chcie/cl_bc_constants=>enh_id_sd_generic

iv_salesorg = is_vbak-vkorg

iv_distrchan = is_vbak-vtweg ) EQ abap_true.

*---> Check that the Order Reason Code, Order Type, Order Category are relevant for this enhancement

*===> CHANGE REQUEST 64 to remove the check on Order Reason (augru) for this Named Patient check.

clear lv_patient_check.

IF is_vbak-ernam ne 'BATCH-IECR'.

IF is_vbak-auart = 'YOR' or is_vbak-auart = 'YSO'.

if ( is_vbak-vkorg = '4400' or is_vbak-vkorg = '4500' ).

if is_vbak-auart = 'YSO'.

lv_patient_check = 'X'.

else.

clear lv_kdgrp.

select single kdgrp into lv_kdgrp from KNVV where

kunnr = is_vbak-kunnr and

vkorg = is_vbak-vkorg and

vtweg = is_vbak-vtweg and

spart = is_vbak-spart.

if lv_kdgrp ne '01'.

lv_patient_check = 'X'.

endif.

else.

lv_patient_check = 'X'.

endif.

*---> Only process the Named Patient check when LV_PATIENT_CHECK is set.

if lv_patient_check = 'X'.

*---> The following line iemoved as requested by Audrey as not sure who requested change from YOR to YTR.

* CHECK is_vbak-auart = 'YTR'. "'YOR'. MSA2011

*---> Next loop thru all line item Order entries and if the Product Hier for the product starts

* with 'Y0012' then create a partner function Y2 (Named Patient) entry if one has NOT

* already been entered.

* If the Y2 partner function exists without the name and address details (or one has just

* been added), then add an entry to the Incompletion Log.

LOOP AT it_vbap INTO ls_vbap.

SELECT SINGLE prdha INTO lv_prdha FROM mara WHERE matnr = ls_vbap-matnr.

IF sy-subrc = 0 AND lv_prdha+0(5) = /chcie/cl_bc_constants=>c_article_hier. " Staring with 'Y0012'.

*---> Check if a Y2 Partner Function exists for this line item

CLEAR lv_partner_exists.

LOOP AT ct_vbpa INTO ls_vbpa WHERE posnr = ls_vbap-posnr AND

parvw = /chcie/cl_bc_constants=>c_named_patient_pf. "'Y2'.

lv_partner_exists = abap_true.

*---> Check that a name has been entered and if not add entry to Incompletion Log.

If ls_vbpa-name1 = ' ' or ls_vbpa-name1 = '<Enter Patient Name Here>'.

lv_partner_exists = 'P'. "Partially exists as name not added

endif.

EXIT.

ENDLOOP.

*---> Check if the Line Item is to be deleted or not

if ls_vbap-updkz ne 'D'.

if lv_partner_exists = ' '. "Partner Y2 does NOT exist

*---> Insert entry into table CT_VBPA for the missing Partner Type

CLEAR ls_vbpa.

DESCRIBE TABLE ct_vbpa LINES sy-tabix.

READ TABLE ct_vbpa INTO ls_vbpa INDEX sy-tabix.

ls_vbpa-posnr = ls_vbap-posnr.

ls_vbpa-parvw = /chcie/cl_bc_constants=>c_named_patient_pf.

ls_vbpa-kunnr = /chcie/cl_bc_constants=>c_named_patient_cust. " '4000000001'.

ls_vbpa-updkz = 'I'.

ls_vbpa-adrda = 'D'.

SELECT SINGLE adrnr INTO ls_vbpa-adrnr FROM kna1

WHERE kunnr = ls_vbpa-kunnr.

CLEAR ls_vbpa-name1.

APPEND ls_vbpa TO ct_vbpa.

endif.

check lv_partner_exists ne 'X'. "Missing or Partially added

*---> Next add an entry to the Incompletion Log for this Line Item / Missing Partner 'Y2' / Missing Name

CLEAR ls_vbuv.

ls_vbuv-mandt = sy-mandt.

ls_vbuv-vbeln = is_vbak-vbeln.

ls_vbuv-posnr = ls_vbap-posnr.

ls_vbuv-parvw = /chcie/cl_bc_constants=>c_named_patient_pf. " 'Y2'.

ls_vbuv-tbnam = 'VBPA'.

ls_vbuv-fdnam = 'KUNNR'.

ls_vbuv-fehgr = '07'.

ls_vbuv-statg = '04'.

ls_vbuv-fcode = 'KPAR_SUB'.

ls_vbuv-sortf = '0001'.

COLLECT ls_vbuv INTO ct_vbuv.

* else.

**---> As the Line Item is to be deleted, delete the entry from VBPA and VBUF if one exists.

* LOOP AT ct_vbuv into ls_vbuv where parvw = /chcie/cl_bc_constants=>c_named_patient_pf and

* posnr = ls_vbap-posnr.

* DELETE ct_vbuv.

* READ TABLE ct_vbpa into ls_vbpa WITH KEY

* posnr = ls_vbuv-posnr

* parvw = ls_vbuv-parvw

* kunnr = /chcie/cl_bc_constants=>c_named_patient_cust.

* IF sy-subrc = 0.

* DELETE ct_vbpa index sy-tabix.

* ENDIF.

* ENDLOOP.

endif.

ENDLOOP.

ENDIF.

topic VA01-Method SAVE_DOCUMENT_PREPARE in Application Development and Automation Discussions

VA01-Method SAVE_DOCUMENT_PREPARE

Re: VA01-Method SAVE_DOCUMENT_PREPARE

Re: VA01-Method SAVE_DOCUMENT_PREPARE

Re: VA01-Method SAVE_DOCUMENT_PREPARE