Nie można wprowadzić budżetu kosztowego w księgowości kosztów w kliencie RoleTailored (RTC) w szwajcarskiej wersji programu Microsoft Dynamics 2009

Dotyczy

Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1

Ten artykuł dotyczy funkcji Microsoft Dynamics NAV w następujących krajach i językach.

Francuski (Szwajcaria) (fr-ch)
Niemiecki (Szwajcaria) (de-ch)
Włoski (Szwajcaria) (it-ch)

Objawy

Po otwarciu macierzy budżetu w widoku Księga kosztów w kliencie RoleTailored (RTC) w szwajcarskiej wersji programu Microsoft Dynamics 2009 nie można edytować wartości w macierzy budżetowej. Dlatego nie można wprowadzić budżetu kosztowego w księgowości kosztów.

Ten problem występuje w następujących produktach:

Szwajcarska wersja programu Microsoft Dynamics NAV 2009 R2
Dodatek Service Pack 1 (SP1) dla szwajcarskiej wersji oprogramowania Microsoft Dynamics NAV 2009

Rozwiązanie

Informacje dotyczące poprawek

Obsługiwana poprawka jest teraz dostępna od firmy Microsoft. Jednak jego celem jest tylko naprawienie problemu opisanego w tym artykule. Zastosuj ją tylko do systemów, w których występuje ten konkretny problem. Ta poprawka może wymagać dodatkowych testów. Dlatego jeśli ten problem cię nie dotyczy poważnie, zalecamy poczekanie na kolejny dodatek Service Pack dla oprogramowania Microsoft Dynamics NAV 2009 lub następną wersję microsoft Dynamics NAV zawierającą tę poprawkę.

Uwaga W specjalnych przypadkach opłaty, które zwykle naliczane są w związku z połączeniami pomocy technicznej, mogą zostać anulowane, jeśli specjalista pomocy technicznej w zakresie oprogramowania Microsoft Dynamics i produktów pokrewnych ustali, że określona aktualizacja rozwiąże problem. Typowe koszty pomocy technicznej będą miały zastosowanie do dodatkowych pytań dotyczących pomocy technicznej i problemów, które nie kwalifikują się do określonej aktualizacji.

Informacje o instalacji

Firma Microsoft udostępnia przykłady programowania wyłącznie w celach ilustracyjnych, bez gwarancji wyrażonej lub dorozumianej. To obejmuje między innymi dorozumiane gwarancje przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że znasz język programowania, który jest demonstrowany, oraz narzędzia, które są używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu funkcjonalności danej procedury. Nie będą jednak modyfikować tych przykładów, aby zapewnić dodatkową funkcjonalność lub konstruować procedur spełniających specyficzne wymagania użytkownika.

Uwaga Przed zainstalowaniem tej poprawki upewnij się, że wszyscy użytkownicy kliencki programu Microsoft Dynamics NAV wylogowali się z systemu. Dotyczy to usług Microsoft Dynamics NAV Application Server (NAS). Należy być jedynym użytkownikiem klienckim, który jest zalogowany podczas implementowania tej poprawki.

Aby zaimplementować tę poprawkę, musisz mieć licencję dewelopera.

Zalecamy przypisanie do konta użytkownika w oknie Logowania systemu Windows lub w oknie Logowania bazy danych identyfikator roli "SUPER". Jeśli do konta użytkownika nie można przypisać identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:

Uprawnienie Modyfikuj dla obiektu, który ma zostać zmieniony.
Uprawnienie Execute dla obiektu System Object ID 5210 i obiektu System Object ID 9015.

Uwaga Nie musisz mieć praw do magazynów danych, chyba że musisz wykonać naprawę danych.

Zmiany kodu

Uwaga Przed zastosowaniem poprawek do komputerów produkcyjnych należy zawsze testować poprawki kodu w środowisku kontrolowanym.

Aby rozwiązać ten problem, wykonaj następujące czynności:

Zmień kod we właściwościach w formularzu Budżet kosztowy na macierz okresu (36883) w następujący sposób:
Istniejący kod

}
PROPERTIES
{
Width=20790;
Height=6380;

// Delete the following line.
Editable=No;
// End of the deleted line.

CaptionML=ENU=Cost Budget per Period Matrix;
InsertAllowed=No;
DeleteAllowed=No;
LinksAllowed=No;
SourceTable=Table3010551;

Kod zastępczy

}
PROPERTIES
{
Width=20790;
Height=6380;
CaptionML=ENU=Cost Budget per Period Matrix;
InsertAllowed=No;
DeleteAllowed=No;
LinksAllowed=No;
SourceTable=Table3010551;

Zmień kod w kontrolkach w formularzu Budżet kosztowy na macierz okresu (36883) w następujący sposób:
Istniejący kod 1

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field1.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(1);
END;
}
{ 1051;Label ;0 ;0 ;0 ;0 ;ParentControl=1015;

Kod zastępczy 1

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field1.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(1);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(1);
END;
}
{ 1051;Label ;0 ;0 ;0 ;0 ;ParentControl=1015;

Istniejący kod 2

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field2.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(2);
END;
}
{ 1052;Label ;0 ;0 ;0 ;0 ;ParentControl=1016;

Kod zastępczy 2

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field2.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(2);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(2);
END;
}
{ 1052;Label ;0 ;0 ;0 ;0 ;ParentControl=1016;

Istniejący kod 3

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field3.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(3);
END;
}
{ 1053;Label ;0 ;0 ;0 ;0 ;ParentControl=1017;

Kod zastępczy 3

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field3.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(3);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(3);
END;
}
{ 1053;Label ;0 ;0 ;0 ;0 ;ParentControl=1017;

Istniejący kod 4

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field4.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(4);
END;
}
{ 1054;Label ;0 ;0 ;0 ;0 ;ParentControl=1018;

Kod zastępczy 4

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field4.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(4);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(4);
END;
}
{ 1054;Label ;0 ;0 ;0 ;0 ;ParentControl=1018;

Istniejący kod 5

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field5.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(5);
END;
}
{ 1055;Label ;0 ;0 ;0 ;0 ;ParentControl=1019;

Kod zastępczy 5

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field5.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(5);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(5);
END;
}
{ 1055;Label ;0 ;0 ;0 ;0 ;ParentControl=1019;

Istniejący kod 6

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field6.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(6);
END;
}
{ 1056;Label ;0 ;0 ;0 ;0 ;ParentControl=1020;

Kod zastępczy 6

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field6.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(6);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(6);
END;
}
{ 1056;Label ;0 ;0 ;0 ;0 ;ParentControl=1020;

Istniejący kod 7

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field7.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(7);
END;
}
{ 1057;Label ;0 ;0 ;0 ;0 ;ParentControl=1021;

Kod zastępczy 7

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field7.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(7);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(7);
END;
}
{ 1057;Label ;0 ;0 ;0 ;0 ;ParentControl=1021;

Istniejący kod 8

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field8.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(8);
END;
}
{ 1058;Label ;0 ;0 ;0 ;0 ;ParentControl=1022;

Kod zastępczy 8

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field8.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(8);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(8);
END;
}
{ 1058;Label ;0 ;0 ;0 ;0 ;ParentControl=1022;

Istniejący kod 9

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field9.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(9);
END;
}
{ 1059;Label ;0 ;0 ;0 ;0 ;ParentControl=1023;

Kod zastępczy 9

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field9.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(9);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(9);
END;
}
{ 1059;Label ;0 ;0 ;0 ;0 ;ParentControl=1023;

Istniejący kod 10

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field10.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(10);
END;
}
{ 1060;Label ;0 ;0 ;0 ;0 ;ParentControl=1024;

Kod zastępczy 10

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field10.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(10);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(10);
END;
}
{ 1060;Label ;0 ;0 ;0 ;0 ;ParentControl=1024;

Istniejący kod 11

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field11.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(11);
END;
}
{ 1061;Label ;0 ;0 ;0 ;0 ;ParentControl=1025;

Kod zastępczy 11

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field11.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(11);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(11);
END;
}
{ 1061;Label ;0 ;0 ;0 ;0 ;ParentControl=1025;

Istniejący kod 12

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field12.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

OnDrillDown=BEGIN
MATRIX_OnDrillDown(12);
END;
}
{ 1062;Label ;0 ;0 ;0 ;0 ;ParentControl=1026;

Kod zastępczy 12

IF "Line Type" <> "Line Type"::"Cost Type" THEN
CurrForm.Field12.UPDATEFONTBOLD := TRUE;
// CA0002.end
END;

// Add the following lines.
OnValidate=BEGIN
UpdateAmount(12);
END;
// End of the added lines.

OnDrillDown=BEGIN
MATRIX_OnDrillDown(12);
END;
}
{ 1062;Label ;0 ;0 ;0 ;0 ;ParentControl=1026;

Zmień kod zmiennych globalnych w formularzu Budżet kosztowy na macierz okresu (36883) w następujący sposób:
Istniejący kod

BudgetFilter@1150004 : Code[10];
MATRIX_ColumnCaption@1150005 : ARRAY [12] OF Text[80];
AmtType@1150006 : 'Balance at Date,Net Change';
RoundingFactor@1150007 : 'None,1,1000,1000000';
MATRIX_CellData@1150008 : ARRAY [32] OF Decimal;

LOCAL PROCEDURE SetDateFilter@1150000(MATRIX_ColumnOrdinal@1150000 : Integer);
BEGIN
IF AmtType = AmtType::"Net Change" THEN
IF MatrixRecords[MATRIX_ColumnOrdinal]."Period Start" = MatrixRecords[MATRIX_ColumnOrdinal]."Period End" THEN

Kod zastępczy

BudgetFilter@1150004 : Code[10];
MATRIX_ColumnCaption@1150005 : ARRAY [12] OF Text[80];
AmtType@1150006 : 'Balance at Date,Net Change';
RoundingFactor@1150007 : 'None,1,1000,1000000';
MATRIX_CellData@1150008 : ARRAY [32] OF Decimal;

// Add the following lines.
Text000@1150011 : TextConst 'ENU=Set View As to Net Change before you edit entries.';
Text001@1150012 : TextConst 'ENU=%1 or %2 must not be blank.';
CurrRegNo@11500010 : Integer;
// End of the added lines.

LOCAL PROCEDURE SetDateFilter@1150000(MATRIX_ColumnOrdinal@1150000 : Integer);
BEGIN
IF AmtType = AmtType::"Net Change" THEN
IF MatrixRecords[MATRIX_ColumnOrdinal]."Period Start" = MatrixRecords[MATRIX_ColumnOrdinal]."Period End" THEN

Zmień kod w funkcji UpdateAmount w formularzu Budżet kosztowy na macierz okresu (36883) w następujący sposób:
Istniejący kod

RoundingFactor::"1000000":
MATRIX_CellData[ColumnID] := ROUND(MATRIX_CellData[ColumnID] / 1000000,0.1);
END;
END;

BEGIN
{
<changelog>
<add id="CA0001" dev="kcools" date="2007-02-21" area="COSTACCTNG" feature="PSCORS1209"
releaseversion="CACEM6.00">

Kod zastępczy

RoundingFactor::"1000000":
MATRIX_CellData[ColumnID] := ROUND(MATRIX_CellData[ColumnID] / 1000000,0.1);
END;
END;

// Add the following lines.
LOCAL PROCEDURE UpdateAmount@1150005(ColumnID@1150000 : Integer);
BEGIN
IF AmtType <> AmtType::"Net Change" THEN
ERROR(Text000);

IF (CostCenterFilter = '') AND (CostObjectFilter = '') THEN
ERROR(Text001,FIELDCAPTION("Cost Center Filter"),FIELDCAPTION("Cost Object Filter"));

SetFilters(ColumnID);
CALCFIELDS("Budget Amount");
InsertMatrixCostBudgetEntry(CurrRegNo,ColumnID);
END;

LOCAL PROCEDURE SetFilters@1150006(ColumnID@1150000 : Integer);
BEGIN
SetDateFilter(ColumnID);
SETFILTER("Cost Center Filter",CostCenterFilter);
SETFILTER("Cost Object Filter",CostObjectFilter);
SETFILTER("Budget Filter",BudgetFilter);
END;

LOCAL PROCEDURE InsertMatrixCostBudgetEntry@1150007(VAR RegNo@1150000 : Integer;ColumnID@1150001 : Integer);
VAR
MatrixCostBudgetEntry@1150003 : Record 3010571;
BEGIN
MatrixCostBudgetEntry.INIT;
MatrixCostBudgetEntry."Budget Name" := BudgetFilter;
MatrixCostBudgetEntry."Cost Type No." := "No.";
MatrixCostBudgetEntry.Date := MatrixRecords[ColumnID]."Period Start";
MatrixCostBudgetEntry."Cost Center Code" := CostCenterFilter;
MatrixCostBudgetEntry."Cost Object Code" := CostObjectFilter;
MatrixCostBudgetEntry.Amount := MATRIX_CellData[ColumnID] - "Budget Amount";
MatrixCostBudgetEntry.INSERT(TRUE);
END;
// End of the added lines.

BEGIN
{
<changelog>
<add id="CA0001" dev="kcools" date="2007-02-21" area="COSTACCTNG" feature="PSCORS1209"
releaseversion="CACEM6.00">

Wymagania wstępne

Aby zastosować tę poprawkę, musisz mieć zainstalowany jeden z następujących produktów:

Szwajcarska wersja programu Microsoft Dynamics NAV 2009 R2
Dodatek Service Pack 1 dla szwajcarskiej wersji oprogramowania Microsoft Dynamics NAV 2009

Informacje o usunięciu

Nie można usunąć tej poprawki.

Stan

Firma Microsoft potwierdziła, że jest to problem dotyczący produktów firmy Microsoft wymienionych w sekcji „Dotyczy”.

Uwaga Jest to artykuł "SZYBKIE PUBLIKOWANIE" utworzony bezpośrednio z poziomu organizacji pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym artykule są dostarczane w stanie odpowiadającym na pojawiające się problemy. Ze względu na szybkość jego udostępnienia materiały mogą zawierać błędy typograficzne i mogą zostać poprawione w dowolnym momencie bez powiadomienia. Zobacz Warunki użytkowania , aby zapoznać się z innymi zagadnieniami.

Nie można wprowadzić budżetu kosztowego w księgowości kosztów w kliencie RoleTailored (RTC) w szwajcarskiej wersji programu Microsoft Dynamics 2009

Objawy

Rozwiązanie

Informacje dotyczące poprawek

Informacje o instalacji

Zmiany kodu

Wymagania wstępne

Informacje o usunięciu

Stan

Czy te informacje były pomocne?

Dziękujemy za opinię!