Mensagem de erro "Documentos não podem ser aplicados não como crédito de imposto de serviço foi já utilizado" quando você executa a função Desaplicar entradas em uma fatura de compra lançados para fornecedores GTA especificados na versão Indiana 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.

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. Adicione a seguinte variável global em geral Jnl.-lançar linha codeunit (12):

   • TempServiceTaxEntry3@1500076: Registro temporário 16473

2. Adicione a seguinte variável local na função UnApplyVendSTEntries em geral Jnl.-lançar linha codeunit (12):

   • STEntryDetail2@1500000: Registro 16474

3. Alterar o código de função UnApplyVendSTEntries em geral Jnl.-lançar linha codeunit (12) da seguinte maneira:
   1 de código existente

   ...        STaxApplBuffer[1].DELETEALL;
           WITH DtldVendLedgEntry2 DO BEGIN
   ...
   
   

   1 código de substituição

   ...        STaxApplBuffer[1].DELETEALL;
   
   // Add the following line.
            TempServiceTaxEntry3.DELETEALL; 
   // End of the line.
   
           WITH DtldVendLedgEntry2 DO BEGIN
   ...
   
   

   2 de código existente

   ...              ServiceTaxMgt.UnApplyVendPmtEntries(STEntryDetail,NextTransactionNo);
   
   // Delete the following line.
                Sign := -1;
                FillSvcTaxApplication4(STEntryDetail,Sign); 
                Sign := 1; 
                FillSvcTaxApplication4(STEntryDetail,Sign); 
                ServiceTaxEntry.GET(STEntryDetail."Service Tax Entry No."); 
                 IF ServiceTaxEntry."Serv. Tax on Advance Payment" THEN BEGIN 
   // End of the line.
   ...
   
   

   Código de substituição 2

   ...              ServiceTaxMgt.UnApplyVendPmtEntries(STEntryDetail,NextTransactionNo);
   
   // Add the following lines.
                ServiceTaxEntry.GET(STEntryDetail."Service Tax Entry No."); 
                ServiceTaxSetup.RESET; 
                ServiceTaxSetup.SETRANGE(Code,STEntryDetail."Service Tax Group Code"); 
                ServiceTaxSetup.SETRANGE("From Date",0D,STEntryDetail."Posting Date"); 
                TempServiceTaxEntry3.TRANSFERFIELDS(ServiceTaxEntry); 
                IF NOT STEntryDetail.GTA THEN BEGIN 
                  TempServiceTaxEntry3.INSERT; 
                  Sign := -1; 
                END ELSE BEGIN 
                  TempServiceTaxEntry3."G/L Account" := STEntryDetail."GL Account"; 
                  TempServiceTaxEntry3.INSERT; 
                  Sign := 1; 
                END; 
   
                FillSvcTaxApplication4(STEntryDetail,Sign); 
   
                STEntryDetail2 := STEntryDetail; 
                IF NOT STEntryDetail.GTA THEN 
                  Sign := 1 
                ELSE BEGIN 
                  IF ServiceTaxSetup.FINDLAST THEN 
                    STEntryDetail2."GL Account" := ServiceTaxSetup."Payables Account (Interim)"; 
                  Sign := -1; 
                END; 
   
                FillSvcTaxApplication4(STEntryDetail2,Sign);
                 IF ServiceTaxEntry."Serv. Tax on Advance Payment" THEN BEGIN 
   // End of the lines.
   ...
   
   

   3 de código existente

   ...                  ServiceTaxEntry."From Excise" := STEntryDetail."From Excise";
   
   // Delete the following lines.
                    ServiceTaxSetup.RESET; 
                    ServiceTaxSetup.SETRANGE(Code,STEntryDetail."Service Tax Group Code"); 
                    ServiceTaxSetup.SETRANGE("From Date",0D,STEntryDetail."Posting Date");
   // End of the lines.
   
                     IF ServiceTaxSetup.FINDLAST THEN BEGIN
   ...
   
   

   Código de substituição 3

   ...                  ServiceTaxEntry."From Excise" := STEntryDetail."From Excise";
                     IF ServiceTaxSetup.FINDLAST THEN BEGIN
   ...
   
   

