WHILE NOT mddevolucion.eof do
begin
if mddevolucioncodipro.Value = query2codipro.Value then
showmessage('Producto ya existe');
end
else
begin
mddevolucion.Append;
mddevolucioncodipro.Value:=query2codipro.Value;
mddevolucioncantidad.Value:=query2cantidad.Value;
mddevolucionconcepto.Value:=query2concepto.Value;
mddevolucionprecio.Value:=query2precio.Value;
mddevolucionprecioneto.Value:=query2precioneto.Value;
mddevolucion.Next;
end;
end.