В отчете "Анализ продаж по Dim Matrix" отображаются неверные значения, если поле Показать имя столбца проверка выбрано в анализе продаж по измерению в клиенте RoleTailored в Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1)

Применяется к

Dynamics NAV 2009 Service Pack 1

Эта статья относится к Microsoft Dynamics NAV для всех стран и языковых стандартов.

Проблема

Предположим, что вы выбрали поле Показать имя столбца проверка в анализе продаж по измерению в клиенте RoleTailored (RTC) в Microsoft Dynamic NAV 2009 с пакетом обновления 1 (SP1). При запуске функции Показать матрицу для анализа продаж по измерениям значения отображаются неправильно в отчете "Анализ продаж от Dim Matrix".

Решение

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

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

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

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

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

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

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

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

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

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

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

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

Измените код в Purch. Анализ по форме Dim (9224) следующим образом:
Существующий код 1

...
Steps@1033 : Integer;

// Delete the following lines.
Dim1Filter1@1017 : Code[250];
Dim2Filter1@1012 : Code[250];
Dim3Filter1@1010 : Code[250];
ItemFilter1@1009 : Code[250];
LocationFilter1@1003 : Code[250];
DateFilter1@1013 : Text[30];
// End of the lines.

DateFilter@1021 : Text[30];
Dim1Filter@1043 : Code[250];
...

Код замены 1

...
Steps@1033 : Integer;
DateFilter@1021 : Text[30];
Dim1Filter@1043 : Code[250];
...

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

...
LOCAL PROCEDURE FillColumnsItem@9(VAR MatrixColumnCaptions@1009 : ARRAY [32] OF Text[30]) : Boolean;

BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

// Delete the following line.
Item.SETFILTER("No.",ItemFilter1);

...

Код замены 2

...
LOCAL PROCEDURE FillColumnsItem@9(VAR MatrixColumnCaptions@1009 : ARRAY [32] OF Text[30]) : Boolean;

// Add the following lines.
VAR
Item@1013 : Record 27;
i@1004 : Integer;
// End of the lines.

BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

// Add the following line.
Item.SETFILTER("No.",ItemFilter);
...

Измените код в функции FillColumnsLocation в Purch. Анализ по форме Dim (9224) следующим образом:
Существующий код

...

BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

// Delete the following line.
Location.SETFILTER(Code,LocationFilter1);

...

Код замены

...
CLEAR(MatrixColumnCaptions);
i := 1;

// Add the following line.
Location.SETFILTER(Code,LocationFilter);

...

Измените код в функции ShowMatrix в Purch. Анализ по форме Dim (9224) следующим образом:
Существующий код

...
BEGIN

// Delete the following line.
ApplyColumnFilter;


PurchAnalysisByDimMatrix.LoadVariables(ItemAnalysisView,ItemStatisticsBuffer,
CurrentItemAnalysisViewCode,CurrentAnalysisArea,
LineDimOption,ColumnDimOption,LineDimCode,ColumnDimCode,PeriodType,ValueType,
RoundingFactor,ShowActualBudget,MatrixColumnCaptions,

// Delete the following line.
ShowOppositeSign,PeriodInitialized,FirstColumn,LastColumn,ShowColumnName,MATRIX_CurrSetLength);

...

Код замены

...
BEGIN

PurchAnalysisByDimMatrix.LoadVariables(ItemAnalysisView,ItemStatisticsBuffer,
CurrentItemAnalysisViewCode,CurrentAnalysisArea,
LineDimOption,ColumnDimOption,LineDimCode,ColumnDimCode,PeriodType,ValueType,
RoundingFactor,ShowActualBudget,MatrixColumnCaptions,

// Add the following line.
ShowOppositeSign,PeriodInitialized,ShowColumnName,MATRIX_CurrSetLength);

...

Удалите функцию ApplyColumnFilter в Purch. Анализ по форме Dim (9224) следующим образом:

// Delete the following lines.
PROCEDURE ApplyColumnFilter@13();

