dbo.insertar_nuevo_balance_led

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

False

Execute As
Assembly

Parameters

11
Name Data Type Length Description
@cuit varchar 20
@id_padron int 4
@p_bal_manifestacion char 1
@p_fecha_balance date 3
@p_ejercicio int 4
@p_periodo int 4
@p_moneda varchar 3
@visible bit 1
@estado varchar 50
@user_id int 4
@doc_id int 4

SQL Script

Copy
SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

CREATE OR ALTER PROCEDURE dbo.insertar_nuevo_balance_led
@cuit varchar(20),
@id_padron int, 
@p_bal_manifestacion char(1),
@p_fecha_balance date, 
@p_ejercicio int,
@p_periodo int,
@p_moneda varchar(3),
@visible bit, 
@estado varchar(50),
@user_id int,
@doc_id int = null
AS
BEGIN
 declare @p_id int
 declare @ruta_archivo varchar(200)

 if (@p_fecha_balance = '' ) set @p_fecha_balance = null

 insert into balances_contables(cuit,  id_padron,  bal_manifestacion,    fecha_balance,                  ejercicio,    periodo,    moneda,    estado,  visible,  created,   created_by) 
       values(@cuit, @id_padron, @p_bal_manifestacion, convert(date,@p_fecha_balance), @p_ejercicio, @p_periodo, @p_moneda, @estado, @visible, getdate(), @user_id  )

 set @p_id = (SELECT @@IDENTITY)
 set @ruta_archivo = '/balances/' + ltrim(rtrim(@cuit)) + '/' + convert(varchar,@p_id) + '.pdf'
 update balances_contables set ruta_archivo = @ruta_archivo where id_balance = @p_id
 
 if (@doc_id is not null)
 begin
  update LN_Docs set id_externo = @p_id where doc_id = @doc_id 
 end

 select '0' as error, 'El registro se grabó satisfactoriamente' as mensaje, @p_id as id, @ruta_archivo as ruta_archivo  
END

GO

Used By

No items found