Neto Minimo – exceso de descuentos (sueldos negativos)
En caso de suceder por descuentos excesivos que el neto o líquido quede en cero o sea negativo, podemos crear un programa externo que contemple este tema, y de existir una ordenanza que lo permita, sacarle a los empleados proporcionalmente o como diga lo normado, una parte de ese o esos descuentos para que el saldo quede mayor a cero.
En los casos que conocemos dejan como neto, un monto pequeño $ 100.- más el salario familiar.
Existen reportes para notificar a las entidades que pasaron los montos a descontar que, en algunos empleados se realizó un descuento menor, o no se realizó descuento y en caso de descuento parcial que monto quedó pendiente de descuento.
Ejemplo de programa:
FUNCTION NETOMINI
LOCAL NetoSinDsto , Coeficiente , DtosMutual , DREC
LOCAL nSalFam := t[230]+t[240]+t[245]+t[247]+t[248]+t[249]+t[250]+t[252]+t[253]+t[254]+t[260]+t[263]+t[265]+t[267]+t[270]+t[271]+t[273]+t[274]+t[275]
if val(VA[78]) # 1242
DtosMutual := T[640] + T[641] + T[642] + T[643]+ T[644]
NetoSinDsto := ( VA[300] + VA[301] – VA[302] ) + DtosMutual
Coeficiente := ( NetoSinDsto – ( nSalFam + 50.00) ) / DtosMutual
VA[302] := VA[302] – ( T[640] + T[641] + T[642] + T[643]+ T[644] )
DREC:=abro2( ‘DRECSUEL’ )
T[640]:=AjustoConcepto ( DREC , ‘640’ , Coeficiente )
T[641]:=AjustoConcepto ( DREC , ‘641’ , Coeficiente )
T[642]:=AjustoConcepto ( DREC , ‘642’ , Coeficiente )
T[643]:=AjustoConcepto ( DREC , ‘643’ , Coeficiente )
T[644]:=AjustoConcepto ( DREC , ‘644’ , Coeficiente )
(DREC)->( dbclosearea() )
VA[302] := VA[302] + ( T[640] + T[641] + T[642] + T[643]+ T[644] )
endif
Return( nil )
function AjustoConcepto ( DREC , cIDConcepto , Coeficiente )
*======================
local nVlrRet := 0
if (DREC)->( DbSeek( (VA[501])->idc_con + (VA[501])->idc_delq + cIDConcepto ) ) .and. (DREC)->( DbRlock() )
if Coeficiente < 0
BorraRegistro ( DREC )
else
nVlrRet := (DREC)->precio := ROUND( (DREC)->precio * Coeficiente , 2 )
(DREC)->totform := (DREC)->precio
endif
endif
Return( nVlrRet)