Ver Mensaje Individual
  #5  
Antiguo 30-01-2020
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.057
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Lo he probado y funciona bien.


Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE SP_PROCESO_FILAS
RETURNS (pProceso INTEGER, 
         pFila INTEGER, 
         pCodigo INTEGER, 
         pVotos INTEGER, 
         pTotal INTEGER)
AS
DECLARE VARIABLE OldProc INTEGER;
BEGIN
  OldProc = -1;
  pFila = 0;
  FOR SELECT Proceso, codigo, votos2, total
  FROM ABC
  INTO :pProceso,    
       :pCodigo, 
       :pVotos, 
       :pTotal 
  DO
  BEGIN
    IF (OldProc <> pProceso) THEN
    BEGIN
      pFila = 0;
        OldProc = pProceso;
    END
    pFila = pFila + 1;
    SUSPEND;
  END
END ^


SET TERM ; ^
Responder Con Cita