Segue:
ALTER PROCEDURE [dbo].[proc_Clientes_GerarMensalidades]
-- Add the parameters for the stored procedure here
@Valor2x money,
@Valor3x money,
@Valor4x money,
@Valor5x money,
@ValorDupla2x money,
@ValorDupla3x money,
@FormaPag int
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
declare @Cliente int, @DiaPag int, @Documento nvarchar(9)
declare @Vencimento datetime
declare @Mensalidade int
-- incluido em 13/07/2019
declare @NumVezes as int;
declare @vMensalidade as money;
declare @ProxLanc int;
-- cria o cursor que será percorrido
declare cursor_objects CURSOR FOR
select idcliente, diapagamento from clientes where clienteativo='S'
-- abre o cursor para leitura
OPEN cursor_objects
-- lendo a proxima linha
FETCH NEXT FROM cursor_objects INTO @Cliente, @DiaPag
-- percorrendo as linhas do cursor
WHILE @@FETCH_STATUS=0
BEGIN
-- incluido em 13/07/19----------------------------------
set @NumVezes=(select count(clientes_atividades.idatividade)
from clientes_atividades
where idaluno=@Cliente)
if @NumVezes>0
begin
if @NumVezes=2 or @NumVezes=1
set @vMensalidade=@Valor2x
else if @NumVezes=3
set @vMensalidade=@Valor3x
else if @NumVezes=4
set @vMensalidade=@Valor4x
else if @NumVezes=5
set @vMensalidade=@Valor5x
----------------------------------------------------------
set @Mensalidade=(select idtitulo from titulosr
where idaluno=@Cliente and month(dtvencimento)=month(getdate()) and year(dtvencimento)=year(getdate()))
if @Mensalidade is null
begin
-- gera o numero do documento do cliente (codigo do cliente-mes)
set @Documento=replicate(0,6-len(@cliente)) + convert(varchar,@Cliente) + '-' + REPLICATE(0,2-len(month(getdate()))) +
convert(varchar,month(getdate()));
-- gera a data de vencimento
--set @Vencimento=convert(datetime,replicate(0,2-len(@DiaPag)) + convert(varchar,@DiaPag) + '/' + replicate(0,2-len(month(getdate()))) +
-- convert(varchar,month(getdate())) + '/' + convert(varchar,year(getdate())),103)
--set @Vencimento=replicate(0,2-len(month(getdate()))) + convert(varchar,month(getdate())) + '/' +
-- replicate(0,2-len(@DiaPag)) + convert(varchar,@DiaPag) + '/' + convert(varchar,year(getdate()))
--set @Vencimento=convert(datetime,cast(@DiaPag as varchar(2)) + '/' + cast(month(getdate()) as varchar(2)) + '/' + cast(year(getdate()) as varchar(4)),103);
--set @Vencimento=cast(month(getdate()) as varchar(2)) + '/' + cast(@DiaPag as varchar(2)) + '/' +
-- cast(year(getdate()) as varchar(4)) --,103);
set @Vencimento=convert(datetime,cast(year(getdate()) as varchar(4)) + '/' + cast(month(getdate()) as varchar(2)) + '/' + cast(@DiaPag as varchar(2)),103)
--,103);
--print @Vencimento
-- incluido em 13/07/19
-- identifica o codigo do proximo lancamento
set @ProxLanc=(select max(idtitulo) as ultimo from titulosr)
if @ProxLanc is null
set @ProxLanc=1
else
Set @ProxLanc=@ProxLanc+1
declare @Pagamento varchar(10)
set @Pagamento='07/15/2019'
--set @Vencimento='07/15/2019'
insert into titulosr (idtitulo, data, numdocumento, idaluno, dtvencimento, valor, idformapag, dtpagamento)
values (@ProxLanc, getdate(), @Documento, @Cliente, @Vencimento, @vMensalidade, @FormaPag, @Pagamento)
--------------------------------------------------------------------------------------------------------------
/*
-- chama a stored procedure passando os parametros necessarios
EXEC proc_Clientes_GerarFinanceiro_Aluno @Cliente, @Documento, @Vencimento, @Valor2x, @Valor3x, @Valor4x, @Valor5x, @ValorDupla2x,
@ValorDupla3x , @FormaPag
*/
end -- @NumVezes
end
-- lendo a proxima linha
FETCH NEXT FROM cursor_objects INTO @Cliente, @DiaPag
END
-- fechando o cursor para leitura
CLOSE cursor_objects
-- desalocanco o cursor
DEALLOCATE cursor_objects
END
José Acílio
