Subject | |
---|---|
Author | apatri@inwind.it |
Post date | 2001-03-29T12:41:18Z |
Just a wek ago I wrote the following message, but nobody seems read
this.
Please any hint??
Thanks
Arnaldo
*********************************************************************
Hi All.
I have the following procedure:
CREATE PROCEDURE DIFFERENZA_PAGAMENTO_CLIENTE (
NORDINE INTEGER)
AS
declare variable totaleordine numeric( 18,2 );
declare variable progressivo numeric( 18,2 );
declare variable importo numeric( 18,2 );
declare variable vmycode integer;
begin
/* find the total amount of the payment */
select totale from ordiniclienti where mycode= :nordine
into :totaleordine;
progressivo = 0; /* reset progressive counter */
/* sum the various import of the payment */
for select mycode, importo from pagamenticliente where
collordine = :nordine order by datapagamento
into :vmycode, :importo do begin
/* increment progressive counter */
progressivo = :totaleordine - ( :progressivo + :importo ) ;
/* write data on database */
update pagamenticliente set differenza = :progressivo where mycode
= :vmycode ; /**** here give me a stack error and lost the connection.
end /* for ... */
end
In brief i want sum a payment, pay it in 1, 2, 3 or what you want
subpayment.
all works fine, but seems interbase don't update a already select
table.
Please: Any hints??????
TIA
Arnaldo
this.
Please any hint??
Thanks
Arnaldo
*********************************************************************
Hi All.
I have the following procedure:
CREATE PROCEDURE DIFFERENZA_PAGAMENTO_CLIENTE (
NORDINE INTEGER)
AS
declare variable totaleordine numeric( 18,2 );
declare variable progressivo numeric( 18,2 );
declare variable importo numeric( 18,2 );
declare variable vmycode integer;
begin
/* find the total amount of the payment */
select totale from ordiniclienti where mycode= :nordine
into :totaleordine;
progressivo = 0; /* reset progressive counter */
/* sum the various import of the payment */
for select mycode, importo from pagamenticliente where
collordine = :nordine order by datapagamento
into :vmycode, :importo do begin
/* increment progressive counter */
progressivo = :totaleordine - ( :progressivo + :importo ) ;
/* write data on database */
update pagamenticliente set differenza = :progressivo where mycode
= :vmycode ; /**** here give me a stack error and lost the connection.
end /* for ... */
end
In brief i want sum a payment, pay it in 1, 2, 3 or what you want
subpayment.
all works fine, but seems interbase don't update a already select
table.
Please: Any hints??????
TIA
Arnaldo