diff --git a/src/Layers/W1/BaseApp/Integration/FieldService/FSProjectTask.Table.al b/src/Layers/W1/BaseApp/Integration/FieldService/FSProjectTask.Table.al index 292aa1fd1fa..f5966381fa1 100644 --- a/src/Layers/W1/BaseApp/Integration/FieldService/FSProjectTask.Table.al +++ b/src/Layers/W1/BaseApp/Integration/FieldService/FSProjectTask.Table.al @@ -86,7 +86,11 @@ table 6404 "FS Project Task" TableRelation = "CRM SystemUser".SystemUserId; DataClassification = SystemMetadata; } +#if not CLEAN29 field(8; CreatedByName; Text[100]) +#else + field(8; CreatedByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM SystemUser".FullName where(SystemUserId = field(CreatedBy))); @@ -94,7 +98,11 @@ table 6404 "FS Project Task" ExternalType = 'String'; ExternalAccess = Read; } +#if not CLEAN29 field(10; CreatedOnBehalfByName; Text[100]) +#else + field(10; CreatedOnBehalfByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM SystemUser".FullName where(SystemUserId = field(CreatedOnBehalfBy))); @@ -102,7 +110,11 @@ table 6404 "FS Project Task" ExternalType = 'String'; ExternalAccess = Read; } +#if not CLEAN29 field(12; ModifiedByName; Text[100]) +#else + field(12; ModifiedByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM Systemuser".FullName where(SystemUserId = field(ModifiedBy))); @@ -110,7 +122,11 @@ table 6404 "FS Project Task" ExternalType = 'String'; ExternalAccess = Read; } +#if not CLEAN29 field(14; ModifiedOnBehalfByName; Text[100]) +#else + field(14; ModifiedOnBehalfByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM Systemuser".FullName where(SystemUserId = field(ModifiedOnBehalfBy))); @@ -260,5 +276,5 @@ table 6404 "FS Project Task" { } } -} +} #endif \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Integration/FieldService/FSResourcePayType.Table.al b/src/Layers/W1/BaseApp/Integration/FieldService/FSResourcePayType.Table.al index 06da80453df..be5d8cec4bb 100644 --- a/src/Layers/W1/BaseApp/Integration/FieldService/FSResourcePayType.Table.al +++ b/src/Layers/W1/BaseApp/Integration/FieldService/FSResourcePayType.Table.al @@ -85,7 +85,11 @@ table 6206 "FS Resource Pay Type" TableRelation = "CRM Systemuser".SystemUserId; DataClassification = SystemMetadata; } +#if not CLEAN29 field(8; CreatedByName; Text[100]) +#else + field(8; CreatedByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM Systemuser".FullName where(SystemUserId = field(CreatedBy))); @@ -93,7 +97,11 @@ table 6206 "FS Resource Pay Type" ExternalType = 'String'; ExternalAccess = Read; } +#if not CLEAN29 field(10; CreatedOnBehalfByName; Text[100]) +#else + field(10; CreatedOnBehalfByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM Systemuser".FullName where(SystemUserId = field(CreatedOnBehalfBy))); @@ -101,7 +109,11 @@ table 6206 "FS Resource Pay Type" ExternalType = 'String'; ExternalAccess = Read; } +#if not CLEAN29 field(12; ModifiedByName; Text[100]) +#else + field(12; ModifiedByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM Systemuser".FullName where(SystemUserId = field(ModifiedBy))); @@ -109,7 +121,11 @@ table 6206 "FS Resource Pay Type" ExternalType = 'String'; ExternalAccess = Read; } +#if not CLEAN29 field(14; ModifiedOnBehalfByName; Text[100]) +#else + field(14; ModifiedOnBehalfByName; Text[200]) +#endif { FieldClass = FlowField; CalcFormula = lookup("CRM Systemuser".FullName where(SystemUserId = field(ModifiedOnBehalfBy))); diff --git a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePickRqstDocType.EnumExt.al b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePickRqstDocType.EnumExt.al index 745a05c5346..717c01ebe94 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePickRqstDocType.EnumExt.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePickRqstDocType.EnumExt.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Warehouse.Activity; -enumextension 99000776 "Mfg. Whse. Pick Rqst. Doc. Type" extends "Warehouse Pick Request Document Type" +enumextension 99000776 "Mfg. WhsePickRqstDocType" extends "Warehouse Pick Request Document Type" { value(2; "Production") { Caption = 'Production'; } } \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePutAwayRqstDocType.EnumExt.al b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePutAwayRqstDocType.EnumExt.al index 897c73f9cb2..3dbac1bd44d 100644 --- a/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePutAwayRqstDocType.EnumExt.al +++ b/src/Layers/W1/BaseApp/Manufacturing/Warehouse/Activity/MfgWhsePutAwayRqstDocType.EnumExt.al @@ -4,7 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.Warehouse.Activity; -enumextension 99000780 "Mfg. Whse. PutAway Rqst. Doc. Type" extends "Warehouse Put-away Request Document Type" +enumextension 99000780 "Mfg. WhsePutAwayRqstDocType" extends "Warehouse Put-away Request Document Type" { value(2; "Production") { Caption = 'Production'; } } \ No newline at end of file diff --git a/src/Layers/W1/BaseApp/OtherCapabilities/RetentionPolicy/RetenPolDocArchiveFltrng.EnumExt.al b/src/Layers/W1/BaseApp/OtherCapabilities/RetentionPolicy/RetenPolDocArchiveFltrng.EnumExt.al index d69ddf8c3b7..d2915babf39 100644 --- a/src/Layers/W1/BaseApp/OtherCapabilities/RetentionPolicy/RetenPolDocArchiveFltrng.EnumExt.al +++ b/src/Layers/W1/BaseApp/OtherCapabilities/RetentionPolicy/RetenPolDocArchiveFltrng.EnumExt.al @@ -1,6 +1,6 @@ namespace System.DataAdministration; -enumextension 3999 "Reten. Pol. Doc. Archive Fltrng." extends "Reten. Pol. Filtering" +enumextension 3999 "Reten. Pol.Doc.Archive Fltrng." extends "Reten. Pol. Filtering" { value(3999; "Document Archive Filtering") { diff --git a/src/Layers/W1/BaseApp/System/Workflow/WorkflowWebhookNotification.Codeunit.al b/src/Layers/W1/BaseApp/System/Workflow/WorkflowWebhookNotification.Codeunit.al index e68fa41dc15..8d669bfea2d 100644 --- a/src/Layers/W1/BaseApp/System/Workflow/WorkflowWebhookNotification.Codeunit.al +++ b/src/Layers/W1/BaseApp/System/Workflow/WorkflowWebhookNotification.Codeunit.al @@ -27,6 +27,7 @@ codeunit 1545 "Workflow Webhook Notification" NotificationUrlTxt: Label 'NotificationUrl'; WorkflowWebhookCategoryLbl: Label 'AL Workflow Webhook', Locked = true; WorkflowWebhookCorrelationGuidTxt: Label 'Correlation GUID for workflow webhook notification created: %1', Locked = true; + WorkFlowErrorDetailsTxt: Label '%1 - StatusCode: %2 - StatusDescription: %3', Comment = '%1=ErrorDetails, %2=StatusCode, %3=StatusDescription', Locked = true; procedure Initialize(RetryCount: Integer; WaitTimeInMs: Integer) begin @@ -95,8 +96,9 @@ codeunit 1545 "Workflow Webhook Notification" HttpWebResponse := WebException.Response; if not IsNull(HttpWebResponse) then if not IsNull(HttpWebResponse.StatusCode) then begin - ErrorDetails := StrSubstNo('%1 - StatusCode: %2 - StatusDescription: %3', ErrorDetails, - Format(HttpWebResponse.StatusCode), HttpWebResponse.StatusDescription); + ErrorDetails := + StrSubstNo( + WorkFlowErrorDetailsTxt, ErrorDetails, Format(HttpWebResponse.StatusCode), HttpWebResponse.StatusDescription); Retry := ShouldRetry(HttpWebResponse.StatusCode, HttpWebResponse.StatusDescription); end; end; @@ -116,7 +118,7 @@ codeunit 1545 "Workflow Webhook Notification" end; [TryFunction] - [IntegrationEvent(true, true)] + [IntegrationEvent(true, false)] [Scope('OnPrem')] procedure OnPostNotificationRequest(DataID: Guid; WorkflowStepInstanceID: Guid; NotificationUrl: Text; RequestedByUserEmail: Text) begin diff --git a/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocument.Page.al b/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocument.Page.al index 2e81a4af12f..48f63de59e5 100644 --- a/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocument.Page.al +++ b/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocument.Page.al @@ -1163,7 +1163,7 @@ page 189 "Incoming Document" ReplaceMainAttachmentEnabled := Rec.CanReplaceMainAttachment(); end; - [IntegrationEvent(true, true)] + [IntegrationEvent(true, false)] local procedure OnCloseIncomingDocumentFromAction(var IncomingDocument: Record "Incoming Document") begin end; diff --git a/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocuments.Page.al b/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocuments.Page.al index c3935621f19..26a03933305 100644 --- a/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocuments.Page.al +++ b/src/Layers/W1/BaseApp/eServices/EDocument/IncomingDocuments.Page.al @@ -903,7 +903,7 @@ page 190 "Incoming Documents" AutomaticCreationActionsAreEnabled := Rec."Data Exchange Type" <> ''; end; - [IntegrationEvent(true, true)] + [IntegrationEvent(true, false)] local procedure OnCloseIncomingDocumentsFromActions(var IncomingDocument: Record "Incoming Document") begin end;