4 visiteur(s) et 0 membre(s) en ligne. Devenez membre privilégié en cliquant ici
vendredi 29 mars 2024
Article du Jour
Il n'y a pas encore d'Article du Jour.
Activité du Site
Pages vues depuis 15/01/2008 : 20 726 515
  • Nb. de Membres : 2 132
  • Nb. d'Articles : 80
  • Nb. de Forums : 10
  • Nb. de Sujets : 4
  • Nb. de Critiques : 2

Top 15  Statistiques

Sondage

Intéresser par
 ABAP
 Aministration SAP
 Autorisation-Securité
 SAP BW
 SAP Webdynpro,BSP...
 SAP Fonctionnel
 Autres...

  Results, Résultats


  • Votes : 1270
  • Commentaire(s) : 0
Lettre d'information


Votre adresse E-mail



Recevez par mail les nouveautés du site.

SAP REFX : BAPI_RE_NOTICE_CREATE

Écrit par alpa. Posté le Jeudi 03 janvier 2013 @ 11:02:54 par Root
BAPI_RE_NOTICE_CREATE et résiliation de contrat.

 *&---------------------------------------------------------------------*
*&      Form  RESILIATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM resiliation .

  DATA: xnotice   TYPE TABLE OF bapi_re_cn_notice_dat,
        ls_notice LIKE LINE OF xnotice.

  DATA: xreturn   TYPE TABLE OF bapiret2,
        ls_return LIKE LINE OF xreturn.

  DATA: l_tabix LIKE sy-tabix,
        l_error(1).

  CLEAR ls_result.

  LOOP AT xresult INTO ls_result.

    IF ls_result-id     = '@0A@'.
      CLEAR ls_result. CONTINUE.
    ENDIF.

    l_tabix = sy-tabix.

    CLEAR: xnotice[], xreturn[].

    ls_notice-notice_number            = '0001'.
    ls_notice-notice_subject           = 'C'.
    ls_notice-notice_is_active         = 'X'.
    ls_notice-notice_date              = ls_result-notice_date.
    ls_notice-notice_receipt_date      = ls_result-notice_receipt_date.
    ls_notice-notice_reason            = ls_result-notice_reason.
    ls_notice-notice_reason_rejection  = '00'.
    ls_notice-notice_request_date      = ls_result-notice_request_date.

    APPEND ls_notice TO xnotice.

    CALL FUNCTION 'BAPI_RE_NOTICE_CREATE'
      EXPORTING
        compcode       = p_bukrs
        contractnumber = ls_result-recnnr
      TABLES
        notice         = xnotice
        return         = xreturn.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.


    DELETE xreturn WHERE type = 'W' OR type = 'I'.


* On fait un Sort pour avoir les 'E' en premier.
    SORT xreturn BY type DESCENDING.

    LOOP AT xreturn INTO ls_return.

      IF ls_return-type = 'E'.
        l_error = c_x.
      ENDIF.

* Ici c'est pour tous les cas avec une ligne erronée
      IF l_error = c_x.
        ls_result-id = 
'@0A@'.
      ENDIF.

      IF sy-tabix = 1.
        ls_result-type    = ls_return-type.
        ls_result-message = ls_return-message.
        APPEND ls_result TO xresult_f.
      ELSE.

        CLEAR: ls_result-notice_date,
               ls_result-notice_receipt_date,
               ls_result-notice_reason,
               ls_result-notice_request_date.

        ls_result-type    = ls_return-type.
        ls_result-message = ls_return-message.

        APPEND ls_result TO xresult_f.

      ENDIF.
    ENDLOOP.

    CLEAR: ls_result.

  ENDLOOP.


  CLEAR: xresult[].

  xresult[] = xresult_f[].

ENDFORM.                    " RESILIATION



Liens Relatifs



    L'Article le plus lu à propos de ABAP :


    Les dernières nouvelles à propos de ABAP :

    Page Spéciale pour impression  Envoyer cet Article à un ami 



    Lien Google:

    "SAP REFX : BAPI_RE_NOTICE_CREATE" | Se connecter / Créer un compte | 0 Commentaire
    Seuil

    Les Commentaires sont la propriété de leurs auteurs. Nous ne sommes pas responsables de leur contenu.


    Login Utilisateur

    Identifiant

    Mot de Passe


    Vous n'avez pas encore de compte personnel ? Partager votre expérience et Inscrivez vous.