create or replace procedure sp_fco_del_int_det
(
    pch_compania   char,
    psi_anio       number,
    pti_mes        number,
    pvc_sucursal   varchar2,
    pch_tipo_planilla char,
    pch_trabajador char    
) is
vsi_sec number(5);
begin

    select to_number(secuencia) into vsi_sec
    from fco_integrada_det
    where compania = pch_compania
    and anio = psi_anio
    and mes = pti_mes
    and (sucursal = pvc_sucursal or pvc_sucursal is null or pvc_sucursal = ' ')
    and tipo_planilla = pch_tipo_planilla
    and trabajador = pch_trabajador;

    delete fco_integrada_det
    where compania = pch_compania
    and anio = psi_anio
    and mes = pti_mes
    and (sucursal = pvc_sucursal or pvc_sucursal is null or pvc_sucursal = ' ')
    and tipo_planilla = pch_tipo_planilla
    and trabajador = pch_trabajador;
    
    update fco_integrada_det
    set secuencia = ltrim(to_char(to_number(secuencia) - 1,'00000'))
    where compania = pch_compania
    and anio = psi_anio
    and mes = pti_mes
    and (sucursal = pvc_sucursal or pvc_sucursal is null or pvc_sucursal = ' ')    
    and tipo_planilla = pch_tipo_planilla
    and to_number(secuencia) > vsi_sec;
        
    commit;    
end sp_fco_del_int_det;
/
