Microsoft Dynamics NAV 2009 Almanca sürümünü 505 rapora isteği şeklinde arama tıklattığınızda taksonomi satırlarına beklenmedik biçimde siliniyor

Belirtiler

505, raporun istek formunda Arama ' yı tıklatın, XBRL (Almanya - AB satış listesi - yeni yöntemi gönderme itibariyle 01.01.2013 - Microsoft Dynamics NAV 2009 SP1) yayımlandıktan sonra beklenmedik biçimde Taksonomi satırları silinir. Bu sorun aşağıdaki ürünlerde oluşur:

Microsoft Dynamics NAV 2009 R2'ün Almanca sürümü
Microsoft Dynamics NAV 2009 Service Pack 1'ün Almanca sürümü

Çözüm

Düzeltme bilgileri

Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.

Yükleme bilgileri

Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak, işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.Not: Bu düzeltmeyi yüklemeden önce tüm Microsoft Navision istemcisi kullanıcılar sistem oturum doğrulayın. Bu, Microsoft Navision uygulama Hizmetleri (NAS) istemci kullanıcıları içerir. Bu düzeltmeyi uyguladığınızda yalnızca istemci kullanıcının oturum açmış olması gerekir.Bu düzeltmeyi uygulamak için bir geliştirici lisansı olması gerekir.Kullanıcı hesabının Windows oturumu açma penceresini veya veritabanı oturumu açma penceresi "Süper" rol kimliği atanması öneririz Kullanıcı hesabı "Süper" rol Kimliği atanamaz, kullanıcı hesabı aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:

Nesnenin, değiştirme değişiklik yapma izni.
Execute izni Sistem nesne kimliği 5210 nesnenin ve nesne kimliği 9015 sistem nesnesi için.

Not: Veri onarım gerçekleştirmek zorunda sürece veri depoları haklarına sahip olmanız gerekmez.

Kod değişiklikleri

Not: Her zaman, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.Bu sorunu gidermek için KDV Deftere Nakil Kurulumu tablosundaki (325) kodunu değiştirin. Bunu yapmak için şu adımları izleyin:

Özellikleri kodu aşağıdaki gibi değiştirin:Varolan kodu 1

... Width=16500;

// Delete the following line.
 Height=7370;

SaveValues=Yes;
...

Değiştirme kodu 1

...Width=16500;

// Add the following line.
  Height=8140;

SaveValues=Yes;
...

Varolan kodu 2

...IF NOT XBRLTaxonomy.GET(CurrentTaxonomy) THEN

// Delete the following line.
  IF NOT XBRLTaxonomy.FIND('-') THEN

XBRLTaxonomy.INIT;
...

Değiştirme kodu 2

...IF NOT XBRLTaxonomy.GET(CurrentTaxonomy) THEN

// Add the following line.
  IF NOT XBRLTaxonomy.FINDFIRST THEN

XBRLTaxonomy.INIT;
...

Varolan kodu 3

...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier",CurrentLang);

// Delete the following line.
  IF XBRLTaxonomyLabel.FIND('-') THEN

CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
...

Değiştirme kodu 3

...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier",CurrentLang);

// Add the following line.
  IF XBRLTaxonomyLabel.FINDFIRST THEN

CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
...

Varolan kodu 4

...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier");

// Delete the following line.
  IF XBRLTaxonomyLabel.FIND('-') THEN

CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
...

Değiştirme kodu 4

...XBRLTaxonomyLabel.SETRANGE("XML Language Identifier");

// Add the following line.
  IF XBRLTaxonomyLabel.FINDFIRST THEN

CurrentLang := XBRLTaxonomyLabel."XML Language Identifier"
...

Varolan kodu 5

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

Değiştirme kodu 5

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

Varolan kodu 6

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

END;
...

Değiştirme kodu 6

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

END;
...

Varolan kodu 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.
...

Değiştirme kodu 7

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

Varolan kodu 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.
...

Değiştirme kodu 8

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

Varolan kodu 9

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

Değiştirme kodu 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.
...

Varolan kod 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.
...

Değiştirilen kod 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.
...

Varolan kodu 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.
...

Değiştirilen kod 11

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

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

Değiştirilen kod 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;

...