BEGIN
CLEAR(ItemFilter1);
CLEAR(LocationFilter1);
CLEAR(DateFilter1);
CLEAR(Dim1Filter1);
CLEAR(Dim2Filter1);
CLEAR(Dim3Filter1);
CASE ColumnDimOption OF
ColumnDimOption::Item:
BEGIN
IF ItemFilter <> '' THEN
ItemFilter1 := ItemFilter + '&';
ItemFilter1 := ItemFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Location:
BEGIN
ItemFilter1 := ItemFilter;
IF LocationFilter <> '' THEN
LocationFilter1 := LocationFilter + '&';
LocationFilter1 := LocationFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Period:
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 1":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
IF Dim1Filter <> '' THEN
Dim1Filter1 := Dim1Filter + '&';
Dim1Filter1 := Dim1Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 2":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
IF Dim2Filter <> '' THEN
Dim2Filter1 := Dim2Filter + '&';
Dim2Filter1 := Dim2Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 3":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
IF Dim3Filter <> '' THEN
Dim3Filter1 := Dim3Filter + '&';
Dim3Filter1 := Dim3Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
END;
END;
END;
// End of the lines.

Измените код в свойствах в Purch. Анализ по форме Dim Matrix (9225) следующим образом:
Существующий код

{
Width=19140;
Height=6710;
Editable=No;
TableBoxID=1;
LinksAllowed=No;
SourceTable=Table367;
OnOpenForm=BEGIN

// Delete the following line.
ApplyColumnFilter;

CurrForm.Field1.VISIBLE(1 <= NoOfRecords);
...

Код замены

{
Width=19140;
Height=6710;
Editable=No;
TableBoxID=1;
LinksAllowed=No;
SourceTable=Table367;
OnOpenForm=BEGIN
CurrForm.Field1.VISIBLE(1 <= NoOfRecords);

...

Измените код в Purch. Анализ с помощью формы Dim Matrix (9225) выглядит следующим образом:
Существующий код 1

...
OnAfterGetRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,1,FALSE);
Steps := 1;

// Delete the following line.
ApplyColumnFilter;

Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,PeriodInitialized,InternalDateFilter,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

i := i + 1;
END;
END;

OnAfterGetCurrRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,1,FALSE);
Steps := 1;

// Delete the following line.
ApplyColumnFilter;

Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,PeriodInitialized,InternalDateFilter,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

i := i + 1;
END;
END;
}
...

Код замены 1

...
OnAfterGetRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,1,FALSE);
Steps := 1;

Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,PeriodInitialized,InternalDateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := i + 1;
END;
END;

OnAfterGetCurrRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,1,FALSE);
Steps := 1;
Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,PeriodInitialized,InternalDateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := i + 1;
END;
END;
}
...

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

...
Text001@1032 : TextConst 'ENU=<Precision,';
Text002@1031 : TextConst 'ENU=><Standard Format,0>';

// Delete the following lines.
LocationFilter1@1043 : Code[250];
ItemFilter1@1042 : Code[250];
Dim1Filter1@1041 : Code[250];
Dim2Filter1@1040 : Code[250];
Dim3Filter1@1039 : Code[250];
DateFilter1@1038 : Text[30];
FirstColumn@1044 : Text[50];
LastColumn@1045 : Text[50];
// End of the lines.

ShowColumnName@1036 : Boolean;
...

Код замены 2

...
Text001@1032 : TextConst 'ENU=<Precision,';
Text002@1031 : TextConst 'ENU=><Standard Format,0>';
ShowColumnName@1036 : Boolean;
...

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

...PROCEDURE LoadVariables@1(ItemAnalysisView1@1000 : Record 7152;ItemStatisticsBuffer1@1004 : Record 5821;CurrentItemAnalysisViewCode1@1005 : Code[10];
CurrentAnalysisArea1@1003 : 'Sales,Purchase,Inventory';LineDimOption1@1010 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';
ColumnDimOption1@1002 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';LineDimCode1@1016 : Text[30];ColumnDimCode1@1015 : Text[30];
PeriodType1@1007 : 'Day,Week,Month,Quarter,Year,Accounting Period';ValueType1@1009 : 'Sales Amount,Inventory Value,Sales Quantity';
RoundingFactor1@1011 : 'None,1,1000,1000000';ShowActualBudget1@1012 : 'Actual Amounts,Budgeted Amounts,Variance,Variance%,Index%';
MatrixColumnCaptions1@1001 : ARRAY [32] OF Text[1024];ShowOppositeSign1@1006 : Boolean;PeriodInitialized1@1008 : Boolean;

// Delete the following line.
FirstColumn1@1014 : Text[50];LastColumn1@1013 : Text[50];

ShowColumnName1@1017 : Boolean;NoOfRecordsLocal@1018 : Integer);

