Microsoft/alguidelines
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Formatting repair

Browse source
This commit is contained in:
Jeremy Vyska 2021-10-30 23:55:19 +02:00
parent 89ac40c868
commit 26452d5f7c
20 changed files with 134 additions and 179 deletions
Download patch file Download diff file Expand all files Collapse all files

71
content/NAVPatterns/1-patterns/cached-web-service-calls/index.md
View file

@ -1,8 +1,8 @@
+++
title = "Cached Web Server Calls.md"
title = "Cached Web Server Calls"
weight = 290
+++
_by Mostafa Balat, Microsoft Development Center Copenhagen_
_Originally by Mostafa Balat, Microsoft Development Center Copenhagen_
## Abstract
@ -44,56 +44,61 @@ If **PAG1259 Bank Name - Data Conv. List** is being open and the cached data is
### Code Sample
OnInit=BEGIN
```AL
OnInit=BEGIN
ShortTimeout := 5000;
LongTimeout := 30000;
END;
OnOpenPage=VAR
END;
OnOpenPage=VAR
BankDataConvBank@1002 : Record 1259;
ImpBankListExtDataHndl@1000 : Codeunit 1289;
CountryRegionCode@1004 : Text;
HideErrors@1003 : Boolean;
BEGIN
BEGIN
CountryRegionCode := IdentifyCountryRegionCode(Rec,GETFILTER("Country/Region Code"));
IF BankDataConvBank.ISEMPTY THEN BEGIN
ImpBankListExtDataHndl.GetBankListFromConversionService(HideErrors,CountryRegionCode,ShortTimeout);
EXIT;
ImpBankListExtDataHndl.GetBankListFromConversionService(HideErrors,CountryRegionCode,ShortTimeout);
EXIT;
END;
RefreshBankNamesOlderThanToday(CountryRegionCode,HideErrors,ShortTimeout);
END;
OnAction=VAR
END;
OnAction=VAR
ImpBankListExtDataHndl@1000 : Codeunit 1289;
FilterNotUsed@1001 : Text;
ShowErrors@1003 : Boolean;
BEGIN
BEGIN
ShowErrors := TRUE;
ImpBankListExtDataHndl.GetBankListFromConversionService(ShowErrors,FilterNotUsed,LongTimeout);
END;
LOCAL PROCEDURE IdentifyCountryRegionCode@1(VAR BankDataConvBank@1002 : Record 1259;Filter@1000 : Text) : Text;
END;
LOCAL PROCEDURE IdentifyCountryRegionCode@1(VAR BankDataConvBank@1002 : Record 1259;Filter@1000 : Text) : Text;
VAR
CompanyInformation@1001 : Record 79;
BlankFilter@1003 : Text;
CompanyInformation@1001 : Record 79;
BlankFilter@1003 : Text;
BEGIN
BlankFilter := '''''';
IF Filter = BlankFilter THEN BEGIN
CompanyInformation.GET;
BankDataConvBank.SETFILTER("Country/Region Code",CompanyInformation."Country/Region Code");
EXIT(BankDataConvBank.GETFILTER("Country/Region Code"));
END;
EXIT(Filter);
END;
LOCAL PROCEDURE RefreshBankNamesOlderThanToday@5(CountryRegionCode@1000 : Text;ShowErrors@1002 : Boolean;Timeout@1004 : Integer);
VAR
BankDataConvBank@1001 : Record 1259;
ImpBankListExtDataHndl@1003 : Codeunit 1289;
BEGIN
IF CountryRegionCode <\> '' THEN
BankDataConvBank.SETFILTER("Country/Region Code",CountryRegionCode);
BankDataConvBank.SETFILTER("Last Update Date",'<%1',TODAY);
IF BankDataConvBank.FINDFIRST THEN
ImpBankListExtDataHndl.GetBankListFromConversionService(ShowErrors,CountryRegionCode,Timeout);
BlankFilter := '''''';
IF Filter = BlankFilter THEN BEGIN
CompanyInformation.GET;
BankDataConvBank.SETFILTER("Country/Region Code",CompanyInformation."Country/Region Code");
EXIT(BankDataConvBank.GETFILTER("Country/Region Code"));
END;
EXIT(Filter);
END;
LOCAL PROCEDURE RefreshBankNamesOlderThanToday@5(CountryRegionCode@1000 : Text;ShowErrors@1002 : Boolean;Timeout@1004 : Integer);
VAR
BankDataConvBank@1001 : Record 1259;
ImpBankListExtDataHndl@1003 : Codeunit 1289;
BEGIN
IF CountryRegionCode <\> '' THEN
BankDataConvBank.SETFILTER("Country/Region Code",CountryRegionCode);
BankDataConvBank.SETFILTER("Last Update Date",'<%1',TODAY);
IF BankDataConvBank.FINDFIRST THEN
ImpBankListExtDataHndl.GetBankListFromConversionService(ShowErrors,CountryRegionCode,Timeout);
END;
```
## NAV Usages
Bank name lookup on the Bank Account card for dynamically identifying the format to use to generate a bank-specific payment file.