Version 95

• version 1
• Version 2
• Version 3

version 1

Modification des bases de cotisation des cotisations APEC

APEC_TRA

Base cotisation BC_TRA_RET_C - > BC_TR_A_URSAFF

APEC_TRB

Base cotisation BC_TRB_RET_C - > BC_TR_B_URSAFF

Création des rubriques APECITA

APECITA_TRA

APECITA_TRB

Version 2

Modification de la fonction F_RGDU pour le calcul des assistantes familiales

Avant

declarer (FORFAITJOUR)
affecter (FORFAITJOUR;si (CONSTANTE(CONTRAT.SITUATIONHORAIRE)=4)
                      alors (1)
                      sinon (0)
	  )
declarer (AD)
affecter (AD;si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
             alors (1)
             sinon (0)
	  )
declarer (NBHEURES)
affecter (NBHEURES;si (:AD=1)
                  alors ([AD_HNEXO.BASE])
                  sinon (
                        si (:FORFAITJOUR=1)
                        alors (0)
                        sinon (CONSTANTE(CONTRAT.HORAIREMENSUEL))
                        )
          )
declarer (NBJOURS)
affecter (NBJOURS;si ((:FORFAITJOUR=0) ou (:AD=1))
			alors (0)
			sinon (CONSTANTE(CONTRAT.JOUR_FORFAIT))
          )

declarer (HSUP)
affecter (HSUP;si (:AD=1)
               alors([AGCP_HREMUPLUS.MONTANT]*[AD_HNEXO.BASE]/([AD_HNEXO.BASE]+[AD_HEXO.BASE]))
               sinon ([AGCP_HREMUPLUS.MONTANT])
	  )
declarer (HORBASE)
affecter (HORBASE;si ([AGCPHORAN.BASE]=0)
                  alors (
			si (LISTEGEN(TPSAN;CONSTANTE(CONTRAT.CATPERSO))=0)
			alors (1607)
			sinon (LISTEGEN(TPSAN;CONSTANTE(CONTRAT.CATPERSO)))
			)
		  sinon ([AGCPHORAN.BASE])
	  )
declarer (HEXO)
affecter (HEXO;si (:AD=1)
               alors ([AD_HEXO.BASE])
               sinon (0)
         )
declarer (PPV)
affecter (PPV;[P_PPVEXO.MONTANT]+[P_PPVNONEXO.MONTANT])
declarer (ANNEE)
affecter (ANNEE;si ([PLAFONDSECU.NUMCAS]=2)
                alors (CONSTANTE(CONTRAT.ANNEE_CLOTURE))
                sinon (CONSTANTE(GENERAL.ANNEE_PAYE)))
declarer (MOIS)
affecter (MOIS;si ([PLAFONDSECU.NUMCAS]=2)
                alors (CONSTANTE(CONTRAT.MOIS_CLOTURE))
                sinon (CONSTANTE(GENERAL.MOIS_PAYE)))

rgdu(TYPEMONTANT;
    :ANNEE;
    :MOIS;
    CONSTANTE(GENERAL.FNAL010);
    :NBHEURES;
    :NBJOURS;
    :HSUP;
    [AGCPITREMU.MONTANT];
    [AGCP_NUMHREMU.MONTANT];
    [B_PXHEURE.MONTANT];
    :HORBASE;
    :AD;
    :HEXO;
    :PPV)

Après

declarer (FORFAITJOUR)
affecter (FORFAITJOUR;si (CONSTANTE(CONTRAT.SITUATIONHORAIRE)=4)
                      alors (1)
                      sinon (0)
	  )
declarer (AD)
affecter (AD;si (CONSTANTE(CONTRAT.TYPESALARIE)=5)
             alors (1)
             sinon (0)
	  )
declarer (NBHEURES)
affecter (NBHEURES;si (:AD=1)
                  alors ([AD_HNEXO.BASE])
                  sinon (
                        si (:FORFAITJOUR=1)
                        alors (0)
                        sinon (si (CONSTANTE(CONTRAT.TYPESALARIE)=3)
                               alors (CONSTANTE(CONTRAT.HORAIRECOLLECTIF))
                               sinon (CONSTANTE(CONTRAT.HORAIREMENSUEL))
                              )
                        )
          )
declarer (NBJOURS)
affecter (NBJOURS;si ((:FORFAITJOUR=0) ou (:AD=1))
			alors (0)
			sinon (CONSTANTE(CONTRAT.JOUR_FORFAIT))
          )

declarer (HSUP)
affecter (HSUP;si (:AD=1)
               alors([AGCP_HREMUPLUS.MONTANT]*[AD_HNEXO.BASE]/([AD_HNEXO.BASE]+[AD_HEXO.BASE]))
               sinon ([AGCP_HREMUPLUS.MONTANT])
	  )
declarer (HORBASE)
affecter (HORBASE;si ([AGCPHORAN.BASE]=0)
                  alors (
			si (LISTEGEN(TPSAN;CONSTANTE(CONTRAT.CATPERSO))=0)
			alors (1607)
			sinon (LISTEGEN(TPSAN;CONSTANTE(CONTRAT.CATPERSO)))
			)
		  sinon ([AGCPHORAN.BASE])
	  )
declarer (HEXO)
affecter (HEXO;si (:AD=1)
               alors ([AD_HEXO.BASE])
               sinon (0)
         )
declarer (PPV)
affecter (PPV;[P_PPVEXO.MONTANT]+[P_PPVNONEXO.MONTANT])
declarer (ANNEE)
affecter (ANNEE;si ([PLAFONDSECU.NUMCAS]=2)
                alors (CONSTANTE(CONTRAT.ANNEE_CLOTURE))
                sinon (CONSTANTE(GENERAL.ANNEE_PAYE)))
declarer (MOIS)
affecter (MOIS;si ([PLAFONDSECU.NUMCAS]=2)
                alors (CONSTANTE(CONTRAT.MOIS_CLOTURE))
                sinon (CONSTANTE(GENERAL.MOIS_PAYE)))

rgdu(TYPEMONTANT;
    :ANNEE;
    :MOIS;
    CONSTANTE(GENERAL.FNAL010);
    :NBHEURES;
    :NBJOURS;
    :HSUP;
    [AGCPITREMU.MONTANT];
    [AGCP_NUMHREMU.MONTANT];
    [B_PXHEURE.MONTANT];
    :HORBASE;
    :AD;
    :HEXO;
    :PPV)

Version 3

Anomalie calcul allocation familiale pour ZRR

ALLOCFAM.TXEMP

Avant

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))
            )
      )

Après

declarer (MTAV2025)
affecter (MTAV2025;
               si (
                  (([V_NEWAGCP.CUMREMUAF]) >  ([V_NEWAGCP.TXSMICAF]*[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

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)
      )

Après

declarer (MTAV2025)
affecter (MTAV2025;
               si (
                  (([V_NEWAGCP.CUMREMUAF]) >  ([V_NEWAGCP.TXSMICAF]*[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)
      )