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)