Calcul automatique TR selon jour ouvré M-1 - les absence mis sur bulletin du mois

Bonjour,

Cette déduction est possible en spécifique seulement.
J’ai constaté que vous avez pu échanger avec nos équipes et le paramétrage a été fait sur le dossier.

Bonjour, 

Oui en effet j’ai pu avoir un retour de Silae.

Merci,

Bonjour,

Pouvez-vous me donner le paramétrage qui a été effectué sur votre dossier s’il vous plait?

Silae nous a fait un paramétrage mais celui-ci ne fonctionne pas et nous avons toujours le décompte qui se fait par rapport au nombre de jours ouvrés de M.

Merci beaucoup pour votre aide

Profil de prime SAISIETR :

Begin

//FDU, 27/01/2025,nb TR = js ouvrés mois préc. - abs mois préc. (sur bulletin en cours) + samedis / jours fériés travaillés
//FDU, 28/01/2025,  : prise en compte du salarié entrant et du salarié sortant
//FDU, 30/01/2025,  : refonte pour les 1/2 jours d'absence
//FDU, 05/02/2025,  : impact des jours fériés avec absence
//FDU, 10/04/2025,  : Déduction repas ou TR
//AA,     20/05/2025,  : ajout stockevar DeducTR

NbTicketResto = 0
NbTicketRestoABS = 0
SaisieNbAbs = False

// Si changement de INIT-SAISIETR, il faut aussi le faire dans INIT-TR pour le libellé de cotisation TR
MaxNbTicketResto = 0

Include("DOMONLY_INIT-SAISIETR")

Select case Bul.TResto
Case 1:
    //    Qte de Ticket est le nbre de Jours Ouvrés du mois
    If SaisieNbAbs = False Then
    //    NbTicketResto = Saisie("NbTicket",Bul.NbTicketsResto)
        datedeb = DateAddMonths (bul.periode, - 1)
        datefin = DateAddDays (bul.periode, - 1)
        If Cumulstockvar(datedeb,datefin,"SALARIEENTRE") = 1 then datedeb = Emp.DtDeb
        TRSup = 0
        If stockvar("PrSamedi1") > 0 then TRSup = TRSup + 1
        If stockvar("PrSamedi2") > 0 then TRSup = TRSup + 1
        If stockvar("PrSamedi3") > 0 then TRSup = TRSup + 1
        If stockvar("PrSamedi4") > 0 then TRSup = TRSup + 1
        If stockvar("PrSamedi5") > 0 then TRSup = TRSup + 1
        If stockvar("PJferie1") > 0 then TRSup = TRSup + 1
        If stockvar("PJferie2") > 0 then TRSup = TRSup + 1
        If stockvar("PJferie3") > 0 then TRSup = TRSup + 1

        JCalAbs = 0
        JrT = datedeb
        Do
            If JrT > datefin then Exit
            Select Case DateDayOfWeek(JrT)
            Case 1,2,3,4,5:
                If NbJCalendairesAbsences(JrT,JrT,"-JFNT-97") = 1 then
                    JCalAbs = JCalAbs + 1
                    If NbJoursFeriesTheoriques(JrT,JrT,1) = 1 then JCalAbs = JCalAbs - 1
                Endif
            Default:
            EndSelect
            JrT = DateAddDays(JrT,+1)
        Loop

call stockevar("JCalAbs",JCalAbs)

        NbTicketResto = NbJOTheoriques(datedeb, datefin) - JCalAbs + TRSup 

        // Entrée ce mois pas de TR car pas de jour ouvré travaillé sur le mois précédent
        If Bul.EntreCeMois = True then
            NbTicketResto = 0
            Call stockevar("SALARIEENTRE",1)
        Endif
        If Bul.SortiCeMois = true then 
            NbTicketResto = NbTicketResto + Bul.NbTicketsResto
            If Bul.EntreCeMois = False then NbTicketResto = NbTicketResto + JCalAbs
        Endif
    
        DeducTR = VariableSaisie2("DeducRepasOuTR")
        If DeducTR <> 0 then NbTicketResto = NbTicketResto - DeducTR
        Call stockevar("DeducTR",DeducTR)        

        ForceNbTicketResto = Saisie("ForceNbTicket",0)
        If ForceNbTicketResto <> 0 then NbTicketResto = ForceNbTicketResto
        If ForceNbTicketResto = -1 then NbTicketResto = 0
    Else
        NbTicketRestoABS = Saisie("NbTicketEnMoins",NbTicketRestoABS)
        NbTicketResto = Bul.NbTicketsResto - NbTicketRestoABS
    EndIf
Case 2:
    //    Ste de Ticket est à saisir
    if EMP.PresencePlageHoraire = true and Emp.ActiviteJournaliere = false then Call SimulerActiviteJournaliereDecoupageMois()
    xx = CalculerValeurDefautActiviteJournaliere("NbTicket")
    NbTicketResto = Saisie("NbTicket",xx)
    Call FinSimulationActiviteJournaliere()
Case 3:
    //    Ste de Ticket est à saisir en repetant le meme nombre de ticket de mois en mois
    NbTicketResto = SaisieM1("NbTicket")
EndSelect

If MaxNbTicketResto <> 0 Then
    If NbTicketResto > MaxNbTicketResto Then NbTicketResto = MaxNbTicketResto
EndIf

If NbTicketResto <> 0 then
    Call Stockevar("TRESTO",NbTicketResto)
    Exec("Pprime_TR")
Else
 
    If StockVar("BC_Reg-TR") = 1 Then Exec("Pprime_TR")
EndIf

Include("DOMONLY_FIN-SAISIETR")

End
 

Et en fonction INIT-TR :

NbTicketResto = Stockvar("TRESTO")
If Stockvar("TRESTO") = 0 then Nbticketauto = 0