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
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
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)