So what I did was this on from36: No. - OnFormat(VAR Text : Text[1024];) IF IsFirstDocLine THEN //CurrForm."Document No.".UPDATEFONTBOLD := TRUE CurrForm."No.".UPDATEFONTBOLD := TRUE ELSE Text := ''; and this function: IsFirstDocLine() : Boolean TempBom.RESET; TempBom.COPYFILTERS(Rec); //TempSalesShptLine.SETRANGE("Document No.","Document No."); Rec.GET("Parent Item No.",Rec."Line No."); IF NOT ItemAddition.FIND('-') THEN BEGIN ItemAddition.COPYFILTERS(Rec); BOM.GET("Parent Item No.",BOM."Parent Item No."); BOM.GET(BOM."Line No.",BOM."Line No."); ItemAddition.GET("Parent Item No.","Parent Item No."); //BEGIN VPL 28-01-2012 IF (NOT Rec.ASCENDING) THEN ItemAddition.ASCENDING(FALSE); //END VPL ItemAddition.FIND('-'); TempBom :=BOMLocal; TempBom.INSERT; END; but then I get this error, when I want to open form 36 to add items:
↧