Marcel/DATA-Hawk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

v1.5.1

Browse Source
This commit is contained in:
Marcel Dechange
2025-11-27 13:54:06 +00:00
parent c7fbf7ae3d
commit 81163b671c
2 changed files with 42 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/#deso#dh_hawk_correct.prog.abap
View File

@@ -28,12 +28,15 @@ START-OF-SELECTION.
AND reffld = @pa_reffl AND reffld = @pa_reffl
AND msgty = @pa_msgty AND msgty = @pa_msgty
AND msgid = @pa_msgid AND msgid = @pa_msgid
AND msgno = @pa_msgno. AND msgno = @pa_msgno
AND status NE '@08@'.
CREATE OBJECT gr_repare TYPE (pa_class). CREATE OBJECT gr_repare TYPE (pa_class).
LOOP AT lt_message ASSIGNING FIELD-SYMBOL(<ls_message>). LOOP AT lt_message ASSIGNING FIELD-SYMBOL(<ls_message>).
IF NOT pa_meth IS INITIAL.
CALL METHOD gr_repare->(pa_meth) CALL METHOD gr_repare->(pa_meth)
EXPORTING EXPORTING
iv_view = <ls_message>-check_view iv_view = <ls_message>-check_view
@@ -60,5 +63,5 @@ START-OF-SELECTION.
* Update war nicht erfolgreich. * Update war nicht erfolgreich.
ROLLBACK WORK. ROLLBACK WORK.
ENDIF. ENDIF.
ENDIF.
ENDLOOP. ENDLOOP.

16
src/#deso#dh_hawk_fo.prog.abap
View File

@@ -796,7 +796,7 @@ FORM start_jobs_repare USING ls_result_show TYPE ty_result_show.
<ls_sel>-sign = 'I'. <ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'. <ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'. <ls_sel>-kind = 'P'.
<ls_sel>-selname = 'pa_obj'. <ls_sel>-selname = 'PA_OBJ'.
<ls_sel>-low = ls_result_show-object. <ls_sel>-low = ls_result_show-object.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>. APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
@@ -834,6 +834,20 @@ FORM start_jobs_repare USING ls_result_show TYPE ty_result_show.
<ls_sel>-selname = 'PA_MSGNO'. <ls_sel>-selname = 'PA_MSGNO'.
<ls_sel>-low = ls_result_show-msgno. <ls_sel>-low = ls_result_show-msgno.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_CLASS'.
<ls_sel>-low = ls_result_show-rep_class.
APPEND INITIAL LINE TO lt_selection ASSIGNING <ls_sel>.
<ls_sel>-sign = 'I'.
<ls_sel>-option = 'EQ'.
<ls_sel>-kind = 'P'.
<ls_sel>-selname = 'PA_METH'.
<ls_sel>-low = ls_result_show-rep_methode.
SUBMIT /deso/dh_hawk_correct WITH SELECTION-TABLE lt_selection SUBMIT /deso/dh_hawk_correct WITH SELECTION-TABLE lt_selection
VIA JOB lv_jobname NUMBER lv_jobcount AND RETURN. VIA JOB lv_jobname NUMBER lv_jobcount AND RETURN.