BEGIN
CLEAR(MatrixColumnCaptions);
ItemAnalysisView.COPY(ItemAnalysisView1);

CurrentItemAnalysisViewCode := CurrentItemAnalysisViewCode1;
CurrentAnalysisArea := CurrentAnalysisArea1;

LineDimOption := LineDimOption1;
ColumnDimOption := ColumnDimOption1;

LineDimCode := LineDimCode1;
ColumnDimCode := ColumnDimCode1;

PeriodType := PeriodType1;
ShowOppositeSign := ShowOppositeSign1;

COPYARRAY(MatrixColumnCaptions,MatrixColumnCaptions1,1);

PeriodInitialized := PeriodInitialized1;
PeriodType := PeriodType1;
ValueType := ValueType1;
RoundingFactor := RoundingFactor1;
ShowActualBudget := ShowActualBudget1;

// Delete the following lines.
FirstColumn := FirstColumn1;
LastColumn := LastColumn1;
// End of the lines.

ShowColumnName := ShowColumnName1;
NoOfRecords := NoOfRecordsLocal;
END;...

Код замены 3

...PROCEDURE LoadVariables@1(ItemAnalysisView1@1000 : Record 7152;ItemStatisticsBuffer1@1004 : Record 5821;CurrentItemAnalysisViewCode1@1005 : Code[10];
CurrentAnalysisArea1@1003 : 'Sales,Purchase,Inventory';LineDimOption1@1010 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';
ColumnDimOption1@1002 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';LineDimCode1@1016 : Text[30];ColumnDimCode1@1015 : Text[30];
PeriodType1@1007 : 'Day,Week,Month,Quarter,Year,Accounting Period';ValueType1@1009 : 'Sales Amount,Inventory Value,Sales Quantity';
RoundingFactor1@1011 : 'None,1,1000,1000000';ShowActualBudget1@1012 : 'Actual Amounts,Budgeted Amounts,Variance,Variance%,Index%';
MatrixColumnCaptions1@1001 : ARRAY [32] OF Text[1024];ShowOppositeSign1@1006 : Boolean;PeriodInitialized1@1008 : Boolean;
ShowColumnName1@1017 : Boolean;NoOfRecordsLocal@1018 : Integer);

BEGIN
CLEAR(MatrixColumnCaptions);
ItemAnalysisView.COPY(ItemAnalysisView1);

CurrentItemAnalysisViewCode := CurrentItemAnalysisViewCode1;
CurrentAnalysisArea := CurrentAnalysisArea1;

LineDimOption := LineDimOption1;
ColumnDimOption := ColumnDimOption1;

LineDimCode := LineDimCode1;
ColumnDimCode := ColumnDimCode1;

PeriodType := PeriodType1;
ShowOppositeSign := ShowOppositeSign1;

COPYARRAY(MatrixColumnCaptions,MatrixColumnCaptions1,1);

PeriodInitialized := PeriodInitialized1;
PeriodType := PeriodType1;
ValueType := ValueType1;
RoundingFactor := RoundingFactor1;
ShowActualBudget := ShowActualBudget1;

ShowColumnName := ShowColumnName1;
NoOfRecords := NoOfRecordsLocal;
END;
...

Измените код в функции FieldDrillDown в Purch. Анализ по форме Dim Matrix (9225) следующим образом:
Существующий код

BEGIN
CLEAR(DimCodeBufferColumn3);
Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,PeriodInitialized,InternalDateFilter,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

Steps := Ordinal - 1;
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

