Code: Alles auswählen.
REPORT ZTEST3.
INCLUDE <icon>
MOVE ´Neues Kundenkonto erstellen´ TO sy-title.
TABLES: ZKUNDEN.
PARAMETERS: pkdnr LIKE ZKUNDEN-KUNDEN_NR,
pvor LIKE ZKUNDEN-VORNAME,
pnach LIKE ZKUNDEN-NACHNAME,
pstrasse LIKE ZKUNDEN-STRASSE,
pplz LIKE ZKUNDEN-PLZ,
port LIKE ZKUNDEN-ORT,
pemail LIKE ZKUNDEN-EMAIL,
ptelefon LIKE ZKUNDEN-TELEFONNUMMER,
pmobil LIKE ZKUNDEN-MOBIL.
DATA: wakunden LIKE ZKUNDEN.
START-OF-SELECTION.
wakunden-KUNDEN_NR = pkdnr.
wakunden-VORNAME = pvor.
wakunden-NACHNAME = pnach.
wakunden-STRASSE = pstrasse.
wakunden-PLZ = pplz.
wakunden-ORT = port.
wakunden-EMAIL = pemail.
wakunden-TELEFONNUMMER = ptelefon.
wakunden-MOBIL = pmobil.
INSERT INTO ZKUNDEN VALUES wakunden.
WRITE: ´Ihre neue Kundennummer ist die: ´, wakunden-KUNDEN_NR.
Code: Alles auswählen.
SELECT MAX( kunden_nr ) FROM zkunden
INTO gv_kunden_nr.
ADD 1 TO gv_kunden_nr.
wa_kunden-kunden_nr = gv_kunden_nr. "Eventuell vorher noch mit CONVERSION_EXIT_ALPHA_INPUT konvertierenCode: Alles auswählen.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = '01'
object = KUNDEN_NR (dies ist mein primärschlüsselfeld in der Tabelle)
IMPORTING
number = pkdnr.
Code: Alles auswählen.
object = KUNDEN_NR (dies ist mein primärschlüsselfeld in der Tabelle)
Code: Alles auswählen.
object = ZKUNDEN-KUNDEN_NR
Code: Alles auswählen.
OBJECT = 'ZANUMMERN'Also das hat super geklappt. Nun legt mir das Programm schon einmal einen Kunden an, mit den Daten die ich im Formular dann eingebe und speicher. Tja, leider kann er noch nicht mehr Kunden anlegen, was wohl mit der Funktion "NUMBER_GET_NEXT" zusammen hängt.... ich denke, dort fehlt mir nun wohl noch ein zusatz. ich werd mir jetzt erstmal die funktion genauer anschauen.Ratazong hat geschrieben:Code: Alles auswählen.
OBJECT = 'ZANUMMERN'
Code: Alles auswählen.
REPORT ZTEST3.
INCLUDE <icon>.
MOVE 'Neues Kundenkonto erstellen' TO sy-title.
TABLES: ZKUNDEN.
DATA: itskunden TYPE TABLE OF ZKUNDEN with header line.
SELECT KUNDEN_NR INTO TABLE itskunden
FROM ZKUNDEN.
PARAMETERS: pkdnr LIKE ZKUNDEN-KUNDEN_NR,
pvor LIKE ZKUNDEN-VORNAME,
pnach LIKE ZKUNDEN-NACHNAME,
pstrasse LIKE ZKUNDEN-STRASSE,
pplz LIKE ZKUNDEN-PLZ,
port LIKE ZKUNDEN-ORT,
pemail LIKE ZKUNDEN-EMAIL,
ptelefon LIKE ZKUNDEN-TELEFONNUMMER,
pmobil LIKE ZKUNDEN-MOBIL.
DATA wakunden LIKE ZKUNDEN.
START-OF-SELECTION.
wakunden-KUNDEN_NR = pkdnr.
wakunden-VORNAME = pvor.
wakunden-NACHNAME = pnach.
wakunden-STRASSE = pstrasse.
wakunden-PLZ = pplz.
wakunden-ORT = port.
wakunden-EMAIL = pemail.
wakunden-TELEFONNUMMER = ptelefon.
wakunden-MOBIL = pmobil.
IF wakunden-KUNDEN_NR IS INITIAL.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = '01'
object = 'ZANUMMERN'
IMPORTING
number = wakunden-KUNDEN_NR.
ENDIF.
INSERT INTO ZKUNDEN VALUES wakunden.
WRITE: wakunden-KUNDEN_NR.
Code: Alles auswählen.
REPORT ZTEST4.
INCLUDE <icon>.
MOVE ´Neues Kundenkonto erstellen´ TO sy-title.
TABLES: ZKUNDEN.
PARAMETERS: pkdnr LIKE ZKUNDEN-KUNDEN_NR,
pvor LIKE ZKUNDEN-VORNAME,
pnach LIKE ZKUNDEN-NACHNAME,
pstrasse LIKE ZKUNDEN-STRASSE,
pplz LIKE ZKUNDEN-PLZ,
port LIKE ZKUNDEN-ORT,
pemail LIKE ZKUNDEN-EMAIL,
ptelefon LIKE ZKUNDEN-TELEFONNUMMER,
pmobil LIKE ZKUNDEN-MOBIL.
DATA wakunden LIKE ZKUNDEN.
START-OF-SELECTION.
Wakunden-KUNDEN_NR = pkdnr.
Wakunden-VORNAME = pvor.
Wakunden-NACHNAME = pnach.
Wakunden-STRASSE = pstrasse.
Wakunden-PLZ = pplz.
Wakunden-ORT = port.
Wakunden-EMAIL = pemail.
Wakunden-TELEFONNUMMER = ptelefon.
IF wakunden-KUNDEN_NR IS INITIAL.
CALL FUNCTION ´NUMBER_GET_NEXT´
EXPORTING
Nr_range_nr = ´01´
Object = ´ZANUMMERN´
IMPORTING
Number = wakunden-KUNDEN_NR.
ENDIF.
MOVE wakunden TO ZKUNDEN.
WRITE: / wakunden-KUNDEN_NR.