13. Mai 2009 13:53
Object.SETCURRENTKEY(Type,Name);
Object.SETRANGE(Type,Object.Type::Table);
Object.SETRANGE(Name,TableName);
Object.FIND('-');
IF NOT Field.GET(Object.ID,LastFieldNo) THEN
EXIT;
Field.SETRANGE(TableNo,Object.ID);
Field.SETRANGE(Enabled,TRUE);
Field.SETRANGE(Class,Field.Class::Normal);
Field.FIND('+');
IF Field."No." <= LastFieldNo THEN
EXIT(TRUE);
13. Mai 2009 18:15
18. Mai 2009 08:14
18. Mai 2009 08:27
18. Mai 2009 08:42