คุณไม่สามารถป้อนงบประมาณต้นทุนในการลงบัญชีต้นทุนสินค้าในไคลเอนต์บทบาทที่ปรับ (RTC) ใน Microsoft Dynamics 2009 เวอร์ชันสวิส

นำไปใช้กับ
Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1

บทความนี้ใช้กับ Microsoft Dynamics NAV สําหรับประเทศและภาษาต่อไปนี้

  • ฝรั่งเศส (สวิตเซอร์แลนด์) (fr-ch)
  • เยอรมัน (สวิตเซอร์แลนด์) (de-ch)
  • อิตาลี (สวิตเซอร์แลนด์) (it-ch)

อาการ

เมื่อคุณเปิดเมทริกซ์งบประมาณใน Cost Accounting ในไคลเอ็นต์บทบาทที่ปรับ (RTC) ใน Microsoft Dynamics 2009 เวอร์ชันสวิส คุณไม่สามารถแก้ไขค่าในเมทริกซ์งบประมาณ ดังนั้น คุณจึงไม่สามารถป้อนงบประมาณต้นทุนในการลงบัญชีต้นทุนสินค้าได้

ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

  • Microsoft Dynamics NAV 2009 R2 เวอร์ชันสวิส
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) เวอร์ชันสวิส

      

การแก้ปัญหา

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนที่ได้รับการสนับสนุนจาก Microsoft พร้อมใช้งานแล้ว อย่างไรก็ตาม มีไว้เพื่อแก้ไขปัญหาที่อธิบายไว้ในบทความนี้เท่านั้น นําไปใช้กับระบบที่พบปัญหานี้โดยเฉพาะเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณไม่ได้รับผลกระทบอย่างร้ายแรงจากปัญหานี้ เราขอแนะนําให้คุณรอ Service Pack 2009 สําหรับ Microsoft Dynamics NAV 2009 ถัดไป หรือ Microsoft Dynamics NAV เวอร์ชันถัดไปที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมสําหรับการโทรติดต่อฝ่ายสนับสนุนตามปกติอาจถูกยกเลิกถ้าผู้เชี่ยวชาญฝ่ายสนับสนุนทางเทคนิคสําหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องระบุว่าการอัปเดตเฉพาะจะแก้ไขปัญหาของคุณได้ ค่าใช้จ่ายในการสนับสนุนปกติจะใช้กับคําถามและปัญหาการสนับสนุนเพิ่มเติมที่ไม่มีคุณสมบัติสําหรับการอัปเดตเฉพาะที่สงสัย

ข้อมูลการติดตั้ง

Microsoft แสดงตัวอย่างการเขียนโปรแกรมสําหรับภาพประกอบเท่านั้น โดยไม่มีการรับประกันทั้งโดยชัดแจ้งหรือโดยนัย ซึ่งรวมถึงแต่ไม่จํากัดเพียงการรับประกันโดยนัยถึงความสามารถในเชิงพาณิชย์หรือความเหมาะสมสําหรับวัตถุประสงค์เฉพาะ บทความนี้จะถือว่าคุณคุ้นเคยกับภาษาการเขียนโปรแกรมที่กําลังแสดงอยู่ และมีเครื่องมือที่ใช้สําหรับสร้างและแก้ไขจุดบกพร่องของกระบวนการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายการทํางานของกระบวนการเฉพาะได้ อย่างไรก็ตาม จะไม่มีการปรับเปลี่ยนตัวอย่างเหล่านี้เพื่อให้มีฟังก์ชันการทํางานที่เพิ่มขึ้นหรือสร้างกระบวนการเพื่อตอบสนองความต้องการเฉพาะของคุณ

หมายเหตุ ก่อนที่คุณจะติดตั้งโปรแกรมแก้ไขด่วนนี้ ตรวจสอบว่าผู้ใช้ไคลเอนต์ Microsoft Dynamics NAV ทั้งหมดออกจากระบบ ซึ่งรวมถึงบริการ Microsoft Dynamics NAV Application Server (NAS) คุณควรเป็นผู้ใช้ไคลเอนต์เท่านั้นที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้

เราขอแนะนําให้ใช้บัญชีผู้ใช้ในหน้าต่าง ล็อกอินของ Windows หรือในหน้าต่าง ล็อกอินของฐานข้อมูล ถูกกําหนด ID บทบาท "SUPER" หากบัญชีผู้ใช้ไม่สามารถกําหนดรหัสบทบาท "SUPER" ได้ คุณต้องตรวจสอบว่าบัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:

  • สิทธิ์ในการปรับเปลี่ยนสําหรับวัตถุที่คุณจะเปลี่ยนแปลง
  • สิทธิ์ Execute สําหรับวัตถุ System Object ID 5210 และสําหรับวัตถุ System Object ID 9015

หมายเหตุ คุณไม่มีสิทธิ์ในที่เก็บข้อมูล เว้นแต่คุณจะต้องดําเนินการซ่อมแซมข้อมูล

การเปลี่ยนแปลงโค้ด

หมายเหตุ ทดสอบการแก้ไขรหัสเสมอในสภาพแวดล้อมที่ควบคุมก่อนที่คุณจะนําการแก้ไขไปใช้กับคอมพิวเตอร์การผลิตของคุณ

เมื่อต้องการแก้ไขปัญหานี้ ให้ทําตามขั้นตอนต่อไปนี้:

  1. เปลี่ยนรหัสในคุณสมบัติในแบบฟอร์ม งบประมาณต้นทุนต่อเมทริกซ์รอบระยะเวลา (36883) ดังนี้:
    รหัสที่มีอยู่

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

    รหัสทดแทน

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

  2. เปลี่ยนรหัสในตัวควบคุมในแบบฟอร์ม งบประมาณต้นทุนต่อเมตริกซ์รอบระยะเวลา (36883) ดังนี้:
    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

    รหัสที่มีอยู่ 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;

    รหัสทดแทน 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;

  3. เปลี่ยนรหัสในตัวแปรสากลในแบบฟอร์ม งบประมาณต้นทุนต่อรอบระยะเวลา (36883) ดังนี้:
    รหัสที่มีอยู่

    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

    รหัสทดแทน

    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

  4. เปลี่ยนรหัสในฟังก์ชัน UpdateAmount ในแบบฟอร์ม งบประมาณต้นทุนต่อเมทริกซ์รอบระยะเวลา (36883) ดังนี้:
    รหัสที่มีอยู่

    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">

    รหัสทดแทน

    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">

          

ข้อกำหนดเบื้องต้น

คุณต้องติดตั้งผลิตภัณฑ์ใดผลิตภัณฑ์หนึ่งต่อไปนี้เพื่อใช้โปรแกรมแก้ไขด่วนนี้:

  • Microsoft Dynamics NAV 2009 R2 เวอร์ชันสวิส
  • Microsoft Dynamics NAV 2009 Service Pack 1 เวอร์ชันสวิส

ลบข้อมูลออก

คุณไม่สามารถลบโปรแกรมแก้ไขด่วนนี้ได้

สถานะ

Microsoft ได้ยืนยันว่านี่เป็นปัญหาที่เกิดขึ้นกับผลิตภัณฑ์ของ Microsoft ที่แสดงไว้ในส่วน "นำไปใช้กับ"

หมายเหตุ นี่คือบทความ "เผยแพร่อย่างรวดเร็ว" ที่สร้างขึ้นโดยตรงจากภายในองค์กรสนับสนุนของ Microsoft ข้อมูลที่อยู่ในที่นี้มีให้เพื่อตอบสนองต่อปัญหาที่เกิดขึ้นใหม่ เนื่องจากความเร็วในการทําให้พร้อมใช้งานวัสดุอาจรวมถึงข้อผิดพลาดในการพิมพ์และอาจได้รับการแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดู ข้อตกลงการใช้งาน สําหรับข้อควรพิจารณาอื่นๆ