FC	MAINTIENJ
Prendre le salaire rétabli sans abattement ni RS
NE prendre qu'une partie mensuelle du 13e mois (acs 13e mois versé en 1 fois)
-----------------------------

begin

MoisFin = DateAddMonths(date(1,datemonth(abs.dtdeb),dateyear(abs.dtdeb)),-1)
MoisDebut = DateAddMonths(MoisFin, -Ste.MethodeCalculMaintienNbM + 1)
Call CumP_FixePeriode2(MoisDebut, MoisFin, true)

M1 = 0
M2 = 0
bs = 0.0
ts = 0.0
rs = 0.0
bp = 0.0
tp = 0.0
rp = 0.0
Call CumulLignesSalarie(1,"","D05",MoisDebut, MoisFin,bs,ts,rs,bp,tp,rp)
M1 = rs
M2 = M1 / 12

v = cumulstockvar(MoisDebut, MoisFin, "SRETASRSSA") - M1 + M2
n = CumP_SalairesRetablisNombreMois(AffectationDADS)

x = 0.0

if n <> 0 then x = v / (n * 30.42)

ValeurJourMaintien = x

end