Informações sobre o arquivo CAMT não é transferido para a tabela 11000006 a versão em holandês do Microsoft Dynamics NAV 2009

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

Observação: Antes de instalar esse hotfix, verifique se todos os usuários do cliente do Microsoft Dynamics NAV estiver desconectados do sistema. Isso inclui os serviços do Microsoft Dynamics NAV Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:

• A permissão Modificar para o objeto que será alterado.

• A permissão de execução para o objeto 5210 de identificação de objeto de sistema e o sistema 9015 de identificação de objeto
  
  objeto.

Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.

Para resolver esse problema, execute as seguintes etapas:

1. Altere o código em variáveis globais na reconciliação do extrato CBG codeunit (11000006) da seguinte forma:
   Código existente

   ...PaymenthistorylineRec@1000017 : Record 11000002;
         TransactionModeRec@1000018 : Record 11000004;
         TempBankAccount@1000025 : TEMPORARY Record 270;
         Name@1000021 : Code[80];
         Address@1000022 : Code[40];
         City@1000023 : Code[40];
         Identification@1000024 : Code[40];
         NumberOfDocumentNumbers@1000028 : Integer;
         NumberOfLinesProcessed@1000029 : Integer;
         NumberOfLinesChanged@1000030 : Integer;
   ...
   

   Código de substituição

   ...PaymenthistorylineRec@1000017 : Record 11000002;
         TransactionModeRec@1000018 : Record 11000004;
         TempBankAccount@1000025 : TEMPORARY Record 270;
         NumberOfDocumentNumbers@1000028 : Integer;
         NumberOfLinesProcessed@1000029 : Integer;
         NumberOfLinesChanged@1000030 : Integer;
   ...
   

2. Altere o código na função MatchCBGStatementLine na reconciliação do extrato CBG codeunit (11000006) da seguinte forma:
   1 de código existente

   ...PaymentHistoryFound@1000004 : Boolean;
         i@1000005 : Integer;
         strFilter@1000006 : Text[250];
       BEGIN
         MakeTempfile;
         NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
   ...
   

   1 código de substituição

   ...PaymentHistoryFound@1000004 : Boolean;
         i@1000005 : Integer;
         strFilter@1000006 : Text[250];
         Name@1000007 : Code[80];
         Address@1000008 : Code[80];
         City@1000009 : Code[80];
         Identification@1000010 : Code[20];
       BEGIN
         MakeTempfile;
         NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
   ...
   

   2 de código existente

   ...PostDesRec."Information Type"::"City Acct. Holder":
                 City := PostDesRec.Description;
               PostDesRec."Information Type"::"Payment Identification":
                 Identification := PostDesRec.Description;
             END;
           UNTIL PostDesRec.NEXT = 0;
   ...
   

   Código de substituição 2

   ...PostDesRec."Information Type"::"City Acct. Holder":
                 City := PostDesRec.Description;
               PostDesRec."Information Type"::"Payment Identification":
                 Identification := COPYSTR(PostDesRec.Description,1,MAXSTRLEN(Identification));
             END;
           UNTIL PostDesRec.NEXT = 0;
   ...
   

   3 de código existente

   ...IF NOT RecChanged THEN BEGIN
             IF Name <> '' THEN BEGIN
               IF CBGStatementlineRec.Credit > 0 THEN BEGIN
                 IF FindNAC(Name, Address, City, TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

   Código de substituição 3

   ...IF NOT RecChanged THEN BEGIN
             IF Name <> '' THEN BEGIN
               IF CBGStatementlineRec.Credit > 0 THEN BEGIN
                 IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

   4 de código existente

   ...RecChanged := TRUE;
                 END;
               END ELSE BEGIN
                 IF FindNAC(Name, Address, City, TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

   Código de substituição 4

   ...RecChanged := TRUE;
                 END;
               END ELSE BEGIN
                 IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
                   CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
                   CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
                   CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
   ...
   

3. Altere o código na função FindNAC na reconciliação do extrato CBG codeunit (11000006) da seguinte forma:
   Código existente

   ...END;
       END;
   
       PROCEDURE FindNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];"Source Type"@1000004 : Integer;VAR SourcenumberFound@1000005 : Code[20]) found@1000000 : Boolean;
       VAR
         NameResultTemp@1000006 : TEMPORARY Record 11000008;
         AddressResultTemp@1000007 : TEMPORARY Record 11000008;
         CityResultTemp@1000008 : TEMPORARY Record 11000008;
       BEGIN
         found := FALSE;
   
         IF (Name = '') OR (Address = '') OR (City = '') THEN
           EXIT(FALSE);
   
         NameResultTemp.SETCURRENTKEY("Source Type", "Source No.");
         AddressResultTemp.SETCURRENTKEY("Source Type", "Source No.");
         CityResultTemp.SETCURRENTKEY("Source Type", "Source No.");
   
         TempRec.SETRANGE("Source Type","Source Type");
         TempRec.SETRANGE("Data Type",TempRec."Data Type"::Name);
         TempRec.SETRANGE(Word,COPYSTR(Name,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FIND('-') THEN
           REPEAT
             NameResultTemp := TempRec;
             NameResultTemp.INSERT;
           UNTIL TempRec.NEXT = 0;
   
         TempRec.RESET;
         TempRec.SETRANGE("Source Type","Source Type");
         TempRec.SETRANGE("Data Type",TempRec."Data Type"::Street);
         TempRec.SETRANGE(Word,COPYSTR(Address,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FIND('-') THEN
           REPEAT
             NameResultTemp.SETRANGE("Source Type",TempRec."Source Type");
             NameResultTemp.SETRANGE("Source No.",TempRec."Source No.");
             IF NameResultTemp.FIND('-') THEN BEGIN
               AddressResultTemp := NameResultTemp;
               AddressResultTemp.INSERT;
             END;
           UNTIL TempRec.NEXT = 0;
   
         TempRec.RESET;
         TempRec.SETRANGE("Source Type","Source Type");
         TempRec.SETRANGE("Data Type",TempRec."Data Type"::City);
         TempRec.SETRANGE(Word,COPYSTR(City,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FIND('-') THEN
           REPEAT
             AddressResultTemp.SETRANGE("Source Type",TempRec."Source Type");
             AddressResultTemp.SETRANGE("Source No.",TempRec."Source No.");
             IF AddressResultTemp.FIND('-') THEN BEGIN
               CityResultTemp := AddressResultTemp;
               CityResultTemp.INSERT;
             END;
           UNTIL TempRec.NEXT = 0;
   
         IF CityResultTemp.FIND('-') THEN BEGIN
           SourcenumberFound := CityResultTemp."Source No.";
           found := CityResultTemp.NEXT = 0;
         END;
       END;
   ...
   

   Código de substituição

   ...END;
       END;
   
       PROCEDURE FindSourceNoByNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];SourceType@1000004 : Option;VAR FoundSourceNo@1000005 : Code[20]) Found@1000000 : Boolean;
       VAR
         TempFoundRecBuf@1000006 : TEMPORARY Record 11000008;
       BEGIN
         IF (Name = '') AND (Address = '') AND (City = '') THEN
           EXIT(FALSE);
   
         IF FindSourceNoByDataType(TempRec."Data Type"::Name,Name,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
           EXIT(TRUE);
         IF FindSourceNoByDataType(TempRec."Data Type"::Street,Address,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
           EXIT(TRUE);
         IF FindSourceNoByDataType(TempRec."Data Type"::City,City,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
           EXIT(TRUE);
         EXIT(FALSE);
       END;
   
       LOCAL PROCEDURE FindSourceNoByDataType@1000016(DataType@1000001 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000003 : TEMPORARY Record 11000008;SourceType@1000005 : Option;VAR FoundSourceNo@1000000 : Code[20]) FoundOne : Boolean;
       BEGIN
         IF Value = '' THEN
           EXIT(FALSE);
   
         TempRec.RESET;
         TempFoundRecBuf.RESET;
         IF TempFoundRecBuf.ISEMPTY THEN
           FoundOne := CollectMatches(SourceType,DataType,Value,TempFoundRecBuf) = 1
         ELSE
           FoundOne := CollectDependentMatches(DataType,Value,TempFoundRecBuf) = 1;
         IF FoundOne THEN BEGIN
           TempFoundRecBuf.FINDFIRST;
           FoundSourceNo := TempFoundRecBuf."Source No.";
         END;
       END;
   ...
   

4. Altere o código na função CollectMatches na reconciliação do extrato CBG codeunit (11000006) da seguinte forma:
   Código existente

   ...END;
       END;
   
       LOCAL PROCEDURE MakeTempfile@1000006();
       VAR
         NumberRec@1000000 : Integer;
   ...
   

   Código de substituição

   ...END;
       END;
   
       LOCAL PROCEDURE CollectMatches@1000017(SourceType@1000000 : Option;DataType@1000003 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000001 : TEMPORARY Record 11000008) : Integer;
       BEGIN
         TempRec.RESET;
         TempRec.SETRANGE("Source Type",SourceType);
         TempRec.SETRANGE("Data Type",DataType);
         TempRec.SETRANGE(Word,COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)));
         IF TempRec.FINDSET THEN
           REPEAT
             TempFoundRecBuf := TempRec;
             TempFoundRecBuf.INSERT;
           UNTIL TempRec.NEXT = 0;
         TempFoundRecBuf.RESET;
         TempFoundRecBuf.SETRANGE("Data Type",DataType);
         EXIT(TempFoundRecBuf.COUNT);
       END;
   
       PROCEDURE CollectDependentMatches@1000019(DataType@1000002 : Option;Value@1000001 : Code[80];VAR TempFoundRecBuf@1000000 : TEMPORARY Record 11000008) : Integer;
       VAR
         CurrFoundRecBuf@1000004 : Record 11000008;
       BEGIN
         TempFoundRecBuf.FINDSET;
         REPEAT
           CurrFoundRecBuf.COPY(TempFoundRecBuf);
           IF TempRec.GET(
                COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)),TempFoundRecBuf."Source Type",TempFoundRecBuf."Source No.",DataType)
           THEN BEGIN
             TempFoundRecBuf := TempRec;
             IF TempFoundRecBuf.INSERT THEN;
           END;
           TempFoundRecBuf.COPY(CurrFoundRecBuf);
         UNTIL TempFoundRecBuf.NEXT = 0;
         TempFoundRecBuf.RESET;
         TempFoundRecBuf.SETRANGE("Data Type",DataType);
         EXIT(TempFoundRecBuf.COUNT);
       END;
   
       LOCAL PROCEDURE MakeTempfile@1000006();
       VAR
         NumberRec@1000000 : Integer;
   ...
   

Pré-requisitos:

Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:

• A versão em holandês do Microsoft Dynamics NAV 2009 R2

• A versão em holandês do Microsoft Dynamics NAV 2009 SP1

Informações sobre remoção

Você não pode remover esse hotfix.