4. Excluir a seguinte variável local na função FillSvcTaxApplication4 em geral Jnl.-lançar linha codeunit (12):

   • VAR ServiceTaxEntry@1002: Registro 16473

5. Alterar o código de função FillSvcTaxApplication4 em geral Jnl.-lançar linha codeunit (12) da seguinte maneira:
   Código existente

   ...          IF Sign < 0 THEN
   
   // Delete the following lines.
              STaxApplBuffer[1]."G/L Account" := "GL Account" 
            ELSE BEGIN 
              ServiceTaxEntry.GET("Service Tax Entry No."); 
              STaxApplBuffer[1]."G/L Account" := ServiceTaxEntry."G/L Account"; 
            END;
   // End of the lines.
   
             STaxApplBuffer[1]."Amount to Apply (LCY)" := Sign * ("Service Tax Amount" + "Service Tax eCess Amount" +
   ...
   
   

   Código de substituição

   ...IF Sign < 0 THEN
   
            // Add the following lines.
              STaxApplBuffer[1]."G/L Account" := "GL Account" 
            ELSE 
              STaxApplBuffer[1]."G/L Account" := TempServiceTaxEntry3."G/L Account"; 
            // End of the lines.
   
             STaxApplBuffer[1]."Amount to Apply (LCY)" := Sign * ("Service Tax Amount" + "Service Tax eCess Amount" +
   ...
   
   

6. Altere o código na função UnApplyVendPmtEntries na codeunit gerenciamento de imposto sobre serviços (16471) da seguinte forma:
   1 de código existente

   ...        WITH STEntryDetail DO BEGIN
   
   // Delete the following lines.
            IF ("Service Tax Amount" <> "Remaining Credit") OR ("Service Tax eCess Amount" <> "Remaining Credit (eCess)") OR 
              ("Service Tax SHE Cess Amount" <> "Remaining Credit (SHECess)") 
            THEN 
              ERROR(Text16535,"Document No."); 
   // End of the lines.
   
             STEntryDetail2.RESET;
   ...
   
   

   1 código de substituição

   ...        WITH STEntryDetail DO BEGIN
   
            // Add the following lines.
            IF GTA THEN BEGIN 
              IF ("Service Tax Amount" <> "GTA Remaining Credit") OR ("Service Tax eCess Amount" <> "GTA Remaining Credit (eCess)") OR 
                ("Service Tax SHE Cess Amount" <> "GTA Remaining Credit (SHECess)") 
              THEN 
                ERROR(Text16535,"Document No."); 
            END ELSE BEGIN 
              IF ("Service Tax Amount" <> "Remaining Credit") OR ("Service Tax eCess Amount" <> "Remaining Credit (eCess)") OR 
                ("Service Tax SHE Cess Amount" <> "Remaining Credit (SHECess)") 
              THEN 
                ERROR(Text16535,"Document No."); 
            END; 
            // End of the lines.
   
             STEntryDetail2.RESET;
   ...
   
   

   2 de código existente

   ...          STEntryDetail2."Remaining S.T. Base Amount" := - STEntryDetail2."Remaining S.T. Base Amount";
             STEntryDetail2.INSERT;
   ...
   
   

   Código de substituição 2

   ...          STEntryDetail2."Remaining S.T. Base Amount" := - STEntryDetail2."Remaining S.T. Base Amount";
   
            // Add the following lines.
            STEntryDetail2."GTA Remaining Credit" := - STEntryDetail2."GTA Remaining Credit"; 
            STEntryDetail2."GTA Remaining Credit (eCess)" := - STEntryDetail2."GTA Remaining Credit (eCess)"; 
            STEntryDetail2."GTA Remaining Credit (SHECess)" := - STEntryDetail2."GTA Remaining Credit (SHECess)"; 
            // End of the lines.
   
             STEntryDetail2.INSERT;
   ...