Cita:
Empezado por cloayza
Analisando un poco el codigo, lo unico que se me ocurre es que se este produciendo un error en la insercion de los codigos.
La sospecha es que la seleccion de registros este dando 0 registros, esto debido a la comparacion de 2 strings que estas haciendo Desc_Corta= escrip';
Supongamos que:
Desc_Corta='Azucar'
escrip='AZUCAr'
Al realizar la seleccion con Where Desc_Corta=escrip';, esta dara cero registros.
Código Delphi [-]IBQuery1.SQL.Clear;
IBQuery1.SQL.Text:='Select CLAVE From ARTICULOS Where Desc_Corta=escrip'; //Sugiero Upper->(Desc_Corta)=Upper(escrip) IBQuery1.ParamByName('Descrip').AsString:=DescCorta;
IBQuery1.Open;
If IBQuery1.RecordCount=0 Then
//No se encontro ningun registro que cumpla la condicion Where;
IdArt:=IBQuery1.FieldByName('Clave').AsInteger;
//Si no se encontraron registros IdArt=0;
Espero que sirva en algo...
Saludos desde
Concepcion-Chile |
Gracias por contestar Cloayza.
Conforme a lo que me sugieres sobre el Upper, todo el catalogo que quiero manejar esta en mayusculas por eso descarto esa posibilidad.
Y donde pongo el codigo para la seleccion de la CLAVE de la tabla ARTICULOS, es un valor autoincrementable y ademas primaria, entonces lo guardo en una variable lo que me lanza el Query.
De todos modos voy a realizar eso del UPPER por si las malditas moscas.
Muchas Gracias por contestar y Saludos desde Los Mochis, Sinaloa, México.