Consumer Electronics & IT Hardware: Serialized Repair & Warranty Management

codeunit 50260 "OEM Warranty Validator"
{
    Access = Public;
    Subtype = Normal;

    [EventSubscriber(ObjectType::Table, Database::"Service Item Line", 'OnBeforeInsertServiceItemLine', '', false, false)]
    local procedure ValidateOEMWarranty(var ServiceItemLine: Record "Service Item Line")
    var
        ServiceItem: Record "Service Item";
        Customer: Record Customer;
    begin
        if not ServiceItem.Get(ServiceItemLine."Service Item No.") then
            exit;

        // Check if Device Serial Number is within active OEM Warranty Coverage
        if (ServiceItem."Warranty Starting Date (Parts)" <= WorkDate()) and
           (ServiceItem."Warranty Ending Date (Parts)" >= WorkDate()) then begin
            
            ServiceItemLine."Warranty Parts %" := 100.0;
            ServiceItemLine.Warranty := true;
            ServiceItemLine."Fault Reason Code" := 'DEFECTIVE_OEM_PART';

            Message('Active OEM Warranty Detected for Serial %1. Spare parts 100% covered under OEM claim.', ServiceItem."Serial No.");
        end else begin
            ServiceItemLine."Warranty Parts %" := 0.0;
            ServiceItemLine.Warranty := false;
        end;
    end;
}