Arbeiten mit Table Control
8 Beiträge
•
Seite 1 von 1
8 Beiträge
Seite 1 von 1
Beitrag
von Mondhund76 (ForumUser / 21 / 0 /
2
)
»
Hallo,
ich muss mal nachfragen, ich bekomme es selber einfach nicht hin
Ich habe mir ein Programm 'ZGUI_Control' angelegt.
Dazu habe ich ein Dynpro angelegt und mit dem ScreenPainter über den TableWizard eine Tabelle erstellt. Die Tablle selber hatte ich vorher unter SE11 angelegt und aktiviert.
Im GUI-Status habe ich mir die entsprechenden Tasten "Zeile einfügen", "Zeile löschen" und "Anzeigen <--> Ändern" angelegt.
Wenn ich alles aktivieren und dann ausführe, kann ich in dem Moment schon die Felder in dem Control ändern. Sollte ja aber nicht sein, erst wenn ich den Button "Anzeigen <--> Ändern" gedrückt habe.
Code für den Button "Anzeigen <--> Ändern" :
So, dass ist erst mal mein erstes Problem, aber es geht ja weiter.
Mit dem Zeile einfügen Button - das funktioniert auch nicht, es wird keine weitere Zeile angelegt:
Und nächstes Problem ist beim löschen - auch das funktioniert nicht:
Kann mir bitte jemand helfen.
Ich schäme mich auch ganz arg, dass ich das nicht hinbekomme, aber mein FRUST ist größer.
Mondhund76
ich muss mal nachfragen, ich bekomme es selber einfach nicht hin
Ich habe mir ein Programm 'ZGUI_Control' angelegt.
Dazu habe ich ein Dynpro angelegt und mit dem ScreenPainter über den TableWizard eine Tabelle erstellt. Die Tablle selber hatte ich vorher unter SE11 angelegt und aktiviert.
Im GUI-Status habe ich mir die entsprechenden Tasten "Zeile einfügen", "Zeile löschen" und "Anzeigen <--> Ändern" angelegt.
Wenn ich alles aktivieren und dann ausführe, kann ich in dem Moment schon die Felder in dem Control ändern. Sollte ja aber nicht sein, erst wenn ich den Button "Anzeigen <--> Ändern" gedrückt habe.
Code für den Button "Anzeigen <--> Ändern" :
Code: Alles auswählen.
WHEN 'CHANGE'.
IF flag = ' '.
flag = 'X'.
ELSEIF flag = 'X'.
flag = ' '.
ENDIF.Mit dem Zeile einfügen Button - das funktioniert auch nicht, es wird keine weitere Zeile angelegt:
Code: Alles auswählen.
WHEN 'INSERT'.
APPEND G_TABLE_UMSATZ_WA TO G_TABLE_UMSATZ_ITAB.Code: Alles auswählen.
WHEN 'DELETE'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TEXTLINE1 = 'Selected rows will be deleted!'
TEXTLINE2 = 'Are you sure?'
TITEL = 'Delete rows'
IMPORTING
answer = confirmation.
IF CONFIRMATION = 'G'.
* delete ZGUI_UMSATZ FROM TABLE G_TABLE_UMSATZ_ITAB.
delete TABLE G_TABLE_UMSATZ_ITAB FROM G_TABLE_UMSATZ_WA.
ENDIF.Ich schäme mich auch ganz arg, dass ich das nicht hinbekomme, aber mein FRUST ist größer.
Mondhund76
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Mondhund76 hat geschrieben:Ich schäme mich auch ganz arg, dass ich das nicht hinbekomme, aber mein FRUST ist größer.
zu 1:
Vielleicht hilft dir das hier schon weiter:
http://tricktresor.de/content/index.php ... 25&aID=108
Mit Augenmerk auf "SCREEN-INPUT = '0'.".
Ein Flag setzen reicht ja nicht...
zu 2:
wahrscheinlich musst du im PBO noch
DESCRIBE TABLE itab LINES tc_itab-lines.
setzen, damit der TableControl die neue Anzahl Zeilen mit bekommt.
zu 1-3:
...vorausgesetzt, dein OK-Code funktioniert überhaupt... Aber ich nehme mal an, dass du im Debugger schon geprüft hast, dass er überhaupt deine CHANGE-DELETE-INSERT-Zeilen anspringt, oder?!!!
Beitrag
von Mondhund76 (ForumUser / 21 / 0 /
2
)
»
Hallo ewx.
erst mal vielen Dank für Deine Antworten.
zu 1. ich habe unter PBO folgenden Code implementiert:
Unter PAI werte ich das Event aus:
Im Debugger selber wird das alles durchgeführt und screen-groop1 habe ich beim Dynpro bei allen Feldern gesetzt ...
zu 2. Ich habe im PBO DESCRIBE TABLE nach dem Select gesetzt:
Eigentlich wollte ich die Zeilen noch mit ansprechen, aber da kommt ein Fehler. So ist die Deklaration
Fehler wenn ich es so einbaue:
zu 3. Ja, die Events werden angesprungen... das habe ich getestet...
Vielleicht ist es sinnvoll, mal den ganzen Code zu Posten:
INCLUDE PARAMETER:
INCLUDE SCREEN:
INCLUDE SCREEN MODUS
INCLUDE GUIs:
Ablauflogik
Ich würde mich freuen, wenn jemand einen Hinweis für mich hätte, was ich falsch mache.
Schöne Grüße
Mondhund76
erst mal vielen Dank für Deine Antworten.
zu 1. ich habe unter PBO folgenden Code implementiert:
Code: Alles auswählen.
LOOP AT SCREEN.
IF screen-group1 = 'MOD'.
IF flag = ' '.
screen-input = '0'.
ELSEIF flag = 'X'.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.Code: Alles auswählen.
WHEN 'CHANGE'.
IF flag = ' '.
flag = 'X'.
ELSEIF flag = 'X'.
flag = ' '.
ENDIF.zu 2. Ich habe im PBO DESCRIBE TABLE nach dem Select gesetzt:
Code: Alles auswählen.
IF G_TABLE_UMSATZ_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZGUI_UMSATZ'
*&SPWIZARD: INTO INTERNAL TABLE 'g_TABLE_UMSATZ_itab'
SELECT * FROM ZGUI_UMSATZ
INTO CORRESPONDING FIELDS
OF TABLE G_TABLE_UMSATZ_ITAB.
G_TABLE_UMSATZ_COPIED = 'X'.
REFRESH CONTROL 'TABLE_UMSATZ' FROM SCREEN '0001'.
ENDIF.
DESCRIBE TABLE G_TABLE_UMSATZ_ITAB.Code: Alles auswählen.
TABLES: ZGUI_UMSATZ.
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TABLE_UMSATZ'
TYPES: BEGIN OF T_TABLE_UMSATZ,
JAHR LIKE ZGUI_UMSATZ-JAHR,
MONAT LIKE ZGUI_UMSATZ-MONAT,
UMSATZ2011 LIKE ZGUI_UMSATZ-UMSATZ2011,
UMSATZ2012 LIKE ZGUI_UMSATZ-UMSATZ2012,
END OF T_TABLE_UMSATZ.
*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TABLE_UMSATZ'
DATA:
* G_TABLE_UMSATZ_ITAB TYPE T_TABLE_UMSATZ OCCURS 0,
* G_TABLE_UMSATZ_WA TYPE T_TABLE_UMSATZ. "work area
G_TABLE_UMSATZ_ITAB type table of T_TABLE_UMSATZ,
G_TABLE_UMSATZ_WA LIKE LINE OF G_TABLE_UMSATZ_ITAB. "work area
DATA: G_TABLE_UMSATZ_COPIED. "copy flagCode: Alles auswählen.
DESCRIBE TABLE G_TABLE_UMSATZ_ITAB LINES G_TABLE_UMSATZ_WA.Vielleicht ist es sinnvoll, mal den ganzen Code zu Posten:
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report Z_GUI_SCENARIO_POPUP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_GUI_SCENARIO_POPUP.
INCLUDE Z_INCLUDE_PARAMETER.
INCLUDE Z_INCLUDE_SCREEN.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TABLE_UMSATZ'. DO NOT CHANGE THIS LINE
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
MODULE TABLE_UMSATZ_INIT OUTPUT.
INCLUDE Z_INCLUDE_SET_GUIS.
INCLUDE Z_INCLUDE_SCREEN_MODUS.
IF G_TABLE_UMSATZ_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZGUI_UMSATZ'
*&SPWIZARD: INTO INTERNAL TABLE 'g_TABLE_UMSATZ_itab'
SELECT * FROM ZGUI_UMSATZ
INTO CORRESPONDING FIELDS
OF TABLE G_TABLE_UMSATZ_ITAB.
G_TABLE_UMSATZ_COPIED = 'X'.
REFRESH CONTROL 'TABLE_UMSATZ' FROM SCREEN '0001'.
ENDIF.
DESCRIBE TABLE G_TABLE_UMSATZ_ITAB.
ENDMODULE.
*&SPWIZARD: OUTPUT MODULE FOR TC 'TABLE_UMSATZ'. DO NOT CHANGE THIS LINE
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE TABLE_UMSATZ_MOVE OUTPUT.
MOVE-CORRESPONDING G_TABLE_UMSATZ_WA TO ZGUI_UMSATZ.
ENDMODULE.
*&SPWIZARD: INPUT MODULE FOR TC 'TABLE_UMSATZ'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE TABLE_UMSATZ_MODIFY INPUT.
MOVE-CORRESPONDING ZGUI_UMSATZ TO G_TABLE_UMSATZ_WA.
MODIFY G_TABLE_UMSATZ_ITAB
FROM G_TABLE_UMSATZ_WA
INDEX TABLE_UMSATZ-CURRENT_LINE.
ENDMODULE.
INCLUDE Z_INCLUDE_PARAMETERS.
*&---------------------------------------------------------------------*
*& Module PAI_EVENTS INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE PAI_EVENTS INPUT.
CASE g_ok_code.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'BACK'.
* CALL FUNCTION 'COPO_POPUP_TO_GOON'
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TEXTLINE1 = 'Any modifications will be lost!'
TEXTLINE2 = 'Are you sure?'
TITEL = 'Exit The Program'
IMPORTING
answer = confirmation.
if confirmation = 'G'.
LEAVE PROGRAM.
ENDIF.
WHEN 'RETURN'.
LEAVE PROGRAM.
WHEN 'SAVE'.
PERFORM modify_changes.
WHEN 'DELETE'.
CALL FUNCTION 'COPO_POPUP_TO_GOON'
EXPORTING
TEXTLINE1 = 'Selected rows will be deleted!'
TEXTLINE2 = 'Are you sure?'
TITEL = 'Delete rows'
IMPORTING
answer = confirmation.
IF CONFIRMATION = 'G'.
* delete ZGUI_UMSATZ FROM TABLE G_TABLE_UMSATZ_ITAB.
delete TABLE G_TABLE_UMSATZ_ITAB FROM G_TABLE_UMSATZ_WA.
ENDIF.
WHEN 'CHANGE'.
IF flag = ' '.
flag = 'X'.
ELSEIF flag = 'X'.
flag = ' '.
ENDIF.
WHEN 'INSERT'.
* CLEAR g_ok_code.
* CLEAR G_TABLE_UMSATZ_WA.
APPEND G_TABLE_UMSATZ_WA TO G_TABLE_UMSATZ_ITAB.
ENDCASE.
CLEAR g_ok_code.
ENDMODULE. " PAI_EVENTS INPUT
*&---------------------------------------------------------------------*
*& Form MODIFY_CHANGES
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM MODIFY_CHANGES .
modify ZGUI_UMSATZ from table G_TABLE_UMSATZ_ITAB.
commit work.
ENDFORM. " MODIFY_CHANGESCode: Alles auswählen.
*&---------------------------------------------------------------------*
*& Include Z_INCLUDE_PARAMETER
*&---------------------------------------------------------------------*
***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'TABLE_UMSATZ'
*&SPWIZARD: DEFINITION OF DDIC-TABLE
TABLES: ZGUI_UMSATZ.
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'TABLE_UMSATZ'
TYPES: BEGIN OF T_TABLE_UMSATZ,
JAHR LIKE ZGUI_UMSATZ-JAHR,
MONAT LIKE ZGUI_UMSATZ-MONAT,
UMSATZ2011 LIKE ZGUI_UMSATZ-UMSATZ2011,
UMSATZ2012 LIKE ZGUI_UMSATZ-UMSATZ2012,
END OF T_TABLE_UMSATZ.
*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'TABLE_UMSATZ'
DATA:
* G_TABLE_UMSATZ_ITAB TYPE T_TABLE_UMSATZ OCCURS 0,
* G_TABLE_UMSATZ_WA TYPE T_TABLE_UMSATZ. "work area
G_TABLE_UMSATZ_ITAB type table of T_TABLE_UMSATZ,
G_TABLE_UMSATZ_WA LIKE LINE OF G_TABLE_UMSATZ_ITAB. "work area
DATA: G_TABLE_UMSATZ_COPIED. "copy flag
DATA: CONFIRMATION.
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TABLE_UMSATZ' ITSELF
CONTROLS: TABLE_UMSATZ TYPE TABLEVIEW USING SCREEN 0001.
DATA: G_OK_CODE LIKE sy-ucomm.
DATA flag(1) TYPE c.Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Include Z_INCLUDE_SCREEN
*&---------------------------------------------------------------------*
START-OF-SELECTION.
CALL SCREEN 0001.Code: Alles auswählen.
LOOP AT SCREEN.
IF screen-group1 = 'MOD'.
IF flag = ' '.
screen-input = '0'.
ELSEIF flag = 'X'.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.Code: Alles auswählen.
SET PF-STATUS 'GUI_STATUS'.
SET TITLEBAR 'MAIN_TITLE'.Code: Alles auswählen.
PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TABLE_UMSATZ'
MODULE TABLE_UMSATZ_INIT.
*&SPWIZARD: MODULE TABLE_UMSATZ_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TABLE_UMSATZ_CHANGE_COL_ATTR.
LOOP AT G_TABLE_UMSATZ_ITAB
INTO G_TABLE_UMSATZ_WA
WITH CONTROL TABLE_UMSATZ
CURSOR TABLE_UMSATZ-CURRENT_LINE.
*&SPWIZARD: MODULE TABLE_UMSATZ_CHANGE_FIELD_ATTR
MODULE TABLE_UMSATZ_MOVE.
ENDLOOP.
* MODULE STATUS_0001.
*
PROCESS AFTER INPUT.
MODULE PAI_EVENTS.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TABLE_UMSATZ'
LOOP AT G_TABLE_UMSATZ_ITAB.
CHAIN.
FIELD ZGUI_UMSATZ-JAHR.
FIELD ZGUI_UMSATZ-MONAT.
FIELD ZGUI_UMSATZ-UMSATZ2011.
FIELD ZGUI_UMSATZ-UMSATZ2012.
MODULE TABLE_UMSATZ_MODIFY ON CHAIN-REQUEST.
ENDCHAIN.
ENDLOOP.
*&SPWIZARD: MODULE TABLE_UMSATZ_CHANGE_TC_ATTR.
*&SPWIZARD: MODULE TABLE_UMSATZ_CHANGE_COL_ATTR.
* MODULE USER_COMMAND_0001.Schöne Grüße
Mondhund76
Beitrag
von a-dead-trousers (Top Expert / 4397 / 223 /
1182
)
»
hi!
Zu 1) Der LOOP AT SCREEN gehört ins Modul TABLE_UMSATZ_INIT (Wenn für ganze Tabelle) oder ins Modul TABLE_UMSATZ_MOVE (Wenn nur für Zeile)
Zu 2)
Zu 3) Das Coding fürs DELETE hab ich jetzt nicht gefunden, aber es muss in einem Module abgehandelt werden das NACH dem LOOP AT im PAI Abschnitt aufgerufen werden muss.
lg ADT
Zu 1) Der LOOP AT SCREEN gehört ins Modul TABLE_UMSATZ_INIT (Wenn für ganze Tabelle) oder ins Modul TABLE_UMSATZ_MOVE (Wenn nur für Zeile)
Zu 2)
Code: Alles auswählen.
DESCRIBE TABLE G_TABLE_UMSATZ_ITAB LINES TABLE_UMSATZ-LINES.lg ADT
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Beitrag
von Mondhund76 (ForumUser / 21 / 0 /
2
)
»
Hi a-dead-trousers,
vielen Dank für Deine Antwort ;o)!!!
Ich habe es mit Deinen Hinweisen hinbekommen.
Mein einzigstes Problem ist zur Zeit noch, dass beim Löschen nicht der aktuell markierte Datensatz gelöscht wird, sondern immer der letzte Datensatz.
Hat dafür noch jemand einen Tipp?
Schöne Grüße
Mondhund76
vielen Dank für Deine Antwort ;o)!!!
Ich habe es mit Deinen Hinweisen hinbekommen.
Mein einzigstes Problem ist zur Zeit noch, dass beim Löschen nicht der aktuell markierte Datensatz gelöscht wird, sondern immer der letzte Datensatz.
Hat dafür noch jemand einen Tipp?
Schöne Grüße
Mondhund76
Beitrag
von a-dead-trousers (Top Expert / 4397 / 223 /
1182
)
»
hi
Da ich dein DELETE-Coding nach wie vor nicht kenne, mache ich mal einen wilde Annahme, dass es ungefähr so aussieht.
Dann ist klar, dass der letzte Datensatz gelöscht wird, denn der steht ja am Ende der Modulverarbeitung (Loop at) in der Kopfzeile der Tabelle.
--> siehe auch Hilfe zu "DELETE itab"
Ich denke mal du solltest eine Markierspalte für das Löschen einbauen.
Dann sollte das ganze recht EInfach funktionieren
Wenn du mit aktueller Tabellenzeile (also wo der Cursor gerade steht) arbeiten möchtest, musst du vorher den Index auf dem Table-Control mit dem internen Index abgleichen.
Innerhalb des Loops auf dem Dynpro
Nach dem Loop auf dem Dynpro
--> Siehe auch Hilfe zu "LOOP - with Control"
lg ADT
Da ich dein DELETE-Coding nach wie vor nicht kenne, mache ich mal einen wilde Annahme, dass es ungefähr so aussieht.
Code: Alles auswählen.
delete G_TABLE_UMSATZ_ITAB.--> siehe auch Hilfe zu "DELETE itab"
Ich denke mal du solltest eine Markierspalte für das Löschen einbauen.
Dann sollte das ganze recht EInfach funktionieren
Code: Alles auswählen.
delete G_TABLE_UMSATZ_ITAB where MARK eq 'X'.Innerhalb des Loops auf dem Dynpro
Code: Alles auswählen.
ld_index = sy-stepl + (CONTROL-TOP_LINE - 1). Code: Alles auswählen.
get cursor LINE sy-stepl.
ld_index = sy-stepl + (CONTROL-TOP_LINE - 1). lg ADT
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Beitrag
von Mondhund76 (ForumUser / 21 / 0 /
2
)
»
Hi ADT,
vielen Dank für Deine geduldigen Erklärungen. Ich stehe wahrscheinlich übelst auf dem Schlauch.
Damit Du erst mal mein Delete-Coding kennst, dass sieht wie folgt aus:
Ich dachte immer, WA wäre der aktuelle Arbeitsbereich bzw. Datensatz, aber das scheint ja nicht so zu sein.
Du hast mir zu der Einführung der Markierunsspalte geraten, Dies habe ich getan. Ich habe dem Table Control eine Markierungsspalte zugewiesen.
Du schreibst:
Was ist "MARK"? Ist das die Markierungsspalte? Ich habe meine "FLAG" genannt.
So richtig weiter komme ich nicht.
Deshalb habe ich mir das Demo-Programm von SAP angesehen "DEMO_DYNPRO".
In diesem Programm gibt es ein Unterprogramm "USER_OK_TC".
In diesem wird der OK_CODE ausgewertet, aber woher kommen die Befehle wie zum Beispiel "DELE" oder "MARK"?
Ich habe mir den GUI-Status "SCREEN_100" angesehen und das Dynpro "0100", aber ich finde nirgends die Angabe dazu???
Sorry, so viele Fragen auf einmal...
Schöne Grüße
Mondhund76
vielen Dank für Deine geduldigen Erklärungen. Ich stehe wahrscheinlich übelst auf dem Schlauch.
Damit Du erst mal mein Delete-Coding kennst, dass sieht wie folgt aus:
Code: Alles auswählen.
delete TABLE G_TABLE_UMSATZ_ITAB FROM G_TABLE_UMSATZ_WA.
delete ZGUI_UMSATZ FROM G_TABLE_UMSATZ_WA.Du hast mir zu der Einführung der Markierunsspalte geraten, Dies habe ich getan. Ich habe dem Table Control eine Markierungsspalte zugewiesen.
Du schreibst:
Code: Alles auswählen.
DELETE G_TABLE_UMSATZ_ITAB WHERE MARK EQ 'X'So richtig weiter komme ich nicht.
Deshalb habe ich mir das Demo-Programm von SAP angesehen "DEMO_DYNPRO".
In diesem Programm gibt es ein Unterprogramm "USER_OK_TC".
In diesem wird der OK_CODE ausgewertet, aber woher kommen die Befehle wie zum Beispiel "DELE" oder "MARK"?
Ich habe mir den GUI-Status "SCREEN_100" angesehen und das Dynpro "0100", aber ich finde nirgends die Angabe dazu???
Sorry, so viele Fragen auf einmal...
Schöne Grüße
Mondhund76
Beitrag
von a-dead-trousers (Top Expert / 4397 / 223 /
1182
)
»
hi!
Wenn du deine Markierungsspalte FLAG genannt hast, musst du natürlich auchschreiben.
Der OK-Code ist der Kürzel hinter der Funktion im GUI-Status den der User gedrückt hat. In deinem Fall der Funktioncode der deine Löschfunktion auslösen soll.
Im Falle des GUI-Status SCREEN_100 des Programms DEMO_DYNPRO hätte die Funktionstaste F5 den Funktionscode PRESS der auch in der Buttonleiste sowie im Menü unter Demo-Dynpro angezeigt wird.
Wenn ich dein Coding richtig interpretiere, möchtest du nicht nur aus der internen Tabelle sondern auch aus der DB löschen. Würd ich zwar nicht so machen, sondern erst wenn der User auf Speichern oder so klickt, aber hier wie du das mit der Markierspalte regeln kannst.
Du solltest dir echt überlegen einen der ABAP-Grundkurse zu absolvieren.
lg ADT
Wenn du deine Markierungsspalte FLAG genannt hast, musst du natürlich auch
Code: Alles auswählen.
DELETE G_TABLE_UMSATZ_ITAB WHERE FLAG EQ 'X'Der OK-Code ist der Kürzel hinter der Funktion im GUI-Status den der User gedrückt hat. In deinem Fall der Funktioncode der deine Löschfunktion auslösen soll.
Im Falle des GUI-Status SCREEN_100 des Programms DEMO_DYNPRO hätte die Funktionstaste F5 den Funktionscode PRESS der auch in der Buttonleiste sowie im Menü unter Demo-Dynpro angezeigt wird.
Wenn ich dein Coding richtig interpretiere, möchtest du nicht nur aus der internen Tabelle sondern auch aus der DB löschen. Würd ich zwar nicht so machen, sondern erst wenn der User auf Speichern oder so klickt, aber hier wie du das mit der Markierspalte regeln kannst.
Code: Alles auswählen.
FIELD-SYMBOLS: <L_LINE_UMSATZ_WA> LIKE LINE OF G_TABLE_UMSATZ_ITAB.
LOOP AT G_TABLE_UMSATZ_ITAB ASSIGNING <L_LINE_UMSATZ_WA> WHERE FLAG EQ 'X'.
DELETE ZGUI_UMSATZ FROM <L_LINE_UMSATZ_WA>.
DELETE G_TABLE_UMSATZ_ITAB.
ENDLOOP.lg ADT
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Seite 1 von 1
Vergleichbare Themen
16
Antw.
Antw.
8778
Views
Views
1
Antw.
Antw.
2141
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
Umherspringende Methoden im quelltextbasierten Class Builder
vor 20 Stunden von ralf.wenzel 104 / 10264
vor 20 Stunden von ralf.wenzel 104 / 10264
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
Umherspringende Methoden im quelltextbasierten Class Builder
vor 20 Stunden von ralf.wenzel 104 / 10264
vor 20 Stunden von ralf.wenzel 104 / 10264