In het rapport Verkoopanalyse per dimmatrix worden onjuiste waarden weergegeven als het selectievakje Kolomnaam weergeven is ingeschakeld in een verkoopanalyse per dimensie in de op rollen afgestemde client in Microsoft Dynamics NAV 2009 Service Pack 1

Van toepassing op

Dynamics NAV 2009 Service Pack 1

Dit artikel is van toepassing op Microsoft Dynamics NAV voor alle landen en taalinstellingen.

Symptomen

Stel dat u het selectievakje Kolomnaam weergeven inschakelt in een verkoopanalyse per dimensie in de RTC (RoleTailored client) in Microsoft Dynamic NAV 2009 Service Pack 1 (SP1). Wanneer u de functie Matrix weergeven uitvoert op de verkoopanalyse per dimensie, worden de waarden onjuist weergegeven in het rapport Verkoopanalyse per dimmatrix.

Oplossing

Hotfix-informatie

Er is nu een ondersteunde hotfix beschikbaar bij Microsoft. Het is echter alleen bedoeld om het probleem op te lossen dat in dit artikel wordt beschreven. Pas deze alleen toe op systemen die dit specifieke probleem ondervinden. Deze hotfix kan aanvullende tests ontvangen. Als u niet ernstig last hebt van dit probleem, raden we u daarom aan te wachten op het volgende Microsoft Dynamics NAV-servicepack of de volgende Microsoft Dynamics NAV-versie die deze hotfix bevat.

Opmerking In speciale gevallen kunnen kosten die gewoonlijk worden gemaakt voor ondersteuningsoproepen worden geannuleerd als een technische ondersteuningsmedewerker voor Microsoft Dynamics en gerelateerde producten vaststelt dat een specifieke update uw probleem oplost. De gebruikelijke ondersteuningskosten zijn van toepassing op aanvullende ondersteuningsvragen en problemen die niet in aanmerking komen voor de specifieke update in kwestie.

Installatie-informatie

Microsoft biedt programmeervoorbeelden uitsluitend ter illustratie, zonder uitdrukkelijke of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal die wordt gedemonstreerd en met de hulpprogramma's die worden gebruikt om procedures te maken en fouten op te sporen. Microsoft-ondersteuningstechnici kunnen helpen bij het uitleggen van de functionaliteit van een bepaalde procedure, maar ze zullen deze voorbeelden niet wijzigen om extra functionaliteit te bieden of procedures te maken die voldoen aan uw specifieke vereisten.

Opmerking Voordat u deze hotfix installeert, controleert u of alle Microsoft Navision-clientgebruikers zijn afgemeld bij het systeem. Dit geldt ook voor gebruikers van Microsoft Navision Application Services (NAS). U moet de enige clientgebruiker zijn die is aangemeld wanneer u deze hotfix implementeert.

Als u deze hotfix wilt implementeren, moet u een ontwikkelaarslicentie hebben.

We raden u aan om aan het gebruikersaccount in het venster Windows-aanmeldingen of in het venster Databaseaanmeldingen de rol-id 'SUPER' toe te wijzen. Als de rol-id 'SUPER' niet kan worden toegewezen aan het gebruikersaccount, moet u controleren of het gebruikersaccount de volgende machtigingen heeft:

De machtiging Wijzigen voor het object dat u gaat wijzigen.
De machtiging Uitvoeren voor het object Systeemobject-id 5210 en voor het object Systeemobject-id 9015.

Opmerking U hoeft geen rechten te hebben voor de gegevensarchieven, tenzij u gegevensherstel moet uitvoeren.

Codewijzigingen

Opmerking Test altijd codecorrecties in een beheerde omgeving voordat u de correcties toepast op uw productiecomputers.
Voer de volgende stappen uit om dit probleem op te lossen:

Wijzig de code in de Purch. Analyse per dimvorm (9224) als volgt:
Bestaande code 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];
...

Vervangende code 1

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

Bestaande code 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);

...

Vervangende code 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);
...

Wijzig de code in de functie FillColumnsLocation in purch. Analyse op Dim-formulier (9224) als volgt:
Bestaande code

...

BEGIN
CLEAR(MatrixColumnCaptions);
i := 1;

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

...

Vervangende code

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

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

...

