Convertir a entero una división de 2 enteros.

[marcoszorrilla]

No he logrado convertir a entero una división de 2 enteros, es decir tengo dos campos 'Integer' y hago una divisón entre ellos y el resultado lo quiero guardar en otro campo también entero.

Lo he arreglado de la siguiente y chapucera manera.

Código Delphi [-]
procedure TDmPedido.IbDtsLinPedidosBULTOSChange(Sender: TField);
begin
DmPedido.IbDtsLinPedidosIMPORTE.Value:= DmPedido.IbDtsLinPedidosBULTOS.Value *
DmPedido.IbDtsLinPedidosFORMATO.Value * DmPedido.IbDtsLinPedidosPCOMREAL.Value;

DmPedido.IbDtsLinPedidosUNISKG.Value:=DmPedido.IbDtsLinPedidosBULTOS.Value *
DmPedido.IbDtsLinPedidosPESO.Value;

  if DmPedido.IbDtsLinPedidosUNISPALET.Value <> 0 then
  DmPedido.IbDtsLinPedidosPALETS.Value:=StrToInt(FormatFloat('0',int(DmPedido.IbDtsLinPedidosBULTOS.Value /
  DmPedido.IbDtsLinPedidosUNISPALET.Value)))
  else
  DmPedido.IbDtsLinPedidosPALETS.Value:=0;
end;

Un Saludo.

[roman]

¿No tendrías que usar Trunc o Round?

// Saludos

[[egostar]]

Esto no te sirve ?

Código Delphi [-]
DmPedido.IbDtsLinPedidosBULTOS.Value div DmPedido.IbDtsLinPedidosUNISPALET.Value

Saludos

[marcoszorrilla]

Son influencias de otro lenguaje, tienes razón, ya está en marcha:

Código Delphi [-]
 if DmPedido.IbDtsLinPedidosUNISPALET.Value <> 0 then
  DmPedido.IbDtsLinPedidosPALETS.Value:=Trunc(DmPedido.IbDtsLinPedidosBULTOS.Value /
  DmPedido.IbDtsLinPedidosUNISPALET.Value)
  else
  DmPedido.IbDtsLinPedidosPALETS.Value:=0;

Un Saludo.

[marcoszorrilla]

Eliseo, no me funciona tu código porque me da error.

Un Saludo.

[[egostar]]

Empezado por marcoszorrilla

Eliseo, no me funciona tu código porque me da error.

Un Saludo.

Ya veo, será por el .Value, lo bueno es que se solucionó con el trunc().

Saludos

[Casimiro Notevi]

Empezado por marcoszorrilla

Eliseo, no me funciona tu código porque me da error.
Un Saludo.

También habría que saber qué error es, que parecemos novatos

[roman]

Empezado por Casimiro Notevi

También habría que saber qué error es, que parecemos novatos

Han de ser esas influencias

Empezado por marcoszorrilla

Son influencias de otro lenguaje

// Saludos

[[Al González]]

Empezado por Casimiro Notevi

También habría que saber qué error es, que parecemos novatos

Remítelo a la guía de estilo, como haces con todo mundo. (es broma, compas)

[ecfisa]

Hola Marcos.

Sólo para agregar que la sugerencia de egostar funciona perfectamente cambiando Value por AsInteger.

Código Delphi [-]
  with DmPedido do
    IbDtsLinPedidosPALETS.AsInteger:= IbDtsLinPedidosBULTOS.AsInteger div IbDtsLinPedidosUNISPALET.AsInteger;

Saludos.

[marcoszorrilla]

Gracias Ecfisa, me suponía como ya apuntó Eliseo que se debía a utilizar Value, pero como estaba trabajando y ya no quería hacer más pruebas lo dejé como apunté anteriormente.

En cuanto al error, era un error ambiguo ya que se producía en el else después de la instrucción, por lo tanto no di datos porque no los tenía y no podía perder tiempo en buscarlo, el mensaje fue más en deferencia con Eliseo que también se había molestado en buscar una solución como se ha visto a posteriori válida.

Gracias a todos.

[Casimiro Notevi]

Empezado por Al González

Remítelo a la guía de estilo, como haces con todo mundo. (es broma, compas)

No, que me vaya a banear