pageextension 50211 "Sales Order Subform Ext" extends "Sales Order Subform"
{
layout
{
addafter(Control1)
{
usercontrol(RefreshControl; AutoRefreshAddin)
{
ApplicationArea = All;
// trigger OnRefreshRequired()
// begin
// CurrPage.Update(false);
// end;
trigger OnControlAddinReady()
var
Customer: Record Customer;
SalesHeader: Record "Sales Header";
begin
if SalesHeader.Get(Rec."Document Type", Rec."Document No.") then begin
Customer.SetLoadFields("Credit Limit Check");
if Customer.Get(SalesHeader."Sell-to Customer No.") then
LastCreditLimitValue := Customer."Credit Limit Check";
end;
CurrPage.RefreshControl.StartSmartPolling(1000);
end;
trigger OnCheckForChanges()
var
Customer: Record Customer;
SalesHeader: Record "Sales Header";
CurrentValueOnCustomer: Decimal;
begin
SalesHeader.Get(Rec."Document Type"::Order, Rec."Document No.");
if Customer.Get(SalesHeader."Sell-to Customer No.") then
begin
Customer.SetLoadFields("Credit Limit Check");
CurrentValueOnCustomer := Customer."Credit Limit Check"
end
else
CurrentValueOnCustomer := 0;
if CurrentValueOnCustomer <> LastCreditLimitValue then begin
CurrPage.Update(false);
LastCreditLimitValue := CurrentValueOnCustomer;
end;
end;
}
}
}
trigger OnClosePage()
begin
CurrPage.RefreshControl.StopSmartPolling();
end;
var
LastCreditLimitValue: Decimal;
}