Este artigo aplica-se ao Microsoft Dynamics NAV para a região de idioma húngaro (hu).
Sintomas
Considere o seguinte cenário na versão húngara do Microsoft Dynamics NAV 2009 R2:
- Aplica a Atualização de Pré-pagamentos para a versão húngara do Microsoft Dynamics NAV 2009 R2.
- Defina o campo Tipo de pré-pagamento como Avançar no formulário Configuração Geral do Livro Razão.
- Defina o campo Adv. Tipo de Correção da Fatura como Absoluto para um grupo de publicação de imposto sobre o valor acrescentado (IVA).
- Crie um pedido de venda para um cliente que utilize o grupo de publicação de IVA.
- Publica um pagamento antecipado e uma fatura antecipada para o cliente.
- Envia e fatura a encomenda de vendas.
Neste cenário, é criada inesperadamente uma entrada de arredondamento de faturas grande.
Resolução
Informações sobre o hotfix
Uma correção suportada está agora disponível na Microsoft. No entanto, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o apenas a sistemas com este problema específico. Esta correção pode receber testes adicionais. Por conseguinte, se não for gravemente afetado por este problema, recomendamos que aguarde pelo próximo service pack do Microsoft Dynamics NAV 2009 ou pela próxima versão do Microsoft Dynamics NAV que contém esta correção.
Nota Em casos especiais, os custos normalmente incorridos para chamadas de suporte poderão ser cancelados se um Profissional de Suporte Técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolve o 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.
Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Navision têm sessão iniciada no sistema. Isto inclui utilizadores cliente do Microsoft Navision Application Services (NAS). Deve ser o único utilizador cliente com sessão iniciada quando implementa esta correção.
Para implementar esta correção, tem de ter uma licença de programador.
Recomendamos que a conta de utilizador na janela Inícios de Sessão do Windows ou na janela Inícios de Sessão da Base de Dados seja atribuída ao ID da função "SUPER". Se não for possível atribuir à conta de utilizador o ID de função "SUPER", tem de verificar se a conta de utilizador tem as seguintes permissões:
- A permissão Modificar para o objeto que irá alterar.
- A permissão Executar para o objeto ID de Objeto de Sistema 5210 e para o objeto ID de Objeto do Sistema 9015.
Nota Não tem de ter direitos sobre os arquivos de dados, a menos que tenha de efetuar a reparação de dados.
Alterações de código
Nota Teste sempre as correções de código num ambiente controlado antes de aplicar as correções aos seus computadores de produção.
Para resolver este problema, execute as seguintes etapas:
Altere o código na função CalcRndDiffAmt na codeunit "Sales-Post" (80) da seguinte forma:
Código existente... // Delete the following lines. PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; BEGIN EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt + CalcPostedAmtInclVAT)); // End of the lines. END; ...Código de substituição
... // Add the following lines. LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; VAR TotalAmtInclVAT@1360001 : Decimal; BEGIN TotalAmtInclVAT := CalcTotalAmtInclVAT(Currency); IF TotalAmtInclVAT = InvAmt THEN EXIT(0); EXIT(TotalAmtInclVAT - (InvAmt + CalcPostedAmtInclVAT)); // End of the lines. END; ...Altere o código na função IsFinalInvoice na codeunit "Sales-Post" (80) da seguinte forma:
Código existente... SETRANGE("Document No.",SalesHeader."No."); // Delete the following line. EXIT(SalesPostAdvances.FullyDeductedCustPrepmt(SalesOrderLine)); END; ...Código de substituição
... SETRANGE("Document No.",SalesHeader."No."); // Add the following line. EXIT(SalesPostAdvances.IsFinalCustInvoice(SalesOrderLine)); END; ...Altere o código na função CalcRndDiffAmt na codeunit "Purch-Post" (90) da seguinte forma:
Código existente... // Delete the following lines. PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; BEGIN EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt - CalcPostedAmtInclVAT)); // End of the lines. END; ...Código de substituição
... // Add the following lines. LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal; VAR TotalAmtInclVAT@1360001 : Decimal; BEGIN TotalAmtInclVAT := CalcTotalAmtInclVAT(Currency); IF TotalAmtInclVAT = InvAmt THEN EXIT(0); EXIT(TotalAmtInclVAT - (InvAmt - CalcPostedAmtInclVAT)); // End of the lines. END; ...Altere o código na função IsFinalInvoice na codeunit "Purch-Post" (90) da seguinte forma:
Código existente... SETRANGE("Document No.",PurchHeader."No."); // Delete the following line. EXIT(PurchPostAdvances.FullyDeductedVendPrepmt(PurchOrderLine)); END; ...Código de substituição
... SETRANGE("Document No.",PurchHeader."No."); // Add the following line. EXIT(PurchPostAdvances.IsFinalVendInvoice(PurchOrderLine)); END; ...Altere o código na função SalesOrderProcessing na codeunit "Sales-Post Advances" (26585) da seguinte forma:
Código existente 1... VAR // Delete the following lines. FullyDeducted@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH SalesHeader DO BEGIN FullyDeducted := FullyDeductedCustPrepmt(SalesLine); IF FullyDeducted THEN // End of the lines. InvoicedAmount := ...Código de substituição 1
... VAR // Add the following lines. IsFinalInvoice@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH SalesHeader DO BEGIN IsFinalInvoice := IsFinalCustInvoice(SalesLine); IF IsFinalInvoice THEN // End of the lines. InvoicedAmount := ...Código existente 2
... SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Delete the following line. FullyDeducted,TempJnlLineDim,InvoicedAmount,Post); UNTIL SalesLine.NEXT = 0; ...Código de substituição 2
... SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Add the following line. IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post); UNTIL SalesLine.NEXT = 0; ...Altere o código na função FullyDeductedCustPrepmt na codeunit "Sales-Post Advances" (26585) da seguinte forma:
Código existente 1... // Delete the following line. PROCEDURE FullyDeductedCustPrepmt@1470047(VAR SalesLine@1470000 : Record 37) : Boolean; BEGIN ...Código de substituição 1
... // Add the following line. PROCEDURE IsFinalCustInvoice@1470047(VAR SalesLine@1470000 : Record 37) : Boolean; BEGIN ...Código existente 2
... SetSalesLineToPost(SalesLine); // Delete the following line. IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" <> SalesLine."Prepmt. Amt. Inv." THEN EXIT(FALSE); ...Código de substituição 2
... SetSalesLineToPost(SalesLine); // Add the following line. IF SalesLine."Qty. to Invoice" + SalesLine."Quantity Invoiced" <> SalesLine.Quantity THEN EXIT(FALSE); ...Altere o código na função CollectFullyDeductedOrders na codeunit "Sales-Post Advances" (26858) da seguinte forma:
Código existente 1... TempSalesOrderLine@1360003 : TEMPORARY Record 37; // Delete the following line. FullyDeducted@1360004 : Boolean; BEGIN ...Código de substituição 1
... TempSalesOrderLine@1360003 : TEMPORARY Record 37; // Add the following line. IsFinalInvoice@1360004 : Boolean; BEGIN ...Código existente 2
... FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder); // Delete the following lines. FullyDeducted := FullyDeductedOrder.FIND; IF NOT FullyDeducted THEN BEGIN FullyDeducted := FullyDeductedCustPrepmt(SalesOrderLine); IF FullyDeducted THEN FullyDeductedOrder.INSERT; END; IF FullyDeducted THEN BEGIN // End of the lines. FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine); ...Código de substituição 2
... FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder); // Add the following lines. IsFinalInvoice := FullyDeductedOrder.FIND; IF NOT IsFinalInvoice THEN BEGIN IsFinalInvoice := IsFinalCustInvoice(SalesOrderLine); IF IsFinalInvoice THEN FullyDeductedOrder.INSERT; END; IF IsFinalInvoice THEN BEGIN // End of the lines. FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine); ...Altere o código na função PurchOrderProcessing na codeunit "Purchace-Post Advances" (26586) da seguinte forma:
Código existente 1... VAR // Delete the following lines. FullyDeducted@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH PurchHeader DO BEGIN FullyDeducted := FullyDeductedVendPrepmt(PurchLine); IF FullyDeducted THEN // End of the lines. InvoicedAmount := ...Código de substituição 1
... VAR // Add the following lines. IsFinalInvoice@1360007 : Boolean; DocNoForVATCorr@1360006 : Code[20]; BEGIN WITH PurchHeader DO BEGIN IsFinalInvoice := IsFinalVendInvoice(PurchLine); IF IsFinalInvoice THEN // End of the lines. InvoicedAmount := ...Código existente 2
... PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Delete the following line. FullyDeducted,TempJnlLineDim,InvoicedAmount,Post); UNTIL PurchLine.NEXT = 0; ...Código de substituição 2
... PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr, // Add the following line. IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post); UNTIL PurchLine.NEXT = 0; ...Altere o código na função FullyDeductedVendPrepmt na codeunit "Purchace-Post Advances" (26586) da seguinte forma:
Código existente 1... // Delete the following line. PROCEDURE FullyDeductedVendPrepmt@1470047(VAR PurchLine@1470000 : Record 39) : Boolean; BEGIN ...Código de substituição 1
... // Add the following line. PROCEDURE IsFinalVendInvoice@1470047(VAR PurchLine@1470000 : Record 39) : Boolean; BEGIN ...Código existente 2
... SetPurchLineToPost(PurchLine); // Delete the following line. IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" <> PurchLine."Prepmt. Amt. Inv." THEN EXIT(FALSE); ...Código de substituição 2
... SetPurchLineToPost(PurchLine); // Add the following line. IF PurchLine."Qty. to Invoice" + PurchLine."Quantity Invoiced" <> PurchLine.Quantity THEN EXIT(FALSE); ...Altere o código na função CollectFullyDeductedOrders na codeunit "Purchace-Post Advances" (26586) da seguinte forma:
Código existente 1... TempPurchOrderLine@1360003 : TEMPORARY Record 39; // Delete the following line. FullyDeducted@1360004 : Boolean; BEGIN ...Código de substituição 1
... TempPurchOrderLine@1360003 : TEMPORARY Record 39; // Add the following line. IsFinalInvoice@1360004 : Boolean; BEGIN ...Código existente 2
... FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder); // Delete the following lines. FullyDeducted := FullyDeductedOrder.FIND; IF NOT FullyDeducted THEN BEGIN FullyDeducted := FullyDeductedVendPrepmt(PurchOrderLine); IF FullyDeducted THEN FullyDeductedOrder.INSERT; END; IF FullyDeducted THEN BEGIN // End of the lines. FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine); ...Código de substituição 2
... FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder); // Add the following lines. IsFinalInvoice := FullyDeductedOrder.FIND; IF NOT IsFinalInvoice THEN BEGIN IsFinalInvoice := IsFinalVendInvoice(PurchOrderLine); IF IsFinalInvoice THEN FullyDeductedOrder.INSERT; END; IF IsFinalInvoice THEN BEGIN // End of the lines. FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine); ...
Pré-requisitos
Tem de ter a versão húngara do Microsoft Dynamics NAV 2009 R2 com a Atualização de Pré-pagamentos instalada para aplicar esta correção.
Informações sobre remoção
Não é possível remover esta correção.
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.