Erro de "nem todos os caracteres do ficheiro seleccionado corresponde ao código de detectado" na versão alemã 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 na função FillCompanyInfo da tabela de cabeçalho do relatório de IVA (740) do seguinte modo:
   Código existente 1

   ...PROCEDURE FillCompanyInfo@1140002();
         VAR
           CompanyInfo@1140000 : Record 79;
           CountryRegion@1140001 : Record 9;
   
   // Delete the following lines.
   BEGIN
   CompanyInfo.GET;
   // End of the deleted lines.
   
           CompanyInfo.TESTFIELD("Country/Region Code");
   
           CountryRegion.GET(CompanyInfo."Country/Region Code");
   ...
   

   Código de substituição 1

   ...PROCEDURE FillCompanyInfo@1140002();
         VAR
           CompanyInfo@1140000 : Record 79;
           CountryRegion@1140001 : Record 9;
   
   // Adding the following lines.
   VATReportSetup@1140002 : Record 743;
   BEGIN
   CompanyInfo.GET;
   VATReportSetup.GET;
   // End of the added lines.
   
           CompanyInfo.TESTFIELD("Country/Region Code");
   
           CountryRegion.GET(CompanyInfo."Country/Region Code");
   ...
   

   Código existente 2

   ...CountryRegion.GET(CompanyInfo."Country/Region Code");
   
           VALIDATE("VAT Registration No.",CompanyInfo."VAT Registration No.");
   
   // Deleting the following lines.
          VALIDATE("Company Name",CompanyInfo.Name);
          VALIDATE("Company Address",CompanyInfo.Address);
          VALIDATE("Country/Region Name",CountryRegion.Name);
          VALIDATE(City,CompanyInfo.City);
   // End of the deleted lines.
   
           VALIDATE("Post Code",CompanyInfo."Post Code");
           VALIDATE("Tax Office ID",CompanyInfo."Tax Office Number");
         END;
   ...
   

   Código de substituição 2

   ...CountryRegion.GET(CompanyInfo."Country/Region Code");
   
           VALIDATE("VAT Registration No.",CompanyInfo."VAT Registration No.");
   
   // Adding the following lines.
   VALIDATE("Company Name",GetCompanyName(CompanyInfo,VATReportSetup));
   VALIDATE("Company Address",GetCompanyAddress(CompanyInfo,VATReportSetup));
   VALIDATE("Country/Region Name",CountryRegion.Name);
   VALIDATE(City,GetCompanyCity(CompanyInfo,VATReportSetup));
   // End of the added lines.
   
           VALIDATE("Post Code",CompanyInfo."Post Code");
           VALIDATE("Tax Office ID",CompanyInfo."Tax Office Number");
         END;
   ...
   

2. Altere o código na função GetCompanyName da tabela de cabeçalho do relatório de IVA (740) do seguinte modo:
   Código existente

   ...TESTFIELD(Status,Status::Submitted);
           END;
         END;
   
         BEGIN
         END.
       }
     }
   ...
   

   Código de substituição

   ...TESTFIELD(Status,Status::Submitted);
           END;
         END;
   
   // Adding the following lines.
        LOCAL PROCEDURE GetCompanyName@1140004(CompanyInformation@1140001 : Record 79;VATReportSetup@1140000 : Record 743) : Text[100];
        BEGIN
          IF VATReportSetup."Company Name" <> '' THEN
           EXIT(VATReportSetup."Company Name");
   
          EXIT(CompanyInformation.Name);
        END;
   
        LOCAL PROCEDURE GetCompanyAddress@1140005(CompanyInformation@1140001 : Record 79;VATReportSetup@1140000 : Record 743) : Text[30];
        BEGIN
          IF VATReportSetup."Company Address" <> '' THEN
            EXIT(VATReportSetup."Company Address");
   
          EXIT(CompanyInformation.Address);
        END;
   
        LOCAL PROCEDURE GetCompanyCity@1140006(CompanyInformation@1140001 : Record 79;VATReportSetup@1140000 : Record 743) : Text[30];
        BEGIN
          IF VATReportSetup."Company City" <> '' THEN
            EXIT(VATReportSetup."Company City");
   
          EXIT(CompanyInformation.City);
        END;
   // End of the adding lines.
   
         BEGIN
         END.
       }
     }
   ...
   

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

   ...{ 11004;  ;Registration ID     ;Text6         ;CaptionML=[DEU=Registrierungs-ID;
                                                                   ENU=Registration ID] }
         { 11005;  ;Export Cancellation Lines;Boolean  ;CaptionML=[DEU=Stornozeilen exportieren;
                                                                   ENU=Export Cancellation Lines] }
       }
       KEYS
       {
         {    ;Primary key                             ;Clustered=Yes }
   ...
   

   Código de substituição

   ...{ 11004;  ;Registration ID     ;Text6         ;CaptionML=[DEU=Registrierungs-ID;
                                                                   ENU=Registration ID] }
         { 11005;  ;Export Cancellation Lines;Boolean  ;CaptionML=[DEU=Stornozeilen exportieren;
                                                                   ENU=Export Cancellation Lines] }
   
   // Adding the following lines.
        { 11006;  ;Company Name        ;Text100        }
        { 11007;  ;Company Address     ;Text30         }
        { 11008;  ;Company City        ;Text30         }
   // End of the added lines.
   
       }
       KEYS
       {
         {    ;Primary key                             ;Clustered=Yes }
   ...
   

4. Altere o código nas propriedades do formulário de configuração do mapa de IVA (743) do seguinte modo:
   Código existente

   ...}
       PROPERTIES
       {
         Width=11990;
   
   // Delete the following line.
        Height=6490;
   // End of the deleted line.
   
         CaptionML=[DEU=MwSt.-Berichtseinrichtung;
                    ENU=VAT Report Setup];
         InsertAllowed=No;
         DeleteAllowed=No;
   ...
   

   Código de substituição

   ...}
       PROPERTIES
       {
         Width=11990;
   
   // Add the following line.
        Height=8690;
   // End of the added line.
   
         CaptionML=[DEU=MwSt.-Berichtseinrichtung;
                    ENU=VAT Report Setup];
         InsertAllowed=No;
         DeleteAllowed=No;
   ...
   

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

   ...}
       CONTROLS
       {
   
   // Deleting the following line.
        { 1   ;TabControl   ;220  ;220  ;11550;5280 ;HorzGlue=Both;
   // End of the deleted line.
   
                                                      VertGlue=Both;
                                                      PageNamesML=[DEU=Allgemein,Nummerierung;
                                                                   ENU=General,Numbering] }
         { 4   ;CheckBox     ;3850 ;990  ;440  ;440  ;ParentControl=1;
   ...
   

   Código de substituição 1

   ...}
       CONTROLS
       {
   
   // Adding the following line.
        { 1   ;TabControl   ;220  ;220  ;11550;7480 ;HorzGlue=Both;
   // End of the added line.
   
                                                      VertGlue=Both;
                                                      PageNamesML=[DEU=Allgemein,Nummerierung;
                                                                   ENU=General,Numbering] }
         { 4   ;CheckBox     ;3850 ;990  ;440  ;440  ;ParentControl=1;
   ...
   

   Código existente 2

   ...InPage=0;
                                                      ShowCaption=No;
                                                      SourceExpr="Export Cancellation Lines" }
         { 1140013;Label     ;440  ;4840 ;3300 ;440  ;ParentControl=1140012 }
         { 7   ;TextBox      ;3850 ;990  ;2750 ;440  ;ParentControl=1;
                                                      InPage=1;
                                                      SourceExpr="No. Series" }
         { 8   ;Label        ;440  ;990  ;3300 ;440  ;ParentControl=7 }
   ...
   

   Código de substituição 2

   ...InPage=0;
                                                      ShowCaption=No;
                                                      SourceExpr="Export Cancellation Lines" }
         { 1140013;Label     ;440  ;4840 ;3300 ;440  ;ParentControl=1140012 }
   
   // Adding the following lines.
        { 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" }
        { 1140018;Label     ;440  ;6490 ;3300 ;440  ;ParentControl=1140019 }
   // End of the added lines.
   
         { 7   ;TextBox      ;3850 ;990  ;2750 ;440  ;ParentControl=1;
                                                      InPage=1;
                                                      SourceExpr="No. Series" }
         { 8   ;Label        ;440  ;990  ;3300 ;440  ;ParentControl=7 }
   ...
   

   Código existente 3

   ...{ 7   ;TextBox      ;3850 ;990  ;2750 ;440  ;ParentControl=1;
                                                      InPage=1;
                                                      SourceExpr="No. Series" }
         { 8   ;Label        ;440  ;990  ;3300 ;440  ;ParentControl=7 }
   
   // Deleting the following line.
        { 6   ;CommandButton;9570 ;5720 ;2200 ;550  ;HorzGlue=Right;
   // End of the deleted line.
   
                                                      VertGlue=Bottom;
                                                      PushAction=FormHelp }
       }
       CODE
   ...
   

   Código de substituição 3

   ...{ 7   ;TextBox      ;3850 ;990  ;2750 ;440  ;ParentControl=1;
                                                      InPage=1;
                                                      SourceExpr="No. Series" }
         { 8   ;Label        ;440  ;990  ;3300 ;440  ;ParentControl=7 }
   
   // Adding the following line.
        { 6   ;CommandButton;9570 ;7920 ;2200 ;550  ;HorzGlue=Right;
   // End of the added line.
   
                                                      VertGlue=Bottom;
                                                      PushAction=FormHelp }
       }
       CODE
   ...
   

6. Alterar o código na função MakeLineRecord no relatório Exportar relatório VIES (11008) do seguinte modo:
   Código existente 1

   ...END;
   
         PROCEDURE MakeLineRecord@1140004(VATReportHeader@1140001 : Record 740;VATReportLine@1140000 : Record 741);
         BEGIN
           TempDataExportBuffer."Entry No." := NextLineNo;
           TempDataExportBuffer."Field Value" :=
             GetRecordType('1') +
             PADSTR(VATReportHeader."VAT Registration No.",11) +
   ...
   

   Código de substituição 1

   ...END;
   
         PROCEDURE MakeLineRecord@1140004(VATReportHeader@1140001 : Record 740;VATReportLine@1140000 : Record 741);
         BEGIN
   
   // Adding the following lines.
          IF (VATReportLine.Base = 0) AND (VATReportLine."Line Type" <> VATReportLine."Line Type"::Correction) THEN
            EXIT;
   // End of the added lines.
   
           TempDataExportBuffer."Entry No." := NextLineNo;
           TempDataExportBuffer."Field Value" :=
             GetRecordType('1') +
             PADSTR(VATReportHeader."VAT Registration No.",11) +
   ...
   

   Código existente 2

   ...TempDataExportBuffer."Entry No." := NextLineNo;
           TempDataExportBuffer."Field Value" :=
             GetRecordType('1') +
             PADSTR(VATReportHeader."VAT Registration No.",11) +
   
   // Deleting the following line.
            GetReportType(VATReportLine) +
   // End of the deleted line.
   
             GetReportPeriod(VATReportHeader) +
             PADSTR(VATReportLine.GetVATRegNo,14) +
             FormatBaseForExport(VATReportLine,12) +
             GetTurnoverType(VATReportLine) +
   ...
   

   Código de substituição 2

   ...TempDataExportBuffer."Entry No." := NextLineNo;
           TempDataExportBuffer."Field Value" :=
             GetRecordType('1') +
             PADSTR(VATReportHeader."VAT Registration No.",11) +
   
   // Adding the following line.
            GetReportType(VATReportLine,VATReportHeader) +
   // End of the added line.
   
             GetReportPeriod(VATReportHeader) +
             PADSTR(VATReportLine.GetVATRegNo,14) +
             FormatBaseForExport(VATReportLine,12) +
             GetTurnoverType(VATReportLine) +
   ...
   

7. Alterar o código na função MakeTotalRecord no relatório Exportar relatório VIES (11008) do seguinte modo:
   Código existente

   ...GetRecordType('2') +
             PADSTR(VATReportHeader."VAT Registration No.",11) +
             GetReportPeriod(VATReportHeader) +
             FormatAmountForExport(VATReportHeader."Total Base",14) +
   
   // Deleting the following line.
            FormatAmountForExport(VATReportHeader."Total Number of Lines",5) +
   // End of the deleted line.
   
             PADSTR('',85);
           TempDataExportBuffer.INSERT;
           NextLineNo := NextLineNo + 1;
         END;
   ...
   

   Código de substituição

   ...GetRecordType('2') +
             PADSTR(VATReportHeader."VAT Registration No.",11) +
             GetReportPeriod(VATReportHeader) +
             FormatAmountForExport(VATReportHeader."Total Base",14) +
   
   // Adding the following lines.
            FormatAmountForExport(
              VATReportHeader."Total Number of Lines" -
              GetZeroBaseNewLineCount(VATReportHeader."No.") +
              GetExportCancellationLineCount(VATReportHeader."No."),5) +
   // End of the added lines.
   
             PADSTR('',85);
           TempDataExportBuffer.INSERT;
           NextLineNo := NextLineNo + 1;
         END;
   ...
   

8. Alterar o código na função GetReportType no relatório Exportar relatório VIES (11008) do seguinte modo:
   Código existente

   ...BEGIN
           EXIT(RecordType);
         END;
   
   // Deleting the following lines.
        PROCEDURE GetReportType@1140007(VATReportLine@1140000 : Record 741) : Text[2];
        BEGIN
   // End of the deleted lines.
   
           CASE VATReportLine."Line Type" OF
             VATReportLine."Line Type"::New:
               EXIT('10');
             VATReportLine."Line Type"::Cancellation,
   ...
   

   Código de substituição

   ...BEGIN
           EXIT(RecordType);
         END;
   
   // Adding the following lines.
        PROCEDURE GetReportType@1140007(VATReportLine@1140000 : Record 741;VATReportHeader@1140001 : Record 740) : Text[2];
        BEGIN
          IF VATReportHeader."VAT Report Type" = VATReportHeader."VAT Report Type"::Corrective THEN
            EXIT('11');
   // End of the added lines.
   
           CASE VATReportLine."Line Type" OF
             VATReportLine."Line Type"::New:
               EXIT('10');
             VATReportLine."Line Type"::Cancellation,
   ...
   

9. Alterar o código na função GetZeroBaseNewLineCount no relatório Exportar relatório VIES (11008) do seguinte modo:
   Código existente

   ...EXIT('p');
         END;
   
         PROCEDURE FormatDate@1140002(Date@1140000 : Date) : Text[8];
         BEGIN
           EXIT(FORMAT(Date,8,'<Year4><Month,2><Day,2>'));
         END;
   ...
   

   Código de substituição

   ...EXIT('p');
         END;
   
   // Adding the following lines.
        LOCAL PROCEDURE GetZeroBaseNewLineCount@1140020(ReportNo@1140001 : Code[20]) : Integer;
        VAR
          VATReportLine@1140000 : Record 741;
        BEGIN
          WITH VATReportLine DO BEGIN
            SETRANGE("VAT Report No.",ReportNo);
            SETRANGE(Base,0);
            SETFILTER("Line Type",'<>%1',"Line Type"::Correction);
            EXIT(COUNT);
          END;
        END;
   
        LOCAL PROCEDURE GetExportCancellationLineCount@1140021(ReportNo@1140001 : Code[20]) : Integer;
        VAR
          VATReportLine@1140000 : Record 741;
        BEGIN
          IF NOT VATReportSetup."Export Cancellation Lines" THEN
            EXIT(0);
   
          WITH VATReportLine DO BEGIN
            SETRANGE("VAT Report No.",ReportNo);
            SETRANGE("Line Type","Line Type"::Cancellation);
            EXIT(COUNT);
          END;
        END;
   // End of the added lines.
   
         PROCEDURE FormatDate@1140002(Date@1140000 : Date) : Text[8];
         BEGIN
           EXIT(FORMAT(Date,8,'<Year4><Month,2><Day,2>'));
         END;
   ...
   

Pré-requisitos

Tem de ter a versão alemã do Microsoft Dynamics NAV 2009 R2 ou SP1 instalado para aplicar esta correcção.

Informações de remoção

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