Tipo de documento errado ao importar arquivos LSV DD na versão suíço 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.

Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume 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 ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

Observação: Antes de instalar esse hotfix, verifique se todos os usuários do cliente do Microsoft Dynamics NAV estiver desconectados do sistema. Isso inclui os serviços do Microsoft Dynamics NAV Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de 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 será alterado.

• A permissão de execução para o objeto 5210 de identificação de objeto de sistema e o sistema 9015 de identificação de objeto
  
  objeto.

Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.

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. Altere o código em variáveis globais na LSVMgt Codeunit (3010831) da seguinte forma:
   Código existente

   ...Text11500@1150080 : TextConst 'ENU=Could not find Transaction No. %1 in Debit Direct Order No. %2.';
         FileMgt@1150042 : Codeunit 419;
         FileSystemObject@1150081 : Automation "{420B2830-E718-11CF-893D-00A0C9054228} 1.0:{0D43FE01-F093-11CF-8940-00A0C9054228}:'Microsoft Scripting Runtime'.FileSystemObject";
   
       PROCEDURE ReleaseCustLedgEntries@1(_GenJnlLine@1150000 : Record 81);
       BEGIN
   ...
   

   Código de substituição

   ...Text11500@1150080 : TextConst 'ENU=Could not find Transaction No. %1 in Debit Direct Order No. %2.';
         FileMgt@1150042 : Codeunit 419;
         FileSystemObject@1150081 : Automation "{420B2830-E718-11CF-893D-00A0C9054228} 1.0:{0D43FE01-F093-11CF-8940-00A0C9054228}:'Microsoft Scripting Runtime'.FileSystemObject";
   
   // Add the following line.
   IsCancellationExist@1150082 : Boolean;
   // End of the added line.
   
       PROCEDURE ReleaseCustLedgEntries@1(_GenJnlLine@1150000 : Record 81);
       BEGIN
   ...
   

