Bonjour,
Je dois proratisé l’acquisition des RTT en fonction des absences sauf codes absence 95, 12, 15, 90,91,92,93 et 97.
Voici ce que j’ai écris :
CumNbJAbs = 0
CumNbJAbs = NbJCalendairesAbsences(Bul.Periode, Bul.Date, "09+15+19+45+44+24+08+26+04+11+20+10+64+05+06+01+13+14+52+33+32+63+65+07+03+02+22+23+27+94+38+96+98+72+70+71+79+96+54+16+88+69+17+98+99+21+62+88+86+87+80+81+25+31+79+39")
//Sauf 95-Evénement familial, 12-congés payés, 15-férié chomé, 90-RTT, 91-92-93-Repos compensateur, 97-Représentation des salariés
If CumNbJAbs >= 2 And CumNbJAbs < 10 Then Call AjouteRTTAcquis ( -0.5 )
If CumNbJAbs >= 10 Then Call AjouteRTTAcquis ( -1 )
// --- Si le salarié est entré ce mois ----
// Entré ce mois : 0.5 JRTT jusqu'au 14 du mois
// Aucun RTT si entré à partir du 15
If Bul.EntreCeMois = True Then
MonJour = DateDay(Sal.DateEntree)
MonMois = DateMonth(Sal.DateEntree)
If MonJour > 14 Then
Call AjouteRTTAcquis ( - Bul.RTTJOURSACQUIS + 12 - Bul.Mois )
Else
Call AjouteRTTAcquis ( - Bul.RTTJOURSACQUIS + 12 - Bul.Mois +0.5 )
EndIf
EndIf
Cela fonctionne bien si ce n’est que je souhaite n’enlevé que les jours ouvrés notamment en ce qui concerne les arrêts de travail qui sont actuellement enlevés en calendaire.
Comment puis-je faire ?
Merci pour votre aide