Table 6702 Booking Sync, source in 29
Source29
src/Layers/W1/BaseApp/OtherCapabilities/Booking/BookingSync.Table.al140 lines, Copyright (c) Microsoft Corporation. MIT
namespace Microsoft.Booking;
using Microsoft.Sales.Customer;
using System.Environment;
using System.IO;
using System.Security.AccessControl;
table 6702 "Booking Sync"
{
Caption = 'Booking Sync';
DataClassification = CustomerContent;
fields
{
field(1; "Primary Key"; Code[10])
{
AllowInCustomizations = Never;
Caption = 'Primary Key';
}
field(2; "Booking Mailbox Address"; Text[80])
{
Caption = 'Booking Mailbox Address';
}
field(3; "Booking Mailbox Name"; Text[250])
{
Caption = 'Booking Mailbox Name';
}
field(4; "User ID"; Code[50])
{
Caption = 'User ID';
DataClassification = EndUserIdentifiableInformation;
NotBlank = true;
TableRelation = User."User Name";
ValidateTableRelation = false;
}
field(5; "Last Customer Sync"; DateTime)
{
Caption = 'Last Customer Sync';
Editable = true;
}
field(6; "Last Service Sync"; DateTime)
{
Caption = 'Last Service Sync';
}
field(7; Enabled; Boolean)
{
Caption = 'Enabled';
}
field(8; "Sync Customers"; Boolean)
{
Caption = 'Sync Customers';
}
field(9; "Customer Filter"; BLOB)
{
Caption = 'Customer Filter';
}
field(12; "Sync Services"; Boolean)
{
Caption = 'Sync Services';
}
field(13; "Item Filter"; BLOB)
{
Caption = 'Item Filter';
}
field(14; "Item Template Code"; Code[10])
{
Caption = 'Item Template Code';
TableRelation = "Config. Template Header".Code where("Table ID" = filter(27));
}
field(15; "Customer Templ. Code"; Code[20])
{
Caption = 'Customer Template Code';
TableRelation = "Customer Templ.";
}
}
keys
{
key(Key1; "Primary Key")
{
Clustered = true;
}
key(Key2; "Booking Mailbox Address")
{
}
}
fieldgroups
{
}
procedure GetCustomerFilter() FilterText: Text
var
ReadStream: InStream;
begin
CalcFields("Customer Filter");
"Customer Filter".CreateInStream(ReadStream);
ReadStream.ReadText(FilterText);
end;
procedure GetItemFilter() FilterText: Text
var
ReadStream: InStream;
begin
CalcFields("Item Filter");
"Item Filter".CreateInStream(ReadStream);
ReadStream.ReadText(FilterText);
end;
procedure SaveCustomerFilter(FilterText: Text)
var
WriteStream: OutStream;
begin
Clear("Customer Filter");
"Customer Filter".CreateOutStream(WriteStream);
WriteStream.WriteText(FilterText);
Clear("Last Customer Sync");
Modify();
end;
procedure SaveItemFilter(FilterText: Text)
var
WriteStream: OutStream;
begin
Clear("Item Filter");
"Item Filter".CreateOutStream(WriteStream);
WriteStream.WriteText(FilterText);
Clear("Last Service Sync");
Modify();
end;
procedure IsSetup(): Boolean
var
EnvironmentInfo: Codeunit "Environment Information";
begin
if EnvironmentInfo.IsSaaS() then
exit(Get() and ("Last Service Sync" <> 0DT));
end;
}