Comprobar en un while not eof si tiene stock un producto

[marcoszorrilla]

Haz los cambios que vespunto y coma en rojo, quitar).

Código Delphi [-]
WHILE NOT mddevolucion.eof do
  begin
  if mddevolucioncodipro.Value:=query2codipro.Value
    then showmessage('Producto ya existe');
  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;

end.

Un Saludo.

[Petolansa]

Gracias marcos, saque el punto y la coma y agregue el begin despues del else, epro me sigue tirando type of expression must be BOOLEAN, le lo dan entre el the y el showmessage. Porque es esto??

Saludos!

[marcoszorrilla]

Quita los dos puntos que ves en rojo.

Código Delphi [-]
WHILE NOT mddevolucion.eof do
  begin
  if mddevolucioncodipro.Value:=query2codipro.Value
    then showmessage('Producto ya existe');
  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;

end.

Un Sludo.

[[egostar]]

Empezado por Petolansa

Gracias marcos, saque el punto y la coma y agregue el begin despues del else, epro me sigue tirando type of expression must be BOOLEAN, le lo dan entre el the y el showmessage. Porque es esto??

Saludos!

El problema es que un if nunca debe de hacer la comparación con := , solo es =.
if mddevolucioncodipro.Value = query2codipro.Value

Salud OS

[[Caral]]

Hola

Código Delphi [-]
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.

Saludos

[Petolansa]

Gracias egostar y Caral, era eso.
Saludos!

[marcoszorrilla]

No es por nada, pero ya lo había dicho.


Un Saludo.

[[egostar]]

Empezado por marcoszorrilla

No es por nada, pero ya lo había dicho.


Un Saludo.

Muy cierto, nos ganaste por una nariz, pero fuiste tan veloz que no apareciste en la foto

Salud OS