Construction Subcontracting & Job Costing: AIA Billing & Project Accounting

codeunit 50240 "Construction Retainage Engine"
{
    Access = Public;
    Subtype = Normal;

    [EventSubscriber(ObjectType::Table, Database::"Purchase Line", 'OnAfterAssignItemValues', '', false, false)]
    local procedure ApplySubcontractorRetainage(var PurchaseLine: Record "Purchase Line")
    var
        Job: Record Job;
        RetainagePercent: Decimal;
        RetainageAmount: Decimal;
    begin
        if PurchaseLine."Job No." = '' then
            exit;

        if Job.Get(PurchaseLine."Job No.") then begin
            RetainagePercent := 10.0; // Standard 10% Construction Retainage
            
            RetainageAmount := PurchaseLine."Line Amount" * (RetainagePercent / 100);
            
            PurchaseLine."Retainage %" := RetainagePercent;
            PurchaseLine."Retainage Amount" := RetainageAmount;
            PurchaseLine."Net Payable Amount" := PurchaseLine."Line Amount" - RetainageAmount;
        end;
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"Purch.-Post", 'OnBeforePostPurchaseDoc', '', false, false)]
    local procedure EnforceSubcontractorLienWaiver(var PurchaseHeader: Record "Purchase Header")
    var
        Vendor: Record Vendor;
    begin
        if Vendor.Get(PurchaseHeader."Buy-from Vendor No.") then begin
            if Vendor."Subcontractor Lien Waiver On File" = false then
                Error('Payment Hold: Subcontractor %1 has missing or expired Lien Waiver on file. Cannot post payment.', Vendor."Name");
        end;
    end;
}