ItemAnalysisMgt.DrillDown(
CurrentAnalysisArea,ItemStatisticsBuffer,CurrentItemAnalysisViewCode,

// Delete the following lines.
ItemFilter1,LocationFilter1,DateFilter1,
Dim1Filter1,Dim2Filter1,Dim3Filter1,BudgetFilter,
// End of the lines.

LineDimOption,Rec,
ColumnDimOption,DimCodeBufferColumn3,
TRUE,ValueType,ShowActualBudget);
END;

Код замены

BEGIN
CLEAR(DimCodeBufferColumn3);
Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,PeriodInitialized,InternalDateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

Steps := Ordinal - 1;
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

ItemAnalysisMgt.DrillDown(
CurrentAnalysisArea,ItemStatisticsBuffer,CurrentItemAnalysisViewCode,

// Add the following lines.
ItemFilter,LocationFilter,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter,BudgetFilter,
// End of the lines.

LineDimOption,Rec,
ColumnDimOption,DimCodeBufferColumn3,
TRUE,ValueType,ShowActualBudget);
END;

Удалите функцию ApplyColumnFilter в Purch. Анализ по форме Dim Matrix (9225) следующим образом:

// Delete the following lines.
PROCEDURE ApplyColumnFilter@13();
BEGIN
CLEAR(ItemFilter1);
CLEAR(LocationFilter1);
CLEAR(DateFilter1);
CLEAR(Dim1Filter1);
CLEAR(Dim2Filter1);
CLEAR(Dim3Filter1);

CASE ColumnDimOption OF
ColumnDimOption::Item:
BEGIN
IF ItemFilter <> '' THEN
ItemFilter1 := ItemFilter + '&';
ItemFilter1 := ItemFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Location:
BEGIN
ItemFilter1 := ItemFilter;
IF LocationFilter <> '' THEN
LocationFilter1 := LocationFilter + '&';
LocationFilter1 := LocationFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Period:
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
IF DateFilter <> '' THEN
DateFilter1 := DateFilter
ELSE
DateFilter1 := FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 1":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
IF Dim1Filter <> '' THEN
Dim1Filter1 := Dim1Filter + '&';
Dim1Filter1 := Dim1Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 2":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
IF Dim2Filter <> '' THEN
Dim2Filter1 := Dim2Filter + '&';
Dim2Filter1 := Dim2Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 3":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
IF Dim3Filter <> '' THEN
Dim3Filter1 := Dim3Filter + '&';
Dim3Filter1 := Dim3Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
END;
END;
END;

BEGIN
END.
}
}
// End of the lines.

Измените код в форме Sales Analysis by Dim (9226) следующим образом:
Существующий код 1

...
Text001@1024 : TextConst 'ENU=<Precision,';
Text002@1023 : TextConst 'ENU=><Standard Format,0>';
Steps@1033 : Integer;

// Delete the following lines.
Dim1Filter1@1017 : Code[250];
Dim2Filter1@1012 : Code[250];
Dim3Filter1@1010 : Code[250];
ItemFilter1@1009 : Code[250];
LocationFilter1@1003 : Code[250];
DateFilter1@1013 : Text[30];
// End of the lines.

DateFilter@1021 : Text[30];
Dim1Filter@1043 : Code[250];
Dim2Filter@1042 : Code[250];
Dim3Filter@1041 : Code[250];
ItemFilter@1040 : Code[250];
...

Код замены 1

...
Text001@1024 : TextConst 'ENU=<Precision,';
Text002@1023 : TextConst 'ENU=><Standard Format,0>';
Steps@1033 : Integer;
DateFilter@1021 : Text[30];
Dim1Filter@1043 : Code[250];
Dim2Filter@1042 : Code[250];
Dim3Filter@1041 : Code[250];
ItemFilter@1040 : Code[250];
...

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

...LOCAL PROCEDURE FillColumnsItem@9(VAR MatrixColumnCaptions@1009 : ARRAY [32] OF Text[30]) : Boolean;

VAR
Item@1013 : Record 27;
i@1004 : Integer;

BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

// Delete the following line.
Item.SETFILTER("No.",ItemFilter1);...

Код замены 2

...LOCAL PROCEDURE FillColumnsItem@9(VAR MatrixColumnCaptions@1009 : ARRAY [32] OF Text[30]) : Boolean;

VAR
Item@1013 : Record 27;
i@1004 : Integer;

BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

// Add the following line.
Item.SETFILTER("No.",ItemFilter);
...

Измените код в функции FillColumnsLocation в форме Анализа продаж по dim (9226) следующим образом:
Существующий код

...BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

// Delete the following line.
Location.SETFILTER(Code,LocationFilter1);...

Код замены

...BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

// Add the following line.
Location.SETFILTER(Code,LocationFilter);...

Измените код в функции FillColumnsDim в форме "Анализ продаж по dim" (9226) следующим образом:
Существующий код

...BEGIN
CLEAR(MatrixColumnCaptions);

// Delete the following line.
ApplyColumnFilter;

DimVal.SETRANGE("Dimension Code",DimensionCode);
DimVal.SETFILTER(Code,DimFilter);
i := 1;...

Код замены

...BEGIN
CLEAR(MatrixColumnCaptions);
DimVal.SETRANGE("Dimension Code",DimensionCode);
DimVal.SETFILTER(Code,DimFilter);
i := 1;...

Измените код функции ShowMatrix в форме Sales Analysis by Dim (9226) следующим образом:
Существующий код

...BEGIN

// Delete the following line.
ApplyColumnFilter;

IF ColumnDimOption = ColumnDimOption::Period THEN BEGIN
FirstColumn := FORMAT(FirstColumnDate);
LastColumn := FORMAT(LastColumnDate);
END;

SalesAnalysisByDimMatrix.LoadVariables(ItemAnalysisView,ItemStatisticsBuffer,
CurrentItemAnalysisViewCode,CurrentAnalysisArea,
LineDimOption,ColumnDimOption,LineDimCode,ColumnDimCode,PeriodType,ValueType,
RoundingFactor,ShowActualBudget,MatrixColumnCaptions,
ShowOppositeSign,PeriodInitialized,FirstColumn,LastColumn,ShowColumnName,MATRIX_CurrSetLength);

SalesAnalysisByDimMatrix.LoadFilters(ItemFilter,LocationFilter,Dim1Filter,Dim2Filter,Dim3Filter,
DateFilter,BudgetFilter,InternalDateFilter);

SalesAnalysisByDimMatrix.RUNMODAL;
END;...

Код замены

...
BEGIN

IF ColumnDimOption = ColumnDimOption::Period THEN BEGIN
FirstColumn := FORMAT(FirstColumnDate);
LastColumn := FORMAT(LastColumnDate);
END;

SalesAnalysisByDimMatrix.LoadVariables(ItemAnalysisView,ItemStatisticsBuffer,
CurrentItemAnalysisViewCode,CurrentAnalysisArea,
LineDimOption,ColumnDimOption,LineDimCode,ColumnDimCode,PeriodType,ValueType,
RoundingFactor,ShowActualBudget,MatrixColumnCaptions,
ShowOppositeSign,PeriodInitialized,ShowColumnName,MATRIX_CurrSetLength);

SalesAnalysisByDimMatrix.LoadFilters(ItemFilter,LocationFilter,Dim1Filter,Dim2Filter,Dim3Filter,
DateFilter,BudgetFilter,InternalDateFilter);

SalesAnalysisByDimMatrix.RUNMODAL;
END;
...

Удалите функцию ApplyColumnFilter в форме Sales Analysis by Dim (9226) следующим образом:

// Delete the following lines.
PROCEDURE ApplyColumnFilter@13();

BEGIN
CLEAR(ItemFilter1);
CLEAR(LocationFilter1);
CLEAR(DateFilter1);
CLEAR(Dim1Filter1);
CLEAR(Dim2Filter1);
CLEAR(Dim3Filter1);

