Saat virheellisiä vientiongelmia, kun luot ulkomaisen maksutiedoston Microsoft Dynamics NAV:n saksankielisessä versiossa, johon sisältyy AddOn-Maksut

Käytetään kohteeseen

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 R2

Tämä artikkeli koskee Microsoft Dynamics NAV -ohjelmaa saksan (de) kielikielellä.

Ongelman ilmenemistapa

Kun luot ulkomaisen maksutiedoston Microsoft Dynamics NAV :n saksankielisessä versiossa, jossa on AddOn-Maksut, kohtaat seuraavat virheelliset vientiongelmat:

Oletetaan, että luot veloitustilin sisältävän ulkomaisen maksutiedoston. Jos veloitustili eroaa maksussa käytettävästä pankkitilistä, huomaat, että maksutiedostoon on kirjoitettu väärä pankkitilinumero.
Tiedoston V-Satz-kenttä (10) täytetään odottamatta N-kirjaimella. Kentän tietojen odotetaan olevan tyhjiä.
Tiedoston T-Satz-kenttä (10a) täytetään odottamatta de-kirjaimella. Olettat, että kentän tiedot ovat "YHDYSVALLAT", koska toimittaja on Yhdysvalloista ja vain pankkitili on DE:ssä.

Tämä ongelma ilmenee seuraavissa tuotteissa:

Microsoft Dynamics NAV 2009 Service Pack 1:n (SP1) saksankielinen versio
Microsoft Dynamics NAV 2009 R2:n saksankielinen versio

Ratkaisu

Hotfix-tiedot

Tuettu hotfix-korjaus on nyt saatavilla Microsoftilta. Sen tarkoituksena on kuitenkin korjata vain tässä artikkelissa kuvattu ongelma. Käytä sitä vain järjestelmissä, joissa on tämä ongelma. Tämä hotfix-korjaus voi saada lisätestejä. Jos ongelma ei siis vaikuta sinuun vakavasti, suosittelemme odottamaan seuraavaa Microsoft Dynamics NAV 2009 Service Pack -pakettia tai seuraavaa Microsoft Dynamics NAV -versiota, joka sisältää tämän hotfix-korjauksen.

Huomautus Erityistapauksissa tukipuheluista tavallisesti aiheutuvat maksut voidaan peruuttaa, jos Microsoft Dynamicsin ja siihen liittyvien tuotteiden teknisen tuen asiantuntija määrittää, että tietty päivitys ratkaisee ongelmasi. Tavanomaiset tukikustannukset koskevat muita tukikysymyksiä ja -ongelmia, jotka eivät ole oikeutettuja kyseiseen päivitykseen.

Asennustiedot

Microsoft tarjoaa ohjelmointiesimerkkejä vain havainnollistamista varten ilman ilmaistua tai oletettua takuuta. Tämä sisältää muun muassa oletetut takuut soveltuvuudesta kaupankäynnin kohteeksi tai sopivuudesta tiettyyn tarkoitukseen. Tässä artikkelissa oletetaan, että tunnet ohjelmointikielen, jota esitellään, sekä työkalut, joita käytetään toimintosarjojen luomiseen ja virheenkorjaukseen. Microsoftin tukihenkilöt voivat auttaa selittämään tietyn menettelyn toiminnallisuuden, mutta he eivät muokkaa näitä esimerkkejä niin, että ne tarjoaisivat lisätoimintoja tai laativat menetelmiä erityisvaatimusten täyttämiseksi.

Huomautus Varmista ennen tämän hotfix-korjauksen asentamista, että kaikki Microsoft Navision -asiakasohjelman käyttäjät ovat kirjautuneet ulos järjestelmästä. Tämä koskee myös Microsoft Navision Application Services (NAS) -asiakaskäyttäjiä. Sinun pitäisi olla ainoa asiakaskäyttäjä, joka on kirjautunut sisään, kun otat tämän hotfix-korjauksen käyttöön.

Jotta voit ottaa tämän hotfix-korjauksen käyttöön, sinulla on oltava kehittäjän käyttöoikeus.

Suosittelemme, että käyttäjätilille, joka on Windowsin kirjautumisikkunassa tai Tietokannan kirjautumiset -ikkunassa, määritetään "SUPER"-roolitunnus. Jos käyttäjätilille ei voi määrittää "SUPER"-roolitunnusta, sinun on varmistettava, että käyttäjätilillä on seuraavat käyttöoikeudet:

Muutettavan objektin Muokkaa-käyttöoikeus.
System Object ID 5210 -objektin ja System Object ID 9015 -objektin Suoritus-oikeus.

Huomautus Sinulla ei tarvitse olla oikeuksia tietosäilöihin, ellei sinun tarvitse korjata tietoja.

Koodin muutokset

Huomautus Testaa koodikorjaukset aina valvotussa ympäristössä, ennen kuin otat korjaukset käyttöön tuotantotietokoneissasi.
Voit ratkaista tämän ongelman seuraavasti:

Muuta Open Exportfile -funktion koodia AZV-koodiunitissa (5001905) seuraavasti:
Yleisen muuttujan määritelmän muuttaminen seuraavasti

Vanha määritelmä: Dtaus : Koodi[150];
Uusi määritelmä: Dtaus : Koodi[260];

Aiemmin luotu koodi

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

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

Korvaava koodi

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

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

Muuta FormatBankAcc-funktion koodiAZV-koodissa (5001905) seuraavasti:
Luo uusi paikallinen muuttuja BankAccount3 seuraavasti:

BankAccount3@ : Tietue 270

Aiemmin luotu koodi

...
   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; 
...

Korvaava koodi

...
   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;
...

Muuta VendBankFormat-funktion koodia AZV-koodiunitissa (5001905) seuraavasti:
Aiemmin luotu koodi

...
        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,' ')));  
...

Korvaava koodi

...
         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,' ')));
...

Muuta PaymFileHeader-funktion koodiAZV-koodissa (5001905) seuraavasti:
Aiemmin luotu koodi

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

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

Korvaava koodi

...
       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
...

Muuta CreateRegistration-funktion koodia AZV-koodiunitissa (5001905) seuraavasti:
Poista paikallinen muuttuja InfoTransitUnsalableInvL: Koodi[1]

Aiemmin luotu koodi

...
       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);
...

Korvaava koodi

...
    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);  
...

Muuta CheckFormat-funktion koodiAZV-koodissa (5001905) seuraavasti:
Aiemmin luotu koodi

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

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

Korvaava koodi

...
     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);
...

Muuta Asema-parametrin määritystä CheckPaymFile-funktiossa AZV-koodeunitissa (5001905) seuraavasti:
- Vanha määritelmä: Dtaus : Asema : Koodi[150];
- Uusi määritelmä: Dtaus : Asema : Koodi[250];

Muuta TestCompanyInfo-funktion koodiAZV-koodissa (5001905) seuraavasti:
Aiemmin luotu koodi

...
    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 
...

Korvaava koodi

...
   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  
...

Edellytykset

Sinulla on oltava asennettuna jokin seuraavista tuotteista, jotta voit käyttää tätä hotfix-korjausta:

Microsoft Dynamics NAV 2009 Service Pack 1:n (SP1) saksankielinen versio
Microsoft Dynamics NAV 2009 R2:n saksankielinen versio

Poistotiedot

Et voi poistaa tätä hotfix-korjausta.

Tila

Microsoft on vahvistanut tämän olevan ongelma niissä Microsoftin tuotteissa, jotka ovat listattuna Koskee seuraavia tuotteita -osiossa.

Viitteet

VSTF DynamicsNAV SE: 245257; 254071; 277428

Huomautus Tämä on FAST PUBLISH -artikkeli, joka on luotu suoraan Microsoftin tukiorganisaatiosta. Tässä annetut tiedot annetaan sellaisenaan vastauksena uusiin ongelmiin. Koska materiaalit ovat nopeasti käytettävissä, ne voivat sisältää typografisia virheitä, ja niitä voidaan muuttaa milloin tahansa ilman ennakkoilmoitusta. Lisätietoja on ohjeaiheessa Käyttöehdot .

Saat virheellisiä vientiongelmia, kun luot ulkomaisen maksutiedoston Microsoft Dynamics NAV:n saksankielisessä versiossa, johon sisältyy AddOn-Maksut

Ongelman ilmenemistapa

Ratkaisu

Hotfix-tiedot

Asennustiedot

Koodin muutokset

Edellytykset

Poistotiedot

Tila

Viitteet

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!