REGUL TICKETS RESTO

Bonjour,

Vu qu’il y a pas mal de sujet à ce propos, je vais vous mettre une explication de comment procéder :

Dans Paramétrages > Cotisations > Libellé, Ajouter le code TR4 :

Mettre le code :

Begin
//
ValeurTicket =  Mtpart.Tresto
PartSalariale = ETA.TRESTOPARTSALARIALE
arrond = 2
Compte6 = "TRESTO6"
Compte4 = "TRESTO4"


NbTicketRestoRAPPEL = stockvar("TRESTORAPPEL")

If NbTicketRestoRAPPEL <> 0 then
	Bases = NbTicketRestoRAPPEL
	Basep = Bases
	PPRAPPEL = ValeurTicket - (round ( ValeurTicket * ( PartSalariale / 100) ,arrond))
	PSRAPPEL = ValeurTicket - PPRAPPEL
	Liblong = "Rappel Titres-restaurant"
		Tauxs = PSRAPPEL
		Tauxp = PPRAPPEL 
endif

End

Dans Paramétrage > Cotisations > Profil, Ajouter le code TRESTO :

 Mettre le code :

Begin

Include("INIT-TRESTO")

	// Ticket Restaurant
	Exec ("Lcotis_TR")
	// CESU
	Exec ("Lcotis_CESU")

// Cheque vacances
If StockVar("BC-ChqVac-PartPat") <> 0 Then
	Exec("Lcotis_TR1")
EndIf

// Cheque culture
If StockVar("BC-ChqCult-BaseP") <> 0 Then
	Exec("Lcotis_TR2")
EndIf

// TR 4 - RAPPEL
If StockVar("TRESTORAPPEL") <> 0 Then
	Exec("Lcotis_TR4")
EndIf

End

Dans Paramétrage > Primes > Profil, Ajouter le code SAISIETR :

Mettre le code :

Begin

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("INIT-SAISIETR")

Select case Bul.TResto
Case 1:
	//	Qte de Ticket est le nbre de Jours Ouvrés du mois
	NbTicketRestoRAPPEL = Saisie("NbTicketRAPPEL",0)
	If SaisieNbAbs = False Then
		NbTicketResto = Saisie("NbTicket",Bul.NbTicketsResto)
	Else
		NbTicketRestoABS = Saisie("NbTicketEnMoins",NbTicketRestoABS)
		NbTicketResto = Bul.NbTicketsResto - NbTicketRestoABS
	EndIf
Case 2:
	//	Ste de Ticket est à saisir
	NbTicketRestoRAPPEL = Saisie("NbTicketRAPPEL",0)
	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
	NbTicketRestoRAPPEL = Saisie("NbTicketRAPPEL",0)
	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
	// #66953
	If StockVar("BC_Reg-TR") = 1 Then Exec("Pprime_TR")
EndIf


If NbTicketRestoRAPPEL <> 0 then 
	Call Stockevar("TRESTORAPPEL",NbTicketRestoRAPPEL)
	Exec("Lcotis_TR4")
EndIf


End

Les valeurs des parts salariales et patronales seront reprises du montant particulier et du pourcentage salariale indiquée en fiche société. Si les parts salariales et patronales sont à modifiées, il convient de le faire dans le libellé de cotisation créé précédemment.

Cordialement