Dutch NL Version and payment file format

andy76

Hello,

does somebody of you have good experience with NAV NL localization?
Do you know if the incoming payment files of international format SWIFT MT 940 are managed?
If yes, can these objects be integrated in another localizations? How are they identificables?

Thank you

Marc5150

Hi,

The following protocols are supported in telebanking NL:
CLIEOP3 (exporteren)
BTL91 (exporteren)
BBV (exporteren)
PAYMUL (exporteren)
Swift MT940 (importeren)
Rabobank mut.asc (importeren)
Rabobank vvmut.asc (importeren)
Rabobank ASCII (importeren)

So yes, swift MT940 is supported.
import is handled via a dataport so I guess integration in another localisation is possible.

Greetz,
Marc

andy76

I have seen that there is a dataport in version NAV NL Dataport : 11000000 - Import Swift MT940 but I don't know this localization and we can not see the code being partner of CH - Swiss Microsoft.
Is it possible to see the code of this dataport?

DenSter

I don't know exactly what you need to do to get it, but I'm pretty sure it is possible for you to get a partner license for other localizations. Get in touch with your Microsoft contact to get more information. It might take a while.

Marc5150

Here's the onAfterImportRecord code to give you an idea.

Tag := FindTag;
CASE Tag OF
  '25':
    BEGIN //accountnumber from accountlist
      InitHeadCloseValues;
      ImpHeadAccountno := DELCHR(GetText(5,35),'<','0');
    END;

  Text1000003,Text1000004:
    BEGIN // last delivery, message continued
      ImpHeadDebCred          := GetText(6,1);
      ImpHeadPerviousDate      := GetDate(7,6,Text1000005);
      ImpHeadOpeningBalanceCurrency := GetText(13,3);
      ImpHeadOpeningBalance       := GetDecimal(16,16,',');
      ProcessHeader;
    END;

  '61': //contents of the changes
    BEGIN
      //FirstNetChangeLine
      InitLneVariables;
      ImpLneCurrencyDate := GetDate(5,6,Text1000005);
      ImpLnrDebCred     := GetText(11,1);
      IF NOT (ImpLnrDebCred IN [Text1000006,Text1000007]) THEN BEGIN
        Shift := 4;
        ImpLnrDebCred := GetText(11+Shift,1);
      END;

      IF (UPPERCASE(GetText(12+Shift,1)) IN ['A'..'Z']) THEN
        Shift := Shift + 1;

      ImpLneAmount := GetDecimal(12+Shift,16,',');
      ProcessLine;
      DescriptionBelongsToLine := TRUE;
    END;

   '86',Text1000008://Description
     BEGIN
       ImpLneDescriptionCount := ImpLneDescriptionCount+1;
       IF Tag=Text1000008 THEN
         ImpLneDescription := GetText(1,65)
       ELSE
         ImpLneDescription := GetText(5,65);
       ProcessRemark;
     END;
   Text1000009,Text1000010:
     BEGIN  //Closing balance
       ImpClsDebCred              := GetText(6,1);
       ImpSltLastDate         := GetDate(7,6,Text1000005);
       ImpCltLastAmountCurrencyCode := GetText(13,3);
       ImpCltLastAmount           := GetDecimal(16,16,',');
       ProcessClose;
       DescriptionBelongsToLine  := FALSE;
     END;

    //Tag 64 and 65 are not nessesary
END;

Greetz,
Marc