Caracteres especiais não são convertidos correctamente na declaração de VIES de IVA na versão austríaca do Microsoft Dynamics NAV 2009

Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.

Informações de instalação

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.

Para implementar esta correcção, tem de ter uma licença de desenvolvedor.

Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:

• A permissão Modificar para o objecto que estará a alterar.

• A permissão executar para o objecto 5210 de ID de objecto de sistema e para o 9015 de ID de objecto de sistema
  
  objecto.

Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.

Para resolver este problema, siga estes passos:

1. Altere o código nos controlos no formulário de definição de relatório do IVA (743) do seguinte modo:
   Código existente

   ... ShowCaption=No;
                                                    SourceExpr="Modify Submitted Reports" }
       { 5   ;Label        ;440  ;990  ;3300 ;440  ;ParentControl=4 }
       { 7   ;TextBox      ;3850 ;990  ;2750 ;440  ;ParentControl=1;
                                                    InPage=1;
                                                    SourceExpr="No. Series" }
   ...
   

   Código de substituição

   ...  ShowCaption=No;
                                                    SourceExpr="Modify Submitted Reports" }
       { 5   ;Label        ;440  ;990  ;3300 ;440  ;ParentControl=4 }
   
   // Add the following lines.
   { 1140013;Label     ;440  ;4840 ;3300 ;440  ;ParentControl=1140012 }
   { 1140015;TextBox   ;3850 ;5390 ;2750 ;440  ;Name=Company Name;
   ParentControl=1;
   InPage=0;
   SourceExpr="Company Name" }
   { 1140014;Label     ;440  ;5390 ;3300 ;440  ;ParentControl=1140015 }
   { 1140017;TextBox   ;3850 ;5940 ;2750 ;440  ;ParentControl=1;
   InPage=0;
   SourceExpr="Company Address" }
   { 1140016;Label     ;440  ;5940 ;3300 ;440  ;ParentControl=1140017 }
   { 1140019;TextBox   ;3850 ;6490 ;2750 ;440  ;ParentControl=1;
   InPage=0;
   SourceExpr="Company City" }
   // End of the added lines.
   
       { 7   ;TextBox      ;3850 ;990  ;2750 ;440  ;ParentControl=1;
                                                    InPage=1;
                                                    SourceExpr="No. Series" }
   ...
   

