Mensagem de erro "Não pode processar IVA adiadas para nota de crédito de vendas aqui" quando se aperceber de um IVA adiado na caixa de diálogo de folha de liquidação do IVA na versão polaca do Microsoft Dynamics NAV 2009 R2


Este artigo aplica-se para o Microsoft Dynamics NAV para a região do idioma polaco (pl).

Sintomas


Suponha que regista uma nota de crédito de venda que contém um imposto adiado de valor acrescentado (IVA) na versão polaca do Microsoft Dynamics NAV 2009 R2. Quando tenta perceber o IVA na caixa de diálogo de Folha de liquidação do IVA , recebe a seguinte mensagem de erro:
Não pode processar aqui IVA adiadas para nota de crédito de vendas.

Resolução


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, mas 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 Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). 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 objecto 9015 de ID de objecto de sistema .


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. Eliminar os seguintes parâmetros na função RealizePostponedVAT no diário de Gr.-linha colocar codeunit (12):
    • TransactionNo
    • VATEntryNo
    • VAR TempJnlLineDim2
  2. Adicionar um novo parâmetro na função RealizePostponedVAT no diário de Gr.-linha colocar codeunit (12) e, em seguida, especifique o parâmetro da seguinte forma:
    • Nome: VATEntry
    • Tipo de dados: registo
    • Subtipo: o Movimento de IVA (254)
  3. Alterar o código na função RealizePostponedVAT no diário de Gr.-linha colocar codeunit (12), da seguinte forma:
    Código existente 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Delete the following lines.
    TempJnlLineDim.RESET;
    TempJnlLineDim.DELETEALL;
    DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim);
    // End of the lines.

    GLSetup.GET;
    SourceCodeSetup.GET;
    ...
    Código de substituição 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Add the following line.
    PreparePostponedVATDim(VATEntry,TempJnlLineDim);

    GLSetup.GET;
    SourceCodeSetup.GET;
    ...
    Código existente 2
    ...InitCodeUnit;

    // Delete the following lines.
    VATEntryNoToRealize := VATEntryNo;
    IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN
    CustLedgEntry."Transaction No." := TransactionNo;
    // End of the lines.

    CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN
    ...
    Código de substituição 2
    ...InitCodeUnit;

    // Add the following lines.
    VATEntryNoToRealize := VATEntry."Entry No.";
    IF GenJnlLine."Account Type" = GenJnlLine."Account Type"::Customer THEN BEGIN
    CustLedgEntry."Transaction No." := VATEntry."Transaction No.";
    //End of the lines.

    CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN
    ...
    Código existente 3
    ...CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN

    // Delete the following line.
    VendLedgEntry."Transaction No." := TransactionNo;

    VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount);
    END;
    VATEntryNoToRealize := 0;
    ...
    Código de substituição 3
    ...CustUnrealizedVAT(CustLedgEntry,GenJnlLine.Amount)
    END ELSE BEGIN

    // Add the following line.
    VendLedgEntry."Transaction No." := VATEntry."Transaction No.";

    VendUnrealizedVAT(VendLedgEntry,GenJnlLine.Amount);
    END;
    VATEntryNoToRealize := 0;
    ...
  4. Eliminar os seguintes parâmetros na função ReversePostponedVAT no diário de Gr.-linha colocar codeunit (12):
    • TransactionNo
    • VATEntryNo
    • VAR TempJnlLineDim2
  5. Adicionar um novo parâmetro na função ReversePostponedVAT no diário de Gr.-linha colocar codeunit (12) e, em seguida, especifique o parâmetro da seguinte forma:
    • Nome: PostponedVATEntry
    • Tipo de dados: registo
    • Subtipo: o Movimento de IVA (254)
  6. Alterar o código na função ReversePostponedVAT no diário de Gr.-linha colocar codeunit (12), da seguinte forma:
    Código existente 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Delete the following lines.
    TempJnlLineDim.RESET;
    TempJnlLineDim.DELETEALL;
    DimMgt.CopyJnlLineDimToJnlLineDim(TempJnlLineDim2,TempJnlLineDim);
    // End of the lines.

    SourceCodeSetup.GET;
    GenJnlLine."Source Code" := SourceCodeSetup.Reversal;
    ...
    Código de substituição 1
    ...GenJnlLine.COPY(GenJnlLine2);

    // Add the following lines.
    PreparePostponedVATDim(PostponedVATEntry,TempJnlLineDim);
    //End of the lines.

    SourceCodeSetup.GET;
    GenJnlLine."Source Code" := SourceCodeSetup.Reversal;
    ...
    Código existente 2
    ...VATEntry.LOCKTABLE;
    UnrealVATEntry.SETCURRENTKEY("Transaction No.");

    // Delete the following lines.
    IF VATEntryNo <> 0 THEN
    UnrealVATEntry.SETRANGE("Entry No.",VATEntryNo)
    ELSE
    UnrealVATEntry.SETRANGE("Transaction No.",TransactionNo);
    // End of the lines.

    IF UnrealVATEntry.FINDSET(TRUE) THEN
    REPEAT
    VATEntry.SETCURRENTKEY("Unrealized VAT Entry No.");
    ...
    Código de substituição 2
    ...VATEntry.LOCKTABLE;
    UnrealVATEntry.SETCURRENTKEY("Transaction No.");

    // Add the following lines.
    IF PostponedVATEntry."Entry No." <> 0 THEN
    UnrealVATEntry.SETRANGE("Entry No.",PostponedVATEntry."Entry No.")
    ELSE
    UnrealVATEntry.SETRANGE("Transaction No.",PostponedVATEntry."Transaction No.");
    //End of the lines.

    IF UnrealVATEntry.FINDSET(TRUE) THEN
    REPEAT
    VATEntry.SETCURRENTKEY("Unrealized VAT Entry No.");
    ...
  7. Criar uma nova função de PreparePostponedVATDim no diário de Gr.-linha colocar codeunit (12), da seguinte forma:
    LOCAL PROCEDURE PreparePostponedVATDim@1170010(VATEntry@1170003 : Record 254;VAR TempJnlLineDim@1170000 : Record 356);VAR
    GLEntryVATEntryLink@1170002 : Record 253;
    LedgEntryDim@1170001 : Record 355;
    BEGIN
    TempJnlLineDim.RESET;
    TempJnlLineDim.DELETEALL;
    IF VATEntry.GetCVLedgEntryNo(TempJnlLineDim) = 0 THEN BEGIN
    GLEntryVATEntryLink.SETRANGE("VAT Entry No.",VATEntry."Entry No.");
    IF GLEntryVATEntryLink.FINDFIRST THEN BEGIN
    LedgEntryDim.SETRANGE("Table ID",DATABASE::"G/L Entry");
    LedgEntryDim.SETRANGE("Entry No.",GLEntryVATEntryLink."G/L Entry No.");
    DimMgt.CopyLedgEntryDimToJnlLineDim(LedgEntryDim,TempJnlLineDim);
    END;
    END;
    END;
  8. Altere o código na função PostponeVATEntry na codeunit VATManagement (12376) do seguinte modo:
    Código existente
    ...VATEntry.TESTFIELD("Postponed VAT",FALSE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Delete the following lines.
    (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
    (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")
    // End of the lines.

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
    Código de substituição
    ...VATEntry.TESTFIELD("Postponed VAT",FALSE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Add the following line.
    IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.")

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
  9. Altere o código na função RealizeVATEntry na codeunit VATManagement (12376) do seguinte modo:
    Código existente
    ...VATEntry.TESTFIELD("Postponed VAT",TRUE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Delete the following lines.
    (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
    (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo")
    // End of the lines.

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
    Código de substituição
    ...VATEntry.TESTFIELD("Postponed VAT",TRUE);
    VATEntry.TESTFIELD("Unrealized VAT Entry No.",0);
    IF NOT AllowSalesCrMemo AND

    // Add the following line.
    IsPostponedSalesCrMemoVAT(VATEntry) AND HasPostedCrMemo(VATEntry."Document No.")

    THEN
    ERROR(Text010);
    UNTIL VATEntry.NEXT = 0
    ...
  10. Elimine as seguintes variáveis locais na função PostUnrealVAT na codeunit VATManagement (12376):
    • TempJnlLineDim
    • EntryNo
  11. Altere o código na função PostUnrealVAT na codeunit VATManagement (12376) do seguinte modo:
    Código existente
    ...ERROR(Text011,
    VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date",
    VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No.");

    // Delete the following lines.
    EntryNo := VATEntry.GetCVLedgEntryNo(TempJnlLineDim);
    IF EntryNo <> 0 THEN BEGIN
    GenJnlLine."Document Type" := VATEntry."Document Type";
    GenJnlLine."Document No." := VATEntry."Document No.";
    GenJnlLine."Postponed VAT" := TRUE;
    GenJnlLine."VAT Date" := VATDate;
    GenJnlLine."Posting Date" := VATDate;
    IF VATEntry."Postponed VAT" THEN
    GenJnlLine.Description := Text008
    ELSE
    GenJnlLine.Description := Text009;
    GenJnlLine.Description :=
    COPYSTR(
    STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."),
    1,MAXSTRLEN(GenJnlLine.Description));
    GenJnlLine."System-Created Entry" := TRUE;
    CASE VATEntry.Type OF
    VATEntry.Type::Sale:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
    VATEntry.Type::Purchase:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor;
    END;
    IF Type = Type::Realize THEN
    PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim)
    ELSE // Reverse
    PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry."Transaction No.",VATEntry."Entry No.",TempJnlLineDim);
    END;
    // End of the lines.
    ...
    Código de substituição
    ...ERROR(Text011,
    VATEntry.FIELDCAPTION("Posting Date"),VATEntry."Posting Date",
    VATEntry.FIELDCAPTION("Entry No."),VATEntry."Entry No.");

    // Add the following lines.
    GenJnlLine."Document Type" := VATEntry."Document Type";
    GenJnlLine."Document No." := VATEntry."Document No.";
    GenJnlLine."Postponed VAT" := TRUE;
    GenJnlLine."VAT Date" := VATDate;
    GenJnlLine."Posting Date" := VATDate;
    IF VATEntry."Postponed VAT" THEN
    GenJnlLine.Description := Text008
    ELSE
    GenJnlLine.Description := Text009;
    GenJnlLine.Description :=
    COPYSTR(
    STRSUBSTNO(GenJnlLine.Description,VATEntry."Document Type",VATEntry."Document No."),
    1,MAXSTRLEN(GenJnlLine.Description));
    GenJnlLine."System-Created Entry" := TRUE;
    CASE VATEntry.Type OF
    VATEntry.Type::Sale:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
    VATEntry.Type::Purchase:
    GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor;
    END;
    IF Type = Type::Realize THEN
    PostGenJnlLine.RealizePostponedVAT(GenJnlLine,VATEntry)
    ELSE // Reverse
    PostGenJnlLine.ReversePostponedVAT(GenJnlLine,VATEntry);
    //End of the lines.
    ...
  12. Crie uma nova função de HasPostedCrMemo na codeunit VATManagement (12376) do seguinte modo:
    LOCAL PROCEDURE HasPostedCrMemo@1170007(DocumentNo@1170000 : Code[20]) : Boolean;VAR
    SalesCrMemoHeader@1170001 : Record 114;
    BEGIN
    EXIT(SalesCrMemoHeader.GET(DocumentNo));
    END;
  13. Crie uma nova função de IsPostponedSalesCrMemoVAT na codeunit VATManagement (12376) do seguinte modo:
    LOCAL PROCEDURE IsPostponedSalesCrMemoVAT@1170008(VATEntry@1170000 : Record 254) : Boolean;BEGIN
    EXIT(
    (VATEntry."Unrealized Base" <> 0) AND (VATEntry.Type = VATEntry.Type::Sale) AND
    (VATEntry."Document Type" = VATEntry."Document Type"::"Credit Memo"));
    END;

Pré-requisitos

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

Informações de remoção

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

Estado


A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".
Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .