Funktionsbausteine zum Transportsystem

FB zum Transportsystem

Hallo Holger,

ich habe so etwas ähnliches gemacht.
Die FB´s im Transportwesen sind im Allgemeinen sehr
gut gekapselt.

Hier ein paar Auszüge. Ich hoffe sie helfen Euch weiter.

Gruss

Norbert

*&---------------------------------------------------------------------*
*& Report /WIS/RE_TMS_CHANGE *
*& *
*&---------------------------------------------------------------------*
*& *
*& Umändern der Eigenschaften von TAs im TMS
*& Freigabe und Auslieferung von Produkttemplates
*&---------------------------------------------------------------------*
*
REPORT /wis/re_tms_change.

TABLES: e070, "TMS: Header von Aufträgen/Aufgaben
e070c, "TMS: Quell-/Zielmandant von Aufträgen/Aufgaben
e07t, "TMS: Kurzbeschreibungen von Aufträgen/Aufgaben

...

* Ziel zur aktuellen Transportschicht suchen
CALL FUNCTION 'TR_GET_CONSOLIDATION_TARGETS'
IMPORTING
et_targets = gt_tarsys
EXCEPTIONS
system_not_initialized = 1
OTHERS = 2.
...
* Auftragsobjektliste sortieren & verdichten
CALL FUNCTION 'TR_SORT_AND_COMPRESS_COMM'
EXPORTING
iv_trkorr = p_coqta
EXCEPTIONS
trkorr_not_found = 1
order_released = 2
error_while_modifying_obj_list = 3
tr_enqueue_failed = 4
no_authorization = 5
OTHERS = 6.

IF sy-subrc = 0.
WRITE:/ 'Objektliste von Auftrag/Aufgabe ',p_coqta,
'sortiert & verdichtet.'.
ENDIF.

SELECT SINGLE *
FROM e070
INTO gs_e070
WHERE trkorr = p_coqta.
IF sy-subrc NE 0.
WRITE:/ 'Auftrag nicht gefunden: e070'.
EXIT.
ENDIF.

SELECT SINGLE *
FROM e070c
INTO gs_e070c
WHERE trkorr = p_coqta.
IF sy-subrc NE 0.
WRITE:/ 'Auftrag nicht gefunden: e070c'.
EXIT.
ENDIF.

SELECT SINGLE *
FROM e07t
INTO gs_e07t
WHERE trkorr = p_coqta.
IF sy-subrc NE 0.
WRITE:/ 'Auftrag nicht gefunden: e07t'.
EXIT.
ENDIF.


IF p_aufg = 'X'.
* Aufgaben lesen
SELECT *
FROM e070
INTO TABLE gt_e070_auf
WHERE strkorr = p_coqta.
IF sy-subrc NE 0.
WRITE:/ 'Keine Aufgaben gefunden.'.
ENDIF.

SELECT *
FROM e070c
INTO TABLE gt_e070c_auf
FOR ALL ENTRIES IN gt_e070_auf
WHERE trkorr = gt_e070_auf-trkorr.

SELECT *
FROM e07t
INTO TABLE gt_e07t_auf
FOR ALL ENTRIES IN gt_e070_auf
WHERE trkorr = gt_e070_auf-trkorr.

ENDIF. "Aufgaben


...
lv_simu = p_test.
* Anlegen eines neuen Auftrags/einer neuen Aufgabe
CALL FUNCTION 'TRINT_INSERT_NEW_COMM'
EXPORTING
wi_kurztext = lv_e07t_as4text
wi_trfunction = lv_e070_trfunction
wi_strkorr = lv_e070_strkorr
iv_tarsystem = gv_target
wi_client = sy-mandt
* IV_TARDEVCL = ' '
* IV_DEVCLASS = ' '
* IV_TARLAYER = ' '
* WI_PROTECT = ' '
iv_simulation = lv_simu
IMPORTING
we_trkorr = lv_korr
* WE_E070 =
* WE_E07T =
* WE_E070C =
* ES_E070M =
EXCEPTIONS
no_systemname = 1
no_systemtype = 2
no_authorization = 3
db_access_error = 4
file_access_error = 5
enqueue_error = 6
number_range_full = 7
invalid_input = 8
OTHERS = 9.
...
* Intern: Kopieren von Aufgaben/Aufträgen
CALL FUNCTION '/WIS/FB_TRINT_COPY_COMM'
EXPORTING
wi_comm_to_filled = space
wi_dialog = 'X'
wi_trkorr_from = lv_e070_trkorr
wi_trkorr_to = lv_e070_newkorr
wi_without_documentation = space
wi_e070_to = space
wi_e07t_to = space
i_suppress_type = 'X'
EXCEPTIONS
e070_update_error = 1
e071k_update_error = 2
e071_update_error = 3
e07t_update_error = 4
trkorr_from_not_exist = 5
trkorr_to_is_task = 6
trkorr_to_not_exist = 7
trkorr_to_released = 8
user_not_owner = 9
wrong_client = 10
wrong_category = 11
object_not_patchable = 12
no_authorization = 13
w_action_aborted_by_user = 14
OTHERS = 15.

...

* Auftrag freigeben
SKIP.
CALL FUNCTION 'TR_RELEASE_REQUEST'
EXPORTING
iv_trkorr = gs_newkorr-trkorr
iv_dialog = p_diag
iv_as_background_job = space
* IMPORTING
* ES_REQUEST =
* ET_DELETED_TASKS =
EXCEPTIONS
cts_initialization_failure = 1
enqueue_failed = 2
no_authorization = 3
invalid_request = 4
request_already_released = 5
repeat_too_early = 6
object_check_error = 7
docu_missing = 8
db_access_error = 9
action_aborted_by_user = 10
export_failed = 11
OTHERS = 12.