2. Altere o código nos campos da tabela de definição de relatório do IVA (743) do seguinte modo:
   Código existente

   ...  { 1   ;   ;Primary key         ;Code10         }
       { 2   ;   ;No. Series          ;Code10        ;TableRelation="No. Series" }
       { 3   ;   ;Modify Submitted Reports;Boolean    }
     }
     KEYS
     {
   ...
   

   Código de substituição

   ... { 1   ;   ;Primary key         ;Code10         }
       { 2   ;   ;No. Series          ;Code10        ;TableRelation="No. Series" }
       { 3   ;   ;Modify Submitted Reports;Boolean    }
   
   // Add the following lines.
   { 11006;  ;Company Name        ;Text100        }
   { 11007;  ;Company Address     ;Text30         }
   { 11008;  ;Company City        ;Text30         }
   // End of the added lines.
   
     }
     KEYS
     {
   ...
   

3. Altere o código nas propriedades do mapa IVA - mapa XML de declaração VIES (11108) do seguinte modo:
   Código existente

   ...IF DELCHR(PaketNr,'=','01234567890 ') <> '' THEN
                       ERROR(Text1160007);
   
   // Delete the following line.
   Companyinfo.GET;
   // End of the deleted line.
   
                     CLEAR(TotalSum);
                     CLEAR(TotalSumEU3PartyTrade);
   ...
   
   

   Código de substituição

   ... IF DELCHR(PaketNr,'=','01234567890 ') <> '' THEN
                       ERROR(Text1160007);
   
   // Add the following lines.
   CompanyInfo.GET;
   VATReportSetup.GET;
   // End of the added lines.
   
                     CLEAR(TotalSum);
                     CLEAR(TotalSumEU3PartyTrade);
   ...
   

4. Altere o código de variáveis globais IVA - mapa XML de declaração VIES (11108) do seguinte modo:
   Código existente

   ...TextExportFileName@1140003 : TextConst 'ENU=ZM_jjjj_Qnn.xml;DEA=ZM_jjjj_Qnn.xml';
         TextExportFileType@1140004 : TextConst 'ENU=XML Files (*.xml)|*.xml|All Files (*.*)|*.*;DEA=XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*';
         Customer@1160024 : Record 18;
   
   // Delete the following line.
   Companyinfo@1160018 : Record 79;
   // End of the deleted line.
   
         tempVATEntry@1160047 : TEMPORARY Record 254;
         XMLFile@1150000 : File;
         XMLFileName@1160017 : Text[250];
   ...
   

   Código de substituição

   ...TextExportFileName@1140003 : TextConst 'ENU=ZM_jjjj_Qnn.xml;DEA=ZM_jjjj_Qnn.xml';
         TextExportFileType@1140004 : TextConst 'ENU=XML Files (*.xml)|*.xml|All Files (*.*)|*.*;DEA=XML-Dateien (*.xml)|*.xml|Alle Dateien (*.*)|*.*';
         Customer@1160024 : Record 18;
   
   // Add the following lines.
   CompanyInfo@1160018 : Record 79;
   VATReportSetup@1140006 : Record 743;
   // End of the added lines.
   
         tempVATEntry@1160047 : TEMPORARY Record 254;
         XMLFile@1150000 : File;
         XMLFileName@1160017 : Text[250];...
   

5. Altere o código na função WriteXMLHeader o mapa IVA - mapa XML de declaração VIES (11108) do seguinte modo:
   Código existente

   ...XMLFile.WRITE('<INFO_DATEN>');
         XMLFile.WRITE('<ART_IDENTIFIKATIONSBEGRIFF>FASTNR</ART_IDENTIFIKATIONSBEGRIFF>');
         XMLFile.WRITE(STRSUBSTNO('<IDENTIFIKATIONSBEGRIFF>%1%2</IDENTIFIKATIONSBEGRIFF>',
   
   // Delete the following line.
   Companyinfo."Tax Office Number",DELCHR(Companyinfo."Registration No.",'=','-/ ')));
   // End of the deleted line.
   
         XMLFile.WRITE(STRSUBSTNO('<PAKET_NR>%1</PAKET_NR>',PaketNr));
         XMLFile.WRITE(STRSUBSTNO('<DATUM_ERSTELLUNG type="datum">%1</DATUM_ERSTELLUNG>',FORMAT(TODAY,10,'<YEAR4>-<MONTH,2>-<DAY,2>')));
         XMLFile.WRITE(STRSUBSTNO('<UHRZEIT_ERSTELLUNG type="uhrzeit">%1</UHRZEIT_ERSTELLUNG>',
   ...
   

   Código de substituição

   ...XMLFile.WRITE('<INFO_DATEN>');
         XMLFile.WRITE('<ART_IDENTIFIKATIONSBEGRIFF>FASTNR</ART_IDENTIFIKATIONSBEGRIFF>');
         XMLFile.WRITE(STRSUBSTNO('<IDENTIFIKATIONSBEGRIFF>%1%2</IDENTIFIKATIONSBEGRIFF>',
   
   // Add the following line.
   CompanyInfo."Tax Office Number",DELCHR(CompanyInfo."Registration No.",'=','-/ ')));
   // End of the added line.
   
         XMLFile.WRITE(STRSUBSTNO('<PAKET_NR>%1</PAKET_NR>',PaketNr));
         XMLFile.WRITE(STRSUBSTNO('<DATUM_ERSTELLUNG type="datum">%1</DATUM_ERSTELLUNG>',FORMAT(TODAY,10,'<YEAR4>-<MONTH,2>-<DAY,2>')));
         XMLFile.WRITE(STRSUBSTNO('<UHRZEIT_ERSTELLUNG type="uhrzeit">%1</UHRZEIT_ERSTELLUNG>',
   ...
   

6. Altere o código na função WriteXMLGeneral o mapa IVA - mapa XML de declaração VIES (11108) do seguinte modo:
   Código existente

   ...XMLFile.WRITE('<ANBRINGEN>U13</ANBRINGEN>');
         XMLFile.WRITE(STRSUBSTNO('<ZRVON type="jahrmonat">%1</ZRVON>',FORMAT(RepPeriodFrom,7,'<YEAR4>-<MONTH,2>')));
         XMLFile.WRITE(STRSUBSTNO('<ZRBIS type="jahrmonat">%1</ZRBIS>',FORMAT(RepPeriodTo,7,'<YEAR4>-<MONTH,2>')));
   
   // Delete the following lines.
   XMLFile.WRITE(STRSUBSTNO('<FASTNR>%1%2</FASTNR>',Companyinfo."Tax Office Number",DELCHR(Companyinfo."Registration No.",'=','-/ '))
   );
   XMLFile.WRITE(STRSUBSTNO('<KUNDENINFO>%1</KUNDENINFO>',DELCHR(FORMAT(DELCHR(Companyinfo.Name,'<>',' '),20),'<>',' ')));
   // End of the deleted lines.
   
   XMLFile.WRITE('</ALLGEMEINE_DATEN>');
       END;
   ...
   

   Código de substituição

   ... XMLFile.WRITE('<ANBRINGEN>U13</ANBRINGEN>');
         XMLFile.WRITE(STRSUBSTNO('<ZRVON type="jahrmonat">%1</ZRVON>',FORMAT(RepPeriodFrom,7,'<YEAR4>-<MONTH,2>')));
         XMLFile.WRITE(STRSUBSTNO('<ZRBIS type="jahrmonat">%1</ZRBIS>',FORMAT(RepPeriodTo,7,'<YEAR4>-<MONTH,2>')));
   
   // Add the following lines.
   XMLFile.WRITE(STRSUBSTNO('<FASTNR>%1%2</FASTNR>',CompanyInfo."Tax Office Number",DELCHR(CompanyInfo."Registration No.",'=','-/ '))
   );
   XMLFile.WRITE(STRSUBSTNO('<KUNDENINFO>%1</KUNDENINFO>',DELCHR(FORMAT(DELCHR(GetCompanyName,'<>',' '),20),'<>',' ')));
   // End of the added lines.
   
   XMLFile.WRITE('</ALLGEMEINE_DATEN>');
       END;
   ...
   

7. Altere o código na função GetCompanyName o mapa IVA - mapa XML de declaração VIES (11108) do seguinte modo:
   Código existente

   ... XMLFile.CLOSE;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Código de substituição

   ...XMLFile.CLOSE;
       END;
   
   // Add the following lines.
   LOCAL PROCEDURE GetCompanyName@1160006() : Text[100];
   BEGIN
   IF VATReportSetup."Company Name" <> '' THEN
   EXIT(VATReportSetup."Company Name");
   
   EXIT(CompanyInfo.Name);
   END;
   
   // End of the added lines.
   
   BEGIN
       END.
     }
   ...
   
   
   

Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

• A versão do Microsoft Dynamics NAV 2009 R2 austríaca

• A versão do Microsoft Dynamics NAV 2009 SP1 austríaca

Informações de remoção

Não é possível remover esta correcção.