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

Материал из wiki.standart-n.ru
Перейти к: навигация, поиск
(undm)
Строка 156: Строка 156:
  
 
  '''procedure ExecScript(group_id: int64; program_data: TStringList; Sender: TObject); overload;'''
 
  '''procedure ExecScript(group_id: int64; program_data: TStringList; Sender: TObject); overload;'''
 +
Запустить скрипт (подпрограммы) на выполнение с кодом group_id, где program_data входящие параметры, доступные в самом скрипте.
  
 
  '''procedure ExecScript(PartGroup: TPartGroup; program_data: TStringList; Sender: TObject); overload;'''
 
  '''procedure ExecScript(PartGroup: TPartGroup; program_data: TStringList; Sender: TObject); overload;'''
 +
Запустить скрипт (подпрограммы) на выполнение PartGroup, где program_data входящие параметры, доступные в самом скрипте.
  
 
  '''procedure ExecScript(group_sid: string; program_data: TStringList; Sender: TObject); overload;'''
 
  '''procedure ExecScript(group_sid: string; program_data: TStringList; Sender: TObject); overload;'''
 +
Запустить скрипт (подпрограммы) на выполнение с sid=group_sid, где program_data входящие параметры, доступные в самом скрипте.
  
 
  '''procedure InitScriptsMenu(MenuItems: TMenuItem);'''
 
  '''procedure InitScriptsMenu(MenuItems: TMenuItem);'''
 +
Инициализация меню подпрограмм. То, что будет выходить по кнопке "Выполнить": список скриптов, список TMS скриптов, "Обновить список подпрограмм"
  
 
  '''function InitScripts_AddChilds_recur(ParentMI: TMenuItem): boolean;'''
 
  '''function InitScripts_AddChilds_recur(ParentMI: TMenuItem): boolean;'''
 +
  
 
  '''procedure UpdKritK(name_id: string; value: integer);'''
 
  '''procedure UpdKritK(name_id: string; value: integer);'''

Версия 13:23, 7 апреля 2015

USES

unFrameCustomDict

unMain

undm

function InitMGN: boolean;
Инициализация глобального справочника
function ExtractFileNameWithoutExt(const FileName: string): string;
Возвращает имя файла без расширений и каталога
procedure LoadSettings;
Загрузка настроек интеллектуальной заявки ZAutoXP
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. Работает хранимая процедура PR_NEWSESSION
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;
Создает новую кнопку TSpeedButton и размещает ее на pnWindows. У меня эта процедура, почему то не работает...
procedure initimagelist;
Инициализация картинок, которые хранятся в таблице imagelist поле DATA. Данные картинки используются для картинок групп.
procedure SaveUserDataFile;
Сохранение параметров пользователя в USERS.USERDATA. Настройки сеток, настройки программы кассир на пользователя
procedure SaveSettings;
Сохранение настроек интеллектуальной заявки ZAutoXP
procedure SaveMngrWindowsSettings;
Сохранение положения и размера окна для окна истории товаров.
procedure gbKeyPress(Key: Char; ed: TEdit; DoDigits: boolean = False);
В ed выводит код нажатой клавиши.
function SessionByID(id: int64): rSession;
Возвращает параметры сессии по коду сессии. Возвращаемые значения: id,username,user_id,ws_id,wsname,ws_ip. Доступ к результату функции через точку.
Например: dm.SessionByID.wsname - имя компьютера с которого была запущена сессия с кодом 0. 
function SessionID: int64;
Возвращает код текущей сессии
function GetCustomDrawText(sField: string; AText: string): string;
Пока нет описания
function DelFromGroup(CurMembership: TCurMembership): boolean;
В TMS нет типа TCurMembership, по этому функция не используется. А вообще, удаляет запись из членства в группе.
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);
Инициализация внешнего вида сетки для заданной сетки из USERS.USERDATA
procedure gbCtrl(edcfSelect: TcfSelectEdit; Key: Word; Shift: TShiftState);
Послать нажатие клавиши Ctrl в определенную сетку. По умолчанию, очищает поле поиска. 
procedure CancelgbCtrl(gb: TWinControl);
После запуска данной процедуры клавиша Ctrl не будет очищать поиск.
function IsAdmin: boolean;
Если код текущего пользователя 0 или у текущего пользователя есть права администратора, то возвращает Истину, иначе ложь
function IsManager: boolean;
Если код текущего пользователя 0 или у текущего пользователя есть права менеджера или администратора, то возвращает Истину, иначе ложь
procedure DoDates(ANode: TdxTreeListNode; fieldname: string; var AText: string; var AColor: TColor; AFont: TFont);
Применяет раскраску ячеек в колонках срок годности, дата окончания, дата вставки, дата обновления на основании настроек программы для интерактивной подкраски.
procedure CheckSession;
Проверяет наличие открытой активной сессии для текущего пользователя и программы, если такой, нет - завершается работа программы.
function GetCash: double;
Обновление суммы наличности в кассе в журнале документов кассы.
procedure CompleteCurParams(filename: string);
Загрузить профиль интерфейса из файла (*.asni) USERS.USERDATA
function GetDocFrameById(id: int64): TFrameCustomDoc;
Возвращает фрейм (форму) активного документа по коду документа.
procedure DrawImage_Folder(il: TImageList; ImageIndex: integer; AText: string; ACanvas: TCanvas; ARect: TRect; AColor: TColor; AFont: TFont);
Прорисовать картинку с кодом ImageIndex из il у ARect с надписью AText
procedure ToolButtonDropDownMenuClick(btn: TToolButton);
Пустая процедура, ничего не делает
procedure ExecScript(group_id: int64; program_data: TStringList = nil); overload;
Запустить скрипт (подпрограммы) на выполнение с кодом group_id, где program_data входящие параметры, доступные в самом скрипте.
procedure ExecScript(group_id: int64; program_data: TStringList; Sender: TObject); overload;
Запустить скрипт (подпрограммы) на выполнение с кодом group_id, где program_data входящие параметры, доступные в самом скрипте.
procedure ExecScript(PartGroup: TPartGroup; program_data: TStringList; Sender: TObject); overload;
Запустить скрипт (подпрограммы) на выполнение PartGroup, где program_data входящие параметры, доступные в самом скрипте.
procedure ExecScript(group_sid: string; program_data: TStringList; Sender: TObject); overload;
Запустить скрипт (подпрограммы) на выполнение с sid=group_sid, где program_data входящие параметры, доступные в самом скрипте.
procedure InitScriptsMenu(MenuItems: TMenuItem);
Инициализация меню подпрограмм. То, что будет выходить по кнопке "Выполнить": список скриптов, список TMS скриптов, "Обновить список подпрограмм"
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