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