Hi Experts,
I have a requirement to fetch ETA date in standard program for VF03,So i have return my logic inside the include program RV60AFZC and user exit FORM USEREXIT_FILL_VBRK_VBRP. end form but its not working.Any one can suggest me how i can fetch that ETA date and where i have implement logic for that below i give my current logic.
FORM USEREXIT_FILL_VBRK_VBRP.
ENHANCEMENT 1 ZSD_ETA_DATE. "active version
* Begin Of Change PP96 | D01K976566 | RQST0019290
DATA :wa_catalog TYPE zcatt_catalog,
l_from_value TYPE zzcade_from_value,
l_to_value TYPE zzcade_to_val,
l_aubel_in TYPE vbeln_va,
l_aubel TYPE vbeln_va,
l_zzledeetadate TYPE zzledeetadate.
CONSTANTS : lc_crm_area TYPE zzcadesolution_area VALUE 'CRM',
lc_spart TYPE spart VALUE '50',
lc_conv_name TYPE zzcadeconv_name VALUE 'PTRSDETA',
lc_c TYPE char01 VALUE 'C'.
*Doc type
l_from_value = vbrk-fkart.
*Payment term
l_to_value = vbrk-zterm.
*Check if the combination is maintained in ZCATT_CATALOG
SELECT SINGLE *
FROM zcatt_catalog
INTO wa_catalog
WHERE solution_area EQ lc_crm_area
AND spart EQ lc_spart
AND conv_name EQ lc_conv_name
AND from_value EQ l_from_value
AND to_value EQ l_to_value.
*If maintained, then proceed
IF sy-subrc EQ 0.
l_aubel_in = vbrp-aubel.
SELECT SINGLE aubel
FROM vbrp
INTO l_aubel
WHERE aubel = l_aubel_in
AND autyp = lc_c.
IF sy-subrc EQ 0.
SELECT SINGLE ZZETADATE
FROM vbkd
INTO l_zzledeetadate
WHERE vbeln = l_aubel.
IF sy-subrc EQ 0.
vbrk-valdt = l_zzledeetadate.
ENDIF.
ENDIF.
ENDIF.
* End Of Change PP96 | D01K976566 | RQST0019290
ENDENHANCEMENT.
*$*$-End: (1)---------------------------------------------------------------------------------$*$*
ENDFORM.