Sintomas

Suponha que uma remessa que contém títulos cuja data de vencimento antes da remessa ou data de registo de ordem de pagamento. Quando tentar registar a remessa, definindo o campo Tipo de tratamento para colecção ou Ordem de pagamento na versão espanhola do Microsoft Dynamics NAV 2009, recebe a seguinte mensagem de erro:

"Conclusão data não pode ser anterior a data de registo da remessa em por Tipo Doc. carteira = 'A receber', o n. º movimento =."

Siga os passos na secção de alterações de código para resolver este problema. Este problema ocorre nos seguintes produtos:

  • A versão espanhola do Microsoft Dynamics NAV 2009 R2

  • A versão espanhola do Microsoft Dynamics NAV 2009 SP1

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. No entanto, 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 Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. 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 9015 de ID de objecto de sistemaobjecto.

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. Altere o código no 2 do número de Item de dados no relatório de ordem de pagamento de Post (7000080) do seguinte modo:Código existente

    ...  Window.UPDATE(2,DocCount);                             TESTFIELD("Currency Code",PmtOrd."Currency Code");                             TESTFIELD("Collection Agent","Collection Agent"::Bank);// Delete the following lines.//VSTF326811.beginIF "Due Date" < PmtOrd."Posting Date" THENFIELDERROR("Due Date",STRSUBSTNO(Text1100007,PmtOrd.FIELDCAPTION("Posting Date"),PmtOrd.TABLECAPTION));//VSTF326811.end// End of the deleted lines.                             IF "Remaining Amount" = 0 THEN                               FIELDERROR("Remaining Amount");                             TESTFIELD(Type,Type::Payable);                             IF Accepted = Accepted::No THEN                               FIELDERROR(Accepted);...

    Código de substituição

    ...  Window.UPDATE(2,DocCount);                             TESTFIELD("Currency Code",PmtOrd."Currency Code");                             TESTFIELD("Collection Agent","Collection Agent"::Bank);// Add the following line.TESTFIELD("Due Date");// End of the added line.                             IF "Remaining Amount" = 0 THEN                               FIELDERROR("Remaining Amount");                             TESTFIELD(Type,Type::Payable);                             IF Accepted = Accepted::No THEN                               FIELDERROR(Accepted);...
  2. Altere o código na variáveis globais no relatório de ordem de pagamento de Post (7000080) do seguinte modo:Código existente

    ... TempCode@1100032 : Code[10];        TempText@1100033 : Text[50];        TempCurrencyCode@1100034 : Code[10];        Text1100006@1100036 : TextConst 'ENU="You cannot post a payment order containing documents marked for application to ID. Please, remove %1 %2/%3. ";ESP="No puede registrar una remesa que contenga documentos marcados para liquidar. Elimine %1 %2/%3. "';        HidePrintDialog@1100100 : Boolean;Text1100007@1100037 : TextConst 'ENU=cannot be previous to the %1 of the %2';      LOCAL PROCEDURE FinishCode@2();      BEGIN        UpdateTables;        Window.CLOSE;...

    Código de substituição

    ... TempCode@1100032 : Code[10];        TempText@1100033 : Text[50];        TempCurrencyCode@1100034 : Code[10];        Text1100006@1100036 : TextConst 'ENU="You cannot post a payment order containing documents marked for application to ID. Please, remove %1 %2/%3. ";ESP="No puede registrar una remesa que contenga documentos marcados para liquidar. Elimine %1 %2/%3. "';        HidePrintDialog@1100100 : Boolean;// Delete the following line.Text1100007@1100037 : TextConst 'ENU=cannot be previous to the %1 of the %2';// End of the deleted line.      LOCAL PROCEDURE FinishCode@2();      BEGIN        UpdateTables;        Window.CLOSE;...
  3. Altere o código em 2 de número de Item de dados no relatório Registar remessas (7000099) do seguinte modo:Código existente 1

    ... Window.UPDATE(2,DocCount);                             TESTFIELD("Currency Code",BillGr."Currency Code");                             TESTFIELD("Collection Agent","Collection Agent"::Bank);// Delete the following lines.//VSTF326811.beginIF "Due Date" < BillGr."Posting Date" THENFIELDERROR("Due Date",STRSUBSTNO(Text1100004,BillGr.FIELDCAPTION("Posting Date"),BillGr.TABLECAPTION));//VSTF326811.end// End of the deleted lines.                             IF "Remaining Amount" = 0 THEN                               FIELDERROR("Remaining Amount");                             TESTFIELD(Type,Type::Receivable);                             IF Accepted = Accepted::No THEN                               FIELDERROR(Accepted);...

    Código de substituição 1

    ... Window.UPDATE(2,DocCount);                             TESTFIELD("Currency Code",BillGr."Currency Code");                             TESTFIELD("Collection Agent","Collection Agent"::Bank);// Add the following line.TESTFIELD("Due Date");// End of the added line.                             IF "Remaining Amount" = 0 THEN                               FIELDERROR("Remaining Amount");                             TESTFIELD(Type,Type::Receivable);                             IF Accepted = Accepted::No THEN                               FIELDERROR(Accepted);...

    Código existente 2

    ...IF CustLedgEntry."Applies-to ID" <> '' THEN                                   ERROR(Text1100010,Doc."Document No.",Doc."No.");                               IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN                                 CustPostingGr.TESTFIELD("Discted. Bills Acc.");                                 AccountNo := CustPostingGr."Discted. Bills Acc.";                                 FeeRange.CalcDiscExpensesAmt(                                   BankAcc."Operation Fees Code",                                   BankAcc."Currency Code",                                   "Remaining Amount",                                   CustLedgEntry."Entry No.");...

    Código de substituição 2

    ...  IF CustLedgEntry."Applies-to ID" <> '' THEN                                   ERROR(Text1100010,Doc."Document No.",Doc."No.");                               IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN                                 CustPostingGr.TESTFIELD("Discted. Bills Acc.");                                 AccountNo := CustPostingGr."Discted. Bills Acc.";// Add the following lines.IF "Due Date" < BillGr."Posting Date" THENFIELDERROR("Due Date",STRSUBSTNO(Text1100004,BillGr.FIELDCAPTION("Posting Date"),BillGr.TABLECAPTION));// End of the added lines.                                 FeeRange.CalcDiscExpensesAmt(                                   BankAcc."Operation Fees Code",                                   BankAcc."Currency Code",                                   "Remaining Amount",                                   CustLedgEntry."Entry No.");...

Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

  • A versão espanhola do Microsoft Dynamics NAV 2009 R2

  • A versão espanhola do Microsoft Dynamics NAV 2009 SP1

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.

Precisa de mais ajuda?

Quer mais opções?

Explore os benefícios da subscrição, navegue em cursos de formação, saiba como proteger o seu dispositivo e muito mais.

As comunidades ajudam-no a colocar e a responder perguntas, a dar feedback e a ouvir especialistas com conhecimentos abrangentes.