Datenbanktabelle durch WebDynpro ändern

Re: Datenbanktabelle durch WebDynpro ändern

Ok hab selbst was gefunden. Falls es jemanden hilft noch kurz meinen Quellcode:

DATA: ISBN TYPE REF TO IF_WD_CONTEXT_NODE,
CAR_ISBN TYPE ZBSBOOKLINE-ISBN,
TITEL TYPE REF TO IF_WD_CONTEXT_NODE,
CAR_TITEL TYPE STRING,
NACHNAME TYPE REF TO IF_WD_CONTEXT_NODE,
CAR_NACHNAME TYPE STRING,
VORNAME TYPE REF TO IF_WD_CONTEXT_NODE,
CAR_VORNAME TYPE STRING.

ISBN = WD_CONTEXT->GET_CHILD_NODE('ISBN').
ISBN->GET_ATTRIBUTE( exporting Name = 'ISBN' importing Value = CAR_ISBN ).

TITEL = WD_CONTEXT->GET_CHILD_NODE('TITEL').
TITEL->GET_ATTRIBUTE( exporting Name = 'TITEL' importing Value = CAR_TITEL ).

NACHNAME = WD_CONTEXT->GET_CHILD_NODE('NACHNAME').
NACHNAME->GET_ATTRIBUTE( exporting Name = 'NACHNAME' importing Value = CAR_NACHNAME ).

VORNAME = WD_CONTEXT->GET_CHILD_NODE('VORNAME').
VORNAME->GET_ATTRIBUTE( exporting Name = 'VORNAME' importing Value = CAR_VORNAME ).


DATA: wa_buch TYPE zbsbookline,
itab_buch TYPE TABLE OF zbsbookline,
number TYPE i,
control TYPE i.

SELECT * FROM zbsbooklinetab INTO TABLE itab_buch.

LOOP AT itab_buch INTO wa_buch.
IF wa_buch-ISBN = CAR_ISBN.
control = 1.
EXIT.
ELSE.
control = 2.
ENDIF.
ENDLOOP.


CALL FUNCTION 'NUMBER_GET_NEXT'

EXPORTING

nr_range_nr = '1'

object = 'ZUEBERALL'

IMPORTING

number = number.


wa_buch-authfnam = CAR_VORNAME.
wa_buch-authlnam = CAR_NACHNAME.
wa_buch-title = CAR_TITEL.
wa_buch-ISBN = CAR_ISBN.
wa_buch-ID = number.


IF control = 2.
INSERT INTO zbsbooklinetab VALUES wa_buch.
IF sy-subrc = 0.
CALL METHOD ERFOLGREICH.
ELSE.
CALL METHOD FEHLERHAFT.
ENDIF.
ELSEIF control = 1.
CALL METHOD FEHLERHAFT.
ENDIF.