บรรทัดการจำแนกประเภทจะถูกลบออกโดยไม่คาดคิดเมื่อคุณคลิกการค้นหาในแบบฟอร์มคำขอรายงาน 505 ใน Microsoft Dynamics NAV 2009 รุ่นภาษาเยอรมัน

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

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

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

การเปลี่ยนแปลงรหัส

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ เปลี่ยนรหัสในตารางเซ็ตอัพการลงรายการบัญชี VAT (325) เมื่อต้องการทำเช่นนี้ ให้ทำตามขั้นตอนเหล่านี้

1. เปลี่ยนรหัสของคุณสมบัติเป็นดังนี้:
   รหัสที่อยู่ 1

   ... Width=16500;
   
   // Delete the following line.
    Height=7370;
   
   SaveValues=Yes;
   ...
   
   

   รหัสแทนที่ 1

   ...Width=16500;
   
   // Add the following line.
     Height=8140;
   
   SaveValues=Yes;
   ...
   
   

   รหัสที่มีอยู่ 2

   ...IF NOT XBRLTaxonomy.GET(CurrentTaxonomy) THEN
   
   // Delete the following line.
     IF NOT XBRLTaxonomy.FIND('-') THEN
   
   XBRLTaxonomy.INIT;
   ...
   
   

   รหัสแทนที่ 2

   ...IF NOT XBRLTaxonomy.GET(CurrentTaxonomy) THEN
   
   // Add the following line.
     IF NOT XBRLTaxonomy.FINDFIRST THEN
   
   XBRLTaxonomy.INIT;
   ...
   
   

   รหัสที่มีอยู่ 3

   ...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier",CurrentLang);
   
   // Delete the following line.
     IF XBRLTaxonomyLabel.FIND('-') THEN
   
   CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
   ...
   
   

   รหัสแทนที่ 3

   ...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier",CurrentLang);
   
   // Add the following line.
     IF XBRLTaxonomyLabel.FINDFIRST THEN
   
   CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
   ...
   
   

   รหัสที่มีอยู่ 4

   ...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier");
   
   // Delete the following line.
     IF XBRLTaxonomyLabel.FIND('-') THEN
   
   CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
   ...
   
   

   รหัสแทนที่ 4

   ...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier");
   
   // Add the following line.
     IF XBRLTaxonomyLabel.FINDFIRST THEN
   
   CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
   ...
   
   

   รหัสที่มีอยู่ 5

   ...// Delete the following line.
     SETRANGE("Label Language Filter",CurrentLang);
   ...
   
   

   รหัสแทนที่ 5

   ...// Add the following line.
     InitTempTable(ISSERVICETIER);
   ...
   
   

   รหัสที่มีอยู่ 6

   ...// Delete the following lines.
     IF ISSERVICETIER THEN
     ExpandAll
     ELSE
     InitTempTable;
   // End of the lines.
   
   END;
   ...
   
   

   รหัสแทน 6

   ...// Add the following line.
     SetFiltersAndUpdate;
   
   END;
   ...
   
   

   รหัสที่มีอยู่ 7

   ...// Delete the following lines.
    OnAfterGetRecord=VAR
    XBRLLine@1102601000 : Record 395;
    BEGIN
    IF IsExpanded(Rec) THEN
    ActualExpansionStatus := 1
    ELSE
    IF HasChildren(Rec) THEN
    ActualExpansionStatus := 0
    ELSE
    ActualExpansionStatus := 2;
   // End of the lines.
   ...
   
   

   รหัสแทนที่ 7

   ...// Add the following lines.
    OnFindRecord=VAR
    Found@1001 : Boolean;
    BEGIN
    IF NOT FiltersApplied THEN
    SetFilters;
    FiltersApplied := TRUE;
   // End of the lines.
   ...
   
   

   รหัสที่มีอยู่ 8

   ...// Delete the following lines.
    XBRLLine.GET("XBRL Taxonomy Name","Line No.");
    IF ("Source Type" <> XBRLLine."Source Type") OR
    ("Constant Amount" <> XBRLLine."Constant Amount") OR
    (Description <> XBRLLine.Description)
    THEN BEGIN
    XBRLLine.CALCFIELDS(Label,Information,Rollup,"G/L Map Lines",Notes,Reference);
    Rec := XBRLLine;
    MODIFY;
    END;
   // End of the lines.
   ...
   
   

   รหัสแทนที่ 8

   ...// Add the following lines.
    TempXBRLLine.COPY(Rec);
    Found := TempXBRLLine.FIND(Which);
    Rec := TempXBRLLine;
    EXIT(Found);
    END;
   // End of the lines.
   ...
   
   

   รหัสที่มีอยู่ 9

   ...// Delete the following lines.
    IF Label = '' THEN
    Label := Name;
    END;
   // End of the lines.
   ...
   
   

   รหัสแทนที่ 9

   ...// Add the following lines.
    OnNextRecord=VAR
    ResultSteps@1001 : Integer;
    BEGIN
    TempXBRLLine.COPY(Rec);
    ResultSteps := TempXBRLLine.NEXT(Steps);
    Rec := TempXBRLLine;
    EXIT(ResultSteps);
    END;
   // End of the lines.
   ...
   
   

   รหัสที่มีอยู่ 10

   ...// Delete the following lines.
    OnModifyRecord=VAR
    XBRLLine@1102601000 : Record 395;
    RecRef@1000 : RecordRef;
    xRecRef@1001 : RecordRef;
    ChangeLogMgt@1002 : Codeunit 423;
    BEGIN
    RecRef.GETTABLE(Rec);
    xRecRef.GETTABLE(xRec);
    XBRLLine.GET("XBRL Taxonomy Name","Line No.");
    XBRLLine := Rec;
    XBRLLine.MODIFY;
    Rec := XBRLLine;
    MODIFY;
    ChangeLogMgt.LogModification(RecRef,xRecRef);
    EXIT(FALSE);
    END;
   // End of the lines.
   ...
   
   

   รหัสแทนที่ 10

   ...// Add the following lines.
    OnAfterGetRecord=BEGIN
    IF IsExpanded(Rec) THEN
    ActualExpansionStatus := 1
    ELSE
    IF HasChildren(Rec) THEN
    ActualExpansionStatus := 0
    ELSE
    ActualExpansionStatus := 2;
   // End of the lines.
   ...
   
   

   รหัสที่มีอยู่ 11

   ...// Delete the following lines.
    }
    CONTROLS
    {
    { 1 ;TableBox ;220 ;1760 ;16060;4620 ;HorzGlue=Both;
    VertGlue=Both }
    { 35 ;PictureBox ;0 ;2530 ;550 ;3740 ;ParentControl=1;
    InColumn=Yes;
    BitmapList=47,46;
    CaptionML=ENU=Expand;
    SourceExpr=ActualExpansionStatus;
    OnPush=BEGIN
    ToggleExpandCollapse;
    END;
    }
    { 36 ;Label ;0 ;0 ;0 ;0 ;ParentControl=35;
    InColumnHeading=Yes }
    { 28 ;TextBox ;0 ;3410 ;1700 ;440 ;Visible=No;
    ParentControl=1;
    InColumn=Yes;
    SourceExpr="Line No." }
    { 29 ;Label ;0 ;0 ;0 ;0 ;ParentControl=28;
    InColumnHeading=Yes }
    { 2 ;TextBox ;0 ;0 ;4400 ;0 ;HorzGlue=Both;
    ParentControl=1;
    InColumn=Yes;
    DrillDown=No;
    SourceExpr=Label;
    OnFormat=BEGIN
    IF Level > 0 THEN
    CurrForm.Label.UPDATEINDENT := Level * 220;
   // End of the lines.
   ...
   
   

   รหัสแทนที่ 11

   ...// Add the following lines.
    IF Label = '' THEN
    Label := Name;
    END;
   // End of the lines.
   ...
   
   

   รหัสที่มีอยู่ 12

   ...// Delete the following lines.
    IF (Level = 0) OR (ActualExpansionStatus < 2) THEN
    CurrForm.Label.UPDATEFONTBOLD := TRUE;
    END;
    }
    { 3 ;Label ;0 ;0 ;0 ;0 ;ParentControl=2;
    InColumnHeading=Yes }
    { 4 ;TextBox ;0 ;0 ;550 ;0 ;ParentControl=1;
   // End of the lines.
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 12

   ...// Add the following lines.
     OnAfterGetCurrRecord=VAR
     XBRLLine@1000 : Record 395;
     BEGIN
     XBRLLine.GET("XBRL Taxonomy Name","Line No.");
     IF ("Source Type" <> XBRLLine."Source Type") OR
     ("Constant Amount" <> XBRLLine."Constant Amount") OR
     (Description <> XBRLLine.Description)
     THEN BEGIN
     XBRLLine.CALCFIELDS(Label,Information,Rollup,"G/L Map Lines",Notes,Reference);
       TempXBRLLine := XBRLLine;
     TempXBRLLine.MODIFY;
     END;
     END;
   
     OnModifyRecord=VAR
     XBRLLine@1102601000 : Record 395;
     RecRef@1000 : RecordRef;
     xRecRef@1001 : RecordRef;
     BEGIN
     RecRef.GETTABLE(Rec);
     xRecRef.GETTABLE(TempXBRLLine);
     XBRLLine := Rec;
     XBRLLine.MODIFY;
     TempXBRLLine := XBRLLine;
     TempXBRLLine.MODIFY;
     EXIT(FALSE);
     END;
   
     }
     CONTROLS
     {
     { 1 ;TableBox ;220 ;2530 ;16060;4620 ;HorzGlue=Both;
     VertGlue=Both }
     { 35 ;PictureBox ;0 ;2530 ;550 ;3740 ;ParentControl=1;
   // End of the lines.
   
   InColumn=Yes;
   
   ...
   
   

2. เปลี่ยนรหัสของตัวควบคุมเป็นดังนี้:
   รหัสที่อยู่ 1

   ...InColumn=Yes;
   
   // Delete the following lines.
    SourceExpr="Source Type" }
    { 5 ;Label ;0 ;0 ;0 ;0 ;ParentControl=4;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 1

   ...InColumn=Yes;
   
   // Add the following lines.
    BitmapList=47,46;
    CaptionML=ENU=Expand;
    SourceExpr=ActualExpansionStatus;
    OnPush=BEGIN
    ToggleExpandCollapse;
    END;
    }
    { 36 ;Label ;0 ;0 ;0 ;0 ;ParentControl=35;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 2

   ...InColumnHeading=Yes }
   
   // Delete the following line.
    { 6 ;TextBox ;0 ;0 ;2196 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 2

   ...InColumnHeading=Yes }
   
   // Add the following lines.
    { 28 ;TextBox ;0 ;3410 ;1700 ;440 ;Visible=No;
    ParentControl=1;
   // End of the lines.
   
   InColumn=Yes;
   ...
   
   

   รหัสที่มีอยู่ 3

   ...InColumn=Yes;
   
   // Delete the following lines.
    SourceExpr="Constant Amount" }
    { 7 ;Label ;0 ;0 ;0 ;0 ;ParentControl=6;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 3

   ...InColumn=Yes;
   
   // Add the following lines.
    SourceExpr="Line No." }
    { 29 ;Label ;0 ;0 ;0 ;0 ;ParentControl=28;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 4

   ...InColumnHeading=Yes }
   
   // Delete the following line.
    { 10 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 4

   ...InColumnHeading=Yes }
   
   // Add the following lines.
    { 2 ;TextBox ;0 ;0 ;4400 ;0 ;HorzGlue=Both;
    ParentControl=1;
   // End of the lines.
   
   InColumn=Yes;
   ...
   
   

   รหัสที่มีอยู่ 5

   ...InColumn=Yes;
   
   // Delete the following lines.
    ShowCaption=No;
    SourceExpr=Information }
    { 11 ;Label ;0 ;0 ;0 ;0 ;ParentControl=10;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 5

   ...InColumn=Yes;
   
   // Add the following lines.
    DrillDown=No;
    SourceExpr=Label;
    OnFormat=BEGIN
    IF Level > 0 THEN
    CurrForm.Label.UPDATEINDENT := Level * 220;
   
    IF (Level = 0) OR (ActualExpansionStatus < 2) THEN
    CurrForm.Label.UPDATEFONTBOLD := TRUE;
    END;
    }
    { 3 ;Label ;0 ;0 ;0 ;0 ;ParentControl=2;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 6

   ...InColumnHeading=Yes }
   
   // Delete the following line.
    { 32 ;CheckBox ;10345;2750 ;1700 ;440 ;ParentControl=1;
   
   InColumn=Yes;
   
   ...
   
   

   รหัสแทน 6

   ...InColumnHeading=Yes }
   
   // Add the following line.
    { 4 ;TextBox ;0 ;0 ;550 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสที่มีอยู่ 7

   ...InColumn=Yes;
   
   // Delete the following lines.
    ShowCaption=No;
    SourceExpr=Reference }
    { 33 ;Label ;0 ;0 ;0 ;0 ;ParentControl=32;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 7

   ...InColumn=Yes;
   
   // Add the following lines.
    SourceExpr="Source Type" }
    { 5 ;Label ;0 ;0 ;0 ;0 ;ParentControl=4;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 8

   ...InColumnHeading=Yes }
   
   // Delete the following line.
    { 12 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 8

   ...InColumnHeading=Yes }
   
   // Add the following line.
    { 6 ;TextBox ;0 ;0 ;2196 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสที่มีอยู่ 9

   ...InColumn=Yes;
   
   // Delete the following lines.
    ShowCaption=No;
    SourceExpr=Notes }
    { 13 ;Label ;0 ;0 ;0 ;0 ;ParentControl=12;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 9

   ...InColumn=Yes;
   
   // Add the following lines.
    SourceExpr="Constant Amount" }
    { 7 ;Label ;0 ;0 ;0 ;0 ;ParentControl=6;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 10

   ...InColumnHeading=Yes }
   
   // Delete the following line.
    { 8 ;CheckBox ;7700 ;0 ;1650 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 10

   ...InColumnHeading=Yes }
   
   // Add the following line.
    { 10 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสที่มีอยู่ 11

   ...ShowCaption=No;
   
   // Delete the following lines.
    SourceExpr="G/L Map Lines" }
    { 9 ;Label ;0 ;0 ;0 ;0 ;ParentControl=8;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 11

   ...ShowCaption=No;
   
   // Add the following lines.
    SourceExpr=Information }
    { 11 ;Label ;0 ;0 ;0 ;0 ;ParentControl=10;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 12

   ...InColumnHeading=Yes }
   
   // Delete the following lines.
    { 31 ;CheckBox ;8731 ;2970 ;1650 ;440 ;Visible=No;
    ParentControl=1;
   // End of the lines.
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 12

   ...InColumnHeading=Yes }
   
   // Add the following line.
    { 32 ;CheckBox ;10345;2750 ;1700 ;440 ;ParentControl=1;
   
   InColumn=Yes;
   
   ...
   
   

   รหัสที่มีอยู่ 13

   ...ShowCaption=No;
   
   // Delete the following lines.
    SourceExpr=Rollup }
    { 37 ;Label ;0 ;0 ;0 ;0 ;ParentControl=31;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 13

   ...ShowCaption=No;
   
   // Add the following lines.
    SourceExpr=Reference }
    { 33 ;Label ;0 ;0 ;0 ;0 ;ParentControl=32;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 14

   ...InColumnHeading=Yes }
   
   // Delete the following line.
    { 14 ;TextBox ;0 ;0 ;4400 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 14

   ...InColumnHeading=Yes }
   
   // Add the following line.
    { 12 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสที่มีอยู่ 15

   ...InColumn=Yes;
   
   // Delete the following lines.
    SourceExpr=Description }
    { 15 ;Label ;0 ;0 ;0 ;0 ;ParentControl=14;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 15

   ...InColumn=Yes;
   
   // Add the following lines.
    ShowCaption=No;
    SourceExpr=Notes }
    { 13 ;Label ;0 ;0 ;0 ;0 ;ParentControl=12;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 16

   ...InColumnHeading=Yes }
   
   // Delete the following lines.
    { 16 ;TextBox ;0 ;0 ;4400 ;0 ;Visible=No;
    ParentControl=1;
   // End of the lines.
   
   InColumn=Yes;
   ...
   
   

   รหัสแทนที่ 16

   ...InColumnHeading=Yes }
   
   // Add the following line.
    { 8 ;CheckBox ;7700 ;0 ;1650 ;0 ;ParentControl=1;
   
   InColumn=Yes;
   ...
   
   

   รหัสที่มีอยู่ 17

   ...InColumn=Yes;
   
   // Delete the following lines.
    SourceExpr=Name }
    { 17 ;Label ;0 ;0 ;0 ;0 ;ParentControl=16;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสแทนที่ 17

   ...InColumn=Yes;
   
   // Add the following lines.
    ShowCaption=No;
    SourceExpr="G/L Map Lines" }
    { 9 ;Label ;0 ;0 ;0 ;0 ;ParentControl=8;
   // End of the lines.
   
   InColumnHeading=Yes }
   ...
   
   

   รหัสที่มีอยู่ 18

   ...InColumnHeading=Yes }
   
   // Delete the following line.
    { 18 ;CommandButton;4400 ;6600 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสแทนที่ 18

   ...InColumnHeading=Yes }
   
   // Add the following lines.
    { 31 ;CheckBox ;8731 ;2970 ;1650 ;440 ;Visible=No;
    ParentControl=1;
    InColumn=Yes;
    ShowCaption=No;
    SourceExpr=Rollup }
    { 37 ;Label ;0 ;0 ;0 ;0 ;ParentControl=31;
    InColumnHeading=Yes }
    { 14 ;TextBox ;0 ;0 ;4400 ;0 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr=Description }
    { 15 ;Label ;0 ;0 ;0 ;0 ;ParentControl=14;
    InColumnHeading=Yes }
    { 16 ;TextBox ;0 ;0 ;4400 ;0 ;Visible=No;
    ParentControl=1;
    InColumn=Yes;
    SourceExpr=Name }
    { 17 ;Label ;0 ;0 ;0 ;0 ;ParentControl=16;
    InColumnHeading=Yes }
    { 18 ;CommandButton;4400 ;7370 ;2200 ;550 ;HorzGlue=Right;
   // End of the lines.
   
   VertGlue=Bottom;
   ...
   
   

   รหัสที่มีอยู่ 19

   ...InvalidActionAppearance=Hide }
   
   // Delete the following line.
    { 19 ;CommandButton;6820 ;6600 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสแทนที่ 19

   ...InvalidActionAppearance=Hide }
   
   // Add the following line.
    { 19 ;CommandButton;6820 ;7370 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสที่มีอยู่ 20

   ...InvalidActionAppearance=Hide }
   
   // Delete the following line.
    { 20 ;CommandButton;14080;6600 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสแทนที่ 20

   ...InvalidActionAppearance=Hide }
   
   // Add the following line.
    { 20 ;CommandButton;14080;7370 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสที่มีอยู่ 21

   ...PushAction=FormHelp }
   
   // Delete the following line.
    { 21 ;MenuButton ;9240 ;6600 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสแทนที่ 21

   ...PushAction=FormHelp }
   
   // Add the following line.
    { 21 ;MenuButton ;9240 ;7370 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสที่มีอยู่ 22

   ...// Delete the following line.
    { 38 ;TabControl ;220 ;220 ;16060;1430 ;HorzGlue=Both }
   
   { 39 ;TextBox ;3850 ;990 ;2750 ;440 ;ParentControl=38;
   ...
   
   

   รหัสแทนที่ 22

   ...// Add the following line.
    { 38 ;TabControl ;220 ;220 ;16060;2090 ;HorzGlue=Both }
   
   { 39 ;TextBox ;3850 ;990 ;2750 ;440 ;ParentControl=38;
   ...
   
   

   รหัสที่มีอยู่ 23

   ...OnAfterValidate=BEGIN
   
   // Delete the following lines.
    FILTERGROUP(2);
    SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
    FILTERGROUP(0);
    SETRANGE("XBRL Taxonomy Name");
    InitTempTable;
    CurrForm.UPDATE(FALSE);
   // End of the lines.
   
   END;
   ...
   
   

   รหัสแทนที่ 23

   ...OnAfterValidate=BEGIN
   
   // Add the following lines.
    InitTempTable(FALSE);
    SetFiltersAndUpdate;
   // End of the lines.
   
   END;
   ...
   
   

   รหัสที่มีอยู่แล้ว 24 ชั่วโมง

   ...IF CurrentLang <> '' THEN
   
   // Delete the following lines.
    IF NOT XBRLTaxonomyLabel.FIND('-') THEN
    ERROR(Text001,CurrentLang);
    SETRANGE("Label Language Filter",CurrentLang);
   // End of the lines.
   
   END;
   ...
   
   

   รหัสแทนที่ 24

   ...IF CurrentLang <> '' THEN
   
   // Add the following lines.
    IF XBRLTaxonomyLabel.ISEMPTY THEN
    ERROR(LangLabelsNotDefinedErr,CurrentLang);
   // End of the lines.
   
   END;
   ...
   
   

   รหัสที่มีอยู่ 25

   ...XBRLTaxonomyLabel.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
   
   // Delete the following lines.
    IF NOT XBRLTaxonomyLabel.FIND('-') THEN
    ERROR(Text002,"XBRL Taxonomy Name");
   // End of the lines.
   
   XBRLTaxonomyLabel.SETRANGE(
   ...
   
   

   รหัสแทนที่ 25

   ...XBRLTaxonomyLabel.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
   
   // Add the following lines.
    IF NOT XBRLTaxonomyLabel.FINDFIRST THEN
    ERROR(TaxonomyLabelsNotDefinedErr,"XBRL Taxonomy Name");
   // End of the lines.
   
   XBRLTaxonomyLabel.SETRANGE(
   ...
   
   

   รหัสที่มีอยู่ 26

   ...EXIT(TRUE);
   
   // Delete the following lines.
    END ELSE
    EXIT(FALSE);
   // End of the lines.
   
   END;
   ...
   
   

   รหัสแทนที่ 26

   ...EXIT(TRUE);
   
   // Add the following lines.
    END;
   
    EXIT(FALSE);
   // End of the lines.
   
   END;
   ...
   
   

   รหัสที่มีอยู่ 27

   ...END;
   
   // Delete the following line.
    }
   
   { 42 ;Label ;10890;990 ;3300 ;440 ;ParentControl=41 }
   ...
   
   

   รหัสแทนที่ 27

   ...END;
   
   // Add the following lines. 
    OnAfterValidate=BEGIN
    SetFiltersAndUpdate;
    END;
    }
   // End of the lines.
   
   { 42 ;Label ;10890;990 ;3300 ;440 ;ParentControl=41 }
   ...
   

   รหัสที่มีอยู่ 28

   ...{ 42 ;Label ;10890;990 ;3300 ;440 ;ParentControl=41 }
   
   // Delete the following line.
    { 43 ;MenuButton ;11660;6600 ;2200 ;550 ;HorzGlue=Right;
   
   VertGlue=Bottom;
   ...
   
   

   รหัสแทนที่ 28

   ...{ 42 ;Label ;10890;990 ;3300 ;440 ;ParentControl=41 }
   
   // Add the following lines.
    { 49 ;CheckBox ;3850 ;1650 ;440 ;440 ;ParentControl=38;
    InPage=0;
    ShowCaption=No;
    CaptionML=ENU=Show Only Presentation;
    SourceExpr=OnlyShowPresentation;
    OnAfterValidate=BEGIN
    SetFiltersAndUpdate;
    END;
    }
    { 50 ;Label ;440 ;1650 ;3300 ;440 ;ParentControl=49 }
    { 43 ;MenuButton ;11660;7370 ;2200 ;550 ;HorzGlue=Right;
   // End of the lines.
   
   VertGlue=Bottom;
   ...
   
   

   รหัสที่มีอยู่ 29

   ...OnPush=BEGIN
   
   // Delete the following line.
    ExpandAll;
   
   END;
   ...
   
   

   รหัสแทนที่ 29

   ...OnPush=BEGIN
   
   // Add the following lines.
    InitTempTable(TRUE);
    SetFiltersAndUpdate;
   // End of the lines.
   
   END;
   ...
   
   

   รหัสที่มีอยู่แล้ว 30

   ...OnPush=BEGIN
   
   // Delete the following line.
    InitTempTable;
   
   END;
   ...
   
   

   รหัสแทนที่ 30

   ...OnPush=BEGIN
   
   // Add the following lines.
    InitTempTable(FALSE);
    SetFiltersAndUpdate;
   // End of the lines.
   
   END;
   ...
   
   

3. เพิ่ม veriable ส่วนกลางต่อไปนี้:

   ...VAR
   
   // Add the following line. 
     TempXBRLLine@1005 : TEMPORARY Record 395;
   
   CurrentTaxonomy@1004 : Code[20];
   ...
   

4. ลบตัวแปรส่วนกลางต่อไปนี้:

   ...ActualExpansionStatus@1000 : Integer;
   
   // Delete the following lines.
     Text001@1002 : TextConst 'ENU=Labels are not defined for language %1.';
     Text002@1006 : TextConst 'ENU=There are no labels defined for %1.';
   // End of the lines.
   
   ...
   

5. เพิ่มตัวแปรส่วนกลางต่อไปนี้:

   ...ActualExpansionStatus@1000 : Integer;
   
   // Add the following lines.
     LangLabelsNotDefinedErr@1002 : TextConst 'ENU=Labels are not defined for language %1.';
     TaxonomyLabelsNotDefinedErr@1006 : TextConst 'ENU=There are no labels defined for %1.';
     OnlyShowPresentation@1003 : Boolean;
     FiltersApplied@1007 : Boolean;
   // End of the lines.
   
   ...
   

6. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInitTempTableเป็นดังนี้:
   รหัสที่อยู่ 1

   ...// Delete the following line.
     LOCAL PROCEDURE InitTempTable@4();
   
   VAR
   
   ...
   
   

   รหัสแทนที่ 1

   ...// Add the following line.
     LOCAL PROCEDURE InitTempTable@4(ExpandAll@1000 : Boolean);
   
   VAR
   ...
   
   

   รหัสที่มีอยู่ 2

   ...VAR
   
   // Delete the following line.
     XBRLLine@1000 : Record 395;
   
   BEGIN
   ...
   
   

   รหัสแทนที่ 2

   ...VAR
   
   // Add the following line.
     XBRLLine@1001 : Record 395;
   
   BEGIN
   ...
   
   

   รหัสที่มีอยู่ 3

   ...ResetFilter;
   
   // Delete the following line.
     DELETEALL;
   
   XBRLLine.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
   ...
   
   

   รหัสแทนที่ 3

   ...ResetFilter;
   
   // Add the following lines.
     TempXBRLLine.RESET;
     TempXBRLLine.DELETEALL;
     TempXBRLLine.SETCURRENTKEY("XBRL Taxonomy Name","Presentation Order");
   
   // End of the lines.
   
   XBRLLine.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
   ...
   
   

   รหัสที่มีอยู่ 4

   ...XBRLLine.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
   
   // Delete the following line.
     XBRLLine.SETRANGE(Level,0);
   
   IF XBRLLine.FIND('-') THEN
   ...
   
   

   รหัสแทนที่ 4

   ...XBRLLine.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
   
   // Add the following lines.
     IF NOT ExpandAll THEN
     XBRLLine.SETRANGE(Level,0);
   // End of the lines.
   
   IF XBRLLine.FIND('-') THEN
   ...
   
   

   รหัสที่มีอยู่ 5

   ...REPEAT
   
   // Delete the following lines.
   - Rec := XBRLLine;
   - INSERT;
   // End of the lines.
   
   UNTIL XBRLLine.NEXT = 0;
   ...
   
   

   รหัสแทนที่ 5

   ...REPEAT
   
   // Add the following lines.
     TempXBRLLine := XBRLLine;
     TempXBRLLine.INSERT;
   // End of the lines.
   
   UNTIL XBRLLine.NEXT = 0;
   ...
   
   

7. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันขยายทั้งหมดดังนี้:
   รหัสที่อยู่ 1

   ...// Delete the following line.
     LOCAL PROCEDURE ExpandAll@12();
   
   VAR
   
   ...
   
   

   รหัสแทนที่ 1

   ...// Add the following line.
     LOCAL PROCEDURE HasChildren@19(ActualXBRLLine@1000 : Record 395) : Boolean;
   
   VAR
   ...
   
   

   รหัสที่มีอยู่ 2

   ...VAR
   
   // Delete the following line.
     XBRLLine@1000 : Record 395;
   
   BEGIN
   ...
   
   

   รหัสแทนที่ 2

   ...VAR
   
   // Add the following line.
     XBRLLine2@1001 : Record 395;
   
   BEGIN
   ...
   
   

   รหัสที่มีอยู่ 3

   ...BEGIN
   
   // Delete the following lines.
    ResetFilter;
    DELETEALL;
    XBRLLine.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
    IF XBRLLine.FIND('-') THEN
    REPEAT
    Rec := XBRLLine;
    INSERT;
    UNTIL XBRLLine.NEXT = 0;
   // End of the lines.
   
   END;
   ...
   
   

   รหัสแทนที่ 3

   ...BEGIN
   
   // Add the following lines.
    XBRLLine2 := ActualXBRLLine;
    XBRLLine2.SETCURRENTKEY("XBRL Taxonomy Name","Presentation Order");
    XBRLLine2.SETRANGE("XBRL Taxonomy Name",ActualXBRLLine."XBRL Taxonomy Name");
    IF XBRLLine2.NEXT = 0 THEN
    EXIT(FALSE);
   
    EXIT(XBRLLine2.Level > ActualXBRLLine.Level);
   // End of the lines.
   
   END;
   ...
   
   

8. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันHasChildrenเป็นดังนี้:
   รหัสที่อยู่ 1

   ...// Delete the following line.
     LOCAL PROCEDURE HasChildren@19(ActualXBRLLine@1000 : Record 395) : Boolean;
   
   VAR
   
   ...
   
   

   รหัสแทนที่ 1

   ...// Add the following line.
     LOCAL PROCEDURE IsExpanded@20(ActualXBRLLine@1000 : Record 395) : Boolean;
   
   VAR
   ...
   
   

   รหัสที่มีอยู่ 2

   ...VAR
   
   // Delete the following line.
     XBRLLine2@1001 : Record 395;
   
   BEGIN
   ...
   
   

   รหัสแทนที่ 2

   ...VAR
   
   // Add the following lines.
    xXBRLLine@1001 : Record 395;
    Found@1002 : Boolean;
   // End of the lines.
   
   BEGIN
   ...
   
   

   รหัสที่มีอยู่ 3

   ...BEGIN
   
   // Delete the following lines.
    XBRLLine2 := ActualXBRLLine;
    XBRLLine2.SETCURRENTKEY("XBRL Taxonomy Name","Presentation Order");
    XBRLLine2.SETRANGE("XBRL Taxonomy Name",ActualXBRLLine."XBRL Taxonomy Name");
    IF XBRLLine2.NEXT = 0 THEN
    EXIT(FALSE)
    ELSE
    EXIT(XBRLLine2.Level > ActualXBRLLine.Level);
   // End of the lines.
   
   END;
   ...
   
   

   รหัสแทนที่ 3

   ...BEGIN
   
   // Add the following lines.
    xXBRLLine.COPY(Rec);
    ResetFilter;
    TempXBRLLine := ActualXBRLLine;
    Found := (TempXBRLLine.NEXT <> 0);
    IF Found THEN
    Found := (TempXBRLLine.Level > ActualXBRLLine.Level);
    COPY(xXBRLLine);
    EXIT(Found);
   // End of the lines.
   
   END;
   ...
   
   

9. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันIsExpandedเป็นดังนี้:
   รหัสที่อยู่ 1

   ...// Delete the following line.
     LOCAL PROCEDURE IsExpanded@20(ActualXBRLLine@1000 : Record 395) : Boolean;
   
   VAR
   
   ...
   
   

   รหัสแทนที่ 1

   ...// Add the following line.
     LOCAL PROCEDURE ToggleExpandCollapse@1();
   
   VAR
   ...
   
   

   รหัสที่มีอยู่ 2

   ...VAR
   xXBRLLine@1001 : Record 395;
   ...
   
   

   รหัสแทนที่ 2

   ...VAR
   
   // Add the following line.
    XBRLLine@1000 : Record 395;
   
   xXBRLLine@1001 : Record 395;
   
   ...
   
   

   รหัสที่มีอยู่ 3

   ...xXBRLLine@1001 : Record 395;
   
   // Delete the following line.
    Found@1002 : Boolean;
   
   BEGIN
   ...
   
   

   รหัสแทนที่ 3

   ...xXBRLLine@1001 : Record 395;
   BEGIN
   ...
   
   

   รหัสที่มีอยู่ 4

   ...ResetFilter;
   
   // Delete the following lines.
    Rec := ActualXBRLLine;
    Found := (NEXT <> 0);
    IF Found THEN
    Found := (Level > ActualXBRLLine.Level);
    COPY(xXBRLLine);
    EXIT(Found);
    END;
   
    LOCAL PROCEDURE ToggleExpandCollapse@1();
    VAR
    XBRLLine@1000 : Record 395;
    xXBRLLine@1001 : Record 395;
    BEGIN
    xXBRLLine.COPY(Rec);
    ResetFilter;
   // End of the lines.
   
   IF ActualExpansionStatus = 0 THEN BEGIN // Has children, but not expanded
   ...
   
   

   รหัสแทนที่ 4

   ...ResetFilter;
   IF ActualExpansionStatus = 0 THEN BEGIN // Has children, but not expanded
   ...
   
   

10. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันToggleExpandCollapseเป็นดังนี้:
    รหัสที่อยู่ 1

    ...IF XBRLLine.Level > xXBRLLine.Level THEN BEGIN
    
    // Delete the following lines.
     Rec := XBRLLine;
     IF INSERT THEN;
    // End of the lines.
    
    END;
    ...
    
    

    รหัสแทนที่ 1

    ...IF XBRLLine.Level > xXBRLLine.Level THEN BEGIN
    
    // Add the following lines.
     TempXBRLLine := XBRLLine;
     IF TempXBRLLine.INSERT THEN;
    // End of the lines.
    
    END;
    ...
    
    

    รหัสที่มีอยู่ 2

    ...IF ActualExpansionStatus = 1 THEN BEGIN // Has children and is already expanded
    
    // Delete the following lines.
     WHILE (NEXT <> 0) AND (Level > xXBRLLine.Level) DO
     DELETE;
    // End of the lines.
    
    END;
    ...
    
    

    รหัสแทนที่ 2

    ...IF ActualExpansionStatus = 1 THEN BEGIN // Has children and is already expanded
    
    // Add the following lines.
     TempXBRLLine := Rec;
     WHILE (TempXBRLLine.NEXT <> 0) AND (TempXBRLLine.Level > xXBRLLine.Level) DO
     TempXBRLLine.DELETE;
    // End of the lines.
    
    END;
    ...
    
    

11. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันResetFilterเป็นดังนี้:
    รหัสที่อยู่ 1

    ...// Delete the following line.
     LOCAL PROCEDURE ResetFilter@3();
    
    BEGIN
    ...
    
    

    รหัสแทนที่ 1

    ...// Add the following line.
     LOCAL PROCEDURE SetFiltersAndUpdate@5();
    
    BEGIN
    ...
    
    

    รหัสที่มีอยู่ 2

    ...BEGIN
    
    // Delete the following lines.
     RESET;
     SETCURRENTKEY("XBRL Taxonomy Name","Presentation Order");
     FILTERGROUP(2);
     SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
     FILTERGROUP(0);
    // End of the lines.
    
    END;
    ...
    
    

    รหัสแทนที่ 2

    ...BEGIN
    
    // Add the following lines.
     SetFilters;
     CurrForm.UPDATE(FALSE);
    // End of the lines.
    
    END;
    ...
    
    

    รหัสที่มีอยู่ 3

    ...BEGIN
    ...
    
    

    รหัสแทนที่ 3

    ...
    // Add the following line.
     LOCAL PROCEDURE SetFilters@11();
    
    BEGIN
    ...
    
    

    รหัสที่มีอยู่ 4

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

    รหัสแทนที่ 4

    ...BEGIN
    
    // Add the following lines.
     SETRANGE("Label Language Filter",CurrentLang);
     IF OnlyShowPresentation THEN
     SETFILTER("Presentation Linkbase Line No.",'>0')
     ELSE
     SETRANGE("Presentation Linkbase Line No.");
     END;
    // End of the lines.
    ...
    
    

12. เพิ่มรหัสต่อไปนี้ในฟังก์ชันResetFilter :

    ... LOCAL PROCEDURE ResetFilter@3();
     BEGIN
     RESET;
     SETCURRENTKEY("XBRL Taxonomy Name","Presentation Order");
     FILTERGROUP(2);
     SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
     FILTERGROUP(0);
     END;
    ...
    

13. เพิ่มรหัสต่อไปนี้ในฟังก์ชันResetFilter :

    ...  BEGIN
      END.
      }
      }
    ...