Denetim kodu aşağıdaki gibi değiştirin:Varolan kodu 1

...InColumn=Yes;

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

InColumnHeading=Yes }
...

Değiştirme kodu 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 }
...

Varolan kodu 2

...InColumnHeading=Yes }

// Delete the following line.
 { 6 ;TextBox ;0 ;0 ;2196 ;0 ;ParentControl=1;

InColumn=Yes;
...

Değiştirme kodu 2

...InColumnHeading=Yes }

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

InColumn=Yes;
...

Varolan kodu 3

...InColumn=Yes;

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

InColumnHeading=Yes }
...

Değiştirme kodu 3

...InColumn=Yes;

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

InColumnHeading=Yes }
...

Varolan kodu 4

...InColumnHeading=Yes }

// Delete the following line.
 { 10 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;

InColumn=Yes;
...

Değiştirme kodu 4

...InColumnHeading=Yes }

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

InColumn=Yes;
...

Varolan kodu 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 }
...

Değiştirme kodu 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 }
...

Varolan kodu 6

...InColumnHeading=Yes }

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

InColumn=Yes;

...

Değiştirme kodu 6

...InColumnHeading=Yes }

// Add the following line.
 { 4 ;TextBox ;0 ;0 ;550 ;0 ;ParentControl=1;

InColumn=Yes;
...

Varolan kodu 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 }
...

Değiştirme kodu 7

...InColumn=Yes;

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

InColumnHeading=Yes }
...

Varolan kodu 8

...InColumnHeading=Yes }

// Delete the following line.
 { 12 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;

InColumn=Yes;
...

Değiştirme kodu 8

...InColumnHeading=Yes }

// Add the following line.
 { 6 ;TextBox ;0 ;0 ;2196 ;0 ;ParentControl=1;

InColumn=Yes;
...

Varolan kodu 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 }
...

Değiştirme kodu 9

...InColumn=Yes;

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

InColumnHeading=Yes }
...

Varolan kod 10

...InColumnHeading=Yes }

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

InColumn=Yes;
...

Değiştirilen kod 10

...InColumnHeading=Yes }

// Add the following line.
 { 10 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;

InColumn=Yes;
...

Varolan kodu 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 }
...

Değiştirilen kod 11

...ShowCaption=No;

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

InColumnHeading=Yes }
...

Varolan kodu 12

...InColumnHeading=Yes }

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

InColumn=Yes;
...

Değiştirilen kod 12

...InColumnHeading=Yes }

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

InColumn=Yes;

...

Varolan kodu 13

...ShowCaption=No;

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

InColumnHeading=Yes }
...

13 değiştirme kodu

...ShowCaption=No;

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

InColumnHeading=Yes }
...

Varolan kodu 14

...InColumnHeading=Yes }

// Delete the following line.
 { 14 ;TextBox ;0 ;0 ;4400 ;0 ;ParentControl=1;

InColumn=Yes;
...

14 değiştirme kodu

...InColumnHeading=Yes }

// Add the following line.
 { 12 ;CheckBox ;0 ;0 ;1650 ;0 ;ParentControl=1;

InColumn=Yes;
...

Varolan kod 15

...InColumn=Yes;

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

InColumnHeading=Yes }
...

Değiştirilen kod 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 }
...

Varolan kod 16

...InColumnHeading=Yes }

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

InColumn=Yes;
...

16 değiştirme kodu

...InColumnHeading=Yes }

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

InColumn=Yes;
...

Varolan kodu 17

...InColumn=Yes;

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

InColumnHeading=Yes }
...

Değiştirilen kod 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 }
...

Varolan kodu 18

...InColumnHeading=Yes }

// Delete the following line.
 { 18 ;CommandButton;4400 ;6600 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

18 değiştirme kodu

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

Varolan kodu 19

...InvalidActionAppearance=Hide }

// Delete the following line.
 { 19 ;CommandButton;6820 ;6600 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

Değiştirme kodu 19

...InvalidActionAppearance=Hide }

// Add the following line.
 { 19 ;CommandButton;6820 ;7370 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

Varolan kodu 20

...InvalidActionAppearance=Hide }

// Delete the following line.
 { 20 ;CommandButton;14080;6600 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

Değiştirilen kod 20

...InvalidActionAppearance=Hide }

