administracion@riversa.es

Buenas noches:

Después de muchas pruebas y de los comentarios que me has ido haciendo he conseguido hacerlo funcionar directamente en la página.

En el OnAfterGetCurrRecord() he puesto el código que indico por si puede ayudar a alguien y por las pruebas que he realizado funciona correctamente y aunque se actualice la página el calculo se realiza correctamente.

var
SalesShipmentLine: Record “Sales Shipment Line”;

begin
//Función para calcular el total de la página
SumLinesFields := 0;
SalesShipmentLine.Reset();
SalesShipmentLine.CopyFilters(Rec); // Copiamos los filtros de la página y los aplicamos

if SalesShipmentLine.Find(‘-‘) then
repeat
SumLinesFields += (SalesShipmentLine.”Qty. Shipped Not Invoiced” * SalesShipmentLine.”Unit Price”) – ((SalesShipmentLine.”Qty. Shipped Not Invoiced” * SalesShipmentLine.”Unit Price” * SalesShipmentLine.”Line Discount %”) / 100);
until SalesShipmentLine.Next() = 0;

end;

Gracias por la ayuda.

#1017534