U ondervindt onjuiste exportproblemen wanneer u een buitenlands betalingsbestand maakt in de Duitse versie van Microsoft Dynamics NAV met de invoegtoepassing Betalingen opgenomen

Van toepassing op

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 R2

Dit artikel is van toepassing op Microsoft Dynamics NAV voor de landinstellingen van de Duitse taal (de).

Symptomen

In de Duitse versie van Microsoft Dynamics NAV met de invoegtoepassing Betalingen opgenomen, ondervindt u bij het maken van een buitenlands betalingsbestand de volgende onjuiste exportproblemen:

Stel dat u het buitenlandse betalingsbestand met een kostenrekening maakt. Als de kostenrekening verschilt van de bankrekening die wordt gebruikt voor de betaling, ziet u dat er een onjuist bankrekeningnummer in het betalingsbestand wordt geschreven.
Het veld V-Satz (10) in het bestand wordt onverwacht ingevuld met 'N'. U verwacht dat de gegevens in het veld leeg zijn.
Het veld T-Satz (10a) in het bestand wordt onverwacht ingevuld met 'DE'. U verwacht dat de gegevens in het veld 'US' zijn omdat de leverancier uit de VS komt en alleen de bankrekening in DE staat.

Dit probleem treedt op in de volgende producten:

De Duitse versie van Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
De Duitse versie van Microsoft Dynamics NAV 2009 R2

Oplossing

Hotfix-informatie

Er is nu een ondersteunde hotfix beschikbaar bij Microsoft. Het is echter alleen bedoeld om het probleem op te lossen dat in dit artikel wordt beschreven. Pas deze alleen toe op systemen die dit specifieke probleem ondervinden. Deze hotfix kan aanvullende tests ontvangen. Als u niet ernstig last hebt van dit probleem, raden we u aan te wachten op het volgende Microsoft Dynamics NAV 2009-servicepack of de volgende Microsoft Dynamics NAV-versie die deze hotfix bevat.

Opmerking In speciale gevallen kunnen kosten die gewoonlijk worden gemaakt voor ondersteuningsoproepen worden geannuleerd als een technische ondersteuningsmedewerker voor Microsoft Dynamics en gerelateerde producten vaststelt dat een specifieke update uw probleem oplost. De gebruikelijke ondersteuningskosten zijn van toepassing op aanvullende ondersteuningsvragen en problemen die niet in aanmerking komen voor de specifieke update in kwestie.

Installatie-informatie

Microsoft biedt programmeervoorbeelden uitsluitend ter illustratie, zonder uitdrukkelijke of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Microsoft-ondersteuningstechnici kunnen helpen bij het uitleggen van de functionaliteit van een bepaalde procedure, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten.

Opmerking Voordat u deze hotfix installeert, controleert u of alle Microsoft Navision-clientgebruikers zijn afgemeld bij het systeem. Dit geldt ook voor gebruikers van Microsoft Navision Application Services (NAS). U moet de enige clientgebruiker zijn die is aangemeld wanneer u deze hotfix implementeert.

Als u deze hotfix wilt implementeren, moet u een ontwikkelaarslicentie hebben.

We raden u aan om aan het gebruikersaccount in het venster Windows-aanmeldingen of in het venster Databaseaanmeldingen de rol-id 'SUPER' toe te wijzen. Als de rol-id 'SUPER' niet kan worden toegewezen aan het gebruikersaccount, moet u controleren of het gebruikersaccount de volgende machtigingen heeft:

De machtiging Wijzigen voor het object dat u gaat wijzigen.
De machtiging Uitvoeren voor het object Systeemobject-id 5210 en voor het object Systeemobject-id 9015.

Opmerking U hoeft geen rechten te hebben voor de gegevensarchieven, tenzij u gegevensherstel moet uitvoeren.

Codewijzigingen

Opmerking Test altijd codecorrecties in een beheerde omgeving voordat u de correcties toepast op uw productiecomputers.
Voer de volgende stappen uit om dit probleem op te lossen:

