Menu
▾
▴
firebird-net-provider
|
From: Josauro S.J. <jo...@ca...> - 2003-11-24 19:36:19
|
Why it's breack with message... FirebirdSql.Data.INGDS.GDSException
Public Function GetRecibos(Optional ByVal Cliente As String =3D =
"00001.001.01") As FbDataReader
Dim myConnection2 =3D New FbConnection(GetFBConnectionString)
myConnection2.Open()
myTxn =3D myConnection2.BeginTransaction()
selectCmd =3D "GET_RECIBOS"
Dim myCommand =3D New FbCommand(selectCmd, myConnection2, myTxn)
' Mark the Command as a SPROC
myCommand.CommandType =3D CommandType.StoredProcedure
myCommand.parameters.add("@CLI_REFERENCIA", FbType.VarChar).Value =3D =
"00025.005.01"
Dim Result As FbDataReader =3D myCommand.executeReader()
Return Result
End Function
Josauro S.J.
|
|
From:
<car...@te...> - 2003-11-24 21:13:03
|
Hello: > Why it's breack with message... /FirebirdSql.Data.INGDS.GDSException/ In first place your code seems to be correct, can you send the stack trace ?? In which line of the function source is giving the exception ?? -- Best regards Carlos Guzmán Álvarez Vigo-Spain |
|
From: Josauro S.J. <jo...@ca...> - 2003-11-24 21:33:13
|
HI:
My Code FireBird ***
CREATE PROCEDURE GET_RECIBOS (
CLI_REFERENCIA VARCHAR(12))
RETURNS (
REC_CODIGO DOUBLE PRECISION,
REC_CLIENTE DOUBLE PRECISION,
REC_DATA DATE,
REC_DATA_LIMITE DATE,
REC_VALOR_ALUGUEL NUMERIC(15,2),
REC_VALOR_TAXA NUMERIC(15,2),
REC_VALOR_MULTA_DESCONTO NUMERIC(15,2),
VR_VALOR_LIQUIDO NUMERIC(15,2),
VR_VALOR_BRUTO NUMERIC(15,2),
REC_DESCRICAO_PERIODO VARCHAR(40),
REC_NUMERO_RECIBO INTEGER,
REC_NUMERO_BANCARIO VARCHAR(15))
AS
DECLARE VARIABLE VR_MULTA_DESCONTO CHAR(1);
DECLARE VARIABLE VR_CLIENTE DOUBLE PRECISION;
begin
/* Procedure Text */
SELECT CODIGO FROM get_codigo_cliente(:CLI_REFERENCIA)
INTO :VR_CLIENTE
;
SELECT REC_CODIGO,
REC_CLIENTE,
REC_DATA,
REC_DATA_LIMITE,
REC_VALOR_ALUGUEL,
REC_MULTA_DESCONTO,
REC_VALOR_MULTA_DESCONTO,
REC_DESCRICAO_PERIODO,
REC_NUMERO_RECIBO,
REC_NUMERO_BANCARIO
FROM RECIBO
WHERE REC_CLIENTE =3D :VR_CLIENTE
INTO :REC_CODIGO,
:REC_CLIENTE,
:REC_DATA,
:REC_DATA_LIMITE,
:REC_VALOR_ALUGUEL,
:VR_MULTA_DESCONTO,
:REC_VALOR_MULTA_DESCONTO,
:REC_DESCRICAO_PERIODO,
:REC_NUMERO_RECIBO,
:REC_NUMERO_BANCARIO
;
IF (VR_MULTA_DESCONTO =3D 'D')
THEN BEGIN
VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA;
VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
ELSE BEGIN
VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA
+ :REC_VALOR_MULTA_DESCONTO;
VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
suspend;
end
My Vb.net Code
Public Function GetFBConnectionString() As String
Return ConfigurationSettings.AppSettings("FBConnectionString")
End Function
Public Function GetRecibos() As FbDataReader
Dim myConnection2 =3D New FbConnection(GetFBConnectionString)
myConnection2.Open()
myTxn =3D myConnection2.BeginTransaction()
selectCmd =3D "GET_RECIBOS"
Dim myCommand =3D New FbCommand(selectCmd, myConnection2, myTxn)
myCommand.CommandType =3D CommandType.StoredProcedure
myCommand.parameters.add("@CLI_REFERENCIA", FbType.VarChar).Value =3D =
"00025.005.01"
Dim Result As FbDataReader =3D =
myCommand.executeReader(CommandBehavior.CloseConnection) '<--**** HERE =
CODE BREACK **->
Return Result
End Function
My exception.
Exce=E7=E3o do tipo FirebirdSql.Data.INGDS.GDSException foi acionada.=20
Descri=E7=E3o: Ocorreu uma exce=E7=E3o n=E3o tratada durante a =
execu=E7=E3o da atual solicita=E7=E3o da Web. Examine o rastreamento de =
pilha para obter mais informa=E7=F5es sobre o erro e onde foi originado =
no c=F3digo.=20
Detalhes da Exce=E7=E3o: FirebirdSql.Data.INGDS.GDSException: =
Exce=E7=E3o do tipo FirebirdSql.Data.INGDS.GDSException foi acionada.
Erro de Origem:=20
Linha 99: Dim objRecibo =3D New RecibosDB
Linha 100:
Linha 101: grdRecibo.DataSource =3D objRecibo.GetRecibos()
Linha 102:
Linha 103: grdRecibo.DataBind()=20
Arquivo de Origem: =
C:\Inetpub\DNNFramework\DotNetNuke1010\DesktopModules\Recibos\ListaRecibo=
s.ascx.vb Linha: 101=20
Rastreamento de Pilha:=20
[GDSException: Exce=E7=E3o do tipo FirebirdSql.Data.INGDS.GDSException =
foi acionada.]
FirebirdSql.Data.Firebird.FbStatement.Prepare()
FirebirdSql.Data.Firebird.FbCommand.Prepare()
[FbException: Dynamic SQL Error
SQL error code =3D -104
Token unknown - line 1, char 1
GET_RECIBOS
]
Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet(Object o, =
Type objType, String name, Object[] args, String[] paramnames, Boolean[] =
CopyBack) +899
DotNetNuke.ListaRecibos.BindGrid() in =
C:\Inetpub\DNNFramework\DotNetNuke1010\DesktopModules\Recibos\ListaRecibo=
s.ascx.vb:101
DotNetNuke.ListaRecibos.Button1_Click(Object sender, EventArgs e) in =
C:\Inetpub\DNNFramework\DotNetNuke1010\DesktopModules\Recibos\ListaRecibo=
s.ascx.vb:148
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
=
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.Rais=
ePostBackEvent(String eventArgument) +57
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler =
sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) =
+33
System.Web.UI.Page.ProcessRequestMain() +1277
=20
-------------------------------------------------------------------------=
-------
Informa=E7=F5es sobre a Vers=E3o: Microsoft .NET Framework =
Vers=E3o:1.1.4322.573; Vers=E3o do ASP.NET:1.1.4322.573=20
Hello:
> Why it's breack with message... =
/FirebirdSql.Data.INGDS.GDSException/
In first place your code seems to be correct, can you send the stack=20
trace ??
In which line of the function source is giving the exception ??
--
Best regards
Carlos Guzm=E1n =C1lvarez
Vigo-Spain
|
|
From:
<car...@te...> - 2003-11-24 21:39:18
|
Hello: Ok, thanks :), two questions whic version of the .net data provider are you using ?? > CREATE PROCEDURE GET_RECIBOS ( > > [FbException: Dynamic SQL Error > SQL error code = -104 > Token unknown - line 1, char 1 > GET_RECIBOS > ] Huummmm you have the sp created as: CREATE PROCEDURE GET_RECIBOS ( or as: CREATE PROCEDURE "GET_RECIBOS" ( ?? -- Best regards Carlos Guzmán Álvarez Vigo-Spain |
|
From: Josauro S.J. <jo...@ca...> - 2003-11-24 21:50:11
|
First I'm using data Provider 1.5 Beta 4 Net 1.1. Second I had sp created as: CREATE PROCEDURE GET_RECIBOS ( Thanks Josauro S.J. Diretor e-mail: jo...@ca... site: www.casasoft.inf.br Portal de im=F3veis www.IndicadorDeIm=F3veis.com.br O =FAnico Portal de im=F3veis 100% on-line com as imobili=E1rias, = im=F3veis atualizados minuto a minuto a certeza de que o im=F3vel = anunciado realmente esta Dispon=EDvel. ----- Original Message -----=20 From: Carlos Guzm=E1n =C1lvarez=20 To: Josauro S.J.=20 Cc: fir...@li...=20 Sent: Monday, November 24, 2003 7:39 PM Subject: Re: [Firebird-net-provider] = FirebirdSql.Data.INGDS.GDSException Hello: Ok, thanks :), two questions whic version of the .net data provider = are=20 you using ?? > CREATE PROCEDURE GET_RECIBOS ( > > [FbException: Dynamic SQL Error > SQL error code =3D -104 > Token unknown - line 1, char 1 > GET_RECIBOS > ] Huummmm you have the sp created as: CREATE PROCEDURE GET_RECIBOS ( or as: CREATE PROCEDURE "GET_RECIBOS" ( ?? -- Best regards Carlos Guzm=E1n =C1lvarez Vigo-Spain |
|
From:
<car...@te...> - 2003-11-24 21:52:06
|
Hello: > First > > I'm using data Provider 1.5 Beta 4 Net 1.1. > > Second > > I had sp created as: > > CREATE PROCEDURE GET_RECIBOS ( Thanks, can you try to debug the ExecuteReader call for see what is the command that is being executed ?? -- Best regards Carlos Guzmán Álvarez Vigo-Spain |
|
From: Josauro S.J. <jo...@ca...> - 2003-11-24 23:11:28
|
Hello:
I change my code to ...("EXECUTE PROCEDURE =
GET_RECIBOS(@CLI_REFERENCIA)" )...
And the error not ocurrs, but other error about cant return multiples =
row in singleton select....
Josauro S.J.
Diretor
e-mail: jo...@ca...
site: www.casasoft.inf.br
Portal de im=F3veis www.IndicadorDeIm=F3veis.com.br
O =FAnico Portal de im=F3veis 100% on-line com as imobili=E1rias, =
im=F3veis atualizados minuto a minuto a certeza de que o im=F3vel =
anunciado realmente esta Dispon=EDvel.
----- Original Message -----=20
From: Carlos Guzm=E1n =C1lvarez=20
To: Josauro S.J.=20
Cc: fir...@li...=20
Sent: Monday, November 24, 2003 7:39 PM
Subject: Re: [Firebird-net-provider] =
FirebirdSql.Data.INGDS.GDSException
Hello:
Ok, thanks :), two questions whic version of the .net data provider =
are=20
you using ??
> CREATE PROCEDURE GET_RECIBOS (
>
> [FbException: Dynamic SQL Error
> SQL error code =3D -104
> Token unknown - line 1, char 1
> GET_RECIBOS
> ]
Huummmm you have the sp created as:
CREATE PROCEDURE GET_RECIBOS (
or as:
CREATE PROCEDURE "GET_RECIBOS" (
??
--
Best regards
Carlos Guzm=E1n =C1lvarez
Vigo-Spain
|
|
From:
<car...@te...> - 2003-11-25 10:09:13
|
Hello:
> Hello:
>
> I change my code to ...("EXECUTE PROCEDURE
> GET_RECIBOS(@CLI_REFERENCIA)" )...
> And the error not ocurrs, but other error about cant return multiples
> row in singleton select....
SELECT * FROM GET_RECIBOS(@CLI_REFERENCIA)
--
Best regards
Carlos Guzmán Álvarez
Vigo-Spain
|
|
From: Josauro S.J. <jo...@ca...> - 2003-11-25 10:29:43
|
I sorry
but it's don't work fine yeat.
Dim selectCmd As String
selectCmd =3D "SELECT * FROM GET_RECIBOS(@CLI_REFERENCIA)"
Dim myCommand =3D New FbCommand(selectCmd, myConnection, myTxn)
myCommand.CommandType =3D CommandType.StoredProcedure
myCommand.parameters.add("@CLI_REFERENCIA", FbType.VarChar).Value =3D =
Cliente
Dim Result As FbDataReader =3D =
myCommand.executeReader(CommandBehavior.CloseConnection)
CREATE PROCEDURE GET_RECIBOS (
CLI_REFERENCIA VARCHAR(12))
RETURNS (
REC_CODIGO DOUBLE PRECISION,
REC_CLIENTE DOUBLE PRECISION,
REC_DATA DATE,
REC_DATA_LIMITE DATE,
REC_VALOR_ALUGUEL NUMERIC(15,2),
REC_VALOR_TAXA NUMERIC(15,2),
REC_VALOR_MULTA_DESCONTO NUMERIC(15,2),
VR_VALOR_LIQUIDO NUMERIC(15,2),
VR_VALOR_BRUTO NUMERIC(15,2),
REC_DESCRICAO_PERIODO VARCHAR(40),
REC_NUMERO_RECIBO INTEGER,
REC_NUMERO_BANCARIO VARCHAR(15))
AS
DECLARE VARIABLE VR_MULTA_DESCONTO CHAR(1);
DECLARE VARIABLE VR_CLIENTE DOUBLE PRECISION;
begin
/* Procedure Text */
SELECT CODIGO FROM get_codigo_cliente(:CLI_REFERENCIA)
INTO :VR_CLIENTE
;
SELECT REC_CODIGO,
REC_CLIENTE,
REC_DATA,
REC_DATA_LIMITE,
REC_VALOR_ALUGUEL,
REC_MULTA_DESCONTO,
REC_VALOR_MULTA_DESCONTO,
REC_DESCRICAO_PERIODO,
REC_NUMERO_RECIBO,
REC_NUMERO_BANCARIO
FROM RECIBO
WHERE REC_CLIENTE =3D :VR_CLIENTE
INTO :REC_CODIGO,
:REC_CLIENTE,
:REC_DATA,
:REC_DATA_LIMITE,
:REC_VALOR_ALUGUEL,
:VR_MULTA_DESCONTO,
:REC_VALOR_MULTA_DESCONTO,
:REC_DESCRICAO_PERIODO,
:REC_NUMERO_RECIBO,
:REC_NUMERO_BANCARIO
;
IF (VR_MULTA_DESCONTO =3D 'D')
THEN BEGIN
VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA;
VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
ELSE BEGIN
VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA
+ :REC_VALOR_MULTA_DESCONTO;
VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
end
Exce=E7=E3o do tipo FirebirdSql.Data.INGDS.GDSException foi acionada.=20
Descri=E7=E3o: Ocorreu uma exce=E7=E3o n=E3o tratada durante a =
execu=E7=E3o da atual solicita=E7=E3o da Web. Examine o rastreamento de =
pilha para obter mais informa=E7=F5es sobre o erro e onde foi originado =
no c=F3digo.=20
Detalhes da Exce=E7=E3o: FirebirdSql.Data.INGDS.GDSException: =
Exce=E7=E3o do tipo FirebirdSql.Data.INGDS.GDSException foi acionada.
Erro de Origem:=20
Linha 99: Dim objRecibo =3D New RecibosDB
Linha 100:
Linha 101: grdRecibo.DataSource =3D =
objRecibo.GetRecibos("00025.005.01")
Linha 102:
Linha 103: grdRecibo.DataBind()=20
Arquivo de Origem: =
C:\Inetpub\DNNFramework\DotNetNuke1010\DesktopModules\Recibos\ListaRecibo=
s.ascx.vb Linha: 101=20
Rastreamento de Pilha:=20
[GDSException: Exce=E7=E3o do tipo FirebirdSql.Data.INGDS.GDSException =
foi acionada.]
FirebirdSql.Data.Firebird.FbStatement.Execute()
FirebirdSql.Data.Firebird.FbCommand.ExecuteReader(CommandBehavior =
behavior)
[FbException: multiple rows in singleton select
]
Microsoft.VisualBasic.CompilerServices.LateBinding.LateGet(Object o, =
Type objType, String name, Object[] args, String[] paramnames, Boolean[] =
CopyBack)
DotNetNuke.ListaRecibos.BindGrid() in =
C:\Inetpub\DNNFramework\DotNetNuke1010\DesktopModules\Recibos\ListaRecibo=
s.ascx.vb:101
DotNetNuke.ListaRecibos.Button1_Click(Object sender, EventArgs e) in =
C:\Inetpub\DNNFramework\DotNetNuke1010\DesktopModules\Recibos\ListaRecibo=
s.ascx.vb:148
System.Web.UI.WebControls.Button.OnClick(EventArgs e)
=
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.Rais=
ePostBackEvent(String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler =
sourceControl, String eventArgument)
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData)
System.Web.UI.Page.ProcessRequestMain()
=20
Josauro S.J.
Diretor
e-mail: jo...@ca...
site: www.casasoft.inf.br
Portal de im=F3veis www.IndicadorDeIm=F3veis.com.br
O =FAnico Portal de im=F3veis 100% on-line com as imobili=E1rias, =
im=F3veis atualizados minuto a minuto a certeza de que o im=F3vel =
anunciado realmente esta Dispon=EDvel.
----- Original Message -----=20
From: Carlos Guzm=E1n =C1lvarez=20
To: Josauro S.J.=20
Cc: fir...@li...=20
Sent: Tuesday, November 25, 2003 7:50 AM
Subject: Re: [Firebird-net-provider] =
FirebirdSql.Data.INGDS.GDSException
Hello:
> Hello:
> =20
> I change my code to ...("EXECUTE PROCEDURE=20
> GET_RECIBOS(@CLI_REFERENCIA)" )...
> And the error not ocurrs, but other error about cant return =
multiples=20
> row in singleton select....
SELECT * FROM GET_RECIBOS(@CLI_REFERENCIA)
--
Best regards
Carlos Guzm=E1n =C1lvarez
Vigo-Spain
|
|
From:
<car...@te...> - 2003-11-25 11:00:38
|
Hello:
Try this:
CREATE PROCEDURE GET_RECIBOS (
CLI_REFERENCIA VARCHAR(12))
RETURNS (
REC_CODIGO DOUBLE PRECISION,
REC_CLIENTE DOUBLE PRECISION,
REC_DATA DATE,
REC_DATA_LIMITE DATE,
REC_VALOR_ALUGUEL NUMERIC(15,2),
REC_VALOR_TAXA NUMERIC(15,2),
REC_VALOR_MULTA_DESCONTO NUMERIC(15,2),
VR_VALOR_LIQUIDO NUMERIC(15,2),
VR_VALOR_BRUTO NUMERIC(15,2),
REC_DESCRICAO_PERIODO VARCHAR(40),
REC_NUMERO_RECIBO INTEGER,
REC_NUMERO_BANCARIO VARCHAR(15))
AS
DECLARE VARIABLE VR_MULTA_DESCONTO CHAR(1);
DECLARE VARIABLE VR_CLIENTE DOUBLE PRECISION;
begin
/* Procedure Text */
SELECT CODIGO FROM get_codigo_cliente(:CLI_REFERENCIA)
INTO :VR_CLIENTE;
FOR SELECT REC_CODIGO,
REC_CLIENTE,
REC_DATA,
REC_DATA_LIMITE,
REC_VALOR_ALUGUEL,
REC_MULTA_DESCONTO,
REC_VALOR_MULTA_DESCONTO,
REC_DESCRICAO_PERIODO,
REC_NUMERO_RECIBO,
REC_NUMERO_BANCARIO
FROM RECIBO
WHERE REC_CLIENTE = :VR_CLIENTE
INTO :REC_CODIGO,
:REC_CLIENTE,
:REC_DATA,
:REC_DATA_LIMITE,
:REC_VALOR_ALUGUEL,
:VR_MULTA_DESCONTO,
:REC_VALOR_MULTA_DESCONTO,
:REC_DESCRICAO_PERIODO,
:REC_NUMERO_RECIBO,
:REC_NUMERO_BANCARIO
do
begin
IF (VR_MULTA_DESCONTO = 'D')
THEN BEGIN
VR_VALOR_BRUTO = :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA;
VR_VALOR_LIQUIDO = VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
ELSE BEGIN
VR_VALOR_BRUTO = :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA
+ :REC_VALOR_MULTA_DESCONTO;
VR_VALOR_LIQUIDO = VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
suspend;
end
end
--
Best regards
Carlos Guzmán Álvarez
Vigo-Spain
|
|
From: Josauro S.J. <jo...@ca...> - 2003-11-25 11:10:08
|
Ok, it's work fine. But other question...=20 Variable VR_VALOR_BRUTO and VR_VALOR_LIQUDO return nothing values, do = you know why ?=20 Josauro S.J. Diretor e-mail: jo...@ca... site: www.casasoft.inf.br Portal de im=F3veis www.IndicadorDeIm=F3veis.com.br O =FAnico Portal de im=F3veis 100% on-line com as imobili=E1rias, = im=F3veis atualizados minuto a minuto a certeza de que o im=F3vel = anunciado realmente esta Dispon=EDvel. ----- Original Message -----=20 From: Carlos Guzm=E1n =C1lvarez=20 To: Josauro S.J.=20 Cc: fir...@li...=20 Sent: Tuesday, November 25, 2003 9:00 AM Subject: Re: [Firebird-net-provider] = FirebirdSql.Data.INGDS.GDSException Hello: Try this: CREATE PROCEDURE GET_RECIBOS ( CLI_REFERENCIA VARCHAR(12)) RETURNS ( REC_CODIGO DOUBLE PRECISION, REC_CLIENTE DOUBLE PRECISION, REC_DATA DATE, REC_DATA_LIMITE DATE, REC_VALOR_ALUGUEL NUMERIC(15,2), REC_VALOR_TAXA NUMERIC(15,2), REC_VALOR_MULTA_DESCONTO NUMERIC(15,2), VR_VALOR_LIQUIDO NUMERIC(15,2), VR_VALOR_BRUTO NUMERIC(15,2), REC_DESCRICAO_PERIODO VARCHAR(40), REC_NUMERO_RECIBO INTEGER, REC_NUMERO_BANCARIO VARCHAR(15)) AS DECLARE VARIABLE VR_MULTA_DESCONTO CHAR(1); DECLARE VARIABLE VR_CLIENTE DOUBLE PRECISION; begin /* Procedure Text */ SELECT CODIGO FROM get_codigo_cliente(:CLI_REFERENCIA) INTO :VR_CLIENTE; FOR SELECT REC_CODIGO, REC_CLIENTE, REC_DATA, REC_DATA_LIMITE, REC_VALOR_ALUGUEL, REC_MULTA_DESCONTO, REC_VALOR_MULTA_DESCONTO, REC_DESCRICAO_PERIODO, REC_NUMERO_RECIBO, REC_NUMERO_BANCARIO FROM RECIBO WHERE REC_CLIENTE =3D :VR_CLIENTE INTO :REC_CODIGO, :REC_CLIENTE, :REC_DATA, :REC_DATA_LIMITE, :REC_VALOR_ALUGUEL, :VR_MULTA_DESCONTO, :REC_VALOR_MULTA_DESCONTO, :REC_DESCRICAO_PERIODO, :REC_NUMERO_RECIBO, :REC_NUMERO_BANCARIO do begin IF (VR_MULTA_DESCONTO =3D 'D') THEN BEGIN VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL + :REC_VALOR_TAXA; VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO - :REC_VALOR_MULTA_DESCONTO; END ELSE BEGIN VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL + :REC_VALOR_TAXA + :REC_VALOR_MULTA_DESCONTO; VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO - :REC_VALOR_MULTA_DESCONTO; END suspend; end end -- Best regards Carlos Guzm=E1n =C1lvarez Vigo-Spain |
|
From:
<car...@te...> - 2003-11-25 11:26:47
|
Hello:
> Ok, it's work fine.
> But other question...
> Variable VR_VALOR_BRUTO and VR_VALOR_LIQUDO return nothing values, do
> you know why ?
No, think in that i can't test it ;), just try to move the IF .. ENDIF
block:
CREATE PROCEDURE GET_RECIBOS (
CLI_REFERENCIA VARCHAR(12))
RETURNS (
REC_CODIGO DOUBLE PRECISION,
REC_CLIENTE DOUBLE PRECISION,
REC_DATA DATE,
REC_DATA_LIMITE DATE,
REC_VALOR_ALUGUEL NUMERIC(15,2),
REC_VALOR_TAXA NUMERIC(15,2),
REC_VALOR_MULTA_DESCONTO NUMERIC(15,2),
VR_VALOR_LIQUIDO NUMERIC(15,2),
VR_VALOR_BRUTO NUMERIC(15,2),
REC_DESCRICAO_PERIODO VARCHAR(40),
REC_NUMERO_RECIBO INTEGER,
REC_NUMERO_BANCARIO VARCHAR(15))
AS
DECLARE VARIABLE VR_MULTA_DESCONTO CHAR(1);
DECLARE VARIABLE VR_CLIENTE DOUBLE PRECISION;
begin
/* Procedure Text */
SELECT CODIGO FROM get_codigo_cliente(:CLI_REFERENCIA)
INTO :VR_CLIENTE;
FOR SELECT REC_CODIGO,
REC_CLIENTE,
REC_DATA,
REC_DATA_LIMITE,
REC_VALOR_ALUGUEL,
REC_MULTA_DESCONTO,
REC_VALOR_MULTA_DESCONTO,
REC_DESCRICAO_PERIODO,
REC_NUMERO_RECIBO,
REC_NUMERO_BANCARIO
FROM RECIBO
WHERE REC_CLIENTE = :VR_CLIENTE
INTO :REC_CODIGO,
:REC_CLIENTE,
:REC_DATA,
:REC_DATA_LIMITE,
:REC_VALOR_ALUGUEL,
:VR_MULTA_DESCONTO,
:REC_VALOR_MULTA_DESCONTO,
:REC_DESCRICAO_PERIODO,
:REC_NUMERO_RECIBO,
:REC_NUMERO_BANCARIO
DO
BEGIN
SUSPEND;
END
IF (VR_MULTA_DESCONTO = 'D')
THEN BEGIN
VR_VALOR_BRUTO = :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA;
VR_VALOR_LIQUIDO = VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
ELSE BEGIN
VR_VALOR_BRUTO = :REC_VALOR_ALUGUEL
+ :REC_VALOR_TAXA
+ :REC_VALOR_MULTA_DESCONTO;
VR_VALOR_LIQUIDO = VR_VALOR_BRUTO
- :REC_VALOR_MULTA_DESCONTO;
END
END
--
Best regards
Carlos Guzmán álvarez
Vigo-Spain
|
|
From: Josauro S.J. <jo...@ca...> - 2003-11-25 11:53:59
|
Ok, I found the problem than I don't put REC_VALOR_TAXA in select ;) and = than it return NULL . Thanks for all help. Josauro S.J. Diretor e-mail: jo...@ca... site: www.casasoft.inf.br Portal de im=F3veis www.IndicadorDeIm=F3veis.com.br O =FAnico Portal de im=F3veis 100% on-line com as imobili=E1rias, = im=F3veis atualizados minuto a minuto a certeza de que o im=F3vel = anunciado realmente esta Dispon=EDvel. ----- Original Message -----=20 From: Carlos Guzm=E1n =C1lvarez=20 To: Josauro S.J.=20 Cc: fir...@li...=20 Sent: Tuesday, November 25, 2003 9:23 AM Subject: Re: [Firebird-net-provider] = FirebirdSql.Data.INGDS.GDSException Hello: > Ok, it's work fine. > But other question... > Variable VR_VALOR_BRUTO and VR_VALOR_LIQUDO return nothing = values, do=20 > you know why ?=20 No, think in that i can't test it ;), just try to move the IF .. ENDIF = block: CREATE PROCEDURE GET_RECIBOS ( CLI_REFERENCIA VARCHAR(12)) RETURNS ( REC_CODIGO DOUBLE PRECISION, REC_CLIENTE DOUBLE PRECISION, REC_DATA DATE, REC_DATA_LIMITE DATE, REC_VALOR_ALUGUEL NUMERIC(15,2), REC_VALOR_TAXA NUMERIC(15,2), REC_VALOR_MULTA_DESCONTO NUMERIC(15,2), VR_VALOR_LIQUIDO NUMERIC(15,2), VR_VALOR_BRUTO NUMERIC(15,2), REC_DESCRICAO_PERIODO VARCHAR(40), REC_NUMERO_RECIBO INTEGER, REC_NUMERO_BANCARIO VARCHAR(15)) AS DECLARE VARIABLE VR_MULTA_DESCONTO CHAR(1); DECLARE VARIABLE VR_CLIENTE DOUBLE PRECISION; begin /* Procedure Text */ SELECT CODIGO FROM get_codigo_cliente(:CLI_REFERENCIA) INTO :VR_CLIENTE; FOR SELECT REC_CODIGO, REC_CLIENTE, REC_DATA, REC_DATA_LIMITE, REC_VALOR_ALUGUEL, REC_MULTA_DESCONTO, REC_VALOR_MULTA_DESCONTO, REC_DESCRICAO_PERIODO, REC_NUMERO_RECIBO, REC_NUMERO_BANCARIO FROM RECIBO WHERE REC_CLIENTE =3D :VR_CLIENTE INTO :REC_CODIGO, :REC_CLIENTE, :REC_DATA, :REC_DATA_LIMITE, :REC_VALOR_ALUGUEL, :VR_MULTA_DESCONTO, :REC_VALOR_MULTA_DESCONTO, :REC_DESCRICAO_PERIODO, :REC_NUMERO_RECIBO, :REC_NUMERO_BANCARIO DO BEGIN =20 SUSPEND; END IF (VR_MULTA_DESCONTO =3D 'D') THEN BEGIN VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL + :REC_VALOR_TAXA; VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO - :REC_VALOR_MULTA_DESCONTO; END ELSE BEGIN VR_VALOR_BRUTO =3D :REC_VALOR_ALUGUEL + :REC_VALOR_TAXA + :REC_VALOR_MULTA_DESCONTO; VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO - :REC_VALOR_MULTA_DESCONTO; END END -- Best regards Carlos Guzm=E1n =E1lvarez Vigo-Spain |
|
From: Josauro S.J. <jo...@ca...> - 2003-11-25 10:44:04
|
This is de version of last Provider ? 1.1.1266.28704 Josauro S.J. Diretor e-mail: jo...@ca... site: www.casasoft.inf.br Portal de im=F3veis www.IndicadorDeIm=F3veis.com.br O =FAnico Portal de im=F3veis 100% on-line com as imobili=E1rias, = im=F3veis atualizados minuto a minuto a certeza de que o im=F3vel = anunciado realmente esta Dispon=EDvel. ----- Original Message -----=20 From: Carlos Guzm=E1n =C1lvarez=20 To: Josauro S.J.=20 Cc: fir...@li...=20 Sent: Tuesday, November 25, 2003 7:50 AM Subject: Re: [Firebird-net-provider] = FirebirdSql.Data.INGDS.GDSException Hello: > Hello: > =20 > I change my code to ...("EXECUTE PROCEDURE=20 > GET_RECIBOS(@CLI_REFERENCIA)" )... > And the error not ocurrs, but other error about cant return = multiples=20 > row in singleton select.... SELECT * FROM GET_RECIBOS(@CLI_REFERENCIA) -- Best regards Carlos Guzm=E1n =C1lvarez Vigo-Spain |
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X