11-02-2007 9:06 AM
Hi ABAP Gurus,
Good day!
I would like to know the correct way to modify the value of BSEG-XREF1 in FB70 (Prior to posting of document).
Currently, I have tried using substitution. First, I copied RGGBS000 into ZRGGBS000 AND added form u300, which will modify BSEG-XREF1. Second, I have added a step to an already existing substitution (COGS), which was set-up in transaction OBBH. I have assigned u300 to BSEG-XREF1 (Refernce Key 1).
The said step didn;t seem to work. I was able to post a document and then I displayed the document. Unfortuantely, BSEG-XREF1 hasn't been modified. So, I tried debugging the form U300. It doesn't stop inside that form, which means the logic that i put there was useless. By the way, the the formname that Im using can be found in two internal tables: (1) exits, and (2) etab.
Kindly advise on what to do. Thank you very much!
<b>Best Regards.
Brando</b>
11-02-2007 9:09 AM
Hi place a break-point in the EXIT_SAPLFRAD_001 user exit and check whether the control stops there are not. if it is stopping, then you can implement the logic here..
Also check for any other exits also...
11-02-2007 9:09 AM
Hi place a break-point in the EXIT_SAPLFRAD_001 user exit and check whether the control stops there are not. if it is stopping, then you can implement the logic here..
Also check for any other exits also...
11-02-2007 9:12 AM
Thanks for the quick reply. I will try this.
<b>
Best Regards.
Brando</b>
11-02-2007 10:35 AM
Hi Rama,
Too bad it doesn't stop in the exit that you gave.
Thanks for the help though..
Hi everyone,
Any more suggestions or comments?
Thanks!
<b>Best Regards.
Brando</b>
11-02-2007 10:50 AM
Check this sample code which i've used to substitute the field BSEG-ZUONR
Also ensure that the callup point in <b>OBBH</b> is 2
Don't forget to attach ur <b>ZRGGBS000</b> to the application area <b>GBLS</b> in the tcode <b>GCX2</b>
FORM get_exit_titles TABLES etab.
DATA: BEGIN OF exits OCCURS 50,
name(5) TYPE c,
param LIKE c_exit_param_none,
title(60) TYPE c,
END OF exits.
exits-name = 'U102'.
exits-param = c_exit_param_field.
exits-title = text-101. " Ship-to-Party to Assignment field
APPEND exits.
REFRESH etab.
LOOP AT exits.
etab = exits.
APPEND etab.
ENDLOOP.
ENDFORM. "GET_EXIT_TITLES
FORM u102 USING zuonr TYPE bseg-zuonr.
bseg-zuonr = <value>.
ENDFORM.
11-02-2007 11:21 AM
So, there's no need to put a PERFORM command anywhere right?
Okay, I'm going to try again.
Thanks!