05-09-2006 3:18 AM
<b>I want to do some enhancement for vendor data check. So, I have to use function module exit 'EXIT_SAPMF02K_001'. And this function module give me so many parameters so that I can check the vendor data immediately. But, I can't find 'Email' field in the parameters. Is anybody who know how to get the value of this field. Thanks!</b>
05-09-2006 10:07 AM
Hi,
I had a similar requirement where i couldnt obtain tax related details, transaction type etc through this exit so i used syntax: ASSIGN '(program name)variable' to <FS> to get those details.
Have a look at this code where i have used this technique to get other details than what i was getting through the exit.
FIELD-SYMBOLS : <FS1> TYPE T020.
DATA : L_FIELD1 TYPE STRING VALUE '(SAPMF02K)T020'.
ASSIGN (L_FIELD1) TO <FS1>.
IF SY-SUBRC EQ 0.
IF SY-TCODE EQ 'XK01' OR SY-TCODE EQ 'FK01' OR SY-TCODE EQ 'FK03'
OR SY-TCODE EQ 'XK02' OR SY-TCODE EQ 'FK02' OR SY-TCODE EQ 'XK03'.
IF <FS1>-AKTYP EQ 'H' OR <FS1>-AKTYP EQ 'V'.
ASSIGN (L_FIELD) TO <FS>.
IF I_LFA1-KTOKK EQ 'ZM02' OR I_LFA1-KTOKK EQ 'ZM03'.
MESSAGE E398(00) WITH Cannot create vendor for ' 'ZMO2 or ZM03'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
*C----
AS you can see the value of T020 is not available in the exit but still is acessbile through field-symbols. try this technique and let me know.
05-09-2006 10:07 AM
Hi,
I had a similar requirement where i couldnt obtain tax related details, transaction type etc through this exit so i used syntax: ASSIGN '(program name)variable' to <FS> to get those details.
Have a look at this code where i have used this technique to get other details than what i was getting through the exit.
FIELD-SYMBOLS : <FS1> TYPE T020.
DATA : L_FIELD1 TYPE STRING VALUE '(SAPMF02K)T020'.
ASSIGN (L_FIELD1) TO <FS1>.
IF SY-SUBRC EQ 0.
IF SY-TCODE EQ 'XK01' OR SY-TCODE EQ 'FK01' OR SY-TCODE EQ 'FK03'
OR SY-TCODE EQ 'XK02' OR SY-TCODE EQ 'FK02' OR SY-TCODE EQ 'XK03'.
IF <FS1>-AKTYP EQ 'H' OR <FS1>-AKTYP EQ 'V'.
ASSIGN (L_FIELD) TO <FS>.
IF I_LFA1-KTOKK EQ 'ZM02' OR I_LFA1-KTOKK EQ 'ZM03'.
MESSAGE E398(00) WITH Cannot create vendor for ' 'ZMO2 or ZM03'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
*C----
AS you can see the value of T020 is not available in the exit but still is acessbile through field-symbols. try this technique and let me know.
01-20-2023 5:14 PM
Hi
To be more specific, here is the code for how to read the address structure and how to access the email field.
FIELD-SYMBOLS : <FS1> TYPE SZA1_D0100.
DATA : L_FIELD1 TYPE STRING VALUE '(SAPLSZA1)SZA1_D0100'.
ASSIGN (L_FIELD1) TO <FS1>.
IF sy-subrc eq 0.
IF <FS1>-SMTP_ADDR is initial.
ENDIF.
ENDIF.