Você pode lançar um grupo de cobrança com nenhuma data de vencimento especificada no Cartera na caixa de diálogo "Movimento de cliente" inesperadamente 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.

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 no Data Item número 2 no relatório de ordem de pagamento Post (7000080) da seguinte forma:
   Código existente

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",PmtOrd."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   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 lines.
   IF "Due Date" < PmtOrd."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100007,
   PmtOrd.FIELDCAPTION("Posting Date"),
   PmtOrd.TABLECAPTION));
   // End of the lines.
   
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Payable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

2. Altere o código nas variáveis globais no relatório de ordem de pagamento Post (7000080) da seguinte forma:
   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;
   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;
   
   // Add the following line.
   Text1100007@1100037 : TextConst 'ENU=cannot be previous to the %1 of the %2';
   
   LOCAL PROCEDURE FinishCode@2();
   BEGIN
   UpdateTables;
   Window.CLOSE;
   ...
   

3. Altere o código no Data Item número 2 no relatório de grupo de cobrança de Post (7000099) da seguinte forma:
   1 de código existente

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",BillGr."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Receivable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

   1 código de substituição

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

   2 de código existente

   ...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.";
   
   // Delete the following lines.
   IF "Due Date" < BillGr."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100004,
   BillGr.FIELDCAPTION("Posting Date"),
   BillGr.TABLECAPTION));
   // End of the lines.
   
   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.";
   FeeRange.CalcDiscExpensesAmt(
   BankAcc."Operation Fees Code",
   BankAcc."Currency Code",
   "Remaining Amount",
   CustLedgEntry."Entry No.");
   ...