Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

[E-Document Connector] Continia E-Document Connector #27380

Open
wants to merge 6 commits into
base: main
Choose a base branch
from
Open

[E-Document Connector] Continia E-Document Connector #27380

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
e347340
Initial code for Continia Connector
CristianMocanuContinia Oct 8, 2024
c96dbef
Added Environment NS
CristianMocanuContinia Oct 8, 2024
40246b7
Merge pull request #1 from CristianMocanuContinia/continiaeDocConnector
CristianMocanuContinia Oct 8, 2024
bbbb645
Changes based on feedback comments
CristianMocanuContinia Oct 9, 2024
b37612a
Merge pull request #2 from CristianMocanuContinia/continiaeDocConnector
CristianMocanuContinia Oct 9, 2024
a50a7b6
Fixed permission error when sending E-Document (#3)
paracontinia Oct 14, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Apps/W1/EDocumentsConnector/app/app.json
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,7 @@
"idRanges": [
{
"from": 6360,
"to": 6369
"to": 6400
}
],
"resourceExposurePolicy": {
Expand Down
1,066 changes: 1,066 additions & 0 deletions Apps/W1/EDocumentsConnector/app/src/Continia/API Requests/APIRequests.Codeunit.al
View file
Open in desktop

Large diffs are not rendered by default.

231 changes: 231 additions & 0 deletions Apps/W1/EDocumentsConnector/app/src/Continia/API Requests/APIURLMgt.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,231 @@
// ------------------------------------------------------------------------------------------------
// 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.EDocumentConnector.Continia;
using System.Environment;

codeunit 6392 "Api Url Mgt."
{
Access = Internal;
internal procedure NetworkProfilesUrl(Network: Enum "E-Delivery Network"; Page: Integer; PageSize: Integer): Text
var
ProfilesUrlLbl: Label '%1/networks/%2/profiles.xml?page=%3&page_size=%4', Locked = true;
begin
exit(StrSubstNo(ProfilesUrlLbl, CdnBaseUrl(), GetNetworkNameAsText(Network), Page, PageSize));
end;

internal procedure NetworkIdentifiersUrl(Network: Enum "E-Delivery Network"; Page: Integer; PageSize: Integer): Text
var
IdentifiersUrlLbl: Label '%1/networks/%2/id_types.xml?page=%3&page_size=%4', Locked = true;
begin
exit(StrSubstNo(IdentifiersUrlLbl, CdnBaseUrl(), GetNetworkNameAsText(Network), Page, PageSize));
end;

internal procedure ParticipationUrl(Network: Enum "E-Delivery Network"): Text
var
ParticipationUrlLbl: Label '%1/networks/%2/participations.xml', Locked = true;
begin
exit(StrSubstNo(ParticipationUrlLbl, CdnBaseUrl(), GetNetworkNameAsText(Network)))
end;

internal procedure SingleParticipationUrl(Network: Enum "E-Delivery Network"; ParticipationGuid: Guid): Text
var
SingleParticipationUrlLbl: Label '%1/networks/%2/participations/%3.xml', Locked = true;
begin
exit(StrSubstNo(SingleParticipationUrlLbl, CdnBaseUrl(), GetNetworkNameAsText(Network), GetGuidAsText(ParticipationGuid)))
end;

internal procedure ParticipationProfilesUrl(Network: Enum "E-Delivery Network"; ParticipationGuid: Guid): Text
var
ParticipationProfilesUrlLbl: Label '%1/networks/%2/participations/%3/profiles.xml', Locked = true;
begin
exit(StrSubstNo(ParticipationProfilesUrlLbl, CdnBaseUrl(), GetNetworkNameAsText(Network), GetGuidAsText(ParticipationGuid)))
end;

internal procedure ParticipationProfilesUrl(Network: Enum "E-Delivery Network"; ParticipationGuid: Guid; Page: Integer; PageSize: Integer): Text
var
ParticipationProfilesUrlPagesLbl: Label '%1/networks/%2/participations/%3/profiles.xml?page=%4&page_size=%5', Locked = true;
begin
exit(StrSubstNo(ParticipationProfilesUrlPagesLbl, CdnBaseUrl(), GetNetworkNameAsText(Network), GetGuidAsText(ParticipationGuid), Page, PageSize))
end;

internal procedure SingleParticipationProfileUrl(Network: Enum "E-Delivery Network"; ParticipationGuid: Guid; ProfileGuid: Guid): Text
var
SingleParticipationProfileUrlLbl: Label '%1/networks/%2/participations/%3/profiles/%4.xml', Locked = true;
begin
exit(StrSubstNo(SingleParticipationProfileUrlLbl, CdnBaseUrl(), GetNetworkNameAsText(Network), GetGuidAsText(ParticipationGuid), GetGuidAsText(ProfileGuid)))
end;

internal procedure ParticipationLookupUrl(Network: Enum "E-Delivery Network"; IdType: Text[4]; IdValue: Text[50]): Text
var
ParticipationLookupUrlLbl: Label '%1/networks/%2/participation_lookups.xml?id_type=%3&id_value=%4', Locked = true;
begin
exit(StrSubstNo(ParticipationLookupUrlLbl, CdnBaseUrl(), GetNetworkNameAsText(Network), IdType, IdValue))
end;

internal procedure DocumentsForCompanyUrl(CompanyGuid: Guid; Page: Integer; PageSize: Integer; Incoming: Boolean): Text
var
DirectionQueryTxt: Text;
DocumentsForCompanyUrlLbl: Label '%1/documents.xml?business_central_company_code=%2&page=%3&page_size=%4&direction=%5', Locked = true;
begin
if Incoming then
DirectionQueryTxt := 'IncomingEnum'
else
DirectionQueryTxt := 'OutgoingEnum';
exit(StrSubstNo(DocumentsForCompanyUrlLbl, CdnBaseUrl(), GetGuidAsText(CompanyGuid), Page, PageSize, DirectionQueryTxt))
end;

internal procedure DocumentActionUrl(DocumentGuid: Guid): Text
var
DocumentActionUrlLbl: Label '%1/documents/%2/action.xml', Locked = true;
begin
exit(StrSubstNo(DocumentActionUrlLbl, CdnBaseUrl(), GetGuidAsText(DocumentGuid)))
end;

internal procedure PostDocumentsUrl(CompanyGuid: Guid): Text
var
PostDocumentsUrlLbl: Label '%1/documents.xml?business_central_company_code=%2', Locked = true;
begin
exit(StrSubstNo(PostDocumentsUrlLbl, CdnBaseUrl(), GetGuidAsText(CompanyGuid)))
end;

internal procedure TechnicalResponseUrl(DocumentGuid: Guid): Text
var
TechnicalResponseUrlLbl: Label '%1/documents/%2/technical_response.xml', Locked = true;
begin
exit(StrSubstNo(TechnicalResponseUrlLbl, CdnBaseUrl(), GetGuidAsText(DocumentGuid)))
end;

internal procedure BusinessResponseUrl(DocumentGuid: Guid): Text
var
BusinessResponseUrlLbl: Label '%1/documents/%2/business_responses.xml', Locked = true;
begin
exit(StrSubstNo(BusinessResponseUrlLbl, CdnBaseUrl(), GetGuidAsText(DocumentGuid)))
end;

internal procedure PartnerAccessTokenUrl(): Text
var
PartnerAccessTokenUrlLbl: Label '%1/partner/PartnerZoneLogin', Locked = true;
begin
exit(StrSubstNo(PartnerAccessTokenUrlLbl, COBaseUrl()));
end;

internal procedure PartnerZoneUrl(): Text
var
PartnerAccessTokenUrlLbl: Label '%1/partner/PartnerZoneConnect', Locked = true;
begin
exit(StrSubstNo(PartnerAccessTokenUrlLbl, COBaseUrl()));
end;

internal procedure ClientAccessTokenUrl(): Text
var
ClientAccessTokenUrlLbl: Label '%1/oauth/token/', Locked = true;
begin
exit(StrSubstNo(ClientAccessTokenUrlLbl, COBaseUrl()));
end;

internal procedure ClientEnvironmentInitializeUrl(): Text
var
ClientEnvironmentInitializeUrlLbl: Label '%1/core/initializeV3', Locked = true;
begin
exit(StrSubstNo(ClientEnvironmentInitializeUrlLbl, COBaseUrl()));
end;

internal procedure UpdateSubscriptionUrl(): Text
var
UpdateSubscriptionUrlLbl: Label '%1/core/UpdateSubscription', Locked = true;
begin
exit(StrSubstNo(UpdateSubscriptionUrlLbl, COBaseUrl()));
end;

internal procedure GetSubscriptionUrl(): Text
var
GetSubscriptionUrlLbl: Label '%1/core/GetSubscriptions', Locked = true;
begin
exit(StrSubstNo(GetSubscriptionUrlLbl, COBaseUrl()));
end;

internal procedure GetAcceptCompanyLicenseUrl(): Text
var
GetAcceptCompanyLicenseUrlLbl: Label '%1/core/AcceptCompanyLicense', Locked = true;
begin
exit(StrSubstNo(GetAcceptCompanyLicenseUrlLbl, COBaseUrl()));
end;

internal procedure GetUpdateCompanyInfoUrl(): Text
var
GetUpdateCompanyInfoUrlLbl: Label '%1/core/UpdateInvoicingInformation', Locked = true;
begin
exit(StrSubstNo(GetUpdateCompanyInfoUrlLbl, COBaseUrl()));
end;

local procedure COBaseUrl() Url: Text
var
Handled: Boolean;
begin
OnGetCOBaseUrl(Url, Handled);
if Handled then
exit(Url);

exit('https://auth.continiaonline.com/api/v1');
end;


internal procedure CdnBaseUrl() Url: Text
var
EnvironmentInformation: Codeunit "Environment Information";
Handled: Boolean;
LocalizedBaseUrl: Text;
begin
OnGetCdnBaseUrl(Url, Handled);
if Handled then
exit(Url);

LocalizedBaseUrl := GetBaseUrlForLocalization(EnvironmentInformation.GetApplicationFamily());
if LocalizedBaseUrl <> '' then
exit(LocalizedBaseUrl)
else
exit('https://cdnapi.continiaonline.com/api/v1.0');

end;

local procedure GetBaseUrlForLocalization(Localization: Text): Text
begin
OnBeforeGetBaseUrlForLocalization(Localization);

case Localization of
'NZ', 'AU':
exit('https://aue-cdnapi.continiaonline.com/api/v1.0/');
'NL':
exit('https://weu-cdnapi.continiaonline.com/api/v1.0/');
end;
end;

internal procedure GetNetworkNameAsText(NetworkName: Enum "E-Delivery Network"): Text
begin
exit(NetworkName.Names.Get(NetworkName.Ordinals.IndexOf(NetworkName.AsInteger())));
end;

internal procedure GetGuidAsText(Value: Guid): Text[36]
begin
exit(CopyStr(DelChr(Value, '<>', '{}'), 1, 36))
end;


[IntegrationEvent(false, false)]
local procedure OnGetCOBaseUrl(var ReturnUrl: Text; var Handled: Boolean)
begin
end;

[IntegrationEvent(false, false)]
local procedure OnGetCdnBaseUrl(var ReturnUrl: Text; var Handled: Boolean)
begin
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeGetBaseUrlForLocalization(var Localization: Text)
begin
end;

}
Loading
Loading