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

Версия 17:54, 6 апреля 2015

USES

unFrameCustomDict

unMain

undm

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

function ExtractFileNameWithoutExt(const FileName: string): string;
Возвращает имя файла без расширений и каталога

procedure LoadSettings;
Загрузка настроек пользователя из USERS поле DATA

procedure DoLocalSettings(bRead: boolean);
Установка локальных параметров. Например, параметры подключения к интеллектуальной заявке, сведения о регистрации программы, параметры подключения к интернету и прочее.

procedure SendInfoM;
Процедура собирает информацию о клиенте: параметры организации, имя компьютера, адрес организации о отправляет разработчикам.  

procedure InitGDB;
Инициализация подключения к базе Общего Заказа. PARAMS.PARAM_ID='GDB_CONNSTR'

procedure InitOzDb;
Инициализация подключения к базе Общего Заказа. PARAMS.PARAM_ID='OZ_CONNSTR'

function GetFolder: string;
Возвращает код выбранной группы (PARTS.FOLDERS). 0 - если не выбрано.

procedure SelectsCheck;
 Проверяет наличие всех необходимых режимов в SELECTS, если нет, то добавляет. Проверяемые коды: -14, -10, -11, -12, -13

function TempQuery(trn: TIBTransaction = nil; db: TIBDatabase = nil): TIBQuery;
Возвращает созданный TIBQuery, подключенный к текущей базе данных.

function Init(var sMsg: string): boolean;
Инициализация программы Менеджер

function InitAfter(var sMsg: string): boolean;
Выполняет следующие шаги запуска менеджера:
-Проверка набора системных запросов
-Инициализация менеджера форм
-Инициализация меню отчетов
-Инициализация Внешних справочников
-Инициализация клиента Интеллектуальной заявки
-Инициализация подпрограмм
-Инициализация фильтров архива документов
-Инициализация SpacePro справочников
-Инициализация принтеров
-Инициализация основной подпрограммы TMS (-400)
-Инициализация фрейма "Касса"
-Инициализация фрейма "Комплекты"
-Инициализация стилей
-Проверка индексов
-Загрузка настроек автонаценки

procedure SaveEncryptedSettings;
Сохранение зашифрованных настроек в файл params.stn. К таки параметрам относятся параметры подключения к базе данных, последний вошедший пользователь и прочее

function Autorisation: boolean;
Вызывается окно авторизации пользователя, загружаются параметры пользователя из users.userdata

procedure LogIt(s: string);
Выводит сообщение в панели сообщений отладки

procedure LogException(s: string);
В файл exceptions.log (логирование исключений) добавляет строку s

procedure Display(s: string);
Выводит сообщение s в строке состояния (левом нижнем углу)

function startsession(user_id: int64; forcecreate: boolean; var ws_name: string): boolean;
Создание новой сессии SESSOINS. 

procedure endsession(CLOSESESSION_ID: int64 = 0; ENDFLAG: integer = 0; DOEVENT: boolean = false);
Завершение работы текущей сессии. CLOSESESSION_ID - Код сессии, ENDFLAG - флаг закрытия, DOEVENT - признак наличия события.
Работает хранимая процедура PR_CLOSESESSION

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