Code: Alles auswählen.
method IF_EX_WORKORDER_CONFIRM~BEFORE_UPDATE.
DATA:
itabx TYPE TABLE OF afru,
S_Rueck LIKE LINE OF itabx.
itabx = it_confirmation.
LOOP AT itabx INTO S_Rueck.
ENDLOOP.
*--------------------------------------------------------------------*
**
*--------------------------------------------------------------------*
TYPES:
BEGIN OF ty_data,
S_RUECK(13) TYPE n,
END OF ty_data.
FIELD-SYMBOLS: <S_RUECK> TYPE ty_data.
ASSIGN IT_CONFIRMATION to <S_Rueck> CASTING.
*--------------------------------------------------------------------*
*Felder deklarieren*
*--------------------------------------------------------------------*
DATA: zeilen_itab01 TYPE i.
DATA: zeilen_itab02 TYPE i.
*--------------------------------------------------------------------*
*Datentypen für Zeilen deklarieren*
*--------------------------------------------------------------------*
TYPES: BEGIN OF zeile01_typ,
AUFNR TYPE RESB-AUFNR, "Auftragsnummer
XWAOK TYPE RESB-XWAOK, "Bewegung erlaubt
KZEAR TYPE RESB-KZEAR, "Endausgefasst
XLOEK TYPE RESB-XLOEK, "Löschkennzeichen
AUERU TYPE AFRU-AUERU, "Endrückgemeldet (Vorgang)
RGEKZ TYPE RESB-RGEKZ, "retrograde entnahme
VORNR TYPE RESB-VORNR, "Vorgangsnummer Komponenten
END OF zeile01_typ.
*
TYPES: BEGIN OF zeile02_typ,
OBJNR TYPE JEST-OBJNR, "Objektnummer Vorgang
STAT TYPE JEST-STAT, "Status Vorgang
INACT TYPE JEST-INACT, "Stastus Vorgang inaktiv?
VORNR TYPE AFRU-VORNR, "Vorgangsnummer
RMZHL TYPE AFRU-RMZHL, "Rückmeldezähler
END OF zeile02_typ.
Data : pop(3) TYPE n,
txt(4) TYPE n,
answer(1) TYPE c.
*--------------------------------------------------------------------*
*Datentypen für interne Tabellen deklarieren*
*--------------------------------------------------------------------*
TYPES itab01_typ TYPE STANDARD TABLE OF zeile01_typ.
TYPES itab02_typ TYPE STANDARD TABLE OF zeile02_typ.
*--------------------------------------------------------------------*
*Interne Tabellen deklarieren ohne Kopfzeile*
*--------------------------------------------------------------------*
DATA itab01 TYPE itab01_typ.
DATA itab02 TYPE itab02_typ.
*--------------------------------------------------------------------*
*Workareas für interen Tabellen deklarieren*
*--------------------------------------------------------------------*
DATA wa_itab01 TYPE zeile01_typ.
DATA wa_itab02 TYPE zeile02_typ.
*--------------------------------------------------------------------*
*Interne Tabelle itab02 füllen - Vorgang Endrückgemeldet???*
*--------------------------------------------------------------------*
SELECT *
INTO CORRESPONDING FIELDS OF TABLE itab02
FROM AFRU
JOIN AFVC
ON AFVC~AUFPL = AFRU~AUFPL
AND AFVC~APLZL = AFRU~APLZL
JOIN JEST
ON JEST~OBJNR = AFVC~OBJNR
WHERE AFRU~RUECK = S_RUECK.
Code: Alles auswählen.
DATA: ld_number TYPE n LENGTH 13.
FIELD-SYMBOLS: <ls_confirmation> LIKE LINE OF it_confirmation.
LOOP AT it_confirmation ASSIGNING <ls_confirmation>.
ld_number = <ls_confirmation>(13).
* Hier die Verarbeitung der Nummer machen.
ENDLOOP.
erp-bt hat geschrieben:Hallo christof,
Aber ganz ehrlich, ich glaube Dir fehlt noch einen Haufen Grundlagen. Ich bin mir jetzt nicht ganz sicher, ob Du irgendwo als Angestellter tätig bist. Falls dem so ist, solltest Du Deinen Chef bitten, das er Dich zunächst mal auf eine Schulung schickt. Die dürfte sich relativ schnell bezahlt machen.
Liebe Grüße,
Unit605 hat geschrieben:Moechte hier noch einmal die Empfehlung von erp-bt wiederholen:
erp-bt hat geschrieben:Hallo christof,
Aber ganz ehrlich, ich glaube Dir fehlt noch einen Haufen Grundlagen. Ich bin mir jetzt nicht ganz sicher, ob Du irgendwo als Angestellter tätig bist. Falls dem so ist, solltest Du Deinen Chef bitten, das er Dich zunächst mal auf eine Schulung schickt. Die dürfte sich relativ schnell bezahlt machen.
Liebe Grüße,