ТМС:Менеджер — различия между версиями

Материал из wiki.standart-n.ru
Перейти к: навигация, поиск
(Новая страница: «==USES== ===unFrameCustomDict=== ===unMain=== ===undm=== ===cfSelectEdit=== ===need=== ===cfdxUtils===»)
 
(→‎undm)
Строка 3: Строка 3:
 
===unMain===
 
===unMain===
 
===undm===
 
===undm===
 +
'''function InitMGN: boolean;'''
 +
Инициализация глобального справочника
 +
 +
'''function ExtractFileNameWithoutExt(const FileName: string): string;'''
 +
'''procedure LoadSettings;'''
 +
'''procedure DoLocalSettings(bRead: boolean);'''
 +
'''procedure SendInfoM;'''
 +
'''procedure InitGDB;'''
 +
'''procedure InitOzDb;'''
 +
'''function GetFolder: string;'''
 +
'''procedure SelectsCheck;'''
 +
'''function TempQuery(trn: TIBTransaction = nil; db: TIBDatabase = nil): TIBQuery;'''
 +
'''function Init(var sMsg: string): boolean;'''
 +
'''function InitAfter(var sMsg: string): boolean;'''
 +
'''procedure SaveEncryptedSettings;'''
 +
'''function Autorisation: boolean;'''
 +
'''procedure LogIt(s: string);'''
 +
'''procedure LogException(s: string);'''
 +
procedure Display(s: string);
 +
function startsession(user_id: int64; forcecreate: boolean; var ws_name: string): boolean;
 +
procedure endsession(CLOSESESSION_ID: int64 = 0; ENDFLAG: integer = 0; DOEVENT: boolean = false);
 +
procedure SetDBVER;
 +
function NewWinBtn(caption: string; icon: TIcon): TSpeedButton;
 +
procedure initimagelist;
 +
procedure SaveUserDataFile;
 +
procedure SaveSettings;
 +
procedure SaveMngrWindowsSettings;
 +
procedure gbKeyPress(Key: Char; ed: TEdit; DoDigits: boolean = False);
 +
function SessionByID(id: int64): rSession;
 +
function SessionID: int64;
 +
function GetCustomDrawText(sField: string; AText: string): string;
 +
function DelFromGroup(CurMembership: TCurMembership): boolean;
 +
function CheckMembership(grouptablename: string; table_id: int64; checkgroup_ids: string): boolean;
 +
procedure ShowPartHistory(part_id: int64; ScreenRect, MaxRect: TRect);
 +
procedure InitGridParamView(gb: TCustomdxDBTreeListControl; gbName: string; filename: string; LoadAllRecordsMode: integer = 0);
 +
procedure gbCtrl(edcfSelect: TcfSelectEdit; Key: Word; Shift: TShiftState);
 +
procedure CancelgbCtrl(gb: TWinControl);
 +
function IsAdmin: boolean;
 +
function IsManager: boolean;
 +
procedure DoDates(ANode: TdxTreeListNode; fieldname: string; var AText: string; var AColor: TColor; AFont: TFont);
 +
procedure CheckSession;
 +
function GetCash: double;
 +
procedure CompleteCurParams(filename: string);
 +
function GetDocFrameById(id: int64): TFrameCustomDoc;
 +
procedure DrawImage_Folder(il: TImageList; ImageIndex: integer; AText: string; ACanvas: TCanvas; ARect: TRect; AColor: TColor; AFont: TFont);
 +
procedure ToolButtonDropDownMenuClick(btn: TToolButton);
 +
procedure ExecScript(group_id: int64; program_data: TStringList = nil); overload;
 +
procedure ExecScript(group_id: int64; program_data: TStringList; Sender: TObject); overload;
 +
procedure ExecScript(PartGroup: TPartGroup; program_data: TStringList; Sender: TObject); overload;
 +
procedure ExecScript(group_sid: string; program_data: TStringList; Sender: TObject); overload;
 +
procedure InitScriptsMenu(MenuItems: TMenuItem);
 +
function InitScripts_AddChilds_recur(ParentMI: TMenuItem): boolean;
 +
procedure UpdKritK(name_id: string; value: integer);
 +
function EditImageList(id: integer): boolean;
 +
procedure SetInitParams;
 +
function InitScales: boolean;
 +
function InitMgnCustomDicts: boolean;
 +
procedure InitDataSet(var IBQuery:TIBQuery);
 +
function GetStringFromClipboard: WideString;
 +
procedure RefreshGrid(Grid: TdxDBGrid; UniqueField: String);
 +
procedure CustomParamsInit;
 +
procedure CustomDictsInit;
 +
procedure ShowSplash;
 +
procedure InitPrinters;
 +
function PrepareForFind(s: string): string;
 +
function IsDigit(s: char): boolean;
 +
function RemoveLeft(s, val: string): string;
 +
function RemoveRight(s, val: string): string;
 +
function IsReg: boolean;
 +
function ConvertFSelect(svalue: string): string;
 +
procedure bLocate(qD: TIBQuery; UniqueField: String; id: Variant);
 +
function CreatePreviewFile(pict_id: int64): boolean;
 +
procedure UpdateUserMMBSH;
 +
function GetGoodNameID(sname: string): int64;
 +
function UserParamsByID(UserID: integer): TcfZip;
 +
function CopyGridParams(gb: TCustomdxDBTreeListControl; gbName, gbFileName: String; LoadAll: integer = 0): boolean;
 +
function GetGoodName(svalue: string): string;
 +
procedure CheckFields;
 +
