[carlomagno]

Hola a todos


Os pongo un codigo a ver si alguien me echa un cable


create procedure NuevoCodigoArt(familia integer, CodVie Char(8)) returns (CodArt integer) as
declare variable total Double Precision;

declare variable aux Integer;
begin
if (codVie<>'') then DELETE FROM NUEVOCODART WHERE Codigo=:CodVie;
aux=CAST (familia AS char(3)) || '0001';
select Count(*)
from Articulos a, NuevoCodArt n
where a.Codigo=:aux or n.Codigo=:aux
into :total;
while (total<>0) do
begin
aux=aux+1;
select Count(*)
from Articulos a, NuevoCodArt n
where a.codigo=:aux or n.Codigo=:aux
into :total;
end
Insert INTO NUEVOCODART Values(:aux);
CodArt=:aux;
end ;

Este codigo tiene que buscar el primer codigo libre de la bd de la central.
Por IBConcole me devuelve un codigo correcto pero por del Delphi con un store procedure de IBX siempre me devuelve 0
Gracias