Fórum Procedure Interbase #216701

26/02/2004

0

Prezados,
Tenho a seguinte Procedure feita no Sybase:

declare @ssql1 varchar(255),
@ssql2 varchar(255)

select @ssql1= ´select o.codg as codg_obra, ´+
´ o.numr_clas, ´+
´ o.numr_cutter, ´+
´ o.dscr_entr, ´+
´ o.dscr_titl, ´+
´ o.dscr_subtitl,´

select @ssql2= ´o.numr_edicao, ´+
´ o.tipo_edicao, ´+
´ convert(char(10),o.data_edicao,103) as data_edicao,´+
´ o.qtde_pag, ´+
´ o.numr_vol, ´ +
´ o.numr_registro, ´+
´ ed.sede as sede_editora, ´+
´ ed.nome as nome_editora ´+
´ from Obra o, Editora ed where o.codg_editora=ed.codg ´

exec(@ssql1+ @ssql2+´ order by o.dscr_entr, o.dscr_titl´)

Gostaria de saber se o Iterbase permite esse tipo de estrutura.

Grato


Nglauber

Nglauber

Responder

Posts

26/02/2004

Alexrol

Não e mai ou menos

aqui vai um exemplo em FireBird/Interbase

SET TERM ^ ;

/* Stored procedures */

CREATE PROCEDURE SP_CHK_PRODUTOS_FAMILIAS_UPDATE
RETURNS
(
ATUALIZADO SMALLINT
)
AS
BEGIN EXIT; END ^


ALTER PROCEDURE SP_CHK_PRODUTOS_FAMILIAS_UPDATE
RETURNS
(
ATUALIZADO SMALLINT
)
AS
DECLARE VARIABLE FamiliasQtdes TIMESTAMP;
DECLARE VARIABLE FamiliasStruc TIMESTAMP;
BEGIN
FOR SELECT Max(DataOp)
FROM ProdutosFamiliasQtdes
INTO :FamiliasQtdes
DO
SUSPEND;
FOR SELECT Max(DataOp)
FROM ProdutosFamilias
INTO :FamiliasStruc
DO
SUSPEND;
Atualizado = 0;
IF (FamiliasQtdes < FamiliasStruc) THEN
Atualizado = 1;
END
^

SET TERM ; ^
COMMIT WORK;


// é so um exemplo


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar