search

rsherrera / project-caja

Automatically exported from code.google.com/p/project-caja
0 stars 0 forks source link

Falta dato Localidad a encabezado de Boletas Masivas #95

Closed rsherrera closed 8 years ago

rsherrera commented 8 years ago

Informado por Vanesa Mercado Fecha: 03/12/15

rsherrera commented 8 years ago

Se resolvió modificando el SP [spImprimeEmisionmasiva en ambiente producción Versión 09/12/2015 El SP final es: USE [CIP_PRODUCCION] GO /\ Object: StoredProcedure [dbo].[spImprimeEmisionmasiva] Script Date: 01/06/2016 08:07:45 **/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO

ALTER PROCEDURE [dbo].[spImprimeEmisionmasiva] @idafiliado int, @aporte1 int, @aporte2 int, @aporte3 int, @bco int

AS BEGIN

SET NOCOUNT ON;

Begin Tran Tadd

Begin Try
declare @codigo1 varchar(800),@codigo2 varchar(800),@codigo3 varchar(800),@codigobarra varchar(8000)

declare @boleta table ( IdMesAporte int,idafiliado int,afiliado varchar(250),domicilio varchar(80),CP int,profesion int, provincia varchar(80), importe1 decimal(10,2), importe2 decimal(10,2),vencimiento1 varchar(10),vencimiento2 varchar(10), venc1 varchar(10),venc2 varchar(10),cuota int,anio int,cuotaanio varchar(50), banco varchar (50),notabanco varchar (500) ,codigopago varchar(800)) declare @codverificador table (IdMesAporte int,codigobarra varchar(8000))

insert @boleta select ma.IdMesAporte, a.idafiliado,a.apellido +',' + a.nombre as afiliado,a.domicilio+ ' - ' +a.Localidad,a.codigopostal, a.IdProfesion,(select Provincia from Provincia where a.idprovincia=idprovincia )as Provincia, case when c.Nivel=1 then cast (ma.ImporteV1N1 as decimal (10,2)) when c.Nivel=2 then cast (ma.ImporteV1N2 as decimal (10,2)) when C.Nivel=3 then cast (ma.ImporteV1N3 as decimal (10,2)) when C.Nivel=4 then cast (ma.ImporteV1N4 as decimal (10,2)) end importeV1, case when C.Nivel=1 then cast (ma.ImporteV2N1 as decimal (10,2)) when C.Nivel=2 then cast (ma.ImporteV2N2 as decimal (10,2)) when C.Nivel=3 then cast (ma.ImporteV2N3 as decimal (10,2)) when C.Nivel=4 then cast (ma.ImporteV2N4 as decimal (10,2)) end importeV2,convert( varchar(10),ma.Vencimiento1,105),convert( varchar(10),ma.Vencimiento2,105), convert( varchar(10),ma.Vencimiento1,4),convert( varchar(10),ma.Vencimiento2,4), ma.mes Cuota, ma.anio as anio, cast (ma.mes as varchar(10)) + '/' + ma.anio as cuotaanio, case when @bco=1 then'BANCO SUPERVIELLE' else 'BANCO SAN JUAN ' end banco, case when @bco=1 then'Nota de crédito para la Cuenta Especial N° 00411577-003' else 'Nota de crédito para la Cuenta Recaudadora N° 121560/4' end notabanco,

RIGHT('00000000' + Ltrim(Rtrim(a.idafiliado)),7)as codigopago

from Cuota C (nolock) inner join MesAporte MA( nolock)on c.IdMesAporte=ma.IdMesAporte inner join Afiliado A (nolock) on a.IdAfiliado=c.IdAfiliado inner join Nivel N (nolock) on n.IDAfiliado=a.IdAfiliado AND n.EstadoActual=1

where a.EstadoAfiliado=1 and ma.IdMesAporte in ( @aporte1 , @aporte2 , @aporte3 )and a.Banco=@bco and a.IdAfiliado=@idafiliado

if (@bco<>1) begin set @codigo1=(select '001'+'0066'+'5'+RIGHT('000000' + Ltrim(Rtrim(idafiliado)),5) +RIGHT('00' + Ltrim(Rtrim(cuota)),2)+RIGHT('00' + Ltrim(Rtrim(anio)),2)+'1'+ replace(RIGHT('000000000' + Ltrim(Rtrim(importe1)),9),'.','')+'1'+ replace(venc1,'.','')+replace(venc2,'.','') +replace(RIGHT('000000000' + Ltrim(Rtrim(importe2)),9),'.','') from @boleta where IdMesAporte=@aporte1)

insert @codverificador select @aporte1,(select dbo.digitoverificardor (@codigo1))

set @codigo2=(select '001'+'0066'+'5'+RIGHT('000000' + Ltrim(Rtrim(idafiliado)),5) +RIGHT('00' + Ltrim(Rtrim(cuota)),2)+RIGHT('00' + Ltrim(Rtrim(anio)),2)+'1'+ replace(RIGHT('000000000' + Ltrim(Rtrim(importe1)),9),'.','')+'1'+ replace(venc1,'.','')+replace(venc2,'.','') +replace(RIGHT('000000000' + Ltrim(Rtrim(importe2)),9),'.','') from @boleta where IdMesAporte=@aporte2)

insert @codverificador select @aporte2,(select dbo.digitoverificardor (@codigo2))

set @codigo3=(select '001'+'0066'+'5'+RIGHT('000000' + Ltrim(Rtrim(idafiliado)),5) +RIGHT('00' + Ltrim(Rtrim(cuota)),2)+RIGHT('00' + Ltrim(Rtrim(anio)),2)+'1'+ replace(RIGHT('000000000' + Ltrim(Rtrim(importe1)),9),'.','')+'1'+ replace(venc1,'.','')+replace(venc2,'.','') +replace(RIGHT('000000000' + Ltrim(Rtrim(importe2)),9),'.','') from @boleta where IdMesAporte=@aporte3)

insert @codverificador select @aporte3,(select dbo.digitoverificardor (@codigo3)) select * from @boleta B inner join @codverificador C on b.IdMesAporte=c.IdMesAporte end

else if (@bco=1) begin set @codigo1=(select '79029'+'01'+RIGHT('00' + Ltrim(Rtrim(cuota)),2)+RIGHT('00' + Ltrim(Rtrim(anio)),2)+ replace(venc1,'.','')+replace(venc2,'.','')+ replace(RIGHT('0000000' + Ltrim(Rtrim(importe1)),7),'.','') +replace(RIGHT('0000000' + Ltrim(Rtrim(importe2)),7),'.','') +RIGHT('000000' + Ltrim(Rtrim(idafiliado)),5) from @boleta where IdMesAporte=@aporte1)

insert @codverificador select @aporte1,(select dbo.digitoverificardorSuperVille (@codigo1))

set @codigo2=(select '79029'+'01'+RIGHT('00' + Ltrim(Rtrim(cuota)),2)+RIGHT('00' + Ltrim(Rtrim(anio)),2)+ replace(venc1,'.','')+replace(venc2,'.','')+ replace(RIGHT('0000000' + Ltrim(Rtrim(importe1)),7),'.','') +replace(RIGHT('0000000' + Ltrim(Rtrim(importe2)),7),'.','') +RIGHT('000000' + Ltrim(Rtrim(idafiliado)),5) from @boleta where IdMesAporte=@aporte2)

insert @codverificador select @aporte2,(select dbo.digitoverificardorSuperVille (@codigo2))

set @codigo3=(select '79029'+'01'+RIGHT('00' + Ltrim(Rtrim(cuota)),2)+RIGHT('00' + Ltrim(Rtrim(anio)),2)+ replace(venc1,'.','')+replace(venc2,'.','')+ replace(RIGHT('0000000' + Ltrim(Rtrim(importe1)),7),'.','') +replace(RIGHT('0000000' + Ltrim(Rtrim(importe2)),7),'.','') +RIGHT('000000' + Ltrim(Rtrim(idafiliado)),5) from @boleta where IdMesAporte=@aporte3)

insert @codverificador select @aporte3,(select dbo.digitoverificardorSuperVille (@codigo3)) select * from @boleta B inner join @codverificador C on b.IdMesAporte=c.IdMesAporte end COMMIT TRAN Tadd

End try
Begin Catch

    Rollback TRAN Tadd

End Catch

END