Wijzig de code in de functie Exportbestand openen in de AZV-codeeenheid (5001905) als volgt:
Wijzig de definitie van de globale variabele als volgt

Oude definitie: Dtaus : Code[150];
Nieuwe definitie: Dtaus : Code[260];

Bestaande code

...
     CompanyInfo.GET;
// Delete the following line.  
  NameOfCompany := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27));

  FormatAddr.BankAcc(AddrArray,BankAccount); 
...

Vervangende code

...
   CompanyInfo.GET;
// Add the following line. 
  NameOfCompany := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(NameOfCompany));

  FormatAddr.BankAcc(AddrArray,BankAccount);
...

Wijzig de code in de functie FormatBankAcc in de AZV-codeeenheid (5001905) als volgt:
Maak als volgt een nieuwe lokale variabele BankAccount3:

BankAccount3@ : Record 270

Bestaande code

...
   IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN
  BEGIN
// Delete the following lines.  
    BankAccount.GET(PaymLedgEntry."Account No. Charges");
    "Bank Code" := BankAccount."Bank Branch No.";
    IF STRLEN("Bank Code") = 0 THEN
      ERROR(Text1105400002,BankAccount."No.");
    BankCodeBank := FormatBankCode("Bank Code");
    IF STRLEN(BankCodeBank) <> 8 THEN
      ERROR(Text1105400003,BankAccount."No.");
    BankCodeRec3 := BankCodeBank;
    Account := BankAccount."Bank Account No.";
    IF STRLEN(Account) = 0 THEN
      ERROR(Text1105400004,BankAccount."No.");
    AccountBank := FormatAccount(Account);
    IF STRLEN(AccountBank) >10 THEN
      ERROR(
         Text1105400005,BankAccount."No.");
    AccountRec3 := AccountBank;
// End of the deleted lines.   

  END ELSE BEGIN
    BankCodeRec3 := PADSTR('',8,'0');
    AccountRec3 := PADSTR('',10,'0');
  END; 
...

Vervangende code

...
   IF (PaymLedgEntry."Account No. Charges"<>") AND (PaymLedgEntry."Account No. Charges"<>PaymLedgEntry."Bank Account No.") THEN
  BEGIN

// Add the following lines.  
    BankAccount3.GET(PaymLedgEntry."Account No. Charges");
    IF STRLEN(BankAccount3."Bank Branch No.") = 0 THEN
      ERROR(Text1105400002,BankAccount3."No.");
    BankCodeRec3 := FormatBankCode(BankAccount3."Bank Branch No.");
    IF STRLEN(BankCodeRec3) <> 8 THEN
      ERROR(Text1105400003,BankAccount3."No.");
    IF STRLEN(BankAccount3."Bank Account No.") = 0 THEN
      ERROR(Text1105400004,BankAccount3."No.");
    AccountRec3 := FormatAccount(BankAccount3."Bank Account No.");
    IF STRLEN(AccountRec3) >10 THEN  
      ERROR(
         Text1105400005,BankAccount3."No.");
//End of the added lines. 

  END ELSE BEGIN
    BankCodeRec3 := PADSTR('',8,'0');
    AccountRec3 := PADSTR('',10,'0');
  END;
...

Wijzig de code in de functie VendBankFormat in de AZV-codeeenheid (5001905) als volgt:
Bestaande code

...
        ERROR(Text1105400129,Country."Bank Country Code");
  END;

// Delete the following line.
  VendCountry := Country."Bank Country Code";

  IF PostedAZV.IBAN <>'' THEN BEGIN
    Account := DELCHR(PostedAZV.IBAN);
    Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' ')));  
...

Vervangende code

...
         ERROR(Text1105400129,Country."Bank Country Code");
  END;

