Transportabgleich
Bei Transportaufträgen ist es schwierig, die Übersicht zu behalten. Da passiert es schnell, dass durch einen alten Transportauftrag ein jüngerer Sourcecode wieder überschrieben wird. Dieses Programm soll die Übersicht ein wenig einfacher machen. Das Programm zeigt sogar, welche Transporte noch vorher transportiert, bzw. welche nachträglich wieder eingespielt werden müssen um die Transportreihenfolge beizubehalten.
Dieses Programm listet alle noch nicht vollständig transportierten Transportaufträge eines oder mehrerer Benutzer auf.
Anhand eines Hakens oder eines Kreuzes wird angezeigt, ob der Auftrag bereits im Konsolidierungssystem ist und/ oder im Produktivsystem.
Positionieren Sie den Cursor auf einen Auftrag, um zu prüfen, ob vor dem Transport andere Aufträge importiert werden müssen, oder ob Aufträge nachtransportiert werden müssen.
Das Programm funktioniert nur für ABAP-Programme!
Dictionary-Objekte, Dynpros etc. werden nicht unterstützt!
Vorbereitungen
folgendes müssen sie nach dem einfügen des Quelltextes in den Editor machen:
1. Ersetzen Sie in der Parameters-Anweisung die Defaultwerte für Ihre Systeme.
2. Legen sie den PF-Status “LISTE” an:
(+) Listfunktionen einmischen!
Funktion CHCK Vor ICON_NEXT_STEP
Funktion CHCKR Nach ICON_PREVIOUS_STEP
Funktion REFR Refresh ICON_REFRESH
Quelltext
REPORT ZZTRANSCHECK LINE-SIZE 170 NO STANDARD PAGE HEADING.
INCLUDE <icon>.
TABLES: E070V, E070, E071, *E071.
DATA: zicon_okay(4) VALUE icon_okay,
zicon_activate(4) VALUE icon_activate,
zicon_transport(4) VALUE icon_transport,
zicon_cancel(4) VALUE icon_cancel.
TYPES: BEGIN OF ts,
date LIKE sy-datum,
time LIKE sy-uzeit,
END OF ts.
DATA: current_ts TYPE ts,
CHECK_TS TYPE TS,
P_RUECK TYPE C,
WT_E071 LIKE E071 OCCURS 0 WITH HEADER LINE,
WT_E071K LIKE E071K OCCURS 0 WITH HEADER LINE,
WT_E070V LIKE E070V OCCURS 0 WITH HEADER LINE,
T071 LIKE E071 OCCURS 0 WITH HEADER LINE,
X071 LIKE E071 OCCURS 0 WITH HEADER LINE,
TARSYS_PROD(3),
TARSYS_KONS(3),
ICON_KONS(4),
ICON_PROD(4),
KONS_VORHANDEN,
PROD_VORHANDEN,
BEGIN OF t_e071_checked OCCURS 0,
trkorr LIKE e070v-trkorr,
as4user LIKE e070v-as4user,
as4date LIKE e070v-as4date,
as4time LIKE e070v-as4time,
KONS,
PROD,
END OF t_e071_checked,
vorhanden,
xaktiv(40),
DEST(20),
korr LIKE e070-trkorr,
aktuelle_zeile LIKE sy-index,
xhotspot(8),
we_de LIKE trpari-w_e07t,
merk_user(12),
LISTE_KONS LIKE ABAPLIST OCCURS 0 WITH HEADER LINE,
LISTE_PROD LIKE ABAPLIST OCCURS 0 WITH HEADER LINE,
liste_hrd LIKE abaplist OCCURS 0 WITH HEADER LINE,
liste LIKE abaplist OCCURS 0 WITH HEADER LINE,
v VALUE '|'.
*>>> Eigentümer der Transportaufträge
SELECT-OPTIONS: s_user FOR sy-uname DEFAULT sy-uname,
*>>> Auftragsnummer
s_trkorr FOR korr.
*>>> Aufträge selektieren ab Datum
PARAMETERS: p_datvon LIKE sy-datum DEFAULT sy-datum,
*>>> Sofort prüfen
p_check AS CHECKBOX DEFAULT space,
*>>> Nur nicht vollständig transportierte anzeigen
P_TRANS AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN ULINE.
*>>> Konsolidierungssystem
PARAMETERS: P_SYKONS(3) DEFAULT 'Q01',
*>>> Produktivsystem
P_SYPROD(3) DEFAULT 'P01'.
INITIALIZATION.
p_datvon = sy-datum - 30.
TOP-OF-PAGE.
PERFORM top_of_page.
TOP-OF-PAGE DURING LINE-SELECTION.
CHECK sy-lsind = 0.
PERFORM top_of_page.
START-OF-SELECTION.
TARSYS_KONS = P_SYKONS.
TARSYS_PROD = P_SYPROD.
*>>> PF-Status:
*>>> (+) Listfunktionen einmischen!
*>>> CHCK Vor ICON_NEXT_STEP
*>>> CHCKR Nach ICON_PREVIOUS_STEP
*>>> REFR Refresh ICON_REFRESH
SET PF-STATUS 'LISTE'.
PERFORM ausgabe.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'REFR'.
*** Liste aktualisieren
sy-lsind = 0.
aktuelle_zeile = sy-staro.
PERFORM ausgabe.
WHEN 'CHCK'.
*** Vorwärtsprüfung: Vorher zu transportierende Aufträge
CHECK e070v NE space.
p_rueck = space.
PERFORM check_objekte.
WHEN 'CHCKR'.
*** Rückwärtsprüfung: Nachzutransportierende Aufträge
CHECK e070v NE space.
p_rueck = 'X'.
PERFORM check_objekte.
ENDCASE.
CLEAR e070v.
AT LINE-SELECTION.
CLEAR xhotspot.
GET CURSOR FIELD xhotspot.
CASE sy-ucomm.
WHEN 'PICK'.
IF e070v-trkorr NE space.
*** Stückliste des Auftrags anzeigen
CALL FUNCTION 'TR_EDITOR_COMM'
EXPORTING
wi_dequeue = 'X'
wi_read_only = 'X'
wi_trkorr = e070v-trkorr.
ENDIF.
ENDCASE.
*---------------------------------------------------------------------*
* FORM AUSGABE *
*---------------------------------------------------------------------*
FORM ausgabe.
CLEAR merk_user.
SELECT * FROM e070v INTO TABLE wt_e070v
WHERE trkorr in s_trkorr
AND trfunction IN ('K', 'W')
AND trstatus = 'R'
AND TARSYSTEM = TARSYS_KONS
AND as4user IN s_user
AND as4date GE p_datvon
AND langu = sy-langu
ORDER BY as4user as4date as4time trkorr.
LOOP AT wt_e070v.
IF wt_e070v-as4user <> merk_user.
merk_user = wt_e070v-as4user.
WRITE: / 'Für den Benutzer', wt_e070v-as4user COLOR 4,
'sind folgende Aufträge freigegeben:',
/ sy-uline(126).
ENDIF.
e070v = wt_e070v.
PERFORM LIES_E070 USING TARSYS_PROD
CHANGING PROD_VORHANDEN.
PERFORM LIES_E070 USING TARSYS_KONS
CHANGING KONS_VORHANDEN.
if p_trans = 'X'.
CHECK KONS_VORHANDEN = SPACE OR PROD_VORHANDEN = SPACE.
endif.
WRITE: /4 E070V-TRKORR(10), V.
HIDE e070v-trkorr.
CASE e070v-trfunction.
WHEN 'R'. WRITE: 'Reparatur ', v.
WHEN 'K'. WRITE: 'Änd.Auftrag', v.
WHEN 'W'. WRITE: 'Customizing', v.
WHEN OTHERS. WRITE: e070v-trfunction, v.
ENDCASE.
PERFORM WRITE_STATUS USING TARSYS_KONS.
PERFORM WRITE_STATUS USING TARSYS_PROD.
WRITE: e070v-as4date, v,
e070v-as4time, v,
e070v-as4text(60), v.
IF e070v-strkorr NE space.
WRITE: 'Transportiert mit:', e070v-strkorr.
ENDIF.
IF p_check = 'X' and
( KONS_VORHANDEN = SPACE OR PROD_VORHANDEN = SPACE ).
PERFORM check_objekte.
ENDIF.
ENDLOOP.
SCROLL LIST TO FIRST PAGE LINE aktuelle_zeile INDEX 1.
CLEAR e070v-trkorr.
ENDFORM.
*---------------------------------------------------------------------*
* FORM LIES_E070 *
*---------------------------------------------------------------------*
FORM lies_e070 USING dest CHANGING vorhanden.
CLEAR korr.
*-- Wenn Customizingaufgaben an einen anderen Transportauftrag
* gehängt werden, so steht dieser in E070-STRKORR
* Wenn STRKORR gefüllt ist, dann diesen Auftrag zum Lesen nehmen
IF e070v-strkorr = space.
korr = e070v-trkorr.
ELSE.
korr = e070v-strkorr.
ENDIF.
PERFORM read_tr USING dest korr vorhanden.
ENDFORM.
*---------------------------------------------------------------------*
* FORM TOP_OF_PAGE *
*---------------------------------------------------------------------*
FORM top_of_page.
WRITE: / sy-uline(126),
/6 'Korrektur',
20 'Typ',
31 'KONS',
36 'PROD',
/ sy-uline(126).
ENDFORM.
*&---------------------------------------------------------------------*
*& Form WRITE_STATUS
*&---------------------------------------------------------------------*
FORM write_status USING status.
CASE status.
WHEN TARSYS_KONS.
CASE KONS_VORHANDEN.
WHEN 'X'. ICON_KONS = ZICON_OKAY.
WHEN 'A'. ICON_KONS = ZICON_ACTIVATE.
WHEN 'W'. ICON_KONS = ZICON_TRANSPORT.
WHEN ' '. ICON_KONS = ZICON_CANCEL.
ENDCASE.
IF ICON_KONS = ZICON_CANCEL.
WRITE: ICON_KONS AS ICON NO-GAP, 34 '|'.
ELSE.
WRITE: ICON_KONS AS ICON NO-GAP, 34 '|'.
ENDIF.
CASE PROD_VORHANDEN.
WHEN 'X'. ICON_PROD = ZICON_OKAY.
WHEN 'A'. ICON_PROD = ZICON_ACTIVATE.
WHEN 'W'. ICON_PROD = ZICON_TRANSPORT.
WHEN ' '. ICON_PROD = ZICON_CANCEL.
ENDCASE.
IF ICON_PROD = ZICON_CANCEL.
WRITE: ICON_PROD AS ICON HOTSPOT ON NO-GAP, 39 '|'.
ELSE.
WRITE: ICON_PROD AS ICON NO-GAP, 39 '|'.
ENDIF.
ENDCASE.
ENDFORM. " WRITE_STATUS
*&---------------------------------------------------------------------*
*& Form CHECK_OBJEKTE
*&---------------------------------------------------------------------*
FORM check_objekte.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
TEXT = e070v-trkorr.
SELECT * FROM e071 INTO TABLE x071
WHERE trkorr = e070v-trkorr.
LOOP AT x071.
e071 = x071.
*e071 = e071.
SELECT * FROM e071 INTO TABLE t071
WHERE pgmid = *e071-pgmid
AND object = *e071-object
AND obj_name = *e071-obj_name
AND trkorr NE e071-trkorr.
SELECT SINGLE * FROM e070 WHERE trkorr = x071-trkorr.
current_ts-date = e070-as4date.
current_ts-time = e070-as4time.
REFRESH t_e071_checked.
LOOP AT t071.
SELECT SINGLE * FROM e070v WHERE trkorr = t071-trkorr.
check_ts-date = e070v-as4date.
check_ts-time = e070v-as4time.
if p_rueck = space.
CHECK check_ts < current_ts.
else.
check check_ts > current_ts.
endif.
CHECK e070v-trfunction = 'K'.
*-- Konsolidierung vorhanden? --*
PERFORM READ_TR
USING TARSYS_KONS T071-TRKORR T_E071_CHECKED-KONS.
*-- Produktiv vorhanden? --*
PERFORM READ_TR
USING TARSYS_PROD T071-TRKORR T_E071_CHECKED-PROD.
*-- Sätze merken
t_e071_checked-trkorr = e070v-trkorr.
t_e071_checked-as4user = e070v-as4user.
t_e071_checked-as4date = e070v-as4date.
t_e071_checked-as4time = e070v-as4time.
IF T_E071_CHECKED-KONS = SPACE OR
T_E071_CHECKED-PROD = SPACE.
APPEND t_e071_checked.
ENDIF.
ENDLOOP.
CHECK NOT t_e071_checked[] IS INITIAL.
*-- Ausgabe
WRITE: /5 e071-pgmid COLOR COL_TOTAL,
e071-object COLOR COL_TOTAL,
e071-obj_name COLOR COL_TOTAL,
e071-objfunc COLOR COL_TOTAL,
e071-lockflag COLOR COL_TOTAL,
e071-gennum COLOR COL_TOTAL.
SORT t_e071_checked BY as4date DESCENDING as4time DESCENDING.
LOOP AT t_e071_checked.
SELECT SINGLE * FROM e070v WHERE trkorr = t_e071_checked-trkorr.
WRITE: /10 t_e071_checked-trkorr,
t_e071_checked-as4user,
t_e071_checked-as4date,
t_e071_checked-as4time.
IF T_E071_CHECKED-KONS = 'X'.
WRITE 'KONS' COLOR 5.
ELSE.
WRITE 'KONS' COLOR 6.
ENDIF.
IF T_E071_CHECKED-PROD = 'X'.
WRITE 'PROD' COLOR 5.
ELSE.
WRITE 'PROD' COLOR 6.
ENDIF.
WRITE e070v-as4text INTENSIFIED OFF.
HIDE e070v.
ENDLOOP.
ENDLOOP.
ENDFORM. " CHECK_OBJEKTE
*---------------------------------------------------------------------*
* FORM READ_TR *
*---------------------------------------------------------------------*
FORM READ_TR USING DEST TYPE ANY
tr LIKE korr
vorhanden_flag.
CALL FUNCTION 'TR_READ_COMM'
DESTINATION dest
EXPORTING
wi_dialog = ' '
wi_sel_e070 = 'X'
wi_trkorr = tr
IMPORTING
we_e070 = e070
we_e07t_doesnt_exist = we_de
TABLES
wt_e071 = wt_e071
wt_e071k = wt_e071k
EXCEPTIONS
not_exist_e070 = 1
no_authorization = 2
OTHERS = 3.
IF sy-subrc = 0.
vorhanden_flag = 'X'.
ELSE.
vorhanden_flag = space.
ENDIF.
ENDFORM. "read_tr
SAP Berater & Entwickler bei Inwerken AG
Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!
Letzte Artikel von Enno Wulff (Alle anzeigen)
- IMG-Struktur anzeigen - 11. März 2024
- ALV-Grid und Dropdown - 8. März 2024
- Finden ─ nicht suchen - 28. Februar 2024
