CO01 BADI
Hallo zusammen,
weiß jemand ein Badi mit welchem ich Zugriff auf die Positionen der Vorgangsliste in der CO01 erhalte (siehe Bild)?
Ich würde dort gerne ein paar Daten modifizieren. Ich bin dort mal mit der Klasse cl_exithandler rein, habe aber leider kein gutes/passendes Badi gefunden.
Vielen Dank im Voraus.
weiß jemand ein Badi mit welchem ich Zugriff auf die Positionen der Vorgangsliste in der CO01 erhalte (siehe Bild)?
Ich würde dort gerne ein paar Daten modifizieren. Ich bin dort mal mit der Klasse cl_exithandler rein, habe aber leider kein gutes/passendes Badi gefunden.
Vielen Dank im Voraus.
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Möchtest Du Daten während der Anzeige / beim Speichern ändern oder möchtest Du Daten an einem bestehenden Auftrag auf der DB ändern?
Bei bestehenden Auftrag würde ein BAPI helfen (aber dann wären wir nicht mehr in der CO01), ansonsten schau Dir mal die BADIs WORKORDER_UPDATE und WORKORDER_INFOSYSTEM an.
Bei bestehenden Auftrag würde ein BAPI helfen (aber dann wären wir nicht mehr in der CO01), ansonsten schau Dir mal die BADIs WORKORDER_UPDATE und WORKORDER_INFOSYSTEM an.
Ich würde die Daten beim Anzeigen/Speichern ändern. Ich habe mir den BADI WORKORDER_UPDATE nun angeschaut. Ich hätte ihn auch schon implementiert, aber leider habe ich da keinen Zugriff auf die Positonen sondern nur auf die Auftragsnummer (Siehe Bild) oder habe ich was übersehen?
Vielen Dank im Voraus.
Vielen Dank im Voraus.
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Probier es in IF_EX_WORKORDER_UPDATE~AT_SAVE doch eventuell mal wie unten dargestellt (so ist es in unserem System von der SAP hinterlegt), eventuell hilft das:
Ansonsten hilft wahrscheinlich auch EXIT_SAPLCOMK_014 mit einem kleinen dirty assign auf (SAPLCOMK)resbd. 😉
Code: Alles auswählen.
** Resevierungen zum Auftrag lesen
CALL FUNCTION 'CO_BT_RESB_SET'
EXPORTING
aufnr_act = is_header_dialog-aufnr
index = 1
EXCEPTIONS
entry_not_found = 1
table_empty = 2
OTHERS = 3.
IF sy-subrc <> 0.
RETURN.
ENDIF.
DO.
CALL FUNCTION 'CO_BT_RESB_GET'
EXPORTING
aufnr_act = is_header_dialog-aufnr
IMPORTING
resbd_exp = ls_resbd
resb_bt_index = lv_index
vbkz_exp = lv_vbkz
EXCEPTIONS
eof = 1
table_empty = 2
OTHERS = 3.
IF sy-subrc <> 0.
RETURN.
ENDIF.
CHECK lv_vbkz NE 'D'.
IF ls_resbd-postp EQ 'L'.
ls_resbd-bwart = '111'.
CALL FUNCTION 'CO_BT_RESB_PUT'
EXPORTING
resbd_new = ls_resbd
EXCEPTIONS
OTHERS = 0.
ENDIF.
ENDDO.
ENDIF.
Moin.
Mit CO_BT_RESB_GET bekommt man die Komponenten, Du möchtest ja auf die Vorgänge zugreifen. Dann ist CO_BT_AFVG_GET_ALL Dein Freund. Über CO_BT_AFVG_GET und CO_BT_AFVG_PUT solltest Du auch Vorgänge ändern können.
Grüße,
Haubi
Mit CO_BT_RESB_GET bekommt man die Komponenten, Du möchtest ja auf die Vorgänge zugreifen. Dann ist CO_BT_AFVG_GET_ALL Dein Freund. Über CO_BT_AFVG_GET und CO_BT_AFVG_PUT solltest Du auch Vorgänge ändern können.
Grüße,
Haubi
Hi.
Du solltest den Arbeitsplatz in AFVGB-ARBPL finden. Wenn der nicht gefüllt ist müsstest Du ihn ggf. über AFVGD-ARBID aus der CRHD besorgen.
Grüße,
Haubi
Okay, soweit würde jetzt alles passen.
Ich benutze den Fuba CO_BT_AFVG_GET um die Strukur mit dem Arbeitsplatz zu bekommen. Nun schreibe ich dort etwas rein und möchte es übernehmen mit dem Fuba CO_BT_AFVG_PUT. Nachdem ich so einen Fertigungsauftrag mit der CO01 anlege und dies nun so ausführe, wird die Änderung leider nicht in der CO03 ersichtlich bzw. es wird die Änderung von dem Arbeitsplatz bei dem Datensatz nicht übernommen.
Ich hätte alles in die Methode AT_SAVE gepackt, weil muss das noch auch in eine andere Methode? Habe mir mal das Ganze angeschaut, aber bei den anderen Methoden, habe ich ja gar keinen Zugriff mehr.
Weiß da jemand vielleicht Rat oder hat da einer eine Idee, was man da machen könnte?
Vielen Dank im Voraus.
Ich benutze den Fuba CO_BT_AFVG_GET um die Strukur mit dem Arbeitsplatz zu bekommen. Nun schreibe ich dort etwas rein und möchte es übernehmen mit dem Fuba CO_BT_AFVG_PUT. Nachdem ich so einen Fertigungsauftrag mit der CO01 anlege und dies nun so ausführe, wird die Änderung leider nicht in der CO03 ersichtlich bzw. es wird die Änderung von dem Arbeitsplatz bei dem Datensatz nicht übernommen.
Ich hätte alles in die Methode AT_SAVE gepackt, weil muss das noch auch in eine andere Methode? Habe mir mal das Ganze angeschaut, aber bei den anderen Methoden, habe ich ja gar keinen Zugriff mehr.
Weiß da jemand vielleicht Rat oder hat da einer eine Idee, was man da machen könnte?
Vielen Dank im Voraus.
Dies wäre mein Code:
Code: Alles auswählen.
method IF_EX_WORKORDER_UPDATE~AT_SAVE.
DATA: ls_resbd TYPE RESBD,
lv_index TYPE SY-TABIX,
lv_vbkz TYPE RESBB-VBKZ,
lv_af_tab TYPE TABLE OF AFVGD,
ls_af LIKE LINE OF lv_af_tab,
lv_aufnr type CAUFV-AUFNR,
lv_found TYPE c LENGTH 1,
lv_lines type i,
lv_arbpl TYPE c LENGTH 8.
CALL FUNCTION 'CO_BT_RESB_SET'
EXPORTING
aufnr_act = is_header_dialog-aufnr
index = 1
EXCEPTIONS
entry_not_found = 1
table_empty = 2
OTHERS = 3.
IF sy-subrc <> 0.
RETURN.
ENDIF.
CALL FUNCTION 'CO_BT_AFVG_GET_ALL'
EXPORTING
AUFNR_IMP = is_header_dialog-aufnr
TABLES
AFVGD_TAB = lv_af_tab
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
" Prüfen ob ein Steuerschlüssel QM01 enthalten ist.
loop at lv_af_tab INTO ls_af.
if ls_af-steus = 'QM01'.
lv_found = 'X'.
endif.
ENDLOOP.
DESCRIBE TABLE lv_af_tab LINES lv_lines.
DATA: lv_rcr01 TYPE RCR01,
lv_afvgd TYPE AFVGD,
lv_tab TYPE i VALUE 5.
if lv_found = 'X'.
loop at lv_af_tab INTO ls_af.
lv_lines = lv_lines - 1.
CALL FUNCTION 'CO_BT_AFVG_GET'
EXPORTING
aufnr_act = is_header_dialog-aufnr
IMPORTING
AFVGD_EXP = lv_afvgd
RCR01_EXP = lv_rcr01
* EXCEPTIONS
* EOF = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
if lv_lines = 2.
lv_arbpl = lv_rcr01-arbpl.
endif.
AT LAST.
lv_afvgd-arbpl = lv_arbpl.
CALL FUNCTION 'CO_BT_AFVG_UPDATE'
EXPORTING
afvgd_new = lv_afvgd
* FLG_NO_SCHED = ' '
* FLG_NO_UVO_UPD = ' '
tabix_old = 5
* FLG_SCHED_LIGHT = ' '
* INS_MODE = ' '
* FLG_NO_DEALLOC = ' '
* FLG_NO_CALC = ' '
* FLG_NO_REC_PROCESS = ' '
* I_PROT_IMP =
* FLG_OCM = ' '
* I_FORCE_UPDATE = ' '
IMPORTING
TABIX_NEW = lv_tab
.
ENDAT.
ENDLOOP.
ENDIF.
endmethod.
Offensichtlich funktioniert das wohl leider gar nicht so. Laut diesem Artikel hier:
http://solidforms.de/aendern-von-daten- ... -mit-qrfc/
Ich habe mich da gerade mal durchgehangelt und habe das so gemacht, hat aber leider so auch nicht funkioniert. Hat sowas schon mal jemand gemacht und könnte mir da unter die Arme greifen?
http://solidforms.de/aendern-von-daten- ... -mit-qrfc/
Ich habe mich da gerade mal durchgehangelt und habe das so gemacht, hat aber leider so auch nicht funkioniert. Hat sowas schon mal jemand gemacht und könnte mir da unter die Arme greifen?
Ich habe nun mir den User-Exit wie beschrieben angelegt (Siehe Bild), bloß wenn ich dann einen Breakpoint gesetzt habe und es debuggen möchte, hält er leider bei der CO01 nicht an, wenn ich speichere. Offensichtlich hängt es laut dem Artikel wohl an dem Sperrproblem, weiß jemand, ob man das vielleicht auch mit einem Badi lösen könnte oder sieht da jemand (hat jemand eine Vermutung), warum mein User-Exit nicht angesprungen wird und funktioniert?
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Vergleichbare Themen
0
Antw.
Antw.
756
Views
Views
0
Antw.
Antw.
1715
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
CL_GUI_ALV_GRID - Zeilen auf Read-Only / Editierbar schalten
vor 6 Tagen von a-dead-trousers 5 / 2447
vor 6 Tagen von a-dead-trousers 5 / 2447
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.
Aktuelle Forenbeiträge
CL_GUI_ALV_GRID - Zeilen auf Read-Only / Editierbar schalten
vor 6 Tagen von a-dead-trousers 5 / 2447
vor 6 Tagen von a-dead-trousers 5 / 2447