Transferência de crédito de SEPA não é permitida de diário na versão espanhola 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 controles no formulário Diário de pagamentos (256) da seguinte forma:
   1 de código existente

   ...     OnValidate=BEGIN
                                                                 GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
                                                                 ShowShortcutDimCode(ShortcutDimCode);
                                                               END;
                                                                }
       { 11  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=10;
   ...
   

   1 código de substituição

   ...         OnValidate=BEGIN
                                                                 GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
                                                                 ShowShortcutDimCode(ShortcutDimCode);
   
   // Add the following line.
   CheckRecipientBankAccount;
   // End of the added line.
   
                                                               END;
                                                                }
       { 11  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=10;
   ...
   

   2 de código existente

   ... SourceExpr="Reason Code" }
       { 70  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=69;
                                                    InColumnHeading=Yes }
       { 24  ;Frame        ;220  ;6160 ;16060;1430 ;HorzGlue=Both;
                                                    VertGlue=Bottom;
                                                    ShowCaption=No }
   ...
   

   Código de substituição 2

   ... SourceExpr="Reason Code" }
       { 70  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=69;
                                                    InColumnHeading=Yes }
   
   // Add the following lines.
   { 1100012;TextBox   ;71517;1100 ;1700 ;440  ;ParentControl=1;
   InColumn=Yes;
   SourceExpr="Recipient Bank Account" }
   { 1100013;Label     ;0    ;0    ;0    ;0    ;ParentControl=1100012;
   InColumnHeading=Yes }
   // End of the added lines.
   
       { 24  ;Frame        ;220  ;6160 ;16060;1430 ;HorzGlue=Both;
                                                    VertGlue=Bottom;
                                                    ShowCaption=No }
   ...
   

   3 de código existente

   ...CaptionML=ENU=Export;
                                                        OnPush=VAR
                                                                 Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
                                                               BEGIN
                                                                 // es0006.begin
                                                                 GenJnlLine.RESET;
   ...
   

   Código de substituição 3

   ...CaptionML=ENU=Export;
                                                        OnPush=VAR
                                                                 Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
   
   // Add the following line.
   Selection@1100004 : Integer;
   // End of the added line.
   
                                                               BEGIN
                                                                 // es0006.begin
                                                                 GenJnlLine.RESET;
   ...
   

   4 de código existente

   ... GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
                                                                 IF NOT GenJnlLine.FIND('-') THEN
                                                                   ERROR(Text1100000);
                                                                 GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
                                                                 REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
                                                                 // es0006.end
                                                               END;
                                                                }
   ...
   

   Código de substituição 4

   ... GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
                                                                 IF NOT GenJnlLine.FIND('-') THEN
                                                                   ERROR(Text1100000);
   
   // Add the following lines.                                                          
   Selection := STRMENU(ExportFormatTypeTxt,2);
   CASE Selection OF
   1:
   BEGIN
   IF ExportedPmtExist(GenJnlLine) THEN
   IF NOT CONFIRM(ExportAgainQst) THEN
   EXIT;
   CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);
   END;
   2:
   BEGIN
   // End of the added lines.
   
   GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
                                                                       REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
   
   // Add the following lines.                                                             
   END;
   END;
   // End of the added lines.
                                                                 // es0006.end
                                                               END;
                                                                }
   ...
   

   5 de código existente

   ... // es0006.end
                                                               END;
                                                                }
                                                      { ID=65;
                                                        CaptionML=ENU=Void Check;
                                                        OnPush=BEGIN
   ...
   

   Código de substituição 5

   ...  // es0006.end
                                                               END;
                                                                }
   
   // Add the following lines.
   { ID=1100014;
   PushAction=RunObject;
   MenuLevel=1;
   CaptionML=ENU=Show Export File Errors;
   RunObject=Form 1228;
   RunFormLink=Journal Template Name=FIELD(Journal Template Name),
   Journal Batch Name=FIELD(Journal Batch Name) }
   // End of the added lines.
   
                                                      { ID=65;
                                                        CaptionML=ENU=Void Check;
                                                        OnPush=BEGIN
   ...
   

2. Altere o código em variáveis globais no formulário Diário de pagamentos (256) da seguinte forma:
   Código existente

   ...ShowTotalBalance@1017 : Boolean;
         ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
         OpenedFromBatch@1019 : Boolean;
   
       LOCAL PROCEDURE UpdateBalance@1();
       BEGIN
   ...
   

   Código de substituição

   ...     ShowTotalBalance@1017 : Boolean;
         ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
         OpenedFromBatch@1019 : Boolean;
   
   // Add the following lines.
   ExportFormatTypeTxt@1100001 : TextConst 'ENU=SEPA,N34.1';
   ExportAgainQst@1100000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';
   // End of the added lines.
   
       LOCAL PROCEDURE UpdateBalance@1();
       BEGIN
   ...
   

3. Altere o código da função ExportedPmtExist no formulário Diário de pagamentos (256) da seguinte forma:
   Código existente

   ...    CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
       END;
   
       BEGIN
       {
         <changelog>
   ...
   

   Código de substituição

   ...      CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
       END;
   
   // Add the following lines.
   LOCAL PROCEDURE ExportedPmtExist@1100002(GenJournalLine@1100000 : Record 81) : Boolean;
   VAR
   GenJnlLine3@1100001 : Record 81;
   BEGIN
   GenJnlLine3.COPYFILTERS(GenJnlLine);
   GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
   EXIT(NOT GenJnlLine3.ISEMPTY);
   END;
   
   LOCAL PROCEDURE CheckRecipientBankAccount@1100000();
   VAR
   VendorBankAccount@1100000 : Record 288;
   CustomerBankAccount@1100001 : Record 287;
   BEGIN
   IF ("Account No." <> xRec."Account No.") THEN
   VALIDATE("Recipient Bank Account",'');
   END;
   // End of the added lines.
   
       BEGIN
       {
         <changelog>
   ...
   

4. Altere o código nas propriedades na página do diário de pagamentos (256) da seguinte forma:
   Código existente

   ...END;
                                  END;
                                   }
         { 1900000004;0 ;ActionContainer;
                         ActionContainerType=ActionItems }
         { 40      ;1   ;ActionGroup;
   ...
   

   Código de substituição

   ...  END;
                                  END;
                                   }
   
   // Add the following lines.
   { 1100050 ;2   ;ActionGroup;
   CaptionML=ENU=Electronic Payments }
   { 1100051 ;3   ;Action    ;
   CaptionML=ENU=Export;
   OnAction=VAR
   Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
   Selection@1100004 : Integer;
   BEGIN
   // es0006.begin
   GenJnlLine.RESET;
   GenJnlLine := Rec;
   GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
   GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
   IF NOT GenJnlLine.FIND('-') THEN
   ERROR(Text1100000);
   
   Selection := STRMENU(ExportFormatTypeTxt,2);
   CASE Selection OF
   1:
   BEGIN
   IF ExportedPmtExist(GenJnlLine) THEN
   IF NOT CONFIRM(ExportAgainQst) THEN
   EXIT;
   CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);
   END;
   2:
   BEGIN
   GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
   REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
   END;
   END;
   // es0006.end
   END;
   }
   { 1100052 ;3   ;Action    ;
   CaptionML=ENU=Void;
   OnAction=VAR
   VoidElecPayments@1101100000 : Report 10722;
   BEGIN
   // es0006.begin
   GenJnlLine.RESET;
   GenJnlLine := Rec;
   GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
   GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
   CLEAR(VoidElecPayments);
   VoidElecPayments.SETTABLEVIEW(GenJnlLine);
   VoidElecPayments.RUNMODAL;
   // es0006.end
   END;
   }
   { 1100014 ;3   ;Action    ;
   CaptionML=ENU=Show Export File Errors;
   RunObject=Page 1228;
   RunFormLink=Journal Template Name=FIELD(Journal Template Name),Journal Batch Name=FIELD(Journal Batch Name) }
   // End of the added lines. 
   
   { 1900000004;0 ;ActionContainer;
                         ActionContainerType=ActionItems }
         { 40      ;1   ;ActionGroup;
   ...
   

5. Altere o código nos controles na página do diário de pagamentos (256) da seguinte forma:
   1 de código existente

   ...OnValidate=BEGIN
                                GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
                                ShowShortcutDimCode(ShortcutDimCode);
                              END;
                               }
   ...
   

   1 código de substituição

   ...OnValidate=BEGIN
                                GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
                                ShowShortcutDimCode(ShortcutDimCode);
   
   // Add the following line.
   CheckRecipientBankAccount;
   // End of the added line.
   
                              END;
                               }
   ...
   

   2 de código existente

   ...SourceExpr="Reason Code";
                   Visible=FALSE }
   
       { 24  ;1   ;Group      }
   
       { 1903561801;2;Group  ;
   ...
   

   Código de substituição 2

   ...SourceExpr="Reason Code";
                   Visible=FALSE }
   
   // Add the following lines.
   { 1100012;2;Field     ;
   SourceExpr="Recipient Bank Account" }
   // End of the added lines.
   
       { 24  ;1   ;Group      }
   
       { 1903561801;2;Group  ;
   ...
   

6. Altere o código em variáveis globais na página do diário de pagamentos (256) da seguinte forma:
   Código existente

   ...ShowTotalBalance@1017 : Boolean;
         ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
         OpenedFromBatch@1019 : Boolean;
         BalanceVisible@19073040 : Boolean INDATASET;
         TotalBalanceVisible@19063333 : Boolean INDATASET;
   ...
   

   Código de substituição

   ...ShowTotalBalance@1017 : Boolean;
         ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
         OpenedFromBatch@1019 : Boolean;
   
   // Add the following lines.
   ExportFormatTypeTxt@1100001 : TextConst 'ENU=SEPA,N34.1';
   ExportAgainQst@1100000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';
   // End of the added lines.
   
   BalanceVisible@19073040 : Boolean INDATASET;
         TotalBalanceVisible@19063333 : Boolean INDATASET;
   ...
   

7. Altere o código da função ExportedPmtExist na página do diário de pagamentos (256) da seguinte forma:
   Código existente

   ...TotalBalanceVisible := ShowTotalBalance;
       END;
   
       LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
       BEGIN
         CurrPage.SAVERECORD;
   ...
   

   Código de substituição

   ...TotalBalanceVisible := ShowTotalBalance;
       END;
   
   // Add the following lines.
   LOCAL PROCEDURE ExportedPmtExist@1100002(GenJournalLine@1100000 : Record 81) : Boolean;
   VAR
   GenJnlLine3@1100001 : Record 81;
   BEGIN
   GenJnlLine3.COPYFILTERS(GenJnlLine);
   GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
   EXIT(NOT GenJnlLine3.ISEMPTY);
   END;
   
   LOCAL PROCEDURE CheckRecipientBankAccount@1100000();
   VAR
   VendorBankAccount@1100000 : Record 288;
   CustomerBankAccount@1100001 : Record 287;
   BEGIN
   IF ("Account No." <> xRec."Account No.") THEN
   VALIDATE("Recipient Bank Account",'');
   END;
   // End of the added lines.
   
   LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
       BEGIN
         CurrPage.SAVERECORD;
   ...
   

8. Altere o código nas propriedades do xmlport de pain.001.001.03 SEPA CT (1000) da seguinte forma:
   Código existente

   ...ELEMENTS
     {
       { [{0EA1BA75-FB56-4C05-946C-A299E4809E84}];  ;Document            ;Element ;Table   ;
                                                     SourceTable=Table81 }
   
       { [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns               ;Attribute;Text   ;
                                                     VariableName=XMLNamespace }
   ...
   

   Código de substituição

   ... ELEMENTS
     {
       { [{0EA1BA75-FB56-4C05-946C-A299E4809E84}];  ;Document            ;Element ;Table   ;
                                                     SourceTable=Table81;
   
   // Add the following line.
   MaxOccurs=Once }
   // End of the added line.
   
       { [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns               ;Attribute;Text   ;
                                                     VariableName=XMLNamespace }
   ...
   

9. Altere o código na função InitData a xmlport de pain.001.001.03 SEPA CT (1000) da seguinte forma:
   Código existente

   ...  PaymentGroupNo@1000 : Integer;
       BEGIN
         SEPACTFillExportBuffer.FillExportBuffer("Gen. Journal Line",PaymentExportData);
         PaymentExportData.GetRemittanceTexts(TempPaymentExportRemittanceTxt);
   
         NoOfTransfers := FORMAT(PaymentExportData.COUNT);
   ...
   

   Código de substituição

   ...PaymentGroupNo@1000 : Integer;
       BEGIN
         SEPACTFillExportBuffer.FillExportBuffer("Gen. Journal Line",PaymentExportData);
   
   // Add the following lines.
   "Gen. Journal Line".SETRANGE("Journal Template Name",'');
   "Gen. Journal Line".SETRANGE("Journal Batch Name",'');
   // End of the added lines.
   
         PaymentExportData.GetRemittanceTexts(TempPaymentExportRemittanceTxt);
   
         NoOfTransfers := FORMAT(PaymentExportData.COUNT);
   ...
   
   
   

Pré-requisitos:

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

• A versão em espanhol do Microsoft Dynamics NAV 2009 R2

• A versão em espanhol do Microsoft Dynamics NAV 2009 SP1

Informações sobre remoção

Você não pode remover esse hotfix.