I PURCHASEREQUISITIONTP - Versionsgeschichte

M1ch3lde: /* Bestellanforderung mit Positionen anlegen */

2026-02-02T16:30:43Z

Bestellanforderung mit Positionen anlegen

← Nächstältere Version		Version vom 2. Februar 2026, 18:30 Uhr
Zeile 2:		Zeile 2:
	[[Kategorie:Clean-Core-Level_A]]		[[Kategorie:Clean-Core-Level_A]]
	=== Bestellanforderung mit Positionen anlegen ===		=== Bestellanforderung mit Positionen anlegen ===
	<syntaxhighlight lang="abap" ~~line copy~~>		<syntaxhighlight lang="abap">
	DATA lt_rap_pr_header TYPE TABLE FOR CREATE I_PurchaseRequisitionTP.		DATA lt_rap_pr_header TYPE TABLE FOR CREATE I_PurchaseRequisitionTP.
	DATA lt_rap_pr_items_cba TYPE TABLE FOR CREATE i_purchaserequisitiontp\_purchaserequisitionitem.		DATA lt_rap_pr_items_cba TYPE TABLE FOR CREATE i_purchaserequisitiontp\_purchaserequisitionitem.

M1ch3lde am 17. Januar 2026 um 23:07 Uhr

2026-01-17T23:07:05Z

← Nächstältere Version		Version vom 18. Januar 2026, 01:07 Uhr
Zeile 1:		Zeile 1:
	[[Kategorie:Behavior Definitionen und Implementierungen]]		[[Kategorie:Behavior Definitionen und Implementierungen]]
			[[Kategorie:Clean-Core-Level_A]]
	=== Bestellanforderung mit Positionen anlegen ===		=== Bestellanforderung mit Positionen anlegen ===
	<syntaxhighlight lang="abap" line copy>		<syntaxhighlight lang="abap" line copy>

M1ch3lde am 4. Juni 2025 um 08:36 Uhr

2025-06-04T08:36:42Z

← Nächstältere Version		Version vom 4. Juni 2025, 10:36 Uhr
Zeile 196:		Zeile 196:
	=== Bestellanforderungsposition ändern ===		=== Bestellanforderungsposition ändern ===

	<syntaxhighlight line copy>		<syntaxhighlight lang="abap" line copy>
	DATA lt_read_result TYPE TABLE FOR READ RESULT yc_prmonitor\\prmonitor.		DATA lt_read_result TYPE TABLE FOR READ RESULT yc_prmonitor\\prmonitor.
	DATA ls_read_failed TYPE RESPONSE FOR FAILED EARLY yc_prmonitor.		DATA ls_read_failed TYPE RESPONSE FOR FAILED EARLY yc_prmonitor.
Zeile 271:		Zeile 271:
	=== Bestellanforderungsposition als gelöscht markieren ===		=== Bestellanforderungsposition als gelöscht markieren ===

	<syntaxhighlight line copy>		<syntaxhighlight lang="abap" line copy>
	DATA lt_delete TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\\PurchaseRequisitionItem.		DATA lt_delete TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\\PurchaseRequisitionItem.

Zeile 323:		Zeile 323:
	=== Bestellanforderungsposition Löschkennzeichen zurücknehmen ===		=== Bestellanforderungsposition Löschkennzeichen zurücknehmen ===

	<syntaxhighlight line copy>		<syntaxhighlight lang="abap" line copy>
	DATA lt_undo TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\\PurchaseRequisitionItem.		DATA lt_undo TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\\PurchaseRequisitionItem.

M1ch3lde am 4. Juni 2025 um 08:36 Uhr

2025-06-04T08:36:13Z

← Nächstältere Version		Version vom 4. Juni 2025, 10:36 Uhr
Zeile 1:		Zeile 1:
	[[Kategorie:Behavior Definitionen und Implementierungen]]		[[Kategorie:Behavior Definitionen und Implementierungen]]
	=== Bestellanforderung mit Positionen anlegen ===		=== Bestellanforderung mit Positionen anlegen ===
	<syntaxhighlight line copy>		<syntaxhighlight lang="abap" line copy>
	DATA lt_rap_pr_header TYPE TABLE FOR CREATE I_PurchaseRequisitionTP.		DATA lt_rap_pr_header TYPE TABLE FOR CREATE I_PurchaseRequisitionTP.
	DATA lt_rap_pr_items_cba TYPE TABLE FOR CREATE i_purchaserequisitiontp\_purchaserequisitionitem.		DATA lt_rap_pr_items_cba TYPE TABLE FOR CREATE i_purchaserequisitiontp\_purchaserequisitionitem.