CASE ColumnDimOption OF
ColumnDimOption::Item:
BEGIN
IF ItemFilter <> '' THEN
ItemFilter1 := ItemFilter + '&';
ItemFilter1 := ItemFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Location:
BEGIN
ItemFilter1 := ItemFilter;
IF LocationFilter <> '' THEN
LocationFilter1 := LocationFilter + '&';
LocationFilter1 := LocationFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Period:
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 1":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
IF Dim1Filter <> '' THEN
Dim1Filter1 := Dim1Filter + '&';
Dim1Filter1 := Dim1Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 2":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
IF Dim2Filter <> '' THEN
Dim2Filter1 := Dim2Filter + '&';
Dim2Filter1 := Dim2Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 3":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
IF Dim3Filter <> '' THEN
Dim3Filter1 := Dim3Filter + '&';
Dim3Filter1 := Dim3Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
END;
END;
END;
// End of the lines.

Измените код в форме Sales Analysis by Dim Matrix (9227) следующим образом:
Существующий код 1

…
SourceTable=Table367;
OnOpenForm=BEGIN

// Delete the following line.
ApplyColumnFilter;

CurrForm.Field1.VISIBLE(1 <= NoOfRecords);
CurrForm.Field2.VISIBLE(2 <= NoOfRecords);
…

Код замены 1

…
SourceTable=Table367;
OnOpenForm=BEGIN

CurrForm.Field1.VISIBLE(1 <= NoOfRecords);
CurrForm.Field2.VISIBLE(2 <= NoOfRecords);
…

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

…
OnAfterGetRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,0,FALSE);
Steps := 1;

// Delete the following line.
ApplyColumnFilter;

Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,PeriodInitialized,InternalDateFilter,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,
ItemFilter,LocationFilter,PeriodType,DateFilter,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

Dim1Filter,Dim2Filter,Dim3Filter);
i := i + 1;
END;
END;

OnAfterGetCurrRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,0,FALSE);
Steps := 1;

// Delete the following line.
ApplyColumnFilter;

Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,PeriodInitialized,InternalDateFilter,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

i := i + 1;
END;
END;
}
…

Код замены 2

…
OnAfterGetRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,0,FALSE);
Steps := 1;
Which := '-';

