pageextension 62007 "Sales Order PartialValue" extends "Sales Order List"
{
layout
{
addafter("Amt. Ship. Not Inv. (LCY)")
{
field("Partial Invoiced"; PartialInvoiced)
{
ApplicationArea = All;
}
}
}
trigger OnAfterGetRecord()
var
PartialQty: Record "Sales Line";
begin
PartialInvoiced := 0;
PartialQty.Reset();
PartialQty.SetRange("Document Type", PartialQty."Document Type"::Order);
PartialQty.SetRange("Document No.", Rec."No.");
PartialQty.SetFilter("Quantity Invoiced", '>%1', 0);
if PartialQty.FindSet() then
repeat
PartialInvoiced += PartialQty."Quantity Invoiced" * PartialQty."Unit Price";
until PartialQty.Next() = 0;
end;
var
PartialInvoiced: Decimal;
}