[Général]
Date=20211203110100
Auteur=LDSysteme
Version=1.00
IF=val(jversionexe)>10 ou (val(jversionexe)=10 _et_ val(jniveauexe)>=226)
[Variables]
RU.0200HS(Nouvelle rubrique - Déclaration Hrs Suppl 12-2020) = "0200HS"/I
FP.DHSE20(Nouvelle fonction personnalisée) = "DHSE20"/I
RU.5900(Rubrique modèle) = "5900"/E

[FP.DHSE20]
IF = PAS FP.DHSE20
LBFO = "Décla. Hrs Supp Exo 12-20"
SRCE = [
// Cette fonction calcule le montant 
// des heures supplémentaires exonérées de décembre 2020,
// l'objectif étant de créer un élément variable pour les déclarer en bloc 51.026 en janvier 2022
// La régularisation n'est faite que si le salarié a un même contrat entre décembre 2020 et le mois courant.

// Si le bulletin courant est calculé sans reprise des cumuls antérieurs (premier bulletin d'un contrat), pas de régularisation
SI fIgnorerCumulsAntérieurs ALORS RENVOYER 0

// On balaye les bulletins antérieurs, en remontant soit jusqu'à 12/2020, soit jusqu'à un bulletin calculé sans reprise des cumuls antérieurs
HeuresSupDécembre2020 est un réel
PosCAENBU est un entier = HSauvePosition(CAENBU)
HLitRecherchePremier(CAENBU,"KENBU",[PEPERS.COSO,PEPERS.NPPE,pMoisPaye,pNOBU])
HLitPrécédent(CAENBU,"KENBU")
TANTQUE PAS HEnDehors(CAENBU)
	// On s'arrête si on n'est plus sur le salarié courant ou si on est remonté au-delà de décembre 2020
	SI CAENBU.COSO<>PEPERS.COSO OU CAENBU.NPPE<>PEPERS.NPPE OU CAENBU.MPAY<"202012" ALORS SORTIR
	// Si on est en décembre et que décembre a été payé en janvier 2021, on lit le cumul des heures sup exonérées (en brut)
	SI CAENBU.MPAY="202012" _ET_ CAENBU.DARG >= "20210101" ALORS
		SI HLitRecherchePremier(CACUMU,"KCUMU",[PEPERS.COSO,PEPERS.NPPE,"BRNFIM",CAENBU.MPAY,CAENBU.NOBU]) ALORS
			HeuresSupDécembre2020+=CACUMU.VACU
		FIN
	FIN
	// On s'arrête là si on est arrivé sur un bulletin qui avait été calculé sans l'option "Reprise des cumuls antérieurs"
	SI PAS CAENBU.RCPP ALORS SORTIR
	HLitPrécédent(CAENBU,"KENBU")
FIN
HRetourPosition(PosCAENBU)

// On régularise la CSG sur le montant des heures supplémentaires de décembre
SI HeuresSupDécembre2020 > 0 ALORS
	CAELVA.DTDB = "20210107"
	CAELVA.DTFI = "20211207"
FIN


RENVOYER HeuresSupDécembre2020
]

[RU.0200HS]
LIBE="Déclaration Hrs Suppl 12/2020"
SUSP=0
EDQT="11100"
EDBU="N"
CPCP=""
DIVI=0
TYEL="R"
CFRU="999"
LBMT="N"
SENS="G"
UNIT="M"
DBRS="R"
SABA="O"
SOIS="N"
CFTX=0
AMON="FP"
NMON=FP.DHSE20
CCRU="00"
MOCA="00"
CLNU=0
PROV="N"
QUTT="02"
MCVA=1
COLS="001"

[RU.0200HS/PR]
CPY = RU.5900

[RU.0200HS/DN.51.026]

[RU.0200HS/IF.1]
NLCD = 1
ACCD = "1"
GRCD = ""
COP1 = "MA"
NOP1 = ""
TEST = "EQ"
COP2 = "VA"
NOP2 = "202201"