Skriptovací jazyk - objekty: Porovnání verzí

Z K.A.P.
Skočit na navigaciSkočit na vyhledávání
m (Zamyká „Skriptovací jazyk - objekty“ [edit=sysop:move=sysop])
m
Řádek 17: Řádek 17:
 
|''' Settings.Values['VAR.promenna']'''||vrací hodnotu INI proměnné dle [[Oprava ini. hodnot#Tiskové proměnné - kl. F10 |nastavení proměnných]]  
 
|''' Settings.Values['VAR.promenna']'''||vrací hodnotu INI proměnné dle [[Oprava ini. hodnot#Tiskové proměnné - kl. F10 |nastavení proměnných]]  
 
|}
 
|}
 +
 +
 +
    AddConstructor('constructor Create', CallMethodBtrTable);
 +
 +
    AddMethod('function BookmarkValid(Bookmark: TBookmark): Boolean;', CallMethodBtrTable);
 +
    AddMethod('function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer;', CallMethodBtrTable);
 +
    AddMethod('function ControlsDisabled: Boolean;', CallMethodBtrTable);
 +
    AddMethod('function CopyFields(Source: TDataSet): Integer;', CallMethodBtrTable);
 +
    AddMethod('function FieldByName(const FieldName: String): TField;', CallMethodBtrTable);
 +
    AddMethod('function FindField(const FieldName: String): TField;', CallMethodBtrTable);
 +
    AddMethod('function FindKey(const KeyValues: array of const): Boolean;', CallMethodBtrTable);
 +
    AddMethod('function GetBookmark: TBookmark;', CallMethodBtrTable);
 +
    AddMethod('function GetBtrRecordLength: LongInt;', CallMethodBtrTable);
 +
    AddMethod('function GotoKey: Boolean;', CallMethodBtrTable);
 +
    AddMethod('function IsEmpty: Boolean;', CallMethodBtrTable);
 +
    AddMethod('function IsLinkedTo(DataSource: TDataSource): Boolean;', CallMethodBtrTable);
 +
    AddMethod('function IsRangeApplied: Boolean;', CallMethodBtrTable);
 +
    AddMethod('function IsSequenced: Boolean;', CallMethodBtrTable);
 +
    AddMethod('function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;', CallMethodBtrTable);
 +
    AddMethod('function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;', CallMethodBtrTable);
 +
    AddMethod('function MoveBy(Distance: Integer): Integer;', CallMethodBtrTable);
 +
    AddMethod('function UpdateStatus: TUpdateStatus;', CallMethodBtrTable);
 +
    AddMethod('procedure Append;', CallMethodBtrTable);
 +
    AddMethod('procedure AppendRecord(const Values: array of const);', CallMethodBtrTable);
 +
    AddMethod('procedure ApplyRange;', CallMethodBtrTable);
 +
    AddMethod('procedure Cancel;', CallMethodBtrTable);
 +
    AddMethod('procedure CancelRange;', CallMethodBtrTable);
 +
    AddMethod('procedure ClearFields;', CallMethodBtrTable);
 +
    AddMethod('procedure Close;', CallMethodBtrTable);
 +
    AddMethod('procedure CopyTable(const NewTableName: string);', CallMethodBtrTable);
 +
    AddMethod('procedure CreateTable(Rewrite: Boolean);', CallMethodBtrTable);
 +
    AddMethod('procedure Delete;', CallMethodBtrTable);
 +
    AddMethod('procedure DeleteTable;', CallMethodBtrTable);
 +
    AddMethod('procedure DisableControls;', CallMethodBtrTable);
 +
    AddMethod('procedure Edit;', CallMethodBtrTable);
 +
    AddMethod('procedure EmptyTable;', CallMethodBtrTable);
 +
    AddMethod('procedure EnableControls;', CallMethodBtrTable);
 +
    AddMethod('procedure First;', CallMethodBtrTable);
 +
    AddMethod('procedure FreeBookmark(Bookmark: TBookmark);', CallMethodBtrTable);
 +
    AddMethod('procedure GetDetailDataSets(List: TList);', CallMethodBtrTable);
 +
    AddMethod('procedure GetDetailLinkFields(MasterFields, DetailFields: TList);', CallMethodBtrTable);
 +
    AddMethod('procedure GetFieldList(List: TList; const FieldNames: String);', CallMethodBtrTable);
 +
    AddMethod('procedure GetFieldNames(List: TStrings);', CallMethodBtrTable);
 +
    AddMethod('procedure GetIndexInfo;', CallMethodBtrTable);
 +
    AddMethod('procedure GetIndexNames(List: TStrings);', CallMethodBtrTable);
 +
    AddMethod('procedure GotoBookmark(Bookmark: TBookmark);', CallMethodBtrTable);
 +
    AddMethod('procedure GotoCurrent(Table: TBtrTable);', CallMethodBtrTable);
 +
    AddMethod('procedure GotoNearest;', CallMethodBtrTable);
 +
    AddMethod('procedure CheckBrowseMode;', CallMethodBtrTable);
 +
    AddMethod('procedure Insert;', CallMethodBtrTable);
 +
    AddMethod('procedure InsertRecord(const Values: array of const);', CallMethodBtrTable);
 +
    AddMethod('procedure Last;', CallMethodBtrTable);
 +
    AddMethod('procedure Next;', CallMethodBtrTable);
 +
    AddMethod('procedure Open;', CallMethodBtrTable);
 +
    AddMethod('procedure Post;', CallMethodBtrTable);
 +
    AddMethod('procedure Prior;', CallMethodBtrTable);
 +
    AddMethod('procedure Refresh;', CallMethodBtrTable);
 +
    AddMethod('procedure Resync(Mode: TResyncMode);', CallMethodBtrTable);
 +
    AddMethod('procedure SetKey;', CallMethodBtrTable);
 +
    AddMethod('procedure SetRange(const StartValues, EndValues: array of const);', CallMethodBtrTable);
 +
  end;

Verze z 28. 11. 2012, 08:07

Objekt Popis
Settings.Values['INI.fieldname'] vrací hodnoty polí z tabulky SKLADINI
Settings.Values['KFG.fieldname'] vrací hodnoty polí z tabulky SKLADKFG
Settings.Values['USER.fieldname'] vrací hodnoty polí z tabulky SYSTUSER (fieldname je jméno pole z dané tabulky dle struktury souborů)
Settings.Values['DPH.ProcentoN'] vrací sazbu DPH (N je od 0 do 6)
Settings.Values['DPH.OznaceniN'] vrací krátké označení DPH (N je od 0 do 6)
Settings.Values['DPH.PasmoN'] vrací pásmo DPH (N je od 0 do 6)(všechny hodnoty dle aktuálně přihlášeného uživatele a databáze)
Settings.Values['VAR.promenna'] vrací hodnotu INI proměnné dle nastavení proměnných


   AddConstructor('constructor Create', CallMethodBtrTable);
   AddMethod('function BookmarkValid(Bookmark: TBookmark): Boolean;', CallMethodBtrTable);
   AddMethod('function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer;', CallMethodBtrTable);
   AddMethod('function ControlsDisabled: Boolean;', CallMethodBtrTable);
   AddMethod('function CopyFields(Source: TDataSet): Integer;', CallMethodBtrTable);
   AddMethod('function FieldByName(const FieldName: String): TField;', CallMethodBtrTable);
   AddMethod('function FindField(const FieldName: String): TField;', CallMethodBtrTable);
   AddMethod('function FindKey(const KeyValues: array of const): Boolean;', CallMethodBtrTable);
   AddMethod('function GetBookmark: TBookmark;', CallMethodBtrTable);
   AddMethod('function GetBtrRecordLength: LongInt;', CallMethodBtrTable);
   AddMethod('function GotoKey: Boolean;', CallMethodBtrTable);
   AddMethod('function IsEmpty: Boolean;', CallMethodBtrTable);
   AddMethod('function IsLinkedTo(DataSource: TDataSource): Boolean;', CallMethodBtrTable);
   AddMethod('function IsRangeApplied: Boolean;', CallMethodBtrTable);
   AddMethod('function IsSequenced: Boolean;', CallMethodBtrTable);
   AddMethod('function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean;', CallMethodBtrTable);
   AddMethod('function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant;', CallMethodBtrTable);
   AddMethod('function MoveBy(Distance: Integer): Integer;', CallMethodBtrTable);
   AddMethod('function UpdateStatus: TUpdateStatus;', CallMethodBtrTable);
   AddMethod('procedure Append;', CallMethodBtrTable);
   AddMethod('procedure AppendRecord(const Values: array of const);', CallMethodBtrTable);
   AddMethod('procedure ApplyRange;', CallMethodBtrTable);
   AddMethod('procedure Cancel;', CallMethodBtrTable);
   AddMethod('procedure CancelRange;', CallMethodBtrTable);
   AddMethod('procedure ClearFields;', CallMethodBtrTable);
   AddMethod('procedure Close;', CallMethodBtrTable);
   AddMethod('procedure CopyTable(const NewTableName: string);', CallMethodBtrTable);
   AddMethod('procedure CreateTable(Rewrite: Boolean);', CallMethodBtrTable);
   AddMethod('procedure Delete;', CallMethodBtrTable);
   AddMethod('procedure DeleteTable;', CallMethodBtrTable);
   AddMethod('procedure DisableControls;', CallMethodBtrTable);
   AddMethod('procedure Edit;', CallMethodBtrTable);
   AddMethod('procedure EmptyTable;', CallMethodBtrTable);
   AddMethod('procedure EnableControls;', CallMethodBtrTable);
   AddMethod('procedure First;', CallMethodBtrTable);
   AddMethod('procedure FreeBookmark(Bookmark: TBookmark);', CallMethodBtrTable);
   AddMethod('procedure GetDetailDataSets(List: TList);', CallMethodBtrTable);
   AddMethod('procedure GetDetailLinkFields(MasterFields, DetailFields: TList);', CallMethodBtrTable);
   AddMethod('procedure GetFieldList(List: TList; const FieldNames: String);', CallMethodBtrTable);
   AddMethod('procedure GetFieldNames(List: TStrings);', CallMethodBtrTable);
   AddMethod('procedure GetIndexInfo;', CallMethodBtrTable);
   AddMethod('procedure GetIndexNames(List: TStrings);', CallMethodBtrTable);
   AddMethod('procedure GotoBookmark(Bookmark: TBookmark);', CallMethodBtrTable);
   AddMethod('procedure GotoCurrent(Table: TBtrTable);', CallMethodBtrTable);
   AddMethod('procedure GotoNearest;', CallMethodBtrTable);
   AddMethod('procedure CheckBrowseMode;', CallMethodBtrTable);
   AddMethod('procedure Insert;', CallMethodBtrTable);
   AddMethod('procedure InsertRecord(const Values: array of const);', CallMethodBtrTable);
   AddMethod('procedure Last;', CallMethodBtrTable);
   AddMethod('procedure Next;', CallMethodBtrTable);
   AddMethod('procedure Open;', CallMethodBtrTable);
   AddMethod('procedure Post;', CallMethodBtrTable);
   AddMethod('procedure Prior;', CallMethodBtrTable);
   AddMethod('procedure Refresh;', CallMethodBtrTable);
   AddMethod('procedure Resync(Mode: TResyncMode);', CallMethodBtrTable);
   AddMethod('procedure SetKey;', CallMethodBtrTable);
   AddMethod('procedure SetRange(const StartValues, EndValues: array of const);', CallMethodBtrTable);
 end;