Exit zu Include ZXVEDU03, Bildsteuerung ?

Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

SAP R/3 Vertrieb: Auftragsverwaltung, Versand und Transport, Fakturierung, Kreditmanagement, Außenhandel/Zoll...
2 Beiträge • Seite 1 von 1
2 Beiträge Seite 1 von 1

Exit zu Include ZXVEDU03, Bildsteuerung ?

Beitrag von sapler2 ( / / 0 / 3 ) »
S.g.Communitiy!

Es soll der Kontierungsreiter der Position des Kundenauftrags mit Inhalten eines erweiterten IDOC-Basistyps versorgt werden.

Die Erweiterung klappte, ZXVEDU03 versorgt VBAP mit der PSP-Nr. im Std. wird jedoch der Kontierungsreiter nicht aufgerufen, kann dies bei der Auftragsart eingestellt werden oder muss hier AU stehen ?

Ein Eingriff in die DXBDCDATA itab über das Exit zu ZXVEDU04 erscheint mir recht aufwendig da hier sogar ein anderes PGM aufgerufen werden muss.

Danke für Tipps, hatte solch ein Problem schon wer ?

Harald

gesponsert
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten


'Lösung'

Beitrag von sapler (ForumUser / 19 / 0 / 0 ) »
Nach Auskunft eines SD-Beraters ist die Bildsteuerung bei den Kundenaufträge fix auf AU zu lassen, meine Versuche auf ZAU zu kopieren hätten zu einer T185-Pflegeorgier geführt, anbei die Änderungen aus EXIT 002:

* Versuch: Zum Ende alle Positionen mittels POPO selektieren und dann einzeln ändern
* LOOP AT xvbap WHERE ps_psp_pnr <> space.
describe table dxbdcdata lines index.
*
* dxbdcdata-program = 'SAPMV45A'.
* dxbdcdata-dynbegin = 'X'.
* dxbdcdata-dynpro = '4001'.
* dxbdcdata-fnam = ' '.
* dxbdcdata-fval = ' '.
** ADD 1 TO index.
* INSERT dxbdcdata INDEX index.

*perform bdc_dynpro using 'SAPMV45A' '4001'.
* mit F3 zurück
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_OKCODE'.
dxbdcdata-fval = '/3'.
* ADD 1 TO index.
insert dxbdcdata index index.


dxbdcdata-program = 'SAPMV45A'.
dxbdcdata-dynbegin = 'X'.
dxbdcdata-dynpro = '4001'.
dxbdcdata-fnam = ' '.
dxbdcdata-fval = ' '.
add 1 to index.
insert dxbdcdata index index.

break gautsch.
refresh dxvbap2.
dxvbap2[] = dxvbap[].
loop at dxvbap2 into i_dxvbap where ps_psp_pnr <> space.

dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_OKCODE'.
dxbdcdata-fval = '=POPO'.
add 1 to index.
insert dxbdcdata index index.

dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_CURSOR'.
dxbdcdata-fval = 'RV45A-MABNR(01)'.
add 1 to index.
insert dxbdcdata index index.
*perform bdc_field using 'BDC_CURSOR'
* 'RV45A-MABNR(01)'.
dxbdcdata-program = 'SAPMV45A'.
dxbdcdata-dynbegin = 'X'.
dxbdcdata-dynpro = '0251'.
dxbdcdata-fnam = ' '.
dxbdcdata-fval = ' '.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_dynpro using 'SAPMV45A' '0251'.

dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_CURSOR'.
dxbdcdata-fval = 'RV45A-POSNR'.
add 1 to index.
insert dxbdcdata index index.
*perform bdc_field using 'BDC_CURSOR'
* 'RV45A-POSNR'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_OKCODE'.
dxbdcdata-fval = '=POSI'.
add 1 to index.
insert dxbdcdata index index.
*perform bdc_field using 'BDC_OKCODE'
* '=POSI'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
* dxbdcdata-fnam = 'RV45A-POSNR'.
dxbdcdata-fnam = 'RV45A-PO_POSEX'.

