Si verificano problemi di esportazione non corretti quando si crea un file di pagamento estero nella versione tedesca di Microsoft Dynamics NAV con il Pagamenti AddOn incluso

Si applica a

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 R2

Questo articolo si applica a Microsoft Dynamics NAV per le impostazioni locali della lingua tedesca (de).

Sintomi

Nella versione tedesca di Microsoft Dynamics NAV con il Pagamenti AddOn incluso, quando si crea un file di pagamento estero, si verificano i seguenti problemi di esportazione non corretti:

Si supponga di creare il file di pagamento estero con un account addebiti. Se il conto corrente bancario è diverso dal conto corrente bancario usato per il pagamento, si noterà che nel file di pagamento viene scritto un numero di conto corrente bancario errato.
Il campo V-Satz (10) nel file viene compilato in modo imprevisto con "N". Si prevede che i dati nel campo siano vuoti.
Il campo T-Satz (10a) nel file viene compilato in modo imprevisto con "DE". Si prevede che i dati nel campo siano "USA" perché il fornitore proviene dagli Stati Uniti e solo il conto corrente bancario si trova in DE.

Questo problema si verifica nei prodotti seguenti:

Versione tedesca di Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
La versione tedesca di Microsoft Dynamics NAV 2009 R2

Risoluzione

Informazioni sull'aggiornamento rapido

È ora disponibile un hotfix supportato da Microsoft. Tuttavia, è destinato solo a correggere il problema descritto in questo articolo. Applicala solo ai sistemi che stanno riscontrando questo problema specifico. Questo hotfix potrebbe ricevere ulteriori test. Pertanto, se non sei gravemente interessato da questo problema, ti consigliamo di attendere il prossimo Service Pack di Microsoft Dynamics NAV 2009 o la prossima versione di Microsoft Dynamics NAV che contiene questo hotfix.

Nota In casi speciali, gli addebiti normalmente sostenuti per le chiamate al supporto tecnico possono essere annullati se un professionista del supporto tecnico per Microsoft Dynamics e i prodotti correlati determinano che un aggiornamento specifico risolverà il problema. I soliti costi del supporto verranno applicati a domande e problemi di supporto aggiuntivi che non sono idonei per l'aggiornamento specifico in questione.

Informazioni sull'installazione

Microsoft fornisce esempi di programmazione a titolo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, a titolo esemplificativo e non esaustivo, le garanzie implicite di commerciabilità o idoneità a uno scopo particolare. Questo articolo presuppone che si abbia familiarità con il linguaggio di programmazione oggetto della dimostrazione e con gli strumenti utilizzati per la creazione e il debug delle procedure. I tecnici del supporto Tecnico Microsoft possono spiegare le funzionalità di una particolare procedura, ma non modificarli per fornire funzionalità aggiuntive o creare procedure in base a specifici requisiti.

Nota Prima di installare questo hotfix, verificare che tutti gli utenti client di Microsoft Navision siano disconnessi dal sistema. Sono inclusi gli utenti client di Microsoft Navision Application Services (NAS). Dovresti essere l'unico utente client connesso quando implementi questo hotfix.

Per implementare questo hotfix, è necessario disporre di una licenza per sviluppatori.

È consigliabile assegnare l'ID ruolo "SUPER" all'account utente nella finestra Accessi di Windows o nella finestra Accessi database. Se all'account utente non è possibile assegnare l'ID ruolo "SUPER", è necessario verificare che l'account utente disponga delle autorizzazioni seguenti:

Autorizzazione modifica per l'oggetto che si desidera modificare.
Autorizzazione Execute per l'oggetto System Object ID 5210 e per l'oggetto System Object ID 9015.

Nota: non è necessario disporre dei diritti per gli archivi dati a meno che non sia necessario eseguire il ripristino dei dati.

Modifiche al codice

Nota Verifica sempre le correzioni del codice in un ambiente controllato prima di applicare le correzioni ai computer di produzione.
Per risolvere il problema, attenersi alla procedura seguente:

Modificare il codice nella funzione Open Exportfile nella codeunit AZV (5001905) come segue:
Modificare la definizione della variabile globale nel modo seguente

Vecchia definizione: Dtaus : Codice[150];
Nuova definizione: Dtaus : Code[260];

Codice esistente

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

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

Codice sostitutivo

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

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

Modificare il codice nella funzione FormatBankAcc nella codeunit AZV (5001905) nel modo seguente:
Creare una nuova variabile locale BankAccount3 nel modo seguente:

BankAccount3@: Record 270

Codice esistente

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

Codice sostitutivo

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

Modificare il codice nella funzione VendBankFormat nella codeunit AZV (5001905) nel modo seguente:
Codice esistente

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

Codice sostitutivo

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

Modificare il codice nella funzione PaymFileHeader nella codeunit AZV (5001905) nel modo seguente:
Codice esistente

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

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

Codice sostitutivo

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

Modificare il codice nella funzione CreateRegistration nella codeunit AZV (5001905) come segue:
Eliminare la variabile locale InfoTransitUnsalableInvL: Code[1]

Codice esistente

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

Codice sostitutivo

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

Modificare il codice nella funzione CheckFormat nella codeunit AZV (5001905) nel modo seguente:
Codice esistente

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

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

Codice sostitutivo

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

Modificare la definizione del parametro Drive nella funzione CheckPaymFile nella codeunit AZV (5001905) come segue:
- Vecchia definizione: Dtaus : Unità : Codice[150];
- Nuova definizione: Dtaus : Unità : Codice[250];

Modificare il codice nella funzione TestCompanyInfo nella codeunit AZV (5001905) nel modo seguente:
Codice esistente

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

Codice sostitutivo

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

Prerequisiti

Per applicare questo hotfix è necessario avere installato uno dei prodotti seguenti:

Versione tedesca di Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
La versione tedesca di Microsoft Dynamics NAV 2009 R2

Informazioni sulla rimozione

Non è possibile rimuovere questo hotfix.

Stato

Microsoft ha confermato che si tratta di un problema relativo ai prodotti elencati nella sezione "Si applica a".

Riferimenti

VSTF DynamicsNAV SE: 245257; 254071; 277428

Nota Questo è un articolo "FAST PUBLISH" creato direttamente dall'organizzazione di supporto Microsoft. Le informazioni contenute nel presente documento vengono fornite così come sono in risposta ai problemi emergenti. A causa della velocità di reso disponibile, i materiali possono includere errori tipografici e possono essere modificati in qualsiasi momento senza preavviso. Per altre considerazioni, vedere Condizioni per l'utilizzo .

Si verificano problemi di esportazione non corretti quando si crea un file di pagamento estero nella versione tedesca di Microsoft Dynamics NAV con il Pagamenti AddOn incluso

Sintomi

Risoluzione

Informazioni sull'aggiornamento rapido

Informazioni sull'installazione

Modifiche al codice

Prerequisiti

Informazioni sulla rimozione

Stato

Riferimenti

Queste informazioni sono state utili?

Grazie per il feedback!