2. Altere o código da função ImportDebitDirectFile na LSVMgt Codeunit (3010831) da seguinte forma:
   1 de código existente

   ...FeeAmount := 0;
         TotalRecRecords := 0;
         TotalRecRecordsRev := 0;
   
         // Journal name for no serie
         GlBatchName.GET(ActGenJnlLine."Journal Template Name",ActGenJnlLine."Journal Batch Name");
   ...
   

   1 código de substituição

   ...FeeAmount := 0;
         TotalRecRecords := 0;
         TotalRecRecordsRev := 0;
   
   // Add the following line.
   IsCancellationExist := FALSE;
   // End of the added line.
   
         // Journal name for no serie
         GlBatchName.GET(ActGenJnlLine."Journal Template Name",ActGenJnlLine."Journal Batch Name");
   ...
   

   2 de código existente

   ...// Split File line into fields
   
   // Delete the following lines.
   FileID := COPYSTR(Line,1,3);
   IF FileID <> '036' THEN
   ERROR(Text049 + Text011);
   TA := COPYSTR(Line,36,2);
   IF NOT (TA = '97') THEN BEGIN
   TotalRecord := FALSE;
   EVALUATE(InvoiceAmt,COPYSTR(Line,54,13));
   EVALUATE(yyCR,COPYSTR(Line,4,2));
   EVALUATE(mmCR,COPYSTR(Line,6,2));
   EVALUATE(ddCR,COPYSTR(Line,8,2));
   IF yyCR > 98 THEN
   PostDate := DMY2DATE(ddCR,mmCR,1900 + yyCR)
   ELSE
   PostDate := DMY2DATE(ddCR,mmCR,2000 + yyCR);
   
   DebitDirectOrderNo := COPYSTR(Line,34,2);
   EVALUATE(DebitDirectRecordNo,COPYSTR(Line,38,6));
   EVALUATE(RejectionCode,COPYSTR(Line,543,2));
   Currency := COPYSTR(Line,51,3);
   
   // DEBIT DIRECT
   LsvJour.RESET;
   LsvJour.SETRANGE("Credit Date",PostDate);
   LsvJour.SETRANGE("DebitDirect Orderno.",DebitDirectOrderNo);
   IF NOT LsvJour.FIND('+') THEN
   ERROR(Text059,DebitDirectOrderNo,PostDate);
   
   LsvJournalLine.RESET;
   //CH0001.begin
   LsvJournalLine.SETCURRENTKEY("LSV Journal No.","Transaction No.");
   LsvJournalLine.SETRANGE("LSV Journal No.",LsvJour."No.");
   //LsvJournalLine.SETRANGE("Line No.",DebitDirectRecordNo);
   LsvJournalLine.SETRANGE("Transaction No.",DebitDirectRecordNo);
   //LsvJournalLine.FIND('-');
   IF NOT LsvJournalLine.FINDFIRST THEN BEGIN
   d.CLOSE;
   ERROR(Text11500, DebitDirectRecordNo, DebitDirectOrderNo);
   END;
   //CH0001.end
   InInvoiceNo := LsvJournalLine."Applies-to Doc. No.";
   // END DEBIT DIRECT
   
   // Process transaction of credit record
   CASE TA OF
   '81':  // Credit
   BEGIN
   Transaction := Transaction::Credit;
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Open;
   LsvJournalLine."DD Rejection Reason" := LsvJournalLine."DD Rejection Reason"::" ";
   LsvJournalLine.MODIFY;
   
   IF LSVSetup.READPERMISSION THEN BEGIN
   ClosedByESR(InInvoiceNo);
   END;
   END;
   '84':  // Cancellation "Storno"
   BEGIN
   IF RejectionCode <> 2 THEN
   Transaction := Transaction::Correction
   ELSE
   Transaction := Transaction::Cancellation;
   
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Rejected;
   LsvJournalLine."DD Rejection Reason" := RejectionCode;
   LsvJournalLine.MODIFY;
   END;
   ELSE
    ERROR(Text023 + Text011);
   END;
   END ELSE BEGIN
   TotalRecord := TRUE;
   EVALUATE(TempAmount,COPYSTR(Line,60,13));
   CreditAmount := CreditAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,82,13));
   RejectionAmount := RejectionAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,104,13));
   ReversalAmount := ReversalAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,120,11));
   FeeAmount := FeeAmount + TempAmount / 100;
   // Credit Count
   EVALUATE(TempAmount,COPYSTR(Line,54,6));
   TotalRecRecords := TotalRecRecords + TempAmount;
   // Rejection Count
   EVALUATE(TempAmount,COPYSTR(Line,76,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   // Reversal Count
   EVALUATE(TempAmount,COPYSTR(Line,98,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   END;
   // END OF SPLIT
   
   IF NOT (TotalRecord) AND (Transaction <> Transaction::Correction) THEN BEGIN
   // End of the deleted lines.
   
             // Insert GL line
             GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
   ...
   

   Código de substituição 2

   ...// Split File line into fields
   
   // Add the following lines.
   FileID := COPYSTR(Line,1,3);
   IF FileID <> '036' THEN
   ERROR(Text049 + Text011);
   TA := COPYSTR(Line,36,2);
   IF NOT (TA = '97') THEN BEGIN
   TotalRecord := FALSE;
   EVALUATE(InvoiceAmt,COPYSTR(Line,54,13));
   EVALUATE(yyCR,COPYSTR(Line,4,2));
   EVALUATE(mmCR,COPYSTR(Line,6,2));
   EVALUATE(ddCR,COPYSTR(Line,8,2));
   IF yyCR > 98 THEN
   PostDate := DMY2DATE(ddCR,mmCR,1900 + yyCR)
   ELSE
   PostDate := DMY2DATE(ddCR,mmCR,2000 + yyCR);
   
   DebitDirectOrderNo := COPYSTR(Line,34,2);
   EVALUATE(DebitDirectRecordNo,COPYSTR(Line,38,6));
   EVALUATE(RejectionCode,COPYSTR(Line,543,2));
   Currency := COPYSTR(Line,51,3);
   
   // DEBIT DIRECT
   LsvJour.RESET;
   LsvJour.SETRANGE("Credit Date",PostDate);
   LsvJour.SETRANGE("DebitDirect Orderno.",DebitDirectOrderNo);
   IF NOT LsvJour.FIND('+') THEN
   ERROR(Text059,DebitDirectOrderNo,PostDate);
   
   LsvJournalLine.RESET;
   //CH0001.begin
   LsvJournalLine.SETCURRENTKEY("LSV Journal No.","Transaction No.");
   LsvJournalLine.SETRANGE("LSV Journal No.",LsvJour."No.");
   //LsvJournalLine.SETRANGE("Line No.",DebitDirectRecordNo);
   LsvJournalLine.SETRANGE("Transaction No.",DebitDirectRecordNo);
   //LsvJournalLine.FIND('-');
   IF NOT LsvJournalLine.FINDFIRST THEN BEGIN
   d.CLOSE;
   ERROR(Text11500, DebitDirectRecordNo, DebitDirectOrderNo);
   END;
   //CH0001.end
   InInvoiceNo := LsvJournalLine."Applies-to Doc. No.";
   // END DEBIT DIRECT
   
   // Process transaction of credit record
   CASE TA OF
   '81':  // Credit
   BEGIN
   Transaction := Transaction::Credit;
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Open;
   LsvJournalLine."DD Rejection Reason" := LsvJournalLine."DD Rejection Reason"::" ";
   LsvJournalLine.MODIFY;
   
   IF LSVSetup.READPERMISSION THEN BEGIN
   ClosedByESR(InInvoiceNo);
   END;
   END;
   '84':  // Cancellation "Storno"
   BEGIN
   IF RejectionCode <> 2 THEN
   Transaction := Transaction::Correction
   ELSE
   Transaction := Transaction::Cancellation;
   
   LsvJournalLine."LSV Status" := LsvJournalLine."LSV Status"::Rejected;
   LsvJournalLine."DD Rejection Reason" := RejectionCode;
   LsvJournalLine.MODIFY;
   END;
   ELSE
   ERROR(Text023 + Text011);
   END;
   END ELSE BEGIN
   TotalRecord := TRUE;
   EVALUATE(TempAmount,COPYSTR(Line,60,13));
   CreditAmount := CreditAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,82,13));
   RejectionAmount := RejectionAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,104,13));
   ReversalAmount := ReversalAmount + TempAmount / 100;
   EVALUATE(TempAmount,COPYSTR(Line,120,11));
   FeeAmount := FeeAmount + TempAmount / 100;
   // Credit Count
   EVALUATE(TempAmount,COPYSTR(Line,54,6));
   TotalRecRecords := TotalRecRecords + TempAmount;
   // Rejection Count
   EVALUATE(TempAmount,COPYSTR(Line,76,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   // Reversal Count
   EVALUATE(TempAmount,COPYSTR(Line,98,6));
   TotalRecRecordsRev := TotalRecRecordsRev + TempAmount;
   END;
   // END OF SPLIT
   
   IF NOT (TotalRecord) AND (Transaction <> Transaction::Correction) THEN BEGIN
   // End of the added lines.
   
             // Insert GL line
             GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
   ...
   

   3 de código existente

   ...GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
             GenJournalLine."Journal Batch Name" := ActGenJnlLine."Journal Batch Name";
             LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   ...
   

   Código de substituição 3

   ... GenJournalLine.INIT;
             GenJournalLine."Journal Template Name" := ActGenJnlLine."Journal Template Name";
             GenJournalLine."Journal Batch Name" := ActGenJnlLine."Journal Batch Name";
   
   // Add the following lines.
   GenJournalLine."Posting Date" := PostDate;
   GenJournalLine."Account Type" := GenJournalLine."Account Type"::Customer;
   
   IF Transaction = Transaction::Cancellation THEN BEGIN
   IsCancellationExist := TRUE;
   GenJournalLine."Document Type" := GenJournalLine."Document Type"::Refund;
   NextDocNo := NoSeriesMgt.GetNextNo(GlBatchName."No. Series",PostDate,FALSE);
   END ELSE
   GenJournalLine."Document Type" := GenJournalLine."Document Type"::Payment;
   
   // End of the added lines.     
   
   LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   ...
   

   4 de código existente

   ...LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   
   // Delete the following lines.
   GenJournalLine."Posting Date" := PostDate;
   GenJournalLine."Account Type" := GenJournalLine."Account Type"::Customer;
   GenJournalLine."Document Type" := GenJournalLine."Document Type"::Payment;
   // End of the deleted lines.
   
             GeneralLedgerSetup.GET;
             IF GeneralLedgerSetup."LCY Code" <> Currency THEN
   ...
   

   Código de substituição 4

   ... LastLineNo := LastLineNo + 10000;
             GenJournalLine."Line No." := LastLineNo;
             GenJournalLine."Document No." := NextDocNo;
   
   // Add the following lines.
   
   IF Transaction = Transaction::Cancellation THEN
   NextDocNo := NoSeriesMgt.GetNextNo(GlBatchName."No. Series",PostDate,FALSE);
   // End of the added lines.
   
             GeneralLedgerSetup.GET;
             IF GeneralLedgerSetup."LCY Code" <> Currency THEN
   ...
   

   5 de código existente

   ... IF CustLedgerEntry.FIND('-') THEN
               GenJournalLine.VALIDATE("Account No.",CustLedgerEntry."Customer No.");
   
   // Delete the following lines.
   GenJournalLine."Applies-to Doc. Type" := GenJournalLine."Applies-to Doc. Type"::Invoice;
   GenJournalLine."Applies-to Doc. No." := InInvoiceNo;
   // End of the deleted lines.
   
             IF GenJournalLine."Currency Code" <> CustLedgerEntry."Currency Code" THEN
               GenJournalLine.VALIDATE("Currency Code",CustLedgerEntry."Currency Code");
   ...
   

   Código de substituição 5

   ... IF CustLedgerEntry.FIND('-') THEN
               GenJournalLine.VALIDATE("Account No.",CustLedgerEntry."Customer No.");
   
   // Add the following lines.
   IF Transaction <> Transaction::Cancellation THEN BEGIN
   GenJournalLine."Applies-to Doc. Type" := GenJournalLine."Applies-to Doc. Type"::Invoice;
   GenJournalLine."Applies-to Doc. No." := InInvoiceNo;
   END;
   // End of the added lines.
   
             IF GenJournalLine."Currency Code" <> CustLedgerEntry."Currency Code" THEN
               GenJournalLine.VALIDATE("Currency Code",CustLedgerEntry."Currency Code");
   ...
   

   6 de código existente

   ...// *** Bal account per line or as combined entry
   
   // Delete the following line.
   IF MultiplePostingDates THEN BEGIN
   // End of the deleted line.
   
           // Bal Account per line
           IF GenJournalLine.FIND('-') THEN
             REPEAT
   ...
   

   Código de substituição 6

   ...// *** Bal account per line or as combined entry
   
   // Add the following line.
   IF MultiplePostingDates OR IsCancellationExist THEN BEGIN
   // End of the added line.
   
           // Bal Account per line
           IF GenJournalLine.FIND('-') THEN
             REPEAT
   ...
   
   

Pré-requisitos:

Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:

• A versão do Microsoft Dynamics NAV 2009 R2 Suíça

• A versão do Microsoft Dynamics NAV 2009 SP1 Suíça

Informações sobre remoção

Você não pode remover esse hotfix.