* dxbdcdata-fval = '10'."
dxbdcdata-fval = i_dxvbap-posex.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_field using 'RV45A-POSNR'
* '10'.
dxbdcdata-program = 'SAPMV45A'.
dxbdcdata-dynbegin = 'X'.
dxbdcdata-dynpro = '4001'.
dxbdcdata-fnam = ' '.
dxbdcdata-fval = ' '.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_dynpro using 'SAPMV45A' '4001'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_OKCODE'.
dxbdcdata-fval = '=ITEM'.
add 1 to index.
insert dxbdcdata index index.
* PERFORM bdc_field USING 'BDC_OKCODE'
* '=ITEM'.
* dxbdcdata-program = ' '.
* dxbdcdata-dynbegin = ' '.
* dxbdcdata-dynpro = ' '.
* dxbdcdata-fnam = 'BDC_CURSOR'.
* dxbdcdata-fval = 'RV45A-MABNR(01)'.
* ADD 1 TO index.
* INSERT dxbdcdata INDEX index.
*perform bdc_field using 'BDC_CURSOR'
* 'RV45A-MABNR(01)'.
if sy-tabix = 1.
dxbdcdata-program = 'SAPMV45A'.
dxbdcdata-dynbegin = 'X'.
dxbdcdata-dynpro = '4003'.
dxbdcdata-fnam = ' '.
dxbdcdata-fval = ' '.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_dynpro using 'SAPMV45A' '4003'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_OKCODE'.
dxbdcdata-fval = '=T\06'.
add 1 to index.
insert dxbdcdata index index.
endif.
*perform bdc_field using 'BDC_OKCODE'
* '=T\06'.
* dxbdcdata-program = ' '.
* dxbdcdata-dynbegin = ' '.
* dxbdcdata-dynpro = ' '.
* dxbdcdata-fnam = 'BDC_CURSOR'.
* dxbdcdata-fval = 'RV45A-KWMENG'.
* ADD 1 TO index.
* INSERT dxbdcdata INDEX index.
*perform bdc_field using 'BDC_CURSOR'
* 'RV45A-KWMENG'.
*perform bdc_field using 'RV45A-KWMENG'
* ' 2'.
*perform bdc_field using 'VBAP-VRKME'
* 'ST'.
*perform bdc_field using 'RV45A-ETDAT'
* '20.09.2004'.
*perform bdc_field using 'RV45A-PRGBZ'
* 'T'.
*perform bdc_field using 'VBAP-EXART'
* 'ZZ'.
dxbdcdata-program = 'SAPMV45A'.
dxbdcdata-dynbegin = 'X'.
dxbdcdata-dynpro = '4003'.
dxbdcdata-fnam = ' '.
dxbdcdata-fval = ' '.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_dynpro using 'SAPMV45A' '4003'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_OKCODE'.
dxbdcdata-fval = '/00'.
add 1 to index.
insert dxbdcdata index index.
*perform bdc_field using 'BDC_OKCODE'
* '/00'.
* dxbdcdata-program = ' '.
* dxbdcdata-dynbegin = ' '.
* dxbdcdata-dynpro = ' '.
* dxbdcdata-fnam = 'BDC_CURSOR'.
* dxbdcdata-fval = 'VBAP-KALSM_K'.
* ADD 1 TO index.
* INSERT dxbdcdata INDEX index.
*perform bdc_field using 'BDC_CURSOR'
* 'VBAP-KALSM_K'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'DKACB-FMORE'.
dxbdcdata-fval = 'X'.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_field using 'DKACB-FMORE'
* 'X'.
dxbdcdata-program = 'SAPLKACB'.
dxbdcdata-dynbegin = 'X'.
dxbdcdata-dynpro = '0002'.
dxbdcdata-fnam = ' '.
dxbdcdata-fval = ' '.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_dynpro using 'SAPLKACB' '0002'.
* dxbdcdata-program = ' '.
* dxbdcdata-dynbegin = ' '.
* dxbdcdata-dynpro = ' '.
* dxbdcdata-fnam = 'BDC_CURSOR'.
* dxbdcdata-fval = 'COBL-PS_POSID'.
* ADD 1 TO index.
* INSERT dxbdcdata INDEX index.
*perform bdc_field using 'BDC_CURSOR'
* 'COBL-PS_POSID'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'BDC_OKCODE'.
dxbdcdata-fval = '=ENTE'.
add 1 to index.
insert dxbdcdata index index.

*perform bdc_field using 'BDC_OKCODE'
* '=ENTE'.
*perform bdc_field using 'COBL-PRCTR'
* 'DO'.
dxbdcdata-program = ' '.
dxbdcdata-dynbegin = ' '.
dxbdcdata-dynpro = ' '.
dxbdcdata-fnam = 'COBL-PS_POSID'.
* dxbdcdata-fval = '00604Z1B-1-4'.
dxbdcdata-fval = i_dxvbap-ps_psp_pnr.

add 1 to index.
insert dxbdcdata index index.
*perform bdc_field using 'COBL-PS_POSID'
* '00604Z1B-1-4'.
*perform bdc_field using 'COBL-PS_PSP_PNR'
*
*
*perform bdc_dynpro using 'SAPLSPO2' '0101'.
* dxbdcdata-program = 'SAPLSPO2'.
* dxbdcdata-dynbegin = 'X'.
* dxbdcdata-dynpro = '0101'.
* dxbdcdata-fnam = ' '.
* dxbdcdata-fval = ' '.
* ADD 1 TO index.
* INSERT dxbdcdata INDEX index.
**perform bdc_field using 'BDC_OKCODE'
** '=OPT1'.
* dxbdcdata-program = ' '.
* dxbdcdata-dynbegin = ' '.
* dxbdcdata-dynpro = ' '.
* dxbdcdata-fnam = 'BDC_OKCODE'.
* dxbdcdata-fval = '/00'.
* ADD 1 TO index.
* INSERT dxbdcdata INDEX index.
*
dxbdcdata-program = 'SAPMV45A'.
dxbdcdata-dynbegin = 'X'.
dxbdcdata-dynpro = '4001'.
dxbdcdata-fnam = ' '.
dxbdcdata-fval = ' '.
add 1 to index.
insert dxbdcdata index index.


* Versuch: Zum Ende alle Positionen mittels POPO selektieren und dann einzeln ändern ''.
endloop.

Bin gespannt wie lange diese Lösung so funktioniert, hätte eigentlich einfacher auch gehen müssen ?!

lG

Seite 1 von 1

Vergleichbare Themen

3
Antw.
14812
Views
1
Antw.
4419
Views
RFFOD__L AZV User-Exit Include ZXFORU01 LZB-Kennzeichen
von Blueshape » 30.07.2007 15:56 • Verfasst in Basis
0
Antw.
1118
Views
Bildsteuerung Einkauf
von Manfred K. » 09.02.2022 14:26 • Verfasst in ABAP® für Anfänger
0
Antw.
2315
Views
Infotyp-Bildsteuerung
von ms » 04.09.2006 14:08 • Verfasst in Human Resources
0
Antw.
1994
Views
Schnellerfassung IT0008 / Anpassung Bildsteuerung IT0008
von Nicole_80 » 11.12.2007 17:00 • Verfasst in Human Resources

Über diesen Beitrag


Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.

Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch

Newsletter Anmeldung

Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.
Die letzte Ausgabe findest du hier.
Details zum Versandverfahren und zu Ihren Widerrufsmöglichkeiten findest du in unserer Datenschutzerklärung.