SAP REFX: Module fonction ABAP : API_RE_CN_CHANGE

Écrit par Anonyme. Posté le Samedi 15 décembre 2012 @ 10:48:48 par Root

Un Module fonction permettant la mise a jour de vos contrats dans le module SAP RE-FX

Mise à jour et ajout de partner à un contrat.

*&---------------------------------------------------------------------*
*& Form UPDATE_CONTRAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LS_CI_VICNCN text
*----------------------------------------------------------------------*
FORM update_contrat USING pw_file STRUCTURE wt_file
CHANGING plt_partner TYPE bapi_re_t_partner_int.

DATA : ls_partner TYPE bapi_re_partner_int.
DATA : ls_partner_new TYPE bapi_re_partner_int,
lt_partner_new TYPE bapi_re_t_partner_int.
DATA: wt_partner TYPE bapi_re_t_partner_intc,
ws_partner TYPE bapi_re_partner_intc.

CLEAR : ls_partner ,ls_partner_new,lt_partner_new,wt_partner.
!refresh! : lt_partner_new.

*Règles de gestion MAJ date partner existant/Ajout du nouveau partner
LOOP AT plt_partner INTO ls_partner.
IF ls_partner-role = pw_file-role.
ls_partner-validto = sy-datum - 1.
MODIFY plt_partner FROM ls_partner.
MOVE-CORRESPONDING ls_partner TO ws_partner.
ws_partner-changeind = 'U'.
APPEND ws_partner TO wt_partner.
CLEAR ws_partner.
ELSE.
MOVE-CORRESPONDING ls_partner TO ws_partner.
APPEND ws_partner TO wt_partner.
CLEAR ws_partner.
ENDIF.
ENDLOOP.
CLEAR ws_partner.
ws_partner-role = pw_file-role.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = pw_file-partner
IMPORTING
output = pw_file-partner.
ws_partner-partner = pw_file-partner.
ws_partner-validfrom = sy-datum.
ws_partner-validto = '99991231'.
ws_partner-changeind = 'I'.
APPEND ws_partner TO wt_partner.
SORT wt_partner BY role ASCENDING.

CALL FUNCTION 'API_RE_CN_CHANGE'
EXPORTING
id_bukrs = p_bukrs
id_recnnr = wv_contrat
it_partner = wt_partner
EXCEPTIONS
error = 1
OTHERS = 2.

IF sy-subrc = 0.
COMMIT WORK AND WAIT.
WRITE:/ wv_contrat, text-l01.
ELSE.
WRITE:/ wv_contrat, text-l02.
ENDIF.

Liens Relatifs

L'Article le plus lu à propos de ABAP :

Utilitaire ABAP : Chargement/Déchargement dynamique d' une Table.

Les dernières nouvelles à propos de ABAP :

Lien Google:

"SAP REFX: Module fonction ABAP : API_RE_CN_CHANGE" | Se connecter / Créer un compte | 0 Commentaire