if BL_RESCISAO == 1 then
aux_fer_nm =0
aux_venc=0
aux_fer_prop= 0
if DT_DEMISSAO ~= 0 then
if dia(DT_DEMISSAO) >= 15 then
fmes_fim = mes(DT_DEMISSAO)
elseif dia(DT_DEMISSAO) < 15 then
fmes_fim = mes(DT_DEMISSAO) - 1
end
end
if type(DIAS_FER_VENC_NM)=='table' then
for x = 1, getn (DIAS_FER_VENC_NM) do
if DIAS_FER_VENC_NM[x] > 0 then
if DT_DEMISSAO > DT_FINAL_AQUIS[x] then
if ano(DT_DEMISSAO) == ano(DT_FINAL_AQUIS[x]) then
aux_fer_prop = fmes_fim - mes(DT_FINAL_AQUIS[x]) + 1
else
aux_fer_prop = fmes_fim + (12 - mes(DT_FINAL_AQUIS[x]) + 1)
end
aux_venc = aux_venc + 12
aux_fer_nm = aux_fer_nm + DIAS_FER_VENC_NM[x]
elseif DT_FINAL_AQUIS[x] >= DT_DEMISSAO then
if ano(DT_DEMISSAO) == ano(DT_FINAL_AQUIS[x]) then
aux_fer_prop = fmes_fim - mes(DT_FINAL_AQUIS [x]) + 1
if aux_fer_prop == 12 then
aux_venc=12
aux_fer_prop=0
end
elseif ano(DT_DEMISSAO) == ano(DT_FINAL_AQUIS[x]) then
if mes(DT_DEMISSAO) == mes (DT_FINAL_AQUIS[x]) then
aux_fer_prop = 0
aux_venc = aux_venc + fmes_fim +(12 - mes(DT_INICIO_AQUIS[x]) + 1)
else -- paga como proporcional
aux_fer_prop = aux_fer_prop + fmes_fim + (12 - mes(DT_INICIO_AQUIS[x]) + 1)
aux_venc = 0
end
end
aux_fer_nm = aux_fer_nm + DIAS_FER_VENC_NM[x]
end
end
end
AVOS_FERIAS = AVOS_FERIAS + aux_fer_prop
QT_FER_VINC = QT_FER_VINC + aux_venc
TOT_DIAS_FER_NM = TOT_DIAS_FER_NM + aux_fer_nm
end
end
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.