Wijzig de code in de functie ShowMatrix in purch. Analyse op Dim-formulier (9224) als volgt:
Bestaande code

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

...

Vervangende code

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

...

Verwijder de functie ApplyColumnFilter in purch. Analyse op Dim-formulier (9224) als volgt:

// 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.

Wijzig de code in de eigenschappen in purch. Analyse per dimmatrixformulier (9225) als volgt:
Bestaande code

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

// Delete the following line.
ApplyColumnFilter;

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

Vervangende code

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

...

Wijzig de code in de Purch. Analyse op dimmatrixformulier (9225) als volgt:
Bestaande code 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;
}
...

Vervangende code 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;
}
...

Bestaande code 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;
...

Vervangende code 2

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

Bestaande code 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;...

Vervangende code 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;
...

Wijzig de code in de functie FieldDrillDown in purch. Analyse per dimmatrixformulier (9225) als volgt:
Bestaande code

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;

Vervangende code

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;

Verwijder de functie ApplyColumnFilter in purch. Analyse per dimmatrixformulier (9225) als volgt:

// 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.

Wijzig de code in het formulier Verkoopanalyse per dim (9226) als volgt:
Bestaande code 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];
...

Vervangende code 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];
...

Bestaande code 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);...

Vervangende code 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);
...

Wijzig de code in de functie FillColumnsLocation in het formulier Sales Analysis by Dim (9226) als volgt:
Bestaande code

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

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

Vervangende code

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

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

Wijzig de code in de functie FillColumnsDim in het formulier Sales Analysis by Dim (9226) als volgt:
Bestaande code

...BEGIN
CLEAR(MatrixColumnCaptions);

// Delete the following line.
ApplyColumnFilter;

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

Vervangende code

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

Wijzig de code in de functie ShowMatrix in het formulier Sales Analysis by Dim (9226) als volgt:
Bestaande code

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

Vervangende code

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

Verwijder de functie ApplyColumnFilter in het formulier Sales Analysis by Dim (9226) als volgt:

// 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.

Wijzig de code in het formulier Sales Analysis by Dim Matrix (9227) als volgt:
Bestaande code 1

…
SourceTable=Table367;
OnOpenForm=BEGIN

// Delete the following line.
ApplyColumnFilter;

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

Vervangende code 1

…
SourceTable=Table367;
OnOpenForm=BEGIN

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

Bestaande code 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;
}
…

Vervangende code 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;
}
…

Bestaande code 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;
…

Vervangende code 3

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

Bestaande code 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;…

Vervangende code 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;…

Wijzig de code in de functie FieldDrillDown in het formulier Sales Analysis by Dim Matrix (9227) als volgt:
Bestaande code

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;

Vervangende code

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;

Verwijder de functie ApplyColumnFilter in het formulier Sales Analysis by Dim Matrix (9227) als volgt:

// 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.

Vereisten

U moet Microsoft Dynamics NAV 2009 Service Pack 1 hebben geïnstalleerd om deze hotfix toe te passen.

Verwijderingsgegevens

U kunt deze hotfix niet verwijderen.

Status

Microsoft heeft bevestigd dat dit een probleem is bij de Microsoft-producten die worden vermeld in het gedeelte 'Van toepassing op'.

Opmerking Dit is een artikel 'FAST PUBLISH' dat rechtstreeks vanuit de microsoft-ondersteuningsorganisatie is gemaakt. De hierin opgenomen informatie wordt als zodanig verstrekt als reactie op nieuwe problemen. Als gevolg van de snelheid waarmee het beschikbaar wordt gesteld, kunnen de materialen typografische fouten bevatten en te allen tijde zonder voorafgaande kennisgeving worden herzien. Zie Gebruiksvoorwaarden voor andere overwegingen.

In het rapport Verkoopanalyse per dimmatrix worden onjuiste waarden weergegeven als het selectievakje Kolomnaam weergeven is ingeschakeld in een verkoopanalyse per dimensie in de op rollen afgestemde client in Microsoft Dynamics NAV 2009 Service Pack 1

Symptomen

Oplossing

Hotfix-informatie

Installatie-informatie

Codewijzigingen

Vereisten

Verwijderingsgegevens

Status

Vond je deze informatie nuttig?

Bedankt voor uw feedback.