Folgende Benutzer bedankten sich beim Autor Alexander D. für den Beitrag:
commolus
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
commolus
Meine Glaskugel ist kapput und nur User sagen, dass etwas nicht mehr funktioniert. ABAPler beschreiben die Fehlersituation genauer und was sie bereits gemacht haben, um den Fehler ein zuschränken.commolus hat geschrieben:Nun funktioniert der Absprung nicht mehr! Was habe ich falsch gemacht?
Naja das ist die PAI-Verarbeitung des ALV-Grids. Du musst bis in die oben angegebene FORM debuggen. Am einfachsten das Include in der SE38 anzeigen und dor einen Breakpoint setzten. Dann die QA33 starten und den Doppelklick ausführen. Dann kannst du per Einzelschritt (F5) durch den Code gehen und schauen was genau passiert.commolus hat geschrieben:Im Debugger sieht das ganze so aus:
Brauchst du auch nicht zwingende, die TA wird dynamisch aufgerufen:commolus hat geschrieben:Ich habe im Debugger keine Abfrage auf "IQM" oder die T354T-TCODE = QM03.
Code: Alles auswählen.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD T354T-TCODE.
IF SY-SUBRC IS INITIAL.
CALL TRANSACTION T354T-TCODE AND SKIP FIRST SCREEN.
ELSE.
...
Code: Alles auswählen.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD lt_t180-tcode.
IF SY-SUBRC IS INITIAL.
* IF lt_t180-tcode = 'VA03'. "P9CK478575
CASE lt_t180-tcode. "P9CK478575
WHEN 'VA03'. "P9CK478575
SET PARAMETER ID 'AUN' FIELD lv_content.
WHEN 'VA23'. "P9CK478575
SET PARAMETER ID 'AGN' FIELD lv_content. "P9CK478575
* start of note 974373
WHEN 'VA13'.
SET PARAMETER ID 'AFN' FIELD lv_content.
WHEN 'VA33'.
SET PARAMETER ID 'LPN' FIELD lv_content.
WHEN 'VA43'.
SET PARAMETER ID 'KTN' FIELD lv_content.
WHEN 'VA53'.
SET PARAMETER ID 'AMN' FIELD lv_content.
WHEN 'MD83'.
SET PARAMETER ID 'AUN' FIELD lv_content.
* end of note 974373
ENDCASE. "P9CK478575
* ENDIF. "P9CK478575
CALL TRANSACTION lt_t180-tcode AND
SKIP FIRST SCREEN.
ELSE.
MESSAGE S172(00) WITH lt_t180-tcode
RAISING NO_AUTHORITY.
ENDIF.
ENDIF.
CLEAR LT_T180.
REFRESH LT_T180.
*end 889201
* start of note 1049603
ELSEIF T354T-TCODE = 'IW43'.
* check if confirmation number exits, than order number no longer needed
IF NOT iobject[] IS INITIAL.
READ TABLE iobject INDEX 1.
IF iobject-name = 'AFVGD-RUECK' AND NOT
iobject-value IS INITIAL.
SET PARAMETER ID 'ANR' FIELD space.
ENDIF.
ENDIF.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD T354T-TCODE.
IF SY-SUBRC IS INITIAL.
CALL TRANSACTION T354T-TCODE AND SKIP FIRST SCREEN.
ELSE.
MESSAGE S172(00) WITH T354T-TCODE
RAISING NO_AUTHORITY.
ENDIF.
* end of note 1049603
ELSE. "begin note 648523
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD T354T-TCODE.
IF SY-SUBRC IS INITIAL.
CALL TRANSACTION T354T-TCODE AND SKIP FIRST SCREEN.
ELSE.
MESSAGE S172(00) WITH T354T-TCODE "P9CK050196
RAISING NO_AUTHORITY. "P9CK050196
ENDIF.
ENDIF. "end note 648523
CLEAR T354T-TCODE.
ENDIF.
ELSE.
ENTRY_NOT_FOUND = Y_X.
Code: Alles auswählen.
IF IND_NO_VALUE = SPACE.
IF T354T-PROGRAMM <> SPACE AND T354T-ABAPFORM <> SPACE.
PERFORM (T354T-ABAPFORM) IN PROGRAM (T354T-PROGRAMM).
ENDIF.
IF T354T-TCODE <> SPACE.
IF T354T-TCODE = 'ME53'.
Code: Alles auswählen.
ENTRY_NOT_FOUND = Y_X.
MESSAGE S006(IO) RAISING FIELD_IS_INITIAL.
"Kein gültiges Objekt für Anzeigeausflug