// Add the following line.
  VendCountry := PostedAZV."Country Code";

  IF PostedAZV.IBAN <> '' THEN BEGIN
    Account := DELCHR(PostedAZV.IBAN);
    Account := CheckFormat(UPPERCASE(PADSTR(Account,34,' ')));
...

Wijzig de code in de functie PaymFileHeader in de AZV-codeeenheid (5001905) als volgt:
Bestaande code

...
     IF STRLEN(CompanyNo) <>8 THEN
      ERROR(Text1105400137,BankAccount."No.");
  END;

  Account := BankAccount."Bank Account No.";
  IF STRLEN(Account) = 0 THEN  
...

Vervangende code

...
       IF STRLEN(CompanyNo) <>8 THEN
      ERROR(Text1105400137,BankAccount."No.");

// Add the following lines.          
  END ELSE BEGIN
    IF CompanyNo = '' THEN
      CompanyNo := PADSTR('',8,'0');
// End of the added lines.           

  END;

  Account := BankAccount."Bank Account No.";
  IF STRLEN(Account) = 0 THEN
...

Wijzig de code in de functie CreateRegistration in de AZV-codeeenheid (5001905) als volgt:
De lokale variabele InfoTransitUnsalableInvL verwijderen: Code[1]

Bestaande code

...
       PassagingTransitL := 'N';
   BrokenTransitL := 'N';
// Delete the following line.   
   InfoTransitUnsalableInvL := 'N';
   InfoTransitUnsalableForeignL := 'N';
   IF RegistrationSet."Passaging Transit" THEN
     PassagingTransitL := 'J';
   IF RegistrationSet."Broken Transit" THEN BEGIN
     BrokenTransitL := 'J';
     RegistrationSet.TESTFIELD("Add. Information Transit");
     Transit := COPYSTR(Transit,1,62) +
     PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' ');
   END;

// Delete the following lines.   
   IF RegistrationSet."Info Transit unsalable Inv" THEN
     InfoTransitUnsalableInvL := 'J';
// End of the deleted lines.     

   IF RegistrationSet."Info Transit unsalable forei." THEN
     InfoTransitUnsalableForeignL := 'J';

   Z := Text1105400025 +
        PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') +
        NumToString(RegistrationSet."Capitel No. Goods",2,'0') +
        PADSTR('',7,'0') +
        PADSTR(BankCountries."Bank Country Short Name",7,' ') +
        PADSTR(RegistrationSet."Country Code",3,' ') +
        NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') +
        PassagingTransitL +
        BrokenTransitL +
// Delete the following line.        
        InfoTransitUnsalableInvL +
        InfoTransitUnsalableForeignL +
        Transit;
   Exportfile.SEEK(Exportfile.POS-2);
...

Vervangende code

...
    PassagingTransitL := 'N';
   BrokenTransitL := 'N';
   InfoTransitUnsalableForeignL := 'N';
   IF RegistrationSet."Passaging Transit" THEN
     PassagingTransitL := 'J';
   IF RegistrationSet."Broken Transit" THEN BEGIN
     BrokenTransitL := 'J';
     RegistrationSet.TESTFIELD("Add. Information Transit");
     Transit := COPYSTR(Transit,1,62) +
     PADSTR(CheckFormat(FORMAT(UPPERCASE(RegistrationSet."Add. Information Transit"),40)),40,' ');
   END;
   IF RegistrationSet."Info Transit unsalable forei." THEN
     InfoTransitUnsalableForeignL := 'J';

   Z := Text1105400025 +
        PADSTR(RegistrationSet."Itemname Trading Goods",27,' ') +
        NumToString(RegistrationSet."Capitel No. Goods",2,'0') +
        PADSTR('',7,'0') +
        PADSTR(BankCountries."Bank Country Short Name",7,' ') +
        PADSTR(RegistrationSet."Country Code",3,' ') +
        NumToString(FORMAT(ROUND(MAmount,1,'<'),12,1),12,'0') +
        PassagingTransitL +
        BrokenTransitL +
// Add the following line.        
        PADSTR('',1,' ') +
        InfoTransitUnsalableForeignL +
        Transit;
   Exportfile.SEEK(Exportfile.POS-2);  
...

Wijzig de code in de functie CheckFormat in de AZV-codeeenheid (5001905) als volgt:
Bestaande code

...
    WHILE STRPOS(FieldContent,'š') >0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent));

  CheckRec := DELCHR(FieldContent,'=',Text1105400036); 
...

Vervangende code

...
     WHILE STRPOS(FieldContent,'š') >0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'š')-1) + Text1105400035 +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'š')+1,MAXSTRLEN(FieldContent));

// Add the following lines.      
  WHILE STRPOS(FieldContent,'&') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'&')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'&')+1,MAXSTRLEN(FieldContent));
  WHILE STRPOS(FieldContent,'$') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'$')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'$')+1,MAXSTRLEN(FieldContent));
  WHILE STRPOS(FieldContent,'*') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'*')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'*')+1,MAXSTRLEN(FieldContent));
  WHILE STRPOS(FieldContent,'%') > 0 DO
    FieldContent := COPYSTR(FieldContent,1,STRPOS(FieldContent,'%')-1) + ' ' +
                  COPYSTR(FieldContent,STRPOS(FieldContent,'%')+1,MAXSTRLEN(FieldContent));
//End of the added lines.                       

  CheckRec := DELCHR(FieldContent,'=',Text1105400036);
...

Wijzig de definitie van stationparameter in de functie CheckPaymFile in de AZV-codeeenheid (5001905) als volgt:
- Oude definitie: Dtaus : Station : Code[150];
- Nieuwe definitie: Dtaus : Station : Code[250];

Wijzig de code in de functie TestCompanyInfo in de AZV-codeeenheid (5001905) als volgt:
Bestaande code

...
    CompanyInfo.GET;
// Delete the following line. 
  CompName := CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27));
  BankAccount.GET(Bacc);
  "Bank Code" := BankAccount."Bank Branch No.";
  IF STRLEN("Bank Code") = 0 THEN 
...

Vervangende code

...
   CompanyInfo.GET;
// Add the following line.  
  CompName := COPYSTR(CheckFormat(FORMAT(UPPERCASE(CompanyInfo.Name),27)),1,MAXSTRLEN(CompName));
  BankAccount.GET(Bacc);
  "Bank Code" := BankAccount."Bank Branch No.";
  IF STRLEN("Bank Code") = 0 THEN  
...

Vereisten

U moet een van de volgende producten hebben geïnstalleerd om deze hotfix toe te passen:

De Duitse versie van Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
De Duitse versie van Microsoft Dynamics NAV 2009 R2

Verwijderingsgegevens

U kunt deze hotfix niet verwijderen.

Status

Microsoft heeft bevestigd dat dit een probleem is bij de Microsoft-producten die worden vermeld in de sectie Van toepassing op.

Meer informatie

VSTF DynamicsNAV SE: 245257; 254071; 277428

Opmerking Dit is een artikel 'FAST PUBLISH' dat rechtstreeks vanuit de microsoft-ondersteuningsorganisatie is gemaakt. De hierin opgenomen informatie wordt als zodanig verstrekt als reactie op nieuwe problemen. Als gevolg van de snelheid waarmee het beschikbaar wordt gesteld, kunnen de materialen typografische fouten bevatten en te allen tijde zonder voorafgaande kennisgeving worden herzien. Zie Gebruiksvoorwaarden voor andere overwegingen.

U ondervindt onjuiste exportproblemen wanneer u een buitenlands betalingsbestand maakt in de Duitse versie van Microsoft Dynamics NAV met de invoegtoepassing Betalingen opgenomen

Symptomen

Oplossing

Hotfix-informatie

Installatie-informatie

Codewijzigingen

Vereisten

Verwijderingsgegevens

Status

Meer informatie

Vond je deze informatie nuttig?

Bedankt voor uw feedback.