"Escolher. Erro Pmts exportado deve ser Yes"Se você lançar linhas do diário em versão espanhola do Microsoft Dynamics NAV 2009

Modelo: CPR - Navision código Fiacx modelo

BUG n º: 217333 (Manutenção do conteúdo)

Sintomas

Após a instalação do KB3036839, suponha que você anular um pagamento SEPA exportado de diário na versão espanhola do Microsoft Dynamics NAV 2009 e, em seguida, quando você lança as linhas do diário depois de exportar o arquivo de pagamento SEPA, você recebe a seguinte mensagem de erro:

"Escolher. Pmts exportado deve ser Yes no nome do modelo de diário do livro diário linha = nome do diário de lote = = n º de linha. "

Siga as etapas na seção alterações de código para resolver o problema. Esse problema ocorre nos seguintes produtos:

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

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

Resolução

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.

Se esse hotfix não está disponível para download público (ou seja, que não é fornecido um URL público para esse hotfix neste artigo), a distribuição requer conhecimento técnico, membro da equipe de escalação ou aprovação gerencial e as seguintes informações se aplicam:

  • Para receber o hotfix, é necessário tendo o erro mencionado na seção "Sintomas".

  • Você deve controlar os clientes enviá-lo para e forneça o próximo service pack quando estiver disponível (se um service pack for lançado).

Esse hotfix está programado para ser incluído com a versão em espanhol do Microsoft Dynamics NAV 2013.

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.';

    // Delete the following lines.
    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);
    GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
    REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
    // End of the deleted lines.

    // es0006.end
    END;
    }
    ...

    Código de substituição 3

    ...    CaptionML=ENU=Export;
    OnPush=VAR
    Text1100000@1100000 : TextConst 'ENU=Nothing to export.';

    // Add the following lines.
    Selection@1100004 : Integer;
    BEGIN
    // es0006.begin
    GenJnlLine.COPYFILTERS(Rec);
    GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
    GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");

    GenJnlLine.SETRANGE("Bank Payment Type","Bank Payment Type"::"Electronic Payment");
    GenJnlLine.SETRANGE("Elect. Pmts Exported",FALSE);
    IF GenJnlLine.ISEMPTY THEN
    ERROR(Text1100000);

    Selection := STRMENU(ExportFormatTypeTxt,2);
    CASE Selection OF
    1:
    BEGIN
    IF ExportedPmtExist(GenJnlLine) THEN
    IF NOT CONFIRM(ExportAgainQst) THEN
    EXIT;
    CheckDocNos(GenJnlLine);
    CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);
    GenJnlLine.MODIFYALL("Export File Name",'');
    GenJnlLine.MODIFYALL("Elect. Pmts Exported",TRUE);
    END;
    2:
    BEGIN
    GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
    REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
    END;
    END;
    // End of the added lines.

    // es0006.end
    END;
    }
    ...

    4 de código existente

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

    Código de substituição 4

    ...    // 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.COPYFILTERS(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();VARVendorBankAccount@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 }
    ...


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

Além disso, você deve ter o KB3036839 instalado.

Informações sobre remoção

Você não pode remover esse hotfix.

Status

A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".

Referências

VSFT DynamicsNAVSE: 358572, 358855

Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte os Termos de usopara outras considerações.

Author: Vanessa.Garcia
Writer: v-luzo
Revisor técnico: Vanessa.Garcia
Editor:

Precisa de mais ajuda?

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Microsoft Insider

Estas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×