ABAP HR : Recupération du salaire Mensuel

-:Général ABAP/HR (2)
-:Général ABAP/MM (8)
-:Général ABAP/SD (5)
-:Général ABAP/FI (4)
-:Général ABAP/PP (1)
-:Général ABAP/QM (0)
-:Général ABAP/BC (6)
-:Général ABAP/CO (1)
-:Général ABAP/HUM (1)
-:SAP Spool (1)

Activité du Site

Pages vues depuis 15/01/2008 : 21 230 939

Nb. de Membres : 2 146
Nb. d'Articles : 80
Nb. de Forums : 10
Nb. de Sujets : 4
Nb. de Critiques : 2

Top 15 Statistiques

Sondage

Anciens Sondages

Votes : 1300
Commentaire(s) : 0

Lettre d'information

Écrit par alpa. Posté le Lundi 11 juin 2012 @ 11:16:14 par Root

Infotype 8 et Routine de Recup du Salaire mensuel.

*&      Form  salaire
*&--------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LGART    text
*----------------------------------------------------------------------*
FORM salaire USING p_lgart
             CHANGING p_salaire.

  DATA : lgart LIKE q0008-lgart VALUE '1000'. "rubrique 1000 appointements
  DATA : num(2) TYPE n.
  DATA : BEGIN OF repet,
         lga LIKE p0008-lga01,
         bet LIKE p0008-bet01,
         anzhl LIKE p0008-anz01,"ajout
       END OF repet.

  CLEAR num.
  CLEAR repet.
  DO 20 TIMES VARYING repet FROM p0008-lga01 NEXT p0008-lga02.
    num = num + 1.
    IF p_lgart = '1000'.
      CASE repet-lga.
        WHEN  '1000' OR  '1006' OR '1035'.
          UNPACK repet-bet TO p_salaire.   "salaire mensuel
*          IF NOT p_salaire IS INITIAL.
**            p_salaire = p_salaire * p0008-bsgrd / 100.
*            *            p_salaire = p_salaire * p0008-bsgrd / 100.
*            CONCATENATE p_salaire(7) p_salaire+7 INTO p_salaire.
*          ENDIF.
        WHEN OTHERS.
      ENDCASE.
    ELSEIF p_lgart = '1120'.
      CASE repet-lga.
        WHEN '1120'.
          UNPACK repet-bet TO p_salaire.   "salaire mensuel
*          IF NOT p_salaire IS INITIAL.
*            p_salaire = p_salaire * p0008-bsgrd / 100.
*            CONCATENATE p_salaire(7) p_salaire+7 INTO p_salaire.
*          ENDIF.
        WHEN OTHERS.
      ENDCASE.
    ENDIF.

  ENDDO.
ENDFORM.                    "salaire

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:

"ABAP HR : Recupération du salaire Mensuel" | Se connecter / Créer un compte | 0 Commentaire