I have it now like this: IsFirstDocLine() : Boolean TempBom.RESET; TempBom.COPYFILTERS(Rec); TempBom.SETRANGE("Parent Item No.",BOM."Parent Item No."); TempBom.SETRANGE("Line No.",BOM."Line No."); //TempSalesShptLine.SETRANGE("Document No.","Document No."); //Rec.GET("Parent Item No.",Rec."Line No."); IF NOT TempBom.FIND('-') THEN BEGIN BOM.COPYFILTERS(Rec); BOM.SETRANGE("Parent Item No.",BOM."Parent Item No."); BOM.SETRANGE(BOM."Line No.",BOM."Line No."); //ItemAddition.GET("Parent Item No.","Parent Item No."); IF (NOT Rec.ASCENDING) THEN BOMLocal.ASCENDING(FALSE); //END VPL BOMLocal.FIND('-'); TempBom :=BOMLocal; TempBom.INSERT; END; IF "Line No." = TempBom."Line No." THEN EXIT(TRUE); And I call the function lik this: No. - OnFormat(VAR Text : Text[1024];) IF IsFirstDocLine THEN //CurrForm."Document No.".UPDATEFONTBOLD := TRUE CurrForm."No.".UPDATEFONTBOLD := TRUE ELSE Text := ''; Then I will get this error:
↧