Page 1270 OCR Service Setup, source in 29
Source29
src/Layers/W1/BaseApp/eServices/EDocument/OCRServiceSetup.Page.al416 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.EServices.EDocument;
using Microsoft.Utilities;
using System.Security.Encryption;
using System.Telemetry;
page 1270 "OCR Service Setup"
{
AdditionalSearchTerms = 'electronic document,e-invoice,incoming document,document exchange,import invoice,lexmark,optical character recognition';
ApplicationArea = Basic, Suite;
Caption = 'OCR Service Setup';
DeleteAllowed = false;
InsertAllowed = false;
LinksAllowed = false;
PageType = Card;
ShowFilter = false;
SourceTable = "OCR Service Setup";
UsageCategory = Administration;
layout
{
area(content)
{
group(General)
{
Caption = 'General';
group(Control23)
{
ShowCaption = false;
field("User Name"; Rec."User Name")
{
ApplicationArea = Basic, Suite;
Editable = EditableByNotEnabled;
ShowMandatory = true;
trigger OnValidate()
begin
CurrPage.SaveRecord();
end;
}
field(Password; Password)
{
ApplicationArea = Basic, Suite;
Caption = 'Password';
Editable = EditableByNotEnabled;
ExtendedDatatype = Masked;
ShowMandatory = true;
ToolTip = 'Specifies the password that is used for your company''s login to the OCR service.';
trigger OnValidate()
begin
Rec.SavePassword(Rec."Password Key", Password);
if Password <> '' then
CheckEncryption();
end;
}
field(AuthorizationKey; AuthorizationKey)
{
ApplicationArea = Basic, Suite;
Caption = 'Authorization Key';
Editable = EditableByNotEnabled;
ExtendedDatatype = Masked;
ShowMandatory = true;
ToolTip = 'Specifies the authorization key that is used for your company''s login to the OCR service.';
trigger OnValidate()
begin
Rec.SavePassword(Rec."Authorization Key", AuthorizationKey);
if AuthorizationKey <> '' then
CheckEncryption();
end;
}
field("Default OCR Doc. Template"; Rec."Default OCR Doc. Template")
{
ApplicationArea = Basic, Suite;
Editable = EditableByNotEnabled;
trigger OnValidate()
begin
CurrPage.Update();
end;
}
}
group(Control25)
{
ShowCaption = false;
field("Master Data Sync Enabled"; Rec."Master Data Sync Enabled")
{
ApplicationArea = Basic, Suite;
Editable = EditableByNotEnabled;
trigger OnValidate()
begin
UpdateBasedOnSyncEnable();
end;
}
field("Master Data Last Sync"; Rec."Master Data Last Sync")
{
ApplicationArea = Basic, Suite;
Editable = false;
}
field(Enabled; Rec.Enabled)
{
ApplicationArea = Basic, Suite;
trigger OnValidate()
begin
UpdateBasedOnEnable();
CurrPage.Update();
end;
}
field(ShowEnableWarning; ShowEnableWarning)
{
ShowCaption = false;
ApplicationArea = Basic, Suite;
AssistEdit = false;
Editable = false;
Enabled = not EditableByNotEnabled;
trigger OnDrillDown()
begin
DrilldownCode();
end;
}
}
}
group(Service)
{
Caption = 'Service';
field("Sign-up URL"; Rec."Sign-up URL")
{
ApplicationArea = Basic, Suite;
Editable = EditableByNotEnabled;
}
field("Service URL"; Rec."Service URL")
{
ApplicationArea = Basic, Suite;
Editable = EditableByNotEnabled;
ShowMandatory = true;
}
field("Sign-in URL"; Rec."Sign-in URL")
{
ApplicationArea = Basic, Suite;
Editable = EditableByNotEnabled;
}
}
group(CustomerStatus)
{
Caption = 'Status';
field("Customer Name"; Rec."Customer Name")
{
ApplicationArea = Basic, Suite;
Editable = false;
Importance = Promoted;
}
field("Customer ID"; Rec."Customer ID")
{
ApplicationArea = Basic, Suite;
Editable = false;
}
field("Customer Status"; Rec."Customer Status")
{
ApplicationArea = Basic, Suite;
Editable = false;
Importance = Promoted;
}
}
}
}
actions
{
area(processing)
{
action(SetURLsToDefault)
{
ApplicationArea = Basic, Suite;
Caption = 'Set URLs to Default';
Enabled = EditableByNotEnabled;
Image = Restore;
ToolTip = 'Change the service and sign-up URLs to their default values. You cannot cancel this action to revert back to the current values.';
trigger OnAction()
begin
Rec.SetURLsToDefault();
end;
}
action(TestConnection)
{
ApplicationArea = Basic, Suite;
Caption = 'Test Connection';
Image = Link;
ToolTip = 'Check that the settings that you added are correct and the connection to the Data Exchange Service is working.';
trigger OnAction()
var
OCRServiceMgt: Codeunit "OCR Service Mgt.";
begin
OCRServiceMgt.TestConnection(Rec);
end;
}
action(UpdateOCRDocTemplateList)
{
ApplicationArea = Basic, Suite;
Caption = 'Update OCR Doc. Template List';
Image = Template;
ToolTip = 'Check for new document templates that the OCR service supports, and add them to the list.';
trigger OnAction()
var
OCRServiceMgt: Codeunit "OCR Service Mgt.";
begin
OCRServiceMgt.UpdateOcrDocumentTemplates();
end;
}
action(ResyncMasterData)
{
ApplicationArea = Basic, Suite;
Caption = 'Resync Master Data';
Enabled = EditableBySyncEnabled;
Image = CopyFromChartOfAccounts;
ToolTip = 'Synchronize master data for vendors and vendor bank accounts with the OCR service.';
trigger OnAction()
var
ReadSoftOCRMasterDataSync: Codeunit "ReadSoft OCR Master Data Sync";
begin
Clear(Rec."Master Data Last Sync");
Rec.Modify();
ReadSoftOCRMasterDataSync.SyncMasterData(false, false);
end;
}
action(JobQueueEntry)
{
ApplicationArea = Basic, Suite;
Caption = 'Job Queue Entry';
Enabled = Rec.Enabled;
Image = JobListSetup;
ToolTip = 'View or edit the jobs that automatically process the incoming and outgoing electronic documents.';
trigger OnAction()
begin
Rec.ShowJobQueueEntry();
end;
}
}
area(navigation)
{
action(EncryptionManagement)
{
ApplicationArea = Basic, Suite;
Caption = 'Encryption Management';
Enabled = EditableByNotEnabled;
Image = EncryptionKeys;
RunObject = Page "Data Encryption Management";
RunPageMode = View;
ToolTip = 'Enable or disable data encryption. Data encryption helps make sure that unauthorized users cannot read business data.';
}
action(ActivityLog)
{
ApplicationArea = Basic, Suite;
Caption = 'Activity Log';
Image = Log;
ToolTip = 'See the status and any errors for the electronic document or OCR file that you send through the document exchange service.';
trigger OnAction()
var
ActivityLog: Record "Activity Log";
begin
ActivityLog.ShowEntries(Rec);
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
actionref(TestConnection_Promoted; TestConnection)
{
}
actionref(UpdateOCRDocTemplateList_Promoted; UpdateOCRDocTemplateList)
{
}
actionref(SetURLsToDefault_Promoted; SetURLsToDefault)
{
}
actionref(ResyncMasterData_Promoted; ResyncMasterData)
{
}
}
group(Category_Category4)
{
Caption = 'Encryption', Comment = 'Generated from the PromotedActionCategories property index 3.';
actionref(EncryptionManagement_Promoted; EncryptionManagement)
{
}
}
group(Category_Category5)
{
Caption = 'Navigate', Comment = 'Generated from the PromotedActionCategories property index 4.';
actionref(JobQueueEntry_Promoted; JobQueueEntry)
{
}
actionref(ActivityLog_Promoted; ActivityLog)
{
}
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
}
}
trigger OnAfterGetCurrRecord()
begin
UpdateEncryptedField(Rec."Password Key", Password);
UpdateEncryptedField(Rec."Authorization Key", AuthorizationKey);
end;
trigger OnAfterGetRecord()
begin
UpdateBasedOnEnable();
end;
trigger OnOpenPage()
var
FeatureTelemetry: Codeunit "Feature Telemetry";
OCRServiceMgt: Codeunit "OCR Service Mgt.";
begin
Rec.Reset();
FeatureTelemetry.LogUptake('0000IMM', OCRServiceMgt.GetFeatureTelemetryName(), Enum::"Feature Uptake Status"::Discovered);
if not Rec.Get() then begin
Rec.Init();
Rec.Insert(true);
Rec.SetURLsToDefault();
end;
UpdateBasedOnEnable();
end;
trigger OnQueryClosePage(CloseAction: Action): Boolean
begin
if not Rec.Enabled then
if not Confirm(StrSubstNo(EnableServiceQst, CurrPage.Caption), true) then
exit(false);
end;
var
Password: Text[50];
AuthorizationKey: Text[50];
ShowEnableWarning: Text;
EditableByNotEnabled: Boolean;
EnabledWarningTok: Label 'You must disable the service before you can make changes.';
DisableEnableQst: Label 'Do you want to disable the OCR service?';
EnableServiceQst: Label 'The %1 is not enabled. Are you sure you want to exit?', Comment = '%1 = pagecaption (OCR Service Setup)';
EncryptionIsNotActivatedQst: Label 'Data encryption is not activated. It is recommended that you encrypt data. \Do you want to open the Data Encryption Management window?';
EditableBySyncEnabled: Boolean;
CheckedEncryption: Boolean;
local procedure UpdateBasedOnEnable()
begin
EditableByNotEnabled := (not Rec.Enabled) and CurrPage.Editable;
ShowEnableWarning := '';
if CurrPage.Editable and Rec.Enabled then
ShowEnableWarning := EnabledWarningTok;
UpdateBasedOnSyncEnable();
end;
local procedure UpdateBasedOnSyncEnable()
begin
EditableBySyncEnabled := Rec."Master Data Sync Enabled" and Rec.Enabled;
if EditableBySyncEnabled then
exit;
if Rec."Master Data Last Sync" = 0DT then
exit;
Clear(Rec."Master Data Last Sync");
Rec.Modify();
end;
local procedure DrilldownCode()
begin
if Confirm(DisableEnableQst, true) then begin
Rec.Enabled := false;
UpdateBasedOnEnable();
CurrPage.Update();
end;
end;
local procedure UpdateEncryptedField(InputGUID: Guid; var Text: Text[50])
begin
if IsNullGuid(InputGUID) then
Text := ''
else
Text := '*************';
end;
local procedure CheckEncryption()
begin
if not CheckedEncryption and not EncryptionEnabled() then begin
CheckedEncryption := true;
if not EncryptionEnabled() then
if Confirm(EncryptionIsNotActivatedQst) then
PAGE.Run(PAGE::"Data Encryption Management");
end;
end;
}