Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 03-05-2013
Avatar de Jere_84
Jere_84 Jere_84 is offline
Miembro
NULL
 
Registrado: sep 2011
Ubicación: Córdoba, Argentina
Posts: 214
Poder: 0
Jere_84 cantidad desconocida en este momento
Es que no hay código mas que el procedimiento almacenado y el componente que estoy enlazándolo... el Procedimiento almacenado compilo bien y se guardo en la bd ahora desde mi aplicación servidor lo llamo con el componente TSQLStoredProc al poner active en true en tiempo de diseño:

Cita:
SQLStoredProc: Cursor not returned from Query.
SP:

Código SQL [-]
CREATE PROCEDURE [dbo].[pSJFondoDesem]
  @pCodigEmple VARCHAR(10),
  @pDFecha DATE,
  @pHFecha DATE,
  @pFechaIngre DATE OUTPUT,
  @pAntig INT OUTPUT,
  @pNumerIeric VARCHAR(10) OUTPUT,
  @pPorceFondoDesem1 DECIMAL(15,4) OUTPUT,
  @pPorceFondoDesem2 DECIMAL(15,4) OUTPUT,
  @pFormaPagoFondoDesem CHAR(1) OUTPUT,  
  @pImporFinal DECIMAL(15,4) OUTPUT,
  @CuentaFondoDesem VARCHAR(12) OUTPUT,
  @LibreFondoDesem VARCHAR(10) OUTPUT,
  @Calle VARCHAR(60) OUTPUT,
  @Numer VARCHAR(5) OUTPUT,
  @CodigCiuda VARCHAR(10) OUTPUT,
  @DescrCiuda VARCHAR(60) OUTPUT
  
AS
BEGIN
  DECLARE @vNumerLiqui INT;
  DECLARE @vFechaEgres DATETIME;
  DECLARE @vFechaIngre DATETIME;

  SET NOCOUNT ON   
  
  SELECT @vFechaEgres = tSJEmple.FechaEgres
  FROM tSJEmple 
  WHERE CodigEmple = @pCodigEmple
  AND MONTH(FechaEgres) BETWEEN MONTH(@pDFecha) AND MONTH(@pHFecha)
  AND YEAR(FechaEgres) BETWEEN YEAR(@pDFecha) AND YEAR(@pHFecha)  
  
  SELECT @pNumerIeric = tKiParam.NumerIeric, 
         @pPorceFondoDesem1 = tKiParam.PorceFondoDesem1, 
         @pPorceFondoDesem2 = tKiParam.PorceFondoDesem2, 
         @pFormaPagoFondoDesem = tKiParam.FormaPagoFondoDesem
  FROM tKiParam       
  
  IF (@vFechaEgres IS NOT NULL) AND (@pFormaPagoFondoDesem = 'R')
    RETURN 1;
  ELSE
  BEGIN
    SELECT @pFechaIngre = FechaIngre
    FROM tSJEmple
    WHERE CodigEmple = @pCodigEmple 
    
    SELECT @pAntig = DATEDIFF( year, @pFechaIngre, @pHFecha) 
  
    SELECT @vNumerLiqui = MAX(NumerLiqui)
    FROM tSJTotalLiqui
    WHERE MONTH(FechaLiqui) BETWEEN MONTH(@pDFecha) AND MONTH(@pHFecha)
    AND YEAR(FechaLiqui) BETWEEN YEAR(@pDFecha) AND YEAR(@pHFecha)
    AND CodigEmple = @pCodigEmple
    AND (CuentFondoDesem <> '')  
  
    SELECT @CuentaFondoDesem = CuentFondoDesem, 
           @LibreFondoDesem = LibreFondoDesem, 
           @Calle = Calle, 
         @Numer = Numer, 
       @CodigCiuda = tSJTotalLiqui.CodigCiuda, 
       @DescrCiuda = DescrCiuda
    FROM tSJTotalLiqui
    INNER JOIN  tKiCiuda ON tSJTotalLiqui.CodigCiuda = tKiCiuda.CodigCiuda
    WHERE MONTH(FechaLiqui) BETWEEN MONTH(@pDFecha) AND MONTH(@pHFecha)
    AND YEAR(FechaLiqui) BETWEEN YEAR(@pDFecha) AND YEAR(@pHFecha)
    AND (CuentFondoDesem <> '')
    AND CodigEmple = @pCodigEmple
    AND NumerLiqui = @vNumerLiqui  
  
    SELECT @vFechaIngre = FechaIngre
    FROM tSJEmple
    WHERE MONTH(FechaIngre) BETWEEN MONTH(@pDFecha) AND MONTH(@pHFecha)
    AND YEAR(FechaIngre) BETWEEN YEAR(@pDFecha) AND YEAR(@pHFecha)
    AND CodigEmple = @pCodigEmple 
  
    IF (@vFechaIngre IS NULL) 
    BEGIN
     SELECT @pImporFinal = 
    CASE Signo
      WHEN '+' THEN ImporFinal
      WHEN '-' THEN ImporFinal * -1        
    END
      FROM tSJDetalLiqui
      WHERE FondoDesem = 'True'
      AND ((TipoConce <> 'PUE') OR (TipoConce <> 'CON'))
      AND MONTH(FechaLiqui) BETWEEN MONTH(@pDFecha) AND MONTH(@pHFecha)
      AND YEAR(FechaLiqui) BETWEEN YEAR(@pDFecha) AND YEAR(@pHFecha)
      AND CodigEmple = @pCodigEmple  
    END
    ELSE
    BEGIN
      SELECT @pImporFinal = 
      CASE Signo
        WHEN '+' THEN ImporFinal
        WHEN '-' THEN ImporFinal * -1        
    END
    FROM tSJDetalLiqui
    WHERE FondoDesem = 'True'
    AND ((TipoConce <> 'PUE') OR (TipoConce <> 'CON'))
    AND MONTH(FechaLiqui) BETWEEN MONTH(@vFechaIngre) AND MONTH(@vFechaIngre)
    AND YEAR(FechaLiqui) BETWEEN YEAR(@pDFecha) AND YEAR(@pHFecha)
    AND CodigEmple = @pCodigEmple
    END
  END  
END
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cursor not returned from Query Antoniov Conexión con bases de datos 6 29-08-2011 17:05:53
Error 'SQLQuery1: Cursor not returned from query'. grandmasterdari MySQL 19 12-01-2008 03:35:29
Error: puntero no regresa de la consulta o Cursor not Returned from query The_figo MySQL 0 23-11-2006 20:08:55
error "Subquery returned more than 1 value" lynu SQL 1 14-08-2006 16:16:25
SQLStoredProc de DBExpress Gabriel Conexión con bases de datos 0 04-06-2004 17:23:09


La franja horaria es GMT +2. Ahora son las 11:22:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi