Version 11

Modification de I_ICP

La formule ne prenait pas en compte l'histo du contrat en changement de situation dans le mois de paye en cours

Avant

DECLARER(MEMB)
AFFECTER(MEMB;CONSTANTE(CONTRAT.MOIS_EMBAUCHE))
DECLARER(AEMB)
AFFECTER(AEMB;CONSTANTE(CONTRAT.ANNEE_EMBAUCHE))
DECLARER(MPAYE)
AFFECTER(MPAYE;CONSTANTE(GENERAL.MOIS_PAYE))
DECLARER(APAYE)
AFFECTER(APAYE;CONSTANTE(GENERAL.ANNEE_PAYE))
SI(
    CONSTANTE(CONTRAT.PAIEMENTCP)=
    (0))
  ALORS(0)
  SINON(
      SI(
        CONSTANTE(CONTRAT.PAIEMENTCP)=2)
      ALORS(
        HISTOCumulsitu([B_ICP.MONTANT];:MEMB;:AEMB;:MPAYE;:APAYE)+([B_ICP.MONTANT])-
        HISTOCumulsitu([I_ICP.BASE];:MEMB;:AEMB;:MPAYE;:APAYE))
      SINON(
          SI(
            CONSTANTE(CONTRAT.CLOTURE)=1)
          ALORS(
            HISTOCumulsitu([B_ICP.MONTANT];:MEMB;:AEMB;:MPAYE;:APAYE)+
            ([B_ICP.MONTANT])-
            HISTOCumulsitu([I_ICP.BASE];:MEMB;:AEMB;:MPAYE;:APAYE))
          SINON(0)))

Après

SI(
    CONSTANTE(CONTRAT.PAIEMENTCP)=
    (0))
  ALORS(0)
  SINON(
      SI(
        CONSTANTE(CONTRAT.PAIEMENTCP)=2)
      ALORS(
        HISTOCumulsitu([B_ICP.MONTANT];1,1980)+([B_ICP.MONTANT])-
        HISTOCumulsitu([I_ICP.BASE];1,1980))
      SINON(
          SI(
            CONSTANTE(CONTRAT.CLOTURE)=1)
          ALORS(
            HISTOCumulsitu([B_ICP.MONTANT];1,1980)+
            ([B_ICP.MONTANT])-
            HISTOCumulsitu([I_ICP.BASE];1,1980))
          SINON(0)))