|
Erasmo,
Usei, de acordo com suas
instru��es, o c�digo abaixo:
If SqlOraPLSQLPrepare( hSqlBase, '
Declare
Retorno Boolean;
Begin
Retorno :=
Pkg_ATD.Inserir(:dfNro_Serie_Inicial,:dfFabr_ID,:dfNro_Elementos,:dfLocal_ID,
:dfArea_ID,:dfModelo,:dfTensaoNominal,:vg_sTemp);
if Retorno
then
:w_b_Retorno := 1;
else
:w_b_Retorno := 0
end if;
end;')
Call SqlOraPLSQLExecute( hSqlBase )
Recebo a seguinte mensagem de erro: "Erro: SQL Error 26550, not found in
ERROR.SQL file."
Estou pesquisando esse erro mas ainda n�o encontrei o seu
significado.
A minha vers�o do Centura �: 1.1.1
O meu oracle �: 8.1.7.1.0
Meu OS �: Windows 2000 Server
Quando uso SqlPLSQLCommand ele, como vc j� havia dito, conflita com
os tipos do Oracle e diz que os par�metros tem um tipo de dado
ilegal. Resumindo: ser� que isso pode ser algum
conflito ou problema de configura��o ?
----- Original Message -----
Sent: Monday, August 09, 2004 8:10
AM
Subject: Re: [sqlwin] Como executar uma
package.function do Oracle8i no Centura 1.1.1. ?
Andre,
Lembre-se, todas as refer�ncias a Centura dentro
do comando deve ter dois pontos antes (:), nesse caso deveria ser
assim:
Set vg_sATD_Sql = '
Declare
Retorno Boolean;
Begin
Retorno := Pkg_ATD.Inserir(:vg_nNro_Serie_Inicial,:vg_nFabr_ID,:vg_nNro_Elementos,:vg_sLocal_ID,
:vg_sArea_ID,:vg_sModelo,:vg_nTensao_Nominal,:vg_sTemp);
-- Faltou retornar para o Centura
if Retorno then
:w_b_Retorno := 1;
else
:w_b_Retorno := 0
end if;
end;'
Outra coisa, n�o � preciso passar os campos para vari�veis, pode-se
utilizar diretamente os data_fields.
Sds,
Erasmo
Andre Luiz
Pereira do Couto wrote:
Erasmo,
segui o seu exemplo e recebi a seguinte mensagem: "Erro: SQL Error 26550,
not found in ERROR.SQL file."
o que pode ser isso ? onde eu posso ter errado ?
segue, abaixo o c�digo:
If SalIsNull( dfNro_Serie_Final )
Set vg_nNro_Serie_Inicial = dfNro_Serie_Inicial
Set vg_sArea_ID = dfArea_ID
Set vg_sLocal_ID = dfLocal_ID
Set vg_nFabr_ID = dfFabr_ID
Set vg_nNro_Elementos = dfNro_Elementos
Set vg_sModelo = dfModelo
Set vg_nTensao_Nominal = dfTensaoNominal
Set vg_sATD_Sql = 'Declare Retorno Boolean; Begin Retorno :=
Pkg_ATD.Inserir(vg_nNro_Serie_Inicial,vg_nFabr_ID,vg_nNro_Elementos,vg_sLoca
l_ID,vg_sArea_ID,vg_sModelo,vg_nTensao_Nominal,vg_sTemp); end;'
If SqlOraPLSQLPrepare( hSqlBase, vg_sATD_Sql)
Call SqlOraPLSQLExecute( hSqlBase )
Andr� Couto
Analista de Sistemas S�nior - Manaus Energia
[EMAIL PROTECTED] - 621-1230
----- Original Message -----
From: "Erasmo Bispo de Oliveira Junior" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, August 05, 2004 3:16 PM
Subject: Re: [sqlwin] Como executar uma package.function do Oracle8i no
Centura 1.1.1. ?
Andr�,
Os tipos boolean do Oracle e do Centura s�o diferentes, portanto n�o �
poss�vel utilizar uma vari�vel do centura diretamente. Fa�a da seguinte
forma:
if SqlOraPLSQLPrepare( hsql, "
declare
x boolean;
begin
package.function(x);
if x then -- Seta variavel do centura para TRUE
:w_b_Centura := 1;
else -- Seta a Variavel do centura para FALSE
:w_b_Centura := 0;
end;
")
Call SqlOraPLSQLExecute( hsql );
Sds,
Erasmo
Amigos,
Sou iniciante no Centura e estou precisando executar, no Centura 1.1.1.,
uma function contida em uma package no Oracle8i. Essa function tem um
par�metro OUT e retorna boolean.
Gostaria de saber se algu�m tem alguma dica de como executar tal
function ou ent�o algum exemplo pronto.
Att.
Andr� Couto
Analista de Sistemas S�nior - Manaus Energia
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> - 621-1230
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
--
|
![]()
|
Erasmo Bispo de
Oliveira Junior
Gerente de Projetos
|
|
