dbo.obtener_score_contable_ant

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

CREATE OR ALTER PROCEDURE dbo.obtener_score_contable_ant
@p_Cuit varchar(20)

AS
BEGIN
  SET NOCOUNT ON;
declare @r_fecha_balance varchar(11)
declare @r_ac_cajban decimal(15,2)
declare @r_ac_inver decimal(15,2)
declare @r_ac_crevta decimal(15,2)
declare @r_ac_otrcre decimal(15,2)
declare @r_ac_biecam decimal(15,2)
declare @r_ac_otract decimal(15,2)
declare @r_ac_bietan decimal(15,2)
declare @r_anc_crevta decimal(15,2)
declare @r_anc_otrcre decimal(15,2)
declare @r_anc_inver decimal(15,2)
declare @r_anc_bieuso decimal(15,2)
declare @r_anc_actint decimal(15,2)
declare @r_anc_otract decimal(15,2)
declare @r_anc_bieusovo decimal(15,2)
declare @r_anc_depacu decimal(15,2)
declare @r_pc_ctapag decimal(15,2)
declare @r_pc_presta decimal(15,2)
declare @r_pc_remune decimal(15,2)
declare @r_pc_carfis decimal(15,2)
declare @r_pc_antcli decimal(15,2)
declare @r_pc_otrpas decimal(15,2)
declare @r_pnc_cuepag decimal(15,2)
declare @r_pnc_previ decimal(15,2)
declare @r_pnc_presta decimal(15,2)
declare @r_pnc_otrpas decimal(15,2)
declare @r_pnc_deufis decimal(15,2)
declare @r_res_vtanet decimal(15,2)
declare @r_res_cosmer decimal(15,2)
declare @r_res_gascom decimal(15,2)
declare @r_res_gasadm decimal(15,2)
declare @r_res_gasfin decimal(15,2)
declare @r_res_otros decimal(15,2)
declare @r_res_resinv decimal(15,2)
declare @r_res_ie decimal(15,2)
declare @r_res_resfin decimal(15,2)
declare @r_res_iva decimal(15,2)
declare @r_res_noasig decimal(15,2)
declare @r_res_compras decimal(15,2)
declare @r_res_otrosing decimal(15,2)
declare @r_res_otrosegr decimal(15,2)
declare @r_amortiza decimal(15,2)
declare @r_capsoc decimal(15,2)
declare @r_ajucap decimal(15,2)

declare @r_activo_corriente decimal(25,2)
declare @r_pasivo_corriente decimal(25,2)
declare @r_pasivo_total decimal(25,2)
declare @r_patrimonio_neto decimal(25,2)
declare @r_pasivo_no_corriente decimal(25,2)
declare @r_activo_total decimal(25,2)
declare @r_total_ganancia decimal(25,2)
declare @r_total_res decimal(25,2)

declare @o_fecha_balance varchar(11)
declare @o_liquidez_corriente decimal(15,2)
declare @o_solvencia_patrimonial decimal(15,2)
declare @o_endeudamiento_corriente decimal(15,2)
declare @o_capital_de_trabajo_activo decimal(15,2)
declare @o_rentabilidad_bruta decimal(15,2)
declare @o_utilidad_neta decimal(15,2)
declare @fecha_max date


declare @o_promedio_de_mercado decimal(15,2)


set @fecha_max = (select max(fecha_balance) from balances_fide where cuit= @p_Cuit)

if( datepart(yy,getdate()) - datepart(yy,@fecha_max) > 6)
begin
return
end

DECLARE contable_score CURSOR

FOR

select convert(varchar(10),balances_fide.fecha_balance,103) as fecha_balance,
    isnull(ac_cajban,0),isnull(ac_inver,0),isnull(ac_crevta,0),isnull(ac_otrcre,0),isnull(ac_biecam,0),
    isnull(ac_otract,0),isnull(ac_bietan,0),isnull(anc_crevta,0),isnull(anc_otrcre,0),isnull(anc_inver,0),
    isnull(anc_bieuso,0),isnull(anc_actint,0),isnull(anc_otract,0),isnull(anc_bieusovo,0),isnull(anc_depacu,0),
    isnull(pc_ctapag,0),isnull(pc_presta,0),isnull(pc_remune,0),isnull(pc_carfis,0),isnull(pc_antcli,0),isnull(pc_otrpas,0),
    isnull(pnc_cuepag,0),isnull(pnc_previ,0),isnull(pnc_presta,0),isnull(pnc_otrpas,0),isnull(pnc_deufis,0),isnull(res_vtanet,0),
    isnull(res_cosmer,0),isnull(res_gascom,0),isnull(res_gasadm,0),isnull(res_gasfin,0),isnull(res_otros,0),isnull(res_resinv,0),
    isnull(res_ie,0),isnull(res_resfin,0),isnull(res_iva,0),isnull(res_noasig,0),isnull(res_compras,0),isnull(res_otrosing,0),
    isnull(res_otrosegr,0),isnull(amortiza,0),isnull(capsoc,0),isnull(ajucap,0) 
    from balances_fide 
    where cuit = @p_Cuit
    and fecha_balance = @fecha_max
    and visible = 1
    order by fecha_balance asc

 
 
-- apertura del cursor

OPEN contable_score 

 
 
-- Lectura de la primera fila del cursor
Fetch next from contable_score INTO   @r_fecha_balance,@r_ac_cajban,
@r_ac_inver,
@r_ac_crevta,
@r_ac_otrcre,
@r_ac_biecam,
@r_ac_otract,
@r_ac_bietan,
@r_anc_crevta,
@r_anc_otrcre,
@r_anc_inver,
@r_anc_bieuso,
@r_anc_actint,
@r_anc_otract,
@r_anc_bieusovo,
@r_anc_depacu,
@r_pc_ctapag,
@r_pc_presta,
@r_pc_remune,
@r_pc_carfis,
@r_pc_antcli,
@r_pc_otrpas,
@r_pnc_cuepag,
@r_pnc_previ,
@r_pnc_presta,
@r_pnc_otrpas,
@r_pnc_deufis,
@r_res_vtanet,
@r_res_cosmer,
@r_res_gascom,
@r_res_gasadm,
@r_res_gasfin,
@r_res_otros,
@r_res_resinv,
@r_res_ie,
@r_res_resfin,
@r_res_iva,
@r_res_noasig,
@r_res_compras,
@r_res_otrosing,
@r_res_otrosegr,
@r_amortiza,
@r_capsoc,
@r_ajucap

 

WHILE (@@FETCH_STATUS <> -1 )



BEGIN


set @r_activo_corriente     = @r_ac_cajban +  @r_ac_inver  +  @r_ac_crevta +  @r_ac_otrcre +  @r_ac_biecam + @r_ac_bietan + @r_ac_otract
set @r_pasivo_corriente     = @r_pc_ctapag + @r_pc_presta + @r_pc_remune + @r_pc_carfis + @r_pc_antcli + @r_pc_otrpas
set @r_pasivo_total         = @r_pc_ctapag + @r_pc_presta + @r_pc_remune + @r_pc_carfis + @r_pc_antcli + @r_pc_otrpas + @r_pnc_cuepag +  @r_pnc_previ +  @r_pnc_presta +  @r_pnc_otrpas + @r_pnc_deufis
set @r_patrimonio_neto      = (@r_ac_cajban +  @r_ac_inver  +  @r_ac_crevta +  @r_ac_otrcre +  @r_ac_biecam + @r_ac_otract + @r_anc_otrcre +  @r_anc_inver +  @r_anc_bieuso +  @r_anc_actint + @r_anc_otract )- (@r_pc_ctapag + @r_pc_presta + @r_pc_remune + @r_pc_carfis + @r_pc_antcli + @r_pc_otrpas + @r_pnc_cuepag + @r_pnc_previ + @r_pnc_presta + @r_pnc_otrpas + @r_pnc_deufis)
set @r_pasivo_no_corriente  = @r_pnc_cuepag +  @r_pnc_previ +  @r_pnc_presta +  @r_pnc_otrpas + @r_pnc_deufis
set @r_activo_total         = @r_ac_cajban +  @r_ac_inver  +  @r_ac_crevta +  @r_ac_otrcre +  @r_ac_biecam + @r_ac_bietan + @r_ac_otract + @r_anc_crevta + @r_anc_otrcre +  @r_anc_inver +  @r_anc_bieuso +  @r_anc_actint + @r_anc_otract
set @r_total_res            = @r_res_vtanet + @r_res_cosmer
set @r_total_ganancia       = @r_total_res + @r_res_gascom + @r_res_gasadm + @r_res_gasfin + @r_res_otros + @r_res_resinv + @r_res_ie + @r_res_otrosing + @r_res_otrosegr + @r_res_resfin + @r_res_iva





set @o_liquidez_corriente                 = @r_activo_corriente / @r_pasivo_corriente
set @o_fecha_balance                      = @r_fecha_balance
set @o_solvencia_patrimonial     = iif(@r_pasivo_total <> 0,@r_patrimonio_neto / @r_pasivo_total,0)
set @o_endeudamiento_corriente            = iif(@r_patrimonio_neto <> 0,@r_pasivo_corriente / @r_patrimonio_neto,0)
set @o_capital_de_trabajo_activo    = iif(@r_activo_total <> 0,(@r_activo_corriente-@r_pasivo_corriente) / @r_activo_total,0)
set @o_rentabilidad_bruta      = iif(@r_res_vtanet <> 0,(@r_total_res / @r_res_vtanet),0 )
set @o_utilidad_neta                      = iif(@r_res_vtanet <> 0,(@r_total_ganancia / @r_res_vtanet),0)

    -- Lectura de la siguiente fila del cursor

    FETCH next from contable_score INTO   @r_fecha_balance, @r_ac_cajban,
@r_ac_inver,
@r_ac_crevta,
@r_ac_otrcre,
@r_ac_biecam,
@r_ac_otract,
@r_ac_bietan,
@r_anc_crevta,
@r_anc_otrcre,
@r_anc_inver,
@r_anc_bieuso,
@r_anc_actint,
@r_anc_otract,
@r_anc_bieusovo,
@r_anc_depacu,
@r_pc_ctapag,
@r_pc_presta,
@r_pc_remune,
@r_pc_carfis,
@r_pc_antcli,
@r_pc_otrpas,
@r_pnc_cuepag,
@r_pnc_previ,
@r_pnc_presta,
@r_pnc_otrpas,
@r_pnc_deufis,
@r_res_vtanet,
@r_res_cosmer,
@r_res_gascom,
@r_res_gasadm,
@r_res_gasfin,
@r_res_otros,
@r_res_resinv,
@r_res_ie,
@r_res_resfin,
@r_res_iva,
@r_res_noasig,
@r_res_compras,
@r_res_otrosing,
@r_res_otrosegr,
@r_amortiza,
@r_capsoc,
@r_ajucap
 
END

-- Cierra el cursor

CLOSE contable_score

-- Libera los recursos del cursor

DEALLOCATE contable_score 


select 
    convert(varchar(10),@o_fecha_balance,103) as fecha_balance,
  @o_liquidez_corriente as liquidez_corriente,
  @o_solvencia_patrimonial as solvencia_patrimonial,
  @o_endeudamiento_corriente as endeudamiento_corriente,
  @o_capital_de_trabajo_activo as capital_de_trabajo_activo,
  @o_rentabilidad_bruta as rentabilidad_bruta,
  @o_utilidad_neta as utilidad_neta

END

GO