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.