Este artigo se aplica ao Microsoft Dynamics NAV para a região do Leste Europeu (EE).
Sintomas
Suponha que você crie uma ordem de vendas que contenha pré-pagamento na versão do Leste Europeu do Microsoft Dynamics NAV 2009 R2. Ao postar a fatura final da ordem de vendas, as entradas são geradas na tabela "Entrada do Razão" (21) e na tabela "Entrada G/L" (17). No entanto, os códigos de dimensão global não são transferidos para as tabelas.
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, recomendamos aguardar o próximo pacote de serviços do Microsoft Dynamics NAV 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:
Adicione uma nova função GetDimValueCode na tabela Dimensão da Linha de Diário (356) da seguinte maneira:
PROCEDURE GetDimValueCode@1470000(DimCode@1470000 : Code[20]) DimValueCode : Code[20]; BEGIN SETRANGE("Dimension Code",DimCode); IF FINDFIRST THEN DimValueCode := "Dimension Value Code"; SETRANGE("Dimension Code"); END;Altere o código na função PostVATCorrection na codeunit "Sales-Post Advances" (26585) da seguinte maneira:
Código existente... GenJnlLine."Advance VAT Base Amount" := BaseToDeductLCY; GenJnlLine."Advance Exch. Rate Difference" := VATOffsetAmount - VATAmountLCY; GenJnlLine.VALIDATE(Amount,VATAmountLCY); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); ...Código de substituição
... GenJnlLine."Advance VAT Base Amount" := BaseToDeductLCY; GenJnlLine."Advance Exch. Rate Difference" := VATOffsetAmount - VATAmountLCY; GenJnlLine.VALIDATE(Amount,VATAmountLCY); // Add the following lines. GenJnlLine."Shortcut Dimension 1 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 1 Code"); GenJnlLine."Shortcut Dimension 2 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 2 Code"); // End of the lines. GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); ...Altere o código na função PostPaymentCorrection na codeunit "Sales-Post Advances" (26585) da seguinte maneira:
Código 1 existente... LedgEntryDim.SETRANGE("Table ID",DATABASE::"Cust. Ledger Entry"); LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); UNTIL LinkedAdvanceEntry.NEXT = 0; ...Código de substituição 1
... LedgEntryDim.SETRANGE("Table ID",DATABASE::"Cust. Ledger Entry"); LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); // Add the following lines. GenJnlLine."Shortcut Dimension 1 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 1 Code"); GenJnlLine."Shortcut Dimension 2 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 2 Code"); // End of the lines. GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); UNTIL LinkedAdvanceEntry.NEXT = 0; ...Código 2 existente
... GenJnlLine.VALIDATE("Amount (LCY)",-PrepaidAmountLCY); GenJnlLine."Applies-to Doc. Type" := GenJnlLine."Applies-to Doc. Type"::Invoice; GenJnlLine."Applies-to Doc. No." := SalesInvHeader."No."; GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim2); ...Código de substituição 2
... GenJnlLine.VALIDATE("Amount (LCY)",-PrepaidAmountLCY); GenJnlLine."Applies-to Doc. Type" := GenJnlLine."Applies-to Doc. Type"::Invoice; GenJnlLine."Applies-to Doc. No." := SalesInvHeader."No."; // Add the following lines. GenJnlLine."Shortcut Dimension 1 Code" := TempJnlLineDim2.GetDimValueCode(GLSetup."Global Dimension 1 Code"); GenJnlLine."Shortcut Dimension 2 Code" := TempJnlLineDim2.GetDimValueCode(GLSetup."Global Dimension 2 Code"); // End of the lines. GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim2); ...Altere o código na função PostVATCorrection na codeunit "Buy-Post Advances" (26586) da seguinte maneira:
Código existente... GenJnlLine."Advance VAT Base Amount" := BaseToDeductLCY; GenJnlLine."Advance Exch. Rate Difference" := VATOffsetAmount - VATAmountLCY; GenJnlLine.VALIDATE(Amount,VATAmountLCY); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); ...Código de substituição
... GenJnlLine."Advance VAT Base Amount" := BaseToDeductLCY; GenJnlLine."Advance Exch. Rate Difference" := VATOffsetAmount - VATAmountLCY; GenJnlLine.VALIDATE(Amount,VATAmountLCY); // Add the following lines. GenJnlLine."Shortcut Dimension 1 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 1 Code"); GenJnlLine."Shortcut Dimension 2 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 2 Code"); // End of the lines. GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); ...Altere o código na função PostPaymentCorrection na codeunit "Buy-Post Advances" (26586) da seguinte maneira:
Código 1 existente... LedgEntryDim.SETRANGE("Table ID",DATABASE::"Vendor Ledger Entry"); LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); UNTIL LinkedAdvanceEntry.NEXT = 0; ...Código de substituição 1
... LedgEntryDim.SETRANGE("Table ID",DATABASE::"Vendor Ledger Entry"); LedgEntryDim.SETRANGE("Entry No.",LinkedAdvanceEntry."Entry No."); DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim); // Add the following lines. GenJnlLine."Shortcut Dimension 1 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 1 Code"); GenJnlLine."Shortcut Dimension 2 Code" := TempJnlLineDim.GetDimValueCode(GLSetup."Global Dimension 2 Code"); // End of the lines. GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim); UNTIL LinkedAdvanceEntry.NEXT = 0; ...Código 2 existente
... GenJnlLine.VALIDATE("Amount (LCY)",-PrepaidAmountLCY); GenJnlLine."Applies-to Doc. Type" := GenJnlLine."Applies-to Doc. Type"::Invoice; GenJnlLine."Applies-to Doc. No." := PurchInvHeader."No."; GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim2); ...Código de substituição 2
... GenJnlLine.VALIDATE("Amount (LCY)",-PrepaidAmountLCY); GenJnlLine."Applies-to Doc. Type" := GenJnlLine."Applies-to Doc. Type"::Invoice; GenJnlLine."Applies-to Doc. No." := PurchInvHeader."No."; // Add the following lines. GenJnlLine."Shortcut Dimension 1 Code" := TempJnlLineDim2.GetDimValueCode(GLSetup."Global Dimension 1 Code"); GenJnlLine."Shortcut Dimension 2 Code" := TempJnlLineDim2.GetDimValueCode(GLSetup."Global Dimension 2 Code"); // End of the lines. GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim2); ...
Pré-requisitos
Você deve ter a versão do Leste Europeu do Microsoft Dynamics NAV 2009 R2 instalada para aplicar esse hotfix.
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.