procedure InitDocArchiveView;
 +
procedure CreateTrayIcon(n: Integer);
 +
procedure DeleteTrayIcon(n: Integer);
 +
procedure IconRepaint(index: integer; cp: string);
 +
function GetTmsParams: String;
 +
procedure CheckIndices;
 +
Procedure FillPartAttributes;
 +
procedure FreeEvent(id: string = '');
 +
procedure RefreshMacroParams;
 +
 
===cfSelectEdit===
 
===cfSelectEdit===
 
===need===
 
===need===
 
===cfdxUtils===
 
===cfdxUtils===

Версия 12:56, 6 апреля 2015

USES

unFrameCustomDict

unMain

undm

function InitMGN: boolean;
Инициализация глобального справочника

function ExtractFileNameWithoutExt(const FileName: string): string;
procedure LoadSettings;
procedure DoLocalSettings(bRead: boolean);
procedure SendInfoM;
procedure InitGDB;
procedure InitOzDb;
function GetFolder: string;
procedure SelectsCheck;
function TempQuery(trn: TIBTransaction = nil; db: TIBDatabase = nil): TIBQuery;
function Init(var sMsg: string): boolean;
function InitAfter(var sMsg: string): boolean;
procedure SaveEncryptedSettings;
function Autorisation: boolean;
procedure LogIt(s: string);
procedure LogException(s: string);
procedure Display(s: string);
function startsession(user_id: int64; forcecreate: boolean; var ws_name: string): boolean;
procedure endsession(CLOSESESSION_ID: int64 = 0; ENDFLAG: integer = 0; DOEVENT: boolean = false);
procedure SetDBVER;
function NewWinBtn(caption: string; icon: TIcon): TSpeedButton;
procedure initimagelist;
procedure SaveUserDataFile;
procedure SaveSettings;
procedure SaveMngrWindowsSettings;
procedure gbKeyPress(Key: Char; ed: TEdit; DoDigits: boolean = False);
function SessionByID(id: int64): rSession;
function SessionID: int64;
function GetCustomDrawText(sField: string; AText: string): string;
function DelFromGroup(CurMembership: TCurMembership): boolean;
function CheckMembership(grouptablename: string; table_id: int64; checkgroup_ids: string): boolean;
procedure ShowPartHistory(part_id: int64; ScreenRect, MaxRect: TRect);
procedure InitGridParamView(gb: TCustomdxDBTreeListControl; gbName: string; filename: string; LoadAllRecordsMode: integer = 0);
procedure gbCtrl(edcfSelect: TcfSelectEdit; Key: Word; Shift: TShiftState);
procedure CancelgbCtrl(gb: TWinControl);
function IsAdmin: boolean;
function IsManager: boolean;
procedure DoDates(ANode: TdxTreeListNode; fieldname: string; var AText: string; var AColor: TColor; AFont: TFont);
procedure CheckSession;
function GetCash: double;
procedure CompleteCurParams(filename: string);
function GetDocFrameById(id: int64): TFrameCustomDoc;
procedure DrawImage_Folder(il: TImageList; ImageIndex: integer; AText: string; ACanvas: TCanvas; ARect: TRect; AColor: TColor; AFont: TFont);
procedure ToolButtonDropDownMenuClick(btn: TToolButton);
procedure ExecScript(group_id: int64; program_data: TStringList = nil); overload;
procedure ExecScript(group_id: int64; program_data: TStringList; Sender: TObject); overload;
procedure ExecScript(PartGroup: TPartGroup; program_data: TStringList; Sender: TObject); overload;
procedure ExecScript(group_sid: string; program_data: TStringList; Sender: TObject); overload;
procedure InitScriptsMenu(MenuItems: TMenuItem);
function InitScripts_AddChilds_recur(ParentMI: TMenuItem): boolean;
procedure UpdKritK(name_id: string; value: integer);
function EditImageList(id: integer): boolean;
procedure SetInitParams;
function InitScales: boolean;
function InitMgnCustomDicts: boolean;
procedure InitDataSet(var IBQuery:TIBQuery);
function GetStringFromClipboard: WideString;
procedure RefreshGrid(Grid: TdxDBGrid; UniqueField: String);
procedure CustomParamsInit;
procedure CustomDictsInit;
procedure ShowSplash;
procedure InitPrinters;
function PrepareForFind(s: string): string;
function IsDigit(s: char): boolean;
function RemoveLeft(s, val: string): string;
function RemoveRight(s, val: string): string;
function IsReg: boolean;
function ConvertFSelect(svalue: string): string;
procedure bLocate(qD: TIBQuery; UniqueField: String; id: Variant);
function CreatePreviewFile(pict_id: int64): boolean;
procedure UpdateUserMMBSH;
function GetGoodNameID(sname: string): int64;
function UserParamsByID(UserID: integer): TcfZip;
function CopyGridParams(gb: TCustomdxDBTreeListControl; gbName, gbFileName: String; LoadAll: integer = 0): boolean;
function GetGoodName(svalue: string): string;
procedure CheckFields;
procedure InitDocArchiveView;
procedure CreateTrayIcon(n: Integer);
procedure DeleteTrayIcon(n: Integer);
procedure IconRepaint(index: integer; cp: string);
function GetTmsParams: String;
procedure CheckIndices;
Procedure FillPartAttributes;
procedure FreeEvent(id: string = );
procedure RefreshMacroParams;

cfSelectEdit

need

cfdxUtils

Источник — «http://wiki.standart-n.ru/index.php?title=ТМС:Менеджер&oldid=2314»