Ansicht
Dokumentation
ISU_SAMPLE_R983 - IS-U ABP: Bestimmung der Zahlsperre
BAL Application Log Documentation BAL Application Log DocumentationDiese Dokumentation steht unter dem Copyright der SAP AG.
Funktionalität
Mit dieser Erweiterung können Sie ermitteln, ob für die Abschlagspositionen durch Auswertung der Tabelle TFK_PAYMENTREL (Zahlungsfreigabe Auszahlungen) eine Zahlsperre gesetzt werden soll oder nicht. Wenn für eine Abschlagsposition eine Zahlsperre gesetzt werden soll, muss für diese Position das Feld L_SPZAH markiert werden.
Wenn eine Position so geändert wurde, muss das Feld Y_SPZAH_SET ebenfalls markiert werden.
Beispiel
DATA: LT_R983 TYPE ISU25_T_R983_DATA,
L_R983 TYPE ISU25_R983_DATA,
L_EABPS LIKE EABPS,
L_OBJ TYPE ISU25_BUDBILPLAN.
DATA: T_TFK_PAYMENTREL LIKE TFK_PAYMENTREL
OCCURS 10 WITH HEADER LINE.
loop at xy_op_abp into l_r983
where op-betrw < 0.
READ TABLE T_TFK_PAYMENTREL INDEX 1.
IF SY-SUBRC <> 0.
SELECT * FROM TFK_PAYMENTREL INTO TABLE T_TFK_PAYMENTREL.
SELECT * FROM TFK_PAYMENTREL INTO TABLE T_TFK_PAYMENTREL.
LOOP AT T_TFK_PAYMENTREL.
T_TFK_PAYMENTREL-BETRW = T_TFK_PAYMENTREL-BETRW * ( -1 ).
MODIFY T_TFK_PAYMENTREL.
ENDLOOP.
SORT T_TFK_PAYMENTREL BY BUKRS DESCENDING
BLART DESCENDING
WAERS DESCENDING
BETRW DESCENDING.
endif.
READ TABLE T_TFK_PAYMENTREL INDEX 1.
*-is there any customizing?
IF SY-SUBRC = 0.
LOOP AT T_TFK_PAYMENTREL
WHERE BUKRS = l_r983-op-BUKRS
AND BLART = X_OBJ-ifkkko-BLART
AND WAERS = l_r983-op-WAERS
AND BETRW >= l_r983-op-BETRW.
ENDLOOP.
IF SY-SUBRC = 0.
* Auszahlungssperre setzen
l_r983-l_spzah = T_TFK_PAYMENTREL-LOCKR.
if Y_SPZAH_SET is initial.
Y_SPZAH_SET = 'X'.
endif.
modify xy_op_abp from l_r983.
endif.
else.
exit.
endif.
endloop.
Weiterführende Informationen
Parameter
XY_OP_ABPX_OBJ
Y_SPZAH_SET
Ausnahmen
NOT_FOUNDFunktionsgruppe
E25PTXBHW - Original Tax Base Amount in Local Currency Addresses (Business Address Services)
Diese Dokumentation steht unter dem Copyright der SAP AG.
Length: 2728 Date: 20240523 Time: 142324 sap01-206 ( 37 ms )