Este artigo se aplica ao Microsoft Dynamics NAV para a localidade de idioma russo (ru).
Sintomas
Suponha que você tenha um diário de pré-pagamento que usa uma moeda estrangeira para um fornecedor na versão russa do Microsoft Dynamics NAV 2009. Você resolve o pré-pagamento com uma fatura que usa uma taxa de câmbio diferente para a moeda. Nessa situação, quando você executa o relatório "Cartão de Contabilidade do Fornecedor" (12445) para o pré-pagamento, os resultados incorretos são exibidos. Esse problema também ocorre no relatório "Cartão de Contabilidade do Cliente" (12441) depois que você resolve um pré-pagamento em uma moeda estrangeira para um cliente. Esse problema ocorre nos seguintes produtos:
- A versão russa do Microsoft Dynamics NAV 2009 R2
- A versão russa do Microsoft Dynamics NAV 2009 Service Pack 1
Resolução
Informações sobre o hotfix
Um hotfix com suporte agora está disponível na Microsoft. No entanto, ele destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o somente a sistemas que estão enfrentando esse problema específico. Esse hotfix pode receber testes adicionais. Portanto, se você não for severamente afetado por esse problema, é recomendável aguardar o próximo pacote de serviços do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.
Observação Em casos especiais, os encargos que normalmente são incorridos para chamadas de suporte podem ser cancelados se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica resolve seu problema. Os custos de suporte em geral aplicam-se a questões e problemas de suporte adicionais 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 para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe 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 ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.
Observação Antes de instalar esse hotfix, verifique se todos os usuários cliente do Microsoft Navision estão conectados ao sistema. Isso inclui usuários cliente do NAS (Microsoft Navision Application Services). Você deve ser o único usuário cliente que está conectado ao implementar esse hotfix.
Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.
Recomendamos que a conta de usuário na janela Logons do Windows ou na janela Logons de Banco de Dados seja atribuída à ID da função "SUPER". Se a conta de usuário não puder ser atribuída à ID da 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 você estará alterando.
- A permissão Executar para o objeto System Object ID 5210 e para o objeto System Object ID 9015.
Observação Você não precisa ter direitos para os armazenamentos de dados, a menos que precise executar o reparo de dados.
Alterações de código
Observação Sempre teste correções de código em um ambiente controlado antes de aplicar as correções aos computadores de produção.
Para resolver este problema, execute as seguintes etapas:
Altere o código nas Variáveis Globais no relatório cartão de contabilidade do cliente (12441) da seguinte maneira:
Código existente... AdjBalance@1210001 : Decimal; RowNumber@1210017 : Integer; ...Código de substituição
... AdjBalance@1210001 : Decimal; // Add the following lines. DebitPrepmtDiff@1210021 : Decimal; CreditPrepmtDiff@1210020 : Decimal; // End of the lines. RowNumber@1210017 : Integer; ...Altere o código na seção Número 1 do Item de Dados no relatório cartão de contabilidade do cliente (12441) da seguinte maneira:
Código existente... CurrReport.SKIP; END; ...Código de substituição
... CurrReport.SKIP; // Add the following lines. DebitPrepmtDiff := 0; CreditPrepmtDiff := 0; // End of the lines. END; ...Altere o código na seção Número 2 do Item de Dados no relatório cartão de contabilidade do cliente (12441) da seguinte maneira:
Código 1 existente.. BlankZero=Yes; // Delete the following line. SourceExpr="Cust. Ledger Entry"."Debit Amount (LCY)" + AdjBalance; DataSetFieldName=Cust__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Código de substituição 1
... BlankZero=Yes; // Add the following line. SourceExpr="Cust. Ledger Entry"."Debit Amount (LCY)" + AdjBalance + DebitPrepmtDiff; DataSetFieldName=Cust__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Código 2 existente
... BlankZero=Yes; // Delete the following line. SourceExpr="Cust. Ledger Entry"."Credit Amount (LCY)" + AdjBalance; DataSetFieldName=Cust__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Código de substituição 2
... BlankZero=Yes; // Add the following line. SourceExpr="Cust. Ledger Entry"."Credit Amount (LCY)" + AdjBalance + CreditPrepmtDiff; DataSetFieldName=Cust__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Altere o código na seção Número 4 do Item de Dados no relatório cartão de contabilidade do cliente (12441) da seguinte maneira:
Código 1 existente... DataItemTable=Table379; DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date) // Delete the following line. WHERE(Entry Type=FILTER(<>Application)); OnPreDataItem=BEGIN ...Código de substituição 1
... DataItemTable=Table379; DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date); OnPreDataItem=BEGIN ...Código 2 existente
... OnAfterGetRecord=BEGIN CASE "Entry Type" OF ...Código de substituição 2
... OnAfterGetRecord=BEGIN // Add the following lines. IF "Entry Type" = "Entry Type"::Application THEN BEGIN IF "Prepmt. Diff." THEN BEGIN DebitPrepmtDiff += "Debit Amount (LCY)"; CreditPrepmtDiff += "Credit Amount (LCY)"; IF HasRelatedRealizedEntry("Transaction No.") OR (NOT IsCurrencyAdjEntry) THEN CurrReport.SKIP; END ELSE CurrReport.SKIP; END; // End of the lines. CASE "Entry Type" OF ...Crie um novo procedimento local HasRelatedRealizedEntry no relatório do Cartão de Contabilidade do Cliente (12441) da seguinte maneira:
LOCAL PROCEDURE HasRelatedRealizedEntry@1210000(TransactionNo@1210000 : Integer) : Boolean; VAR DtldCustLedgEntry@1210001 : Record 379; BEGIN WITH DtldCustLedgEntry DO BEGIN SETFILTER("Entry Type",'%1|%2',"Entry Type"::"Realized Gain","Entry Type"::"Realized Loss"); SETRANGE("Transaction No.",TransactionNo); EXIT(NOT ISEMPTY); END; END;Crie um novo procedimento local IsCurrencyAdjEntry no relatório cartão de contabilidade do cliente (12441) da seguinte maneira:
LOCAL PROCEDURE IsCurrencyAdjEntry@1210001() : Boolean; BEGIN WITH "Detailed Cust. Ledg. Entry" DO EXIT((Amount = 0) AND ("Amount (LCY)" <> 0)); END;Altere o código nas Variáveis Globais no relatório cartão de contabilidade do fornecedor (12445) da seguinte maneira:
Exising code... AdjBalance@1210001 : Decimal; RowNumber@1470000 : Integer; ...Código de substituição
... AdjBalance@1210001 : Decimal; // Add the following lines. DebitPrepmtDiff@1210018 : Decimal; CreditPrepmtDiff@1210019 : Decimal; // End of the lines. RowNumber@1470000 : Integer; ...Altere o código na seção Número 1 do Item de Dados no relatório cartão de contabilidade do fornecedor (12445) da seguinte maneira:
Código existente... CurrReport.SKIP; END; ...Código de substituição
.. CurrReport.SKIP; // Add the following lines. DebitPrepmtDiff := 0; CreditPrepmtDiff := 0; // End of the lines. END; ..Altere o código na seção Número 2 do Item de Dados no relatório cartão de contabilidade do fornecedor (12445) da seguinte maneira:
Código 1 existente... BlankZero=Yes; // Delete the following line. SourceExpr="Vendor Ledger Entry"."Debit Amount (LCY)" + AdjBalance; DataSetFieldName=Vendor__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Código de substituição 1
... BlankZero=Yes; // Add the following line. SourceExpr="Vendor Ledger Entry"."Debit Amount (LCY)" + AdjBalance + DebitPrepmtDiff; DataSetFieldName=Vendor__Ledger_Entry___Debit_Amount__LCY_____AdjBalance } ...Código 2 existente
... BlankZero=Yes; // Delete the following line. SourceExpr="Vendor Ledger Entry"."Credit Amount (LCY)" + AdjBalance; DataSetFieldName=Vendor__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Código de substituição 2
... BlankZero=Yes; // Add the following line. SourceExpr="Vendor Ledger Entry"."Credit Amount (LCY)" + AdjBalance + CreditPrepmtDiff; DataSetFieldName=Vendor__Ledger_Entry___Credit_Amount__LCY_____AdjBalance } ...Altere o código na seção Número 4 do Item de Dados no relatório cartão de contabilidade do fornecedor (12445) da seguinte maneira:
Código 1 existente... DataItemTable=Table380; DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date) // Delete the following line. WHERE(Entry Type=FILTER(<>Application)); OnPreDataItem=BEGIN ...Código de substituição 1
... DataItemTable=Table380; DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date); OnPreDataItem=BEGIN ...Código 2 existente
... OnAfterGetRecord=BEGIN CASE "Entry Type" OF ..Código de substituição 2
... OnAfterGetRecord=BEGIN // Add the following lines. IF "Entry Type" = "Entry Type"::Application THEN BEGIN IF "Prepmt. Diff." THEN BEGIN DebitPrepmtDiff += "Debit Amount (LCY)"; CreditPrepmtDiff += "Credit Amount (LCY)"; IF HasRelatedRealizedEntry("Transaction No.") OR (NOT IsCurrencyAdjEntry) THEN CurrReport.SKIP; END ELSE CurrReport.SKIP; END; // End of the lines. CASE "Entry Type" OF ...Crie um novo procedimento local HasRelatedRealizedEntry no relatório cartão de contabilidade do fornecedor (12445) como folows:
LOCAL PROCEDURE HasRelatedRealizedEntry@1210000(TransactionNo@1210000 : Integer) : Boolean; VAR DtldVendLedgEntry@1210001 : Record 380; BEGIN WITH DtldVendLedgEntry DO BEGIN SETFILTER("Entry Type",'%1|%2',"Entry Type"::"Realized Gain","Entry Type"::"Realized Loss"); SETRANGE("Transaction No.",TransactionNo); EXIT(NOT ISEMPTY); END; END;Crie um novo procedimento local IsCurrencyAdjEntry no relatório cartão de contabilidade do fornecedor (12445) como folows:
LOCAL PROCEDURE IsCurrencyAdjEntry@1210001() : Boolean; BEGIN WITH "Detailed Vendor Ledg. Entry" DO EXIT((Amount = 0) AND ("Amount (LCY)" <> 0)); END;
Pré-requisitos
Você deve ter um dos seguintes produtos instalados para aplicar este hotfix:
- A versão russa do Microsoft Dynamics NAV 2009 R2
- A versão russa do Microsoft Dynamics NAV 2009 Service Pack 1
Informações sobre remoção
Você não pode remover esse hotfix.
Status
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na seção "Aplica-se a".
Observação Este é um artigo "FAST PUBLISH" criado diretamente na organização de suporte da Microsoft. As informações contidas aqui são fornecidas como resposta aos problemas possíveis. Como resultado da prontidão de disponibilizá-lo, os materiais pode conter erros tipográficos e podem ser revisados a qualquer momento são aviso prévio. Consulte Termos de Uso para obter outras considerações.