// Add the following line.
 { 20 ;CommandButton;14080;7370 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

Varolan kodu 21

...PushAction=FormHelp }

// Delete the following line.
 { 21 ;MenuButton ;9240 ;6600 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

Değiştirilen kod 21

...PushAction=FormHelp }

// Add the following line.
 { 21 ;MenuButton ;9240 ;7370 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

Varolan kod 22

...// Delete the following line.
 { 38 ;TabControl ;220 ;220 ;16060;1430 ;HorzGlue=Both }

{ 39 ;TextBox ;3850 ;990 ;2750 ;440 ;ParentControl=38;
...

Değiştirilen kod 22

...// Add the following line.
 { 38 ;TabControl ;220 ;220 ;16060;2090 ;HorzGlue=Both }

{ 39 ;TextBox ;3850 ;990 ;2750 ;440 ;ParentControl=38;
...

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

Değiştirilen kod 23

...OnAfterValidate=BEGIN

// Add the following lines.
 InitTempTable(FALSE);
 SetFiltersAndUpdate;
// End of the lines.

END;
...

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

Değiştirilen kod 24

...IF CurrentLang <> '' THEN

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

END;
...

Varolan kodu 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(
...

Değiştirilen kod 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(
...

Varolan kodu 26

...EXIT(TRUE);

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

END;
...

Değiştirilen kod 26

...EXIT(TRUE);

// Add the following lines.
 END;

 EXIT(FALSE);
// End of the lines.

END;
...

Varolan Kod 27

...END;

// Delete the following line.
 }

{ 42 ;Label ;10890;990 ;3300 ;440 ;ParentControl=41 }
...

Değiştirilen kod 27

...END;

// Add the following lines. 
 OnAfterValidate=BEGIN
 SetFiltersAndUpdate;
 END;
 }
// End of the lines.

{ 42 ;Label ;10890;990 ;3300 ;440 ;ParentControl=41 }
...

Varolan kod 28

...{ 42 ;Label ;10890;990 ;3300 ;440 ;ParentControl=41 }

// Delete the following line.
 { 43 ;MenuButton ;11660;6600 ;2200 ;550 ;HorzGlue=Right;

VertGlue=Bottom;
...

Değiştirilen kod 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;
...

Varolan kod 29

...OnPush=BEGIN

// Delete the following line.
 ExpandAll;

END;
...

Değiştirilen kod 29

...OnPush=BEGIN

// Add the following lines.
 InitTempTable(TRUE);
 SetFiltersAndUpdate;
// End of the lines.

END;
...

Varolan kodu 30

...OnPush=BEGIN

// Delete the following line.
 InitTempTable;

END;
...

Değiştirilen kod 30

...OnPush=BEGIN

// Add the following lines.
 InitTempTable(FALSE);
 SetFiltersAndUpdate;
// End of the lines.

END;
...

Aşağıdaki genel veriable ekleyin:

...VAR

// Add the following line. 
  TempXBRLLine@1005 : TEMPORARY Record 395;

CurrentTaxonomy@1004 : Code[20];
...

Aşağıdaki genel değişkenleri silin:

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

...

Aşağıdaki genel değişkenleri ekleyin:

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

...

InitTempTable işlevinde kodu aşağıdaki gibi değiştirin:Varolan kodu 1

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

VAR

...

Değiştirme kodu 1

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

VAR
...

Varolan kodu 2

...VAR

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

BEGIN
...

Değiştirme kodu 2

...VAR

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

BEGIN
...

Varolan kodu 3

...ResetFilter;

// Delete the following line.
  DELETEALL;

XBRLLine.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);
...

Değiştirme kodu 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);
...

Varolan kodu 4

...XBRLLine.SETRANGE("XBRL Taxonomy Name",CurrentTaxonomy);

// Delete the following line.
  XBRLLine.SETRANGE(Level,0);

IF XBRLLine.FIND('-') THEN
...

Değiştirme kodu 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
...

Varolan kodu 5

...REPEAT

// Delete the following lines.
- Rec := XBRLLine;
- INSERT;
// End of the lines.

UNTIL XBRLLine.NEXT = 0;
...

Değiştirme kodu 5

...REPEAT

// Add the following lines.
  TempXBRLLine := XBRLLine;
  TempXBRLLine.INSERT;
// End of the lines.

UNTIL XBRLLine.NEXT = 0;
...

ExpandAll işlev kodu aşağıdaki gibi değiştirin:Varolan kodu 1

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

VAR

...

Değiştirme kodu 1

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

VAR
...

Varolan kodu 2

...VAR

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

BEGIN
...

Değiştirme kodu 2

...VAR

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

BEGIN
...

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

Değiştirme kodu 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;
...

HasChildren işlevinde kodu aşağıdaki gibi değiştirin:Varolan kodu 1

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

VAR

...

Değiştirme kodu 1

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

VAR
...

Varolan kodu 2

...VAR

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

BEGIN
...

Değiştirme kodu 2

...VAR

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

BEGIN
...

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

Değiştirme kodu 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;
...

IsExpanded işlevinde kodu aşağıdaki gibi değiştirin:Varolan kodu 1

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

VAR

...

Değiştirme kodu 1

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

VAR
...

Varolan kodu 2

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

Değiştirme kodu 2

...VAR

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

xXBRLLine@1001 : Record 395;

...

Varolan kodu 3

...xXBRLLine@1001 : Record 395;

// Delete the following line.
 Found@1002 : Boolean;

BEGIN
...

Değiştirme kodu 3

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

Varolan kodu 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
...

Değiştirme kodu 4

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

ToggleExpandCollapse işlevinde kodu aşağıdaki gibi değiştirin:Varolan kodu 1

...IF XBRLLine.Level > xXBRLLine.Level THEN BEGIN

// Delete the following lines.
 Rec := XBRLLine;
 IF INSERT THEN;
// End of the lines.

END;
...

Değiştirme kodu 1

...IF XBRLLine.Level > xXBRLLine.Level THEN BEGIN

// Add the following lines.
 TempXBRLLine := XBRLLine;
 IF TempXBRLLine.INSERT THEN;
// End of the lines.

END;
...

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

Değiştirme kodu 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;
...

ResetFilter işlevinde kodu aşağıdaki gibi değiştirin:Varolan kodu 1

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

BEGIN
...

Değiştirme kodu 1

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

BEGIN
...

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

Değiştirme kodu 2

...BEGIN

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

END;
...

Varolan kodu 3

...BEGIN
...

Değiştirme kodu 3

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

BEGIN
...

Varolan kodu 4

...BEGIN

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

Değiştirme kodu 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.
...

ResetFilter işlevinde aşağıdaki kodu ekleyin:

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

ResetFilter işlevinde aşağıdaki kodu ekleyin:
... BEGIN END. } } ...

