none
FETCH NEXT FROM RRS feed

  • Pregunta

  • ALTER procedure [dbo].[SP_OBLIGACIONES]
      @PERSONA INT
    AS
    declare 
    @v_NombreCompleto varchar(100),
    @v_CorreoElectronico char(8),
    @v_NumeroDocumento char(18),
    @v_FechaDocumento char(150),
    @v_FechaVencimiento  char(15),
    --@v_FechaPago  char(15),
    @v_MontoObligacion char(15),
    @correo varchar(80),
    @v_linea varchar(200),
    @v_mensaje varchar(8000)


    DECLARE ProdInfo3 CURSOR FOR

    select P.NombreCompleto,
    O.NumeroDocumento , 
    --O.fechapago,
    O.MontoObligacion,
    p.CorreoElectronico
    from 
    PersonaMast P, 
    Obligaciones O 
    WHERE 
    P.Persona = O.Proveedor 
    and O.EstadoDocumento = 'PA'
    and O.FechaPago >=  getdate()  

    BEGIN

    select  @correo = rtrim(ltrim(CorreoElectronico))   from PersonaMast where Persona=@PERSONA 

    OPEN ProdInfo3
    FETCH NEXT FROM ProdInfo3 INTO   @v_NombreCompleto, @v_NumeroDocumento,  @v_MontoObligacion, @v_CorreoElectronico
    --@v_FechaPago,
    WHILE @@fetch_status = 0
    BEGIN
    set  @v_linea =  '* Nombre del proveedor : ' + ' ' + @v_NombreCompleto +  CHAR(13)
              + ' ' +'* N° de documento : ' + ' ' + @v_NumeroDocumento +  CHAR(13)
    --  + ' ' +'* Fecha del documento : ' + ' ' + @v_FechaPago  +  CHAR(13)
      + ' ' +'* Monto dela obligación : ' + ' ' + @v_MontoObligacion  +  CHAR(13)
      + ' ' +'* Correo Electronico : ' + ' ' + @v_CorreoElectronico  +  CHAR(13);


    set  @v_mensaje =  ISNULL(@v_mensaje , '') + @v_linea +  CHAR(13);

    --EXEC msdb.dbo.sp_send_dbmail 
    -- @profile_name = 'Produccion',          
    -- @recipients = 'dba@intralot.com.pe',
    -- @copy_recipients = '',
    -- @from_address = @v_CorreoElectronico,
    -- @subject = 'PAGADO',
    -- @body = @v_mensaje 
    --END;

    FETCH NEXT FROM ProdInfo3 INTO @v_NombreCompleto, @v_NumeroDocumento, @v_MontoObligacion, @v_CorreoElectronico
    --@v_FechaPago,
    END
        CLOSE ProdInfo3

    DEALLOCATE ProdInfo3;

    set  @v_mensaje =  ISNULL(rtrim(ltrim(@v_mensaje)) , 'Se pago la factura') ;


    -- EXEC msdb.dbo.sp_send_dbmail 
    -- @profile_name = 'Produccion',          
    -- @recipients = 'dba@intralot.com.pe',
    -- @copy_recipients = '',
    -- @from_address = 'dba@intralot.com.pe',
    -- @subject = 'PAGADO',
    -- @body = @v_mensaje 
    --END;

                                                                             
    viernes, 12 de mayo de 2017 16:53

Respuestas

Todas las respuestas