M1ch3lde: /* Bestellanforderung lesen */

2025-06-04T08:22:45Z

Bestellanforderung lesen

← Nächstältere Version		Version vom 4. Juni 2025, 10:22 Uhr
Zeile 185:		Zeile 185:
	</syntaxhighlight>		</syntaxhighlight>

	=== Bestellanforderung lesen ===		=== Bestellanforderung mit Positionen lesen ===
	<syntaxhighlight line copy>		<syntaxhighlight line copy>
			READ ENTITIES OF i_purchaserequisitiontp
			ENTITY purchaserequisitionitem
			FROM VALUE #( ( PurchaseRequisition = ls_opr-banfn
			PurchaseRequisitionItem = ls_opr-bnfpo ) )
			RESULT DATA(lt_pr_items).
	</syntaxhighlight>		</syntaxhighlight>

M1ch3lde am 4. Juni 2025 um 08:21 Uhr

2025-06-04T08:21:14Z

← Nächstältere Version		Version vom 4. Juni 2025, 10:21 Uhr
Zeile 1:		Zeile 1:
	[[Kategorie:Behavior Definitionen und Implementierungen]]		[[Kategorie:Behavior Definitionen und Implementierungen]]
	=== Bestellanforderung anlegen ===		=== Bestellanforderung mit Positionen anlegen ===
	<syntaxhighlight line copy>		<syntaxhighlight line copy>
	DATA lt_rap_pr_header TYPE TABLE FOR CREATE I_PurchaseRequisitionTP.		DATA lt_rap_pr_header TYPE TABLE FOR CREATE I_PurchaseRequisitionTP.

M1ch3lde am 4. Juni 2025 um 08:20 Uhr

2025-06-04T08:20:53Z

@@ Zeile 128: / Zeile 128: @@
          APPEND ls_rap_pr_item_cba TO lt_rap_pr_items_cba.
        ENDIF.
      ENDLOOP.

M1ch3lde: /* Bestellanforderung anlegen */

2025-06-04T08:20:17Z

Bestellanforderung anlegen

Änderungen zeigen

M1ch3lde: /* Bestellanforderung ändern */

2025-06-04T08:19:03Z

Bestellanforderung ändern

@@ Zeile 10: / Zeile 10: @@
 </syntaxhighlight>
-=== Bestellanforderung ändern ===
+=== Bestellanforderungsposition ändern ===
 <syntaxhighlight line copy>
 </syntaxhighlight>

M1ch3lde: Die Seite wurde neu angelegt: „Kategorie:Behavior Definitionen und Implementierungen === Bestellanforderung anlegen === === Bestellanforderung lesen === === Bestellanforderung ändern === === Bestellanforderungsposition als gelöscht markieren === DATA lt_delete TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\…“

2025-06-04T08:17:39Z

Die Seite wurde neu angelegt: „Kategorie:Behavior Definitionen und Implementierungen === Bestellanforderung anlegen === <syntaxhighlight line copy> </syntaxhighlight> === Bestellanforderung lesen === <syntaxhighlight line copy> </syntaxhighlight> === Bestellanforderung ändern === <syntaxhighlight line copy> </syntaxhighlight> === Bestellanforderungsposition als gelöscht markieren === <syntaxhighlight line copy> DATA lt_delete TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\…“

Neue Seite

[[Kategorie:Behavior Definitionen und Implementierungen]]
=== Bestellanforderung anlegen ===
<syntaxhighlight line copy>

</syntaxhighlight>

=== Bestellanforderung lesen ===
<syntaxhighlight line copy>

</syntaxhighlight>

=== Bestellanforderung ändern ===

<syntaxhighlight line copy>

</syntaxhighlight>

=== Bestellanforderungsposition als gelöscht markieren ===

<syntaxhighlight line copy>
DATA lt_delete TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\\PurchaseRequisitionItem.

lt_delete = CORRESPONDING #( keys ).

LOOP AT lt_delete ASSIGNING FIELD-SYMBOL(<ls_delete>).
<ls_delete>-IsDeleted = abap_true.
<ls_delete>-%data-IsDeleted = abap_true.
<ls_delete>-%control-IsDeleted = if_abap_behv=>mk-on.
ENDLOOP.

MODIFY ENTITIES OF i_purchaserequisitiontp
ENTITY PurchaseRequisitionItem UPDATE FROM lt_delete
MAPPED DATA(ls_mapped) REPORTED DATA(ls_reported) FAILED DATA(ls_failed).

IF ls_failed IS INITIAL.
APPEND VALUE #( %msg = new_message( id = ycl_p2p_prmonitor_constants=>cv_message_class
number = '049'
severity = if_abap_behv_message=>severity-success ) )
TO reported-prmonitor.
ELSE.
IF ls_reported-PurchaseRequisitionItem IS NOT INITIAL.
APPEND VALUE #( %msg = new_message_with_text(
severity = ls_reported-PurchaseRequisition[ 1 ]-%msg->m_severity
text = ls_reported-PurchaseRequisition[ 1 ]-%msg->if_message~get_text( ) ) )
TO reported-prmonitor.
ENDIF.

IF ls_reported-PurchaseRequisitionItem IS NOT INITIAL.
LOOP AT ls_reported-PurchaseRequisitionItem ASSIGNING FIELD-SYMBOL(<ls_rep_po_item>).
APPEND VALUE #(
%msg = new_message_with_text(
severity = ls_reported-PurchaseRequisitionItem[ sy-tabix ]-%msg->m_severity
text = ls_reported-PurchaseRequisitionItem[ sy-tabix ]-%msg->if_message~get_text( ) ) )
TO reported-prmonitor.
ENDLOOP.
ENDIF.

APPEND VALUE #( PurchaseRequisition = keys[ 1 ]-PurchaseRequisition
PurchaseRequisitionItem = keys[ 1 ]-PurchaseRequisitionItem )
TO failed-prmonitor.
ENDIF.

LOOP AT keys ASSIGNING FIELD-SYMBOL(<ls_keys>).
APPEND VALUE #( "%cid = <ls_keys>-%cid
PurchaseRequisition = <ls_keys>-PurchaseRequisition
PurchaseRequisitionItem = <ls_keys>-PurchaseRequisitionItem ) TO mapped-prmonitor.
ENDLOOP.
</syntaxhighlight>

=== Bestellanforderungsposition Löschkennzeichen zurücknehmen ===

<syntaxhighlight line copy>
DATA lt_undo TYPE TABLE FOR UPDATE I_PurchaseRequisitionTP\\PurchaseRequisitionItem.

lt_undo = CORRESPONDING #( keys ).

LOOP AT lt_undo ASSIGNING FIELD-SYMBOL(<ls_undo>).
<ls_undo>-IsDeleted = abap_false.
<ls_undo>-%data-IsDeleted = abap_false.
<ls_undo>-%control-IsDeleted = if_abap_behv=>mk-on.
ENDLOOP.

MODIFY ENTITIES OF i_purchaserequisitiontp
ENTITY PurchaseRequisitionItem UPDATE FROM lt_undo
MAPPED DATA(ls_mapped) REPORTED DATA(ls_reported) FAILED DATA(ls_failed).
IF ls_failed IS INITIAL.
APPEND VALUE #( %msg = new_message( id = ycl_p2p_prmonitor_constants=>cv_message_class
number = '044'
severity = if_abap_behv_message=>severity-success ) )
TO reported-prmonitor.
ELSE.
IF ls_reported-PurchaseRequisitionItem IS NOT INITIAL.
APPEND VALUE #( %msg = new_message_with_text(
severity = ls_reported-PurchaseRequisition[ 1 ]-%msg->m_severity
text = ls_reported-PurchaseRequisition[ 1 ]-%msg->if_message~get_text( ) ) )
TO reported-prmonitor.
ENDIF.

IF ls_reported-PurchaseRequisitionItem IS NOT INITIAL.
" TODO: variable is assigned but never used (ABAP cleaner)
LOOP AT ls_reported-PurchaseRequisitionItem ASSIGNING FIELD-SYMBOL(<ls_rep_po_item>).
APPEND VALUE #(
%msg = new_message_with_text(
severity = ls_reported-PurchaseRequisitionItem[ sy-tabix ]-%msg->m_severity
text = ls_reported-PurchaseRequisitionItem[ sy-tabix ]-%msg->if_message~get_text( ) ) )
TO reported-prmonitor.
ENDLOOP.
ENDIF.

APPEND VALUE #( PurchaseRequisition = keys[ 1 ]-PurchaseRequisition
PurchaseRequisitionItem = keys[ 1 ]-PurchaseRequisitionItem )
TO failed-prmonitor.
ENDIF.

LOOP AT keys ASSIGNING FIELD-SYMBOL(<ls_keys>).
APPEND VALUE #( %cid = <ls_keys>-%cid
PurchaseRequisition = <ls_keys>-PurchaseRequisition
PurchaseRequisitionItem = <ls_keys>-PurchaseRequisitionItem ) TO mapped-prmonitor.
ENDLOOP.
</syntaxhighlight>