Código Delphi
[-]
if cod_barra.text<>null then
begin
query1.close;
query1.params[0].value:=dm.stock.fieldvalues['cod_barra'];
query1.open;
query1.First;
While not (query1.Eof) Do
Begin
if cod_barra.text=query1.fieldvalues['cod_barra'] then
showmessage('el codigo ingresado ya existe');
cod_barra.setfocus;
query1.Next;
end;
guardar.click;
end;
Ya tengo claro que el while no lleva else.
Ahora el problema que tengo es que al encontrar un mismo codigo tendria que el focus posicionarse en cod_barra, pero igual recorre todo el algoritmo y guarda..., como le hago para que no guarde si encuentra un mismo codigo y que el focus se situe en cod_barra...