ItemAnalysisMgt.FindRec(

// Add the following lines.
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which, ItemFilter,LocationFilter,PeriodType,DateFilter,PeriodInitialized,InternalDateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := i + 1;
END;
END;

OnAfterGetCurrRecord=BEGIN
IF CurrForm.TotalQuantity.VISIBLE THEN
Quantity := CalcAmt(DimCodeBufferColumn,2,FALSE);
IF CurrForm.TotalInvtValue.VISIBLE THEN
Amount := CalcAmt(DimCodeBufferColumn,0,FALSE);
Steps := 1;
Which := '-';

ItemAnalysisMgt.FindRec(

// Add the following lines.
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which, ItemFilter,LocationFilter,PeriodType,DateFilter,PeriodInitialized,InternalDateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := 1;
WHILE (i <= NoOfRecords) AND (i <= ARRAYLEN(MatrixColumnCaptions)) DO BEGIN
MatrixData[i] := CalcAmt(DimCodeBufferColumn3,ValueType,TRUE);
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

i := i + 1;
END;
END;
}
…

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

…
Text002@1031 : TextConst 'ENU=><Standard Format,0>';

// Delete the following lines.
LocationFilter1@1043 : Code[250];
ItemFilter1@1042 : Code[250];
Dim1Filter1@1041 : Code[250];
Dim2Filter1@1040 : Code[250];
Dim3Filter1@1039 : Code[250];
DateFilter1@1038 : Text[30];
FirstColumn@1044 : Text[50];
LastColumn@1045 : Text[50];
// End of the lines.

ShowColumnName@1027 : Boolean;
…

Код замены 3

…
Text002@1031 : TextConst 'ENU=><Standard Format,0>';
ShowColumnName@1027 : Boolean;
…

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

…PROCEDURE LoadVariables@1(ItemAnalysisView1@1000 : Record 7152;ItemStatisticsBuffer1@1004 : Record 5821;CurrentItemAnalysisViewCode1@1005 : Code[10];
CurrentAnalysisArea1@1003 : 'Sales,Purchase,Inventory';LineDimOption1@1010 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';
ColumnDimOption1@1002 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';LineDimCode1@1016 : Text[30];ColumnDimCode1@1015 : Text[30];
PeriodType1@1007 : 'Day,Week,Month,Quarter,Year,Accounting Period';ValueType1@1009 : 'Sales Amount,Inventory Value,Sales Quantity';
RoundingFactor1@1011 : 'None,1,1000,1000000';ShowActualBudget1@1012 : 'Actual Amounts,Budgeted Amounts,Variance,Variance%,Index%';
MatrixColumnCaptions1@1001 : ARRAY [32] OF Text[1024];ShowOppositeSign1@1006 : Boolean;PeriodInitialized1@1008 : Boolean;

// Delete the following line.
FirstColumn1@1014 : Text[50];LastColumn1@1013 : Text[50];

ShowColumnName1@1017 : Boolean;NoOfRecordsLocal@1018 : Integer);

BEGIN
CLEAR(MatrixColumnCaptions);
ItemAnalysisView.COPY(ItemAnalysisView1);

CurrentItemAnalysisViewCode := CurrentItemAnalysisViewCode1;
CurrentAnalysisArea := CurrentAnalysisArea1;

LineDimOption := LineDimOption1;
ColumnDimOption := ColumnDimOption1;

LineDimCode := LineDimCode1;
ColumnDimCode := ColumnDimCode1;

PeriodType := PeriodType1;
ShowOppositeSign := ShowOppositeSign1;

COPYARRAY(MatrixColumnCaptions,MatrixColumnCaptions1,1);

PeriodInitialized := PeriodInitialized1;
PeriodType := PeriodType1;
ValueType := ValueType1;
RoundingFactor := RoundingFactor1;
ShowActualBudget := ShowActualBudget1;

// Delete the following lines.
FirstColumn := FirstColumn1;
LastColumn := LastColumn1;
// End of the lines.

ShowColumnName := ShowColumnName1;
NoOfRecords := NoOfRecordsLocal;
END;…

Код замены 4

…PROCEDURE LoadVariables@1(ItemAnalysisView1@1000 : Record 7152;ItemStatisticsBuffer1@1004 : Record 5821;CurrentItemAnalysisViewCode1@1005 : Code[10];
CurrentAnalysisArea1@1003 : 'Sales,Purchase,Inventory';LineDimOption1@1010 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';
ColumnDimOption1@1002 : 'Item,Period,Location,Dimension 1,Dimension 2,Dimension 3';LineDimCode1@1016 : Text[30];ColumnDimCode1@1015 : Text[30];
PeriodType1@1007 : 'Day,Week,Month,Quarter,Year,Accounting Period';ValueType1@1009 : 'Sales Amount,Inventory Value,Sales Quantity';
RoundingFactor1@1011 : 'None,1,1000,1000000';ShowActualBudget1@1012 : 'Actual Amounts,Budgeted Amounts,Variance,Variance%,Index%';
MatrixColumnCaptions1@1001 : ARRAY [32] OF Text[1024];ShowOppositeSign1@1006 : Boolean;PeriodInitialized1@1008 : Boolean;
ShowColumnName1@1017 : Boolean;NoOfRecordsLocal@1018 : Integer);

BEGIN
CLEAR(MatrixColumnCaptions);
ItemAnalysisView.COPY(ItemAnalysisView1);

CurrentItemAnalysisViewCode := CurrentItemAnalysisViewCode1;
CurrentAnalysisArea := CurrentAnalysisArea1;

LineDimOption := LineDimOption1;
ColumnDimOption := ColumnDimOption1;

LineDimCode := LineDimCode1;
ColumnDimCode := ColumnDimCode1;

PeriodType := PeriodType1;
ShowOppositeSign := ShowOppositeSign1;

COPYARRAY(MatrixColumnCaptions,MatrixColumnCaptions1,1);

PeriodInitialized := PeriodInitialized1;
PeriodType := PeriodType1;
ValueType := ValueType1;
RoundingFactor := RoundingFactor1;
ShowActualBudget := ShowActualBudget1;

ShowColumnName := ShowColumnName1;
NoOfRecords := NoOfRecordsLocal;
END;…

Измените код функции FieldDrillDown в форме Sales Analysis by Dim Matrix (9227) следующим образом:
Существующий код

BEGIN
CLEAR(DimCodeBufferColumn3);
Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,PeriodInitialized,InternalDateFilter,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

Steps := Ordinal - 1;
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Delete the following lines.
ItemFilter1,LocationFilter1,PeriodType,DateFilter1,
Dim1Filter1,Dim2Filter1,Dim3Filter1);
// End of the lines.

ItemAnalysisMgt.DrillDown(
CurrentAnalysisArea,ItemStatisticsBuffer,CurrentItemAnalysisViewCode,

// Delete the following lines.
ItemFilter1,LocationFilter1,DateFilter1,
Dim1Filter1,Dim2Filter1,Dim3Filter1,BudgetFilter,
// End of the lines.

LineDimOption,Rec,
ColumnDimOption,DimCodeBufferColumn3,
TRUE,ValueType,ShowActualBudget);
END;

Код замены

BEGIN
CLEAR(DimCodeBufferColumn3);
Which := '-';

ItemAnalysisMgt.FindRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Which,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,PeriodInitialized,InternalDateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

Steps := Ordinal - 1;
ItemAnalysisMgt.NextRec(
ItemAnalysisView,ColumnDimOption,DimCodeBufferColumn3,Steps,

// Add the following lines.
ItemFilter,LocationFilter,PeriodType,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter);
// End of the lines.

ItemAnalysisMgt.DrillDown(
CurrentAnalysisArea,ItemStatisticsBuffer,CurrentItemAnalysisViewCode,

// Add the following lines.
ItemFilter,LocationFilter,DateFilter,
Dim1Filter,Dim2Filter,Dim3Filter,BudgetFilter,
// End of the lines.

LineDimOption,Rec,
ColumnDimOption,DimCodeBufferColumn3,
TRUE,ValueType,ShowActualBudget);
END;

Удалите функцию ApplyColumnFilter в форме Sales Analysis by Dim Matrix (9227) следующим образом:

// Delete the following lines.
BEGIN
CLEAR(ItemFilter1);
CLEAR(LocationFilter1);
CLEAR(DateFilter1);
CLEAR(Dim1Filter1);
CLEAR(Dim2Filter1);
CLEAR(Dim3Filter1);

CASE ColumnDimOption OF
ColumnDimOption::Item:
BEGIN
IF ItemFilter <> '' THEN
ItemFilter1 := ItemFilter + '&';
ItemFilter1 := ItemFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Location:
BEGIN
ItemFilter1 := ItemFilter;
IF LocationFilter <> '' THEN
LocationFilter1 := LocationFilter + '&';
LocationFilter1 := LocationFilter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::Period:
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
IF DateFilter <> '' THEN
DateFilter1 := DateFilter
ELSE
DateFilter1 := FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 1":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
IF Dim1Filter <> '' THEN
Dim1Filter1 := Dim1Filter + '&';
Dim1Filter1 := Dim1Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim2Filter1 := Dim2Filter;
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 2":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
IF Dim2Filter <> '' THEN
Dim2Filter1 := Dim2Filter + '&';
Dim2Filter1 := Dim2Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
Dim3Filter1 := Dim3Filter;
END;
ColumnDimOption::"Dimension 3":
BEGIN
ItemFilter1 := ItemFilter;
LocationFilter1 := LocationFilter;
DateFilter1 := DateFilter;
Dim1Filter1 := Dim1Filter;
Dim2Filter1 := Dim2Filter;
IF Dim3Filter <> '' THEN
Dim3Filter1 := Dim3Filter + '&';
Dim3Filter1 := Dim3Filter1 + FORMAT(FirstColumn) + '..' + FORMAT(LastColumn);
END;
END;
END;

BEGIN
END.
}
}
// End of the lines.

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

Для применения этого исправления необходимо установить Microsoft Dynamics NAV 2009 с пакетом обновления 1 (SP1).

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

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

Состояние

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

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

Проблема

Решение

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

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

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

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

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

Состояние

Полезны ли эти сведения?

Спасибо за ваш отзыв!