Ansicht
Dokumentation

EXIT_RPCAVTD0_700 - Conversion of Data Fields

Addresses (Business Address Services)   General Data in Customer Master  
This documentation is copyright by SAP AG.

In this customer exit, you can convert data fields in the transparent database tables P01CVH, P01CVD, and P01CVR to the data structure of the corresponding field in the interface structure for the data medium to be sent to the assessor.

Note that the names of the fields in your interface structure and the the corresponding fields in tables P01CVH, P01CVD, and P01CVR must match.

You want to unpack the amount field P01CVD-ANWRT, which exists in a packed data format, and transfer it to the ANWRT field in your interface structure with leading zeros. You also want to store the plus/minus sign in the last position of the field.

To map this requirement, include the following coding passage in this customer exit:

data: L_FELDWERT_KON(20).
L_FELDWERT_KON = E19_FELDWERT_KON.
clear: E19_FLAG_KONV,
E19_FELDWERT_KON.
case I19_FELDNAME.
when 'ANWRT'.
L_FELDWERT_KON(9) = I19_FELDWERT * 100.
* Plus/minus sign at the end of the field
IF I19_FELDWERT GT 0.
TRANSLATE L_FELDWERT_KON+8(1) USING ' +'.
ELSEIF I19_FELDWERT LT 0.
TRANSLATE L_FELDWERT_KON+8(1) USING ' -'.
ENDIF.
* Insert leading zeros
TRANSLATE L_FELDWERT_KON(8) USING ' 0'.
E19_FLAG_KONV = MARKED.
endcase.
E19_FELDWERT_KON = L_FELDWERT_KON.

Parameters

EEX700_FELDWERT_KON
EEX700_FLAG_KONV
EEX700_LTRGR_KEY
IEX700_FELDNAME
IEX700_FELDWERT

Exceptions

Function Group

XAV1

CL_GUI_FRONTEND_SERVICES - Frontend Services   ABAP Short Reference  
This documentation is copyright by SAP AG.

Length: 1646 Date: 20240523 Time: 071828     sap01-206 ( 32 ms )