Version 14

Pour l'aide à domicile

BC_MALCOMP25 et la ZRR

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

declarer (MTAV2025)
affecter (MTAV2025;
         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)
               )
         )
si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
alors ([BC_BRUT_ADNEXO.MONTANT])
sinon (
      si ([AGCPEXO.BASE]=1)
      alors (
            :MTAV2025
            )
      sinon (
            si (([PLAFONDSECU.NUMCAS]=2) et  (CONSTANTE(CONTRAT.ANNEE_CLOTURE)<2026))
            alors ( :MTAV2025)
            sinon ( [BC_BRUT_URSAFF.MONTANT])
            )
      )

ALLOCFAM.TXEMP

Avant

Après

declarer (MTAV2025)
affecter (MTAV2025;
               si (
                  (([V_NEWAGCP.CUMREMUAF]) >  ([V_NEWAGCP.TXSMICMAL]*[V_NEWAGCP.CUMSMICPRO3112]))
                   et ([V_NEWAGCP.CUMREMUAF]>0)
                   et ([V_NEWAGCP.CUMSMICPRO3112]>0)
                  )
               alors (LISTEGEN(TX_ALLOCF;0001))
               sinon (0)
         )
si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
alors (LISTEGEN(TX_ALLOCF;0001))
sinon (
      si ([AGCPEXO.BASE]=1)
      alors (
            :MTAV2025
            )
      sinon (
            si (([PLAFONDSECU.NUMCAS]=2) et  (CONSTANTE(CONTRAT.ANNEE_CLOTURE)<2026))
            alors ( :MTAV2025)
            sinon (LISTEGEN(TX_ALLOCF;0001))
            )
      )

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

declarer (MTAV2025)
affecter (MTAV2025;
               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))
         )
si ([AGCPEXO.BASE]=1)
alors (
      si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
      alors (
            LISTEGEN(TX_ALLOCF;0002)
            )
      sinon (
            :MTAV2025
            )
      )
sinon (
      si (([PLAFONDSECU.NUMCAS]=2) et  (CONSTANTE(CONTRAT.ANNEE_CLOTURE)<2026))
      alors ( :MTAV2025)
      sinon (0)
      )