Version 14

Pour l'aide à domicile

BC_MALCOMP25

Avant

declarer (REMU)
affecter (REMU;si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
               alors ([AGCPITREMU.MONTANT]*[AD_HNEXO.BASE]/([AD_HEXO.BASE]+[AD_HNEXO.BASE]))
               sinon ([BC_BRUT_URSAFF.MONTANT])
         )
si (CONSTANTE(GENERAL.ANNEE_PAYE)>=2026)
alors (
      :remu
      )
sinon (
      si (([PLAFONDSECU.NUMCAS]=2) et (CONSTANTE(CONTRAT.ANNEE_CLOTURE)<2026))
      alors (
            si (
               (([V_NEWAGCP.CUMREMUAF]) >  ([V_NEWAGCP.TXSMICMAL]*[V_NEWAGCP.CUMSMICPRO3112]))
               et ([V_NEWAGCP.CUMREMUAF]>0)
               et ([V_NEWAGCP.CUMSMICPRO3112]>0)
               )
            alors (
                  f_histoclotsit([BC_BRUT_URSAFF.MONTANT])+ [BC_BRUT_URSAFF.MONTANT]
                  - f_histoclotsit([BC_MALCOMP25.MONTANT])
                  )
            sinon (
                  f_histoclotsit([BC_MALCOMP25.MONTANT])*(-1)
                  )
            )
      sinon (:remu)
      )

Après

sideclarer (BANDEAU)
affecter (BANDEAU;([PLAFONDSECU.NUMCAS]=2) et (CONSTANTE(CONTRAT.ANNEE_CLOTURE)<2026)
         et (CONSTANTE(CONTRAT.TYPESALARIE)<>5)
         )
si ((:BANDEAU=1) OU ([AGCPEXO.BASE]=1))
alors (
      si (
         (([V_NEWAGCP.CUMREMUAF]) >  ([V_NEWAGCP.TXSMICMAL]*[V_NEWAGCP.CUMSMICPRO3112]))
         et ([V_NEWAGCP.CUMREMUAF]>0)
         et ([V_NEWAGCP.CUMSMICPRO3112]>0)
         )
      alors (
            f_histoclotsit([BC_BRUT_URSAFF.MONTANT])+ [BC_BRUT_URSAFF.MONTANT]
            - f_histoclotsit([BC_MALCOMP25.MONTANT])
            )
      sinon (
            f_histoclotsit([BC_MALCOMP25.MONTANT])*(-1)
            )
      )
sinon ( si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
      alors ([BC_BRUT_ADNEXO.MONTANT])
      sinon ([BC_BRUT_URSAFF.MONTANT])
      )

Pour allocFAM pas besoin de la modifier

ALLOCFAMREDUIT.TXEMP

Avant

si (([PLAFONDSECU.NUMCAS]=2) et (CONSTANTE(CONTRAT.ANNEE_CLOTURE)<2026))
alors (
      si (
         (([V_NEWAGCP.CUMREMUAF]) >  ([V_NEWAGCP.TXSMICMAL]*[V_NEWAGCP.CUMSMICPRO3112]))
         et ([V_NEWAGCP.CUMREMUAF]>0)
         et ([V_NEWAGCP.CUMSMICPRO3112]>0)
         )
      alors (0)
      sinon (LISTEGEN(TX_ALLOCF;0002))
      )
sinon (0)

Après

si (([PLAFONDSECU.NUMCAS]=2) et (CONSTANTE(CONTRAT.ANNEE_CLOTURE)<2026))
alors (
      si (
         (([V_NEWAGCP.CUMREMUAF]) >  ([V_NEWAGCP.TXSMICMAL]*[V_NEWAGCP.CUMSMICPRO3112]))
         et ([V_NEWAGCP.CUMREMUAF]>0)
         et ([V_NEWAGCP.CUMSMICPRO3112]>0)
         )
      alors (0)
      sinon (LISTEGEN(TX_ALLOCF;0002))
      )
sinon ( si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
        alors (LISTEGEN(TX_ALLOCF;0002))
        sinon (0)
       )