Önkoşullar

Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birine sahip olmalıdır:

Microsoft Dynamics NAV 2009 R2'ün Almanca sürümü
Microsoft Dynamics NAV 2009 Service Pack 1'ün Almanca sürümü

Kaldırma bilgileri

Bu düzeltmeyi kaldıramazsınız.

Durum

Microsoft bu sorunun "Aşağıdakilere Uygulanır" bölümünde listelenen Microsoft ürünlerinde bulunduğunu onaylamıştır.

Not: Bu, doğrudan Microsoft destek kuruluşu bünyesinde oluşturulan bir "HIZLI YAYIN" makalesidir. Burada yer alan bilgiler, oluşan sorunlara yanıt olarak olduğu gibi sağlanmıştır. Makale hızla kullanıma sunulduğu için materyallerde yazım hataları olabilir ve materyaller bildirilmeksizin herhangi bir zamanda revize edilebilir. Diğer konular için bkz. Kullanım koşulları.

Microsoft Dynamics NAV 2009 Almanca sürümünü 505 rapora isteği şeklinde arama tıklattığınızda taksonomi satırlarına beklenmedik biçimde siliniyor

Belirtiler

Çözüm

Düzeltme bilgileri

Yükleme bilgileri

Kod değişiklikleri

Önkoşullar

Kaldırma bilgileri

Durum

Daha fazla yardıma mı ihtiyacınız var?

Daha fazla seçenek mi istiyorsunuz?

Bu bilgi yararlı oldu mu?

Geri bildiriminiz için teşekkürler!