Неправильное значение "Превышено средневзвешенный срок" при запуске отчета "Поставщик — просроченная Платежи" (10748) после применения 2710511 исправления в испанской версии Microsoft Dynamics NAV 2009

Применяется к
Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1

Эта статья относится к Microsoft Dynamics NAV для языкового стандарта испанского языка (es).

Проблема

Предположим, что вы применили исправление 2710511 в испанской версии Microsoft Dynamics NAV 2009. При выполнении отчета "Поставщик — просроченный Платежи" (10748) значение превышения средневзвешенных терминов будет неверным. Значение превышения средневзвешенный срок неправильно включает значение для открытых счетов. Эта проблема возникает в следующих продуктах:

  • Испанская версия Microsoft Dynamics NAV 2009 R2
  • Испанская версия Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)

Чтобы получить дополнительные сведения об исправлении 2710511, щелкните следующий номер статьи, чтобы просмотреть статью в базе знаний Майкрософт:

2710511 суммы оплаты и открытые суммы оплаты смешаны и отображаются в разделе "Платежи за пределами установленного законом лимита" отчета о просроченной Платежи поставщика (10748) неправильно в версии Microsoft Dynamics NAV на испанском языке

Решение

Сведения об исправлении

Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащей это исправление.

Примечание. В особых случаях плата, которая обычно взимается за звонки в службу поддержки, может быть отменена, если специалист по технической поддержке Microsoft Dynamics и связанных продуктов определит, что конкретное обновление поможет устранить вашу проблему. Обычные расходы на поддержку будут применяться к дополнительным вопросам и проблемам поддержки, которые не относятся к конкретному обновлению.

            
          

Сведения об установке

Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает подразумеваемые гарантии товарного состояния или пригодности для конкретной цели, но не ограничивается ими. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и инструментами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями.

Примечание. Перед установкой этого исправления убедитесь, что все пользователи клиента Microsoft Navision вышли из системы. Сюда входят пользователи клиентов Служб приложений Microsoft Navision (NAS). Вы должны быть единственным пользователем клиента, который вошел в систему при реализации этого исправления.

Чтобы реализовать это исправление, у вас должна быть лицензия разработчика.

Рекомендуется назначить учетной записи пользователя в окне Входа Windows или в окне Входа базы данных идентификатор роли SUPER. Если учетной записи пользователя не удается назначить идентификатор роли SUPER, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения:

  • Разрешение Изменить для объекта, который вы будете изменять.
  • Разрешение Execute для объекта System Object ID 5210 и для объекта System Object ID 9015.

                
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.

Изменения кода

Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:

  1. Измените код в поле Номер 1 в отчете Клиент — просроченная Платежи (10747) следующим образом:
    Exisiting code 1

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Delete the following line.
    SourceExpr=CustWeightedExceededAmount / ABS(CustTotalAmount);
    
    DataSetFieldName=CustTotalAmounts_WeightedExceededAmount }
    ...
    

    Код замены 1

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Add the following line.
    SourceExpr=CalcWeightedExceededAmt;
    
    DataSetFieldName=CustTotalAmounts_WeightedExceededAmount }
    ...
    

    Существующий код 2

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Delete the following line.
    SourceExpr=TotalWeightedExceededAmount / ABS(TotalAmount);
    
    DataSetFieldName=TotalAmounts_WeightedExceededAmount }
    ...
    

    Код замены 2

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Add the following line.
    SourceExpr=CalcTotalWeightedExceededAmt;
    
    DataSetFieldName=TotalAmounts_WeightedExceededAmount }
    ...
    
  2. Измените код в поле Data Item Number 3 в отчете Клиент — просроченная Платежи (10747) следующим образом:
    Exisiting code

    ...
    IF AppldCustLedgEntryTmp."Entry Type" = AppldCustLedgEntryTmp."Entry Type"::"Initial Entry" THEN
    
    // Delete the following lines.
    AppldCustLedgEntryTmp."Posting Date" := 0D;
    CustDaysOverdue += DaysOverdue;
    CustWeightedExceededAmount += DaysOverdue * ABS(AppldCustLedgEntryTmp."Amount (LCY)");
    CustTotalAmount := CustPaymentOutsideDueDate + CustPaymentWithinDueDate;
    TotalDaysOverdue += DaysOverdue;
    TotalWeightedExceededAmount += DaysOverdue * ABS(AppldCustLedgEntryTmp."Amount (LCY)");
    // End of the lines.
    
    TotalAmount := TotalPaymentOutsideDueDate + TotalPaymentWithinDueDate;
    ...
    

    Код замены

    ...
    IF AppldCustLedgEntryTmp."Entry Type" = AppldCustLedgEntryTmp."Entry Type"::"Initial Entry" THEN
    
    // Add the following lines.
    AppldCustLedgEntryTmp."Posting Date" := 0D
    ELSE BEGIN
    CustApplAmount += ABS(AppldCustLedgEntryTmp."Amount (LCY)");
    TotalApplAmount += ABS(AppldCustLedgEntryTmp."Amount (LCY)");
    CustWeightedExceededAmount += DaysOverdue * ABS(AppldCustLedgEntryTmp."Amount (LCY)");
    TotalWeightedExceededAmount += DaysOverdue * ABS(AppldCustLedgEntryTmp."Amount (LCY)");
    END;
    CustDaysOverdue += DaysOverdue;
    CustTotalAmount := CustPaymentOutsideDueDate + CustPaymentWithinDueDate;
    TotalDaysOverdue += DaysOverdue;
    // End of the lines.
    
    TotalAmount := TotalPaymentOutsideDueDate + TotalPaymentWithinDueDate;
    ...
    
  3. Измените код в отчете "Клиент — просроченный Платежи" (10747) следующим образом:
    Exisiting code

    ...
    Text1100003@1100006 : TextConst 'ENU=The start date cannot be later than the end date.;ESP=La fecha de inicio no puede ser posterior a la fecha final.';
    CustTotalAmount@1100013 : Decimal;
    ...
    

    Код замены

    ...
    Text1100003@1100006 : TextConst 'ENU=The start date cannot be later than the end date.;ESP=La fecha de inicio no puede ser posterior a la fecha final.';
    
    // Add the following lines.
    CustApplAmount@1100020 : Decimal;
    TotalApplAmount@1100012 : Decimal;
    // End of the lines.
    
    CustTotalAmount@1100013 : Decimal;
    ...
    
  4. Измените код в функции ClearCustAmount в отчете Клиент — просроченная Платежи (10747) следующим образом:
    Exisiting code

    ...
    CustPaymentWithinDueDate := 0;
    END;
    ...
    

    Код замены

    ...
    CustPaymentWithinDueDate := 0;
    
    // Add the following lines.
    CustApplAmount := 0;
    END;
    LOCAL PROCEDURE CalcWeightedExceededAmt@1100000() : Decimal;
    BEGIN
    IF CustApplAmount = 0 THEN
    EXIT(0);
    EXIT(CustWeightedExceededAmount / ABS(CustApplAmount));
    END;
    LOCAL PROCEDURE CalcTotalWeightedExceededAmt@1100009() : Decimal;
    BEGIN
    IF TotalApplAmount = 0 THEN
    EXIT(0);
    EXIT(TotalWeightedExceededAmount / ABS(TotalApplAmount));
    // End of the lines.
    
    END;
    ...
    
  5. Измените код в поле Data Item Number 1 в отчете "Поставщик — просроченный Платежи" (10748) следующим образом:
    Exisiting code 1

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Delete the following line.
    SourceExpr=VendWeightedExceededAmount / ABS(VendTotalAmount);
    
    DataSetFieldName=Vend_WeightedExceededAmount }
    ...
    

    Код замены 1

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Add the following line.
    SourceExpr=CalcWeightedExceededAmt;
    
    DataSetFieldName=Vend_WeightedExceededAmount }
    ...
    

    Существующий код 2

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Delete the following line.
    SourceExpr=TotalWeightedExceededAmount / ABS(TotalAmount);
    
    DataSetFieldName=Total_WeightedExceededAmount }
    ...
    

    Код замены 2

    ...
    ESP=Plazo medio ponderado superado:];
    
    // Add the following line.
    SourceExpr=CalcTotalWeightedExceededAmt;
    
    DataSetFieldName=Total_WeightedExceededAmount }
    ...
    
  6. Измените код в поле Data Item Number 3 в отчете "Поставщик — просроченная Платежи" (10748) следующим образом:
    Exisiting code

    ...
    IF AppldVendLedgEntryTmp."Entry Type" = AppldVendLedgEntryTmp."Entry Type"::"Initial Entry" THEN
    
    // Delete the following lines.
    AppldVendLedgEntryTmp."Posting Date" := 0D;
    VendDaysOverdue += DaysOverdue;
    VendWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");
    VendTotalAmount := VendPaymentOutsideDueDate + VendPaymentWithinDueDate;
    TotalDaysOverdue += DaysOverdue;
    TotalWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");
    // End of the lines.
    
    TotalAmount := TotalPaymentOutsideDueDate + TotalPaymentWithinDueDate;
    ...
    

    Код замены

    ...
    IF AppldVendLedgEntryTmp."Entry Type" = AppldVendLedgEntryTmp."Entry Type"::"Initial Entry" THEN
    
    // Add the following lines.
    AppldVendLedgEntryTmp."Posting Date" := 0D
    ELSE BEGIN
    VendApplAmount += ABS(AppldVendLedgEntryTmp."Amount (LCY)");
    TotalApplAmount += ABS(AppldVendLedgEntryTmp."Amount (LCY)");
    VendWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");
    TotalWeightedExceededAmount += DaysOverdue * ABS(AppldVendLedgEntryTmp."Amount (LCY)");
    END;
    VendDaysOverdue += DaysOverdue;
    VendTotalAmount := VendPaymentOutsideDueDate + VendPaymentWithinDueDate;
    TotalDaysOverdue += DaysOverdue;
    // End of the lines.
    
    TotalAmount := TotalPaymentOutsideDueDate + TotalPaymentWithinDueDate;
    ...
    
  7. Измените код в глобальных переменных в отчете "Поставщик — просроченный Платежи" (10748) следующим образом:
    Exisiting code

    ...
    Text1100003@1100006 : TextConst 'ENU=The start date cannot be later than the end date.;ESP=La fecha de inicio no puede ser posterior a la fecha final.';
    VendTotalAmount@1100011 : Decimal;
    ...
    

    Код замены

    ...
    Text1100003@1100006 : TextConst 'ENU=The start date cannot be later than the end date.;ESP=La fecha de inicio no puede ser posterior a la fecha final.';
    
    // Add the following lines.
    VendApplAmount@1100002 : Decimal;
    TotalApplAmount@1100020 : Decimal;
    // End of the lines.
    
    VendTotalAmount@1100011 : Decimal;
    ...
    
  8. Измените код в функции ClearVendAmount в отчете "Поставщик — просроченный Платежи" (10748) следующим образом:
    Exisiting code

    ...
    VendPaymentWithinDueDate := 0;
    END;
    ...
    

    Код замены

    ...
    VendPaymentWithinDueDate := 0;
    
    // Add the following lines.
    VendApplAmount := 0;
    END;
    LOCAL PROCEDURE CalcWeightedExceededAmt@1100000() : Decimal;
    BEGIN
    IF VendApplAmount = 0 THEN
    EXIT(0);
    EXIT(VendWeightedExceededAmount / ABS(VendApplAmount));
    END;
    LOCAL PROCEDURE CalcTotalWeightedExceededAmt@1100009() : Decimal;
    BEGIN
    IF TotalApplAmount = 0 THEN
    EXIT(0);
    EXIT(TotalWeightedExceededAmount / ABS(TotalApplAmount));
    // End of the lines.
    
    END;
    ...
    

Необходимые условия

Для применения этого исправления необходимо установить один из следующих продуктов:

  • Испанская версия Microsoft Dynamics NAV 2009 R2
  • Испанская версия Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)

Сведения об удалении

Удалить это исправление невозможно.

Состояние

Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».

Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .