Разработка модуля поддержки процессов организации повышения квалификации преподавателей в рамках АСУ МИИТ

end;

procedure TForm_Plan.tv_com_specKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Key = VK_INSERT

then Allow_Insert(tv_com_spec, [REdit_Spec]);

end;

procedure TForm_Plan.tv_com_specMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button = mbRight

then Allow_Insert(tv_com_spec, [REdit_Spec]);

end;

procedure TForm_Plan.tv_com_specSelectionChanged(

Sender: TcxCustomGridTableView);

begin

Allow_Delete(Sender, tv_com_spec_status_order, tv_com_spec_id_erp_user, [REdit_Spec]);

end;

{ Настройка списков }

procedure TForm_Plan.Init(AReg_Path: String = Reg_Path);

begin

Curr_Reg_Path := AReg_Path;

{ Описание для различных оберток }

// *****************************************************************************

cW_Institute_Filter := TContainerWrappers.Create;

cW_Institute_Filter.AddPopupEdit(PopupEdit_Filter_Org, false, false, cxGrid_Institutes,

tv_institutes ,tv_institutes_ID, [tv_institutes_Abbr, tv_institutes_Name], '');

cW_Institute_Filter.OnChangedValueWrapper := DoChanged_cW_Intitute_Filter;;

// *****************************************************************************

// *****************************************************************************

cW_New_Com_Spec := TContainerWrappers.Create;

cW_New_Com_Spec.AddPopupEdit(cxPopupEdit_New_Com_Spec, true, false, cxGrid_Spec_Div_Popup,

tv_spec_div_popup, tv_spec_div_popup_id_spec_div, [tv_spec_div_popup_name_spec, tv_spec_div_popup_name_div, tv_spec_div_popup_kind_training], '');

cW_New_Com_Spec.AddButtonOrderEdit(cxButtonEdit_New_Com_Spec_Paragraph, True,

False, '', ['901'],[OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW], [nil,nil,nil,nil]);

cW_New_Com_Spec.AddCustomEdit(cxSpinEdit_New_Com_Spec_Hours, true, false, '');

cW_New_Com_Spec.AddCustomEdit(cxSpinEdit_New_Com_Spec_Hours_SR, true, false, '');

cW_New_Com_Spec.AddPopupEdit(cxPopupEdit_New_Com_Spec_Div, true, false, cxGrid_Spec_Div_Popup, tv_spec_div_popup, tv_spec_div_popup_id_d, [tv_spec_div_popup_name_div], '');

cW_New_Com_Spec.AddPopupEdit(cxPopupEdit_New_Com_Spec_Kind_Training, true, false, cxGrid_Spec_Div_Popup, tv_spec_div_popup, tv_spec_div_popup_idk_training, [tv_spec_div_popup_kind_training], '');

cW_New_Com_Spec.OnChangeWrapper := DoChanged_cW_New_Com_Spec;

// *****************************************************************************

// ---------------------------------------------

// добавление институтов

// ---------------------------------------------

if Get_SqlData_cxGrid(tv_institutes) = nil

then with TSqlData_cxGridTableView.Create(tv_institutes)

do begin

Editing := false;

Table_Name := 'Институты';

GUID_Select := Get_List_Institutes;

StepOnTopDataRecordMode := True;

Params := CreateVarAr([IDK_Level_Spec]);

Select_Columns.Add(tv_institutes_Abbr);

Select_Columns.Add(tv_institutes_Name);

Select_Columns.Add(tv_institutes_ID);

Key_Columns.Add(tv_institutes_ID);

Stat_Column := tv_institutes_Abbr;

NameColumnsForPopupEdit.Add(tv_institutes_Abbr);

NameColumnsForPopupEdit.Add(tv_institutes_Name);

end;

// ---------------------------------------------

// ---------------------------------------------

// добавление обучаемых специальностей (специальности подразделений)

// ---------------------------------------------

if Get_SqlData_cxGrid(tv_spec_div_popup) = nil

then with TSqlData_cxGridTableView.Create(tv_spec_div_popup)

do begin

Editing := false;

Single := false;

Table_Name := 'Обучаемые специальности';

GUID_Select := Spec_div;

StepOnTopDataRecordMode := True;

Params := CreateVarAr([IDK_Level_Spec,'']);

Stat_Column := tv_spec_div_popup_institute;

NameColumnForPopupEdit := tv_spec_div_popup_institute;

with Select_Columns

do begin

Add(tv_spec_div_popup_name_spec,1);

Add(tv_spec_div_popup_name_div,2);

Add(tv_spec_div_popup_kind_training,3);

Add(tv_spec_div_popup_institute,6);

Add(tv_spec_div_popup_source,12);

Add(tv_spec_div_popup_d_start,4);

Add(tv_spec_div_popup_d_end,5);

Add(tv_spec_div_popup_id_spec_div,0);

Add(tv_spec_div_popup_id_spec,1);

Add(tv_spec_div_popup_id_d,2);

Add(tv_spec_div_popup_idk_training,3);

Add(tv_spec_div_popup_id_d_institute,6);

Add(tv_spec_div_popup_id_source,12);

Add(tv_spec_div_popup_idk_level_formation,8);

end;

Key_Columns.Add(tv_spec_div_popup_id_spec_div,0);

PopupActions.Add(ActionUpdate);

end;

// ---------------------------------------------

// ---------------------------------------------

// добавление специальностей комплекса

// ---------------------------------------------

if Get_SqlData_cxGrid(tv_com_spec) = nil

then with TSqlData_cxGridTableView.Create(tv_com_spec)

do begin

Editing := true;

Single := false;

Table_Name := 'Специальности комплекса';

GUID_Select := Com_Spec;

GUID_Delete := Delete_Com_Spec;

GUID_Update_Exchange := Update_Com_Spec;

StepOnTopDataRecordMode := True;

Params := CreateVarAr(['']);

Stat_Column := tv_com_spec_name_div;

NameColumnForPopupEdit := tv_com_spec_name_div;

OnBefore_Delete_Exchange := Before_Delete_Exchange;

OnBefore_Update_Exchange := Before_Update_Exchange;

with Select_Columns

do begin

Add(tv_com_spec_name_spec);

Add(tv_com_spec_name_div);

Add(tv_com_spec_kind_training);

Add(tv_com_spec_status_text);

Add(tv_com_spec_hours,5);

Add(tv_com_spec_id_spec_div);

Add(tv_com_spec_id_spec);

Add(tv_com_spec_id_d_spec_div);

Add(tv_com_spec_idk_training);

Add(tv_com_spec_status_order);

Add(tv_com_spec_id_p_dp);

Add(tv_com_spec_id_order);

Add(tv_com_spec_idk_order);

Add(tv_com_spec_id_met_complex);

Add(tv_com_spec_id_e_l_umk);

Add(tv_com_spec_id_erp_user);

end;

with IndividualEditInfoList.Add

do begin

GUID_Update := d_P_EDUCATIONAL_LOAD_UMK;

KeyColumns.Add(tv_com_spec_id_met_complex,1);

EditColumns.Add(tv_com_spec_hours,5);

end;

with PopupColumnsList.Add(tv_com_spec_name_spec)

do begin

SelfKeyColumn := tv_com_spec_id_spec_div;

PopupKeyColumn := tv_spec_div_popup_id_spec_div;

PopupNameColumn := tv_spec_div_popup_name_spec;

end;

with PopupColumnsList.Add(tv_com_spec_name_div)

do begin

SelfKeyColumn := tv_com_spec_id_spec_div;

PopupKeyColumn := tv_spec_div_popup_id_spec_div;

PopupNameColumn := tv_spec_div_popup_name_div;

end;

with PopupColumnsList.Add(tv_com_spec_kind_training)

do begin

SelfKeyColumn := tv_com_spec_id_spec_div;

PopupKeyColumn := tv_spec_div_popup_id_spec_div;

PopupNameColumn := tv_spec_div_popup_kind_training;

end;

OptionsOrder.Column_Status_Text := tv_com_spec_status_text;

OptionsOrder.Column_ID_order := tv_com_spec_id_order;

OptionsOrder.Column_ID_paragraph := tv_com_spec_id_p_dp;

OptionsOrder.Column_IDk_order := tv_com_spec_idk_order;

ActionInsert.Visible:=True;

ActionInsert.OnExecute:=Action_Insert_Com_Spec.OnExecute;

PopupActions.Add(ActionInsert);

PopupActions.Add(ActionDelete);

PopupActions.Add(nil);

PopupActions.Add(OptionsOrder.ActionPreview);

PopupActions.Add(OptionsOrder.ActionNavigate);

PopupActions.Add(nil);

PopupActions.Add(ActionUpdate);

end;

// ---------------------------------------------

{ Cкрываем ненужные страницы }

cxTabSheet_Editing.TabVisible := False;

cxTabSheet_Add.TabVisible := False;

{ Прочитаем параметры из реестра }

Save_Restore_Params(Curr_Reg_Path, True);

end;

procedure TForm_Plan.Action_Insert_Com_SpecExecute(Sender: TObject);

//const Name = 'Содержание методического комплекса';

var

mf: TSForm;

begin

try // 1

mf := CreateSForm(self, 'fNew_Com_Spec'

, cxTabSheet_New_Com_Spec.Caption

, Add_Path + cxTabSheet_New_Com_Spec.Caption

, Panel_New_Com_Spec, tdb_Apply);

cW_New_Com_Spec.OnChangeWrapper(nil);

mf.Position := poScreenCenter;

if mf.ShowModal = mrOk

then begin // 2

FSqlData_TableView := Get_SqlData_cxGrid(tv_com_spec);

if FSqlData_TableView <> nil

then begin // 3

if MSystemServices.ExchangeData(Add_Com_Spec,

CreateVarAr([

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Div].Value

,cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec].Value

,cW_New_Com_Spec.Wrappers[cxButtonEdit_New_Com_Spec_Paragraph].Value

,cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Kind_Training].Value

,cW_New_Com_Spec.Wrappers[cxSpinEdit_New_Com_Spec_Hours].Value

,IDK_Discipline

,cW_New_Com_Spec.Wrappers[cxSpinEdit_New_Com_Spec_Hours_SR].Value

])

,'Добавление программы методического комплекса.')

then begin // 4

TButtonOrderEditWrapper(cW_New_Com_Spec.Wrappers[cxButtonEdit_New_Com_Spec_Paragraph]).IsEmpty := false;

FSqlData_TableView.Read_Data;

FindGridRecord(tv_com_spec, [tv_com_spec_id_spec_div, tv_com_spec_id_p_dp],

VarArrayOf([cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec].Value,

cW_New_Com_Spec.Wrappers[cxButtonEdit_New_Com_Spec_Paragraph].Value]), true);

end; // 4

end; // 3

end; // 2

finally // 1

if assigned(mf)

then FreeAndNil(mf);

end; // 1

end;

procedure TForm_Plan.Fill_tv_com_specExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_com_spec);

if (FSqlData_TableView <> nil)

then begin // 1

if PopupEdit_Filter_Org.Text <> ''

then Get_SqlData_cxGrid(tv_com_spec).Params[0] :=

VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value)

else Get_SqlData_cxGrid(tv_com_spec).Params[0] := '';

if FSqlData_TableView.IsFirstRead

then FSqlData_TableView.Read_Data_First

else FSqlData_TableView.Read_Data;

end; // 1

end;

procedure TForm_Plan.Fill_tv_intitutesExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_institutes);

if (FSqlData_TableView <> nil) and FSqlData_TableView.IsFirstRead

then FSqlData_TableView.Read_Data_First;

end;

procedure TForm_Plan.Fill_tv_spec_divExecute(Sender: TObject);

var Param1: string;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_spec_div_popup);

if (FSqlData_TableView <> nil)

then begin // 1

Param1 := VarToStr(cW_Institute_Filter.Wrappers[PopupEdit_Filter_Org].Value);

if VarToStr(FSqlData_TableView.Params[1]) <> Param1

then begin // 2

FSqlData_TableView.Params[1] := Param1;

FSqlData_TableView.Read_Data;

end // 2

else

if FSqlData_TableView.IsFirstRead

then FSqlData_TableView.Read_Data_First;

end; // 1

end;

procedure TForm_Plan.FormDestroy(Sender: TObject);

begin

{ Сохраним параметры в реестр }

Save_Restore_Params(Curr_Reg_Path, False);

end;

procedure TForm_Plan.FormShow(Sender: TObject);

begin

{ Перечитываем списки }

Fill_tv_com_specExecute(self);

end;

procedure TForm_Plan.DoChanged_cW_New_Com_Spec(AWrapper: TCustomEditWrapper);

begin

if AWrapper = cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec]

then begin // 1

if not cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec].IsClear

then begin // 2

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Kind_Training].Value :=

VarToStr(tv_spec_div_popup.DataController.Values[tv_spec_div_popup.DataController.FocusedRecordIndex

,tv_spec_div_popup_idk_training.Index]);

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Kind_Training].ValueDisplay :=

VarToStr(tv_spec_div_popup.DataController.Values[tv_spec_div_popup.DataController.FocusedRecordIndex

,tv_spec_div_popup_kind_training.Index]);

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Div].Value :=

VarToStr(tv_spec_div_popup.DataController.Values[tv_spec_div_popup.DataController.FocusedRecordIndex

,tv_spec_div_popup_id_d.Index]);

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Div].ValueDisplay :=

VarToStr(tv_spec_div_popup.DataController.Values[tv_spec_div_popup.DataController.FocusedRecordIndex

,tv_spec_div_popup_name_div.Index]);

end // 2

else begin // 3

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Div].Value := '';

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Div].ValueDisplay := '';

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Kind_Training].Value := '';

cW_New_Com_Spec.Wrappers[cxPopupEdit_New_Com_Spec_Kind_Training].ValueDisplay := '';

end; // 3

end; // 1

MakeEnable_OkButton(Panel_New_Com_Spec, cW_New_Com_Spec.IsNotEmptyMandatory);

end;

procedure TForm_Plan.DoChanged_cW_Intitute_Filter(AWrapper: TCustomEditWrapper);

begin

Fill_tv_com_specExecute(self);

end;

procedure TForm_Plan.Before_Delete_Exchange(Sender: TSqlData_cxGridTableView; ARecordIndex: Integer; var ExchangeParameters: OleVariant);

begin

if Sender.GridTableView = tv_com_spec

then with Sender.GridTableView.DataController do

ExchangeParameters := CreateVarAr([Values[FocusedRecordIndex, tv_com_spec_id_met_complex.Index]

,Values[FocusedRecordIndex, tv_com_spec_id_spec_div.Index]

,Values[FocusedRecordIndex, tv_com_spec_id_p_dp.Index]

]);

end;

procedure TForm_Plan.Before_Update_Exchange(Sender: TSqlData_cxGridTableView;

UpdateValue: Variant; AItem: TcxCustomGridTableItem; ARecordIndex: Integer;

var ExchangeParameters: OleVariant; var Allow: Boolean);

begin

if (Sender.GridTableView = tv_com_spec)

and (Sender.GridTableView.Controller.FocusedColumn <> tv_com_spec_hours)

then with Sender.GridTableView.DataController do

ExchangeParameters :=

CreateVarAr([Values[FocusedRecordIndex, tv_com_spec_id_met_complex.Index]

,Values[FocusedRecordIndex, tv_com_spec_id_spec_div.Index]

,Values[FocusedRecordIndex, tv_com_spec_id_p_dp.Index]

,tv_spec_div_popup.DataController.Values[tv_spec_div_popup.DataController.FocusedRecordIndex

,tv_spec_div_popup_id_spec_div.Index]

,tv_spec_div_popup.DataController.Values[tv_spec_div_popup.DataController.FocusedRecordIndex

,tv_spec_div_popup_idk_training.Index]

,tv_spec_div_popup.DataController.Values[tv_spec_div_popup.DataController.FocusedRecordIndex

,tv_spec_div_popup_id_d.Index]

]);

end;

procedure TForm_Plan.cxPopupEdit_New_Com_SpecPropertiesInitPopup(

Sender: TObject);

begin

Fill_tv_spec_divExecute(self);

end;

unit Event

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, cxPC, cxControls, cxSplitter, cxStyles, cxCustomData,

cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxGridLevel,

cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,

cxGridCustomView, cxGrid, cxEditRepositoryItems, cxClasses, cxTL,

cxContainer, cxPropertiesStore, cxTextEdit, cxMaskEdit, cxDropDownEdit,

cxLabel, wrappers, ActnList, cxLookAndFeels, cxLookAndFeelPainters,

cxSpinEdit,

cxCalendar, GridEditClass, cxButtonEdit, SE, cxGroupBox, Find_Org,

LP_u_MA_Interface,

UnivQuestionnaire, Menus, StdCtrls, cxButtons, cxCurrencyEdit, DateUtils,

cxMemo, OleServer, Excel2000, cxProgressBar, cxCheckBox, cxRadioGroup;

const

{ Роль на редактирование учебных групп, сроков проведения и плана ПК }

Action_Q_Edit_Groups = '1402';

{ Роль на просмотр мероприятий }

Action_Q_View_Event = '1403';

{ Полный доступ к мероприятиям }

Action_Q_Edit_Event = '1404';

{ Вид уровня специальности "Повышение квалификации" }

IDK_Level_Spec = '70';

IDK_Discipline = '59454';

{ Путь для сохранения в реестре }

Reg_Path = '\Software\AS Pilot group\Parameters\Модуль повышения квалификации\Мероприятия';

{ Путь для сохранения списков }

Grid_Path = '\Параметры списков\';

{ Путь для добавления }

Add_Path = 'Модуль повышения квалификации\Мероприятия\Добавление\';

// Выбор участника

Choice_Listener = 'Участник не выбран';

// Печать сертификата

View_Cert: TGUID = '{5F2398A1-75FE-4E65-B294-4F1A47315662}';

type

TForm_Event = class(TForm)

Panel_Main: TPanel;

cxSplitter2: TcxSplitter;

PageControl_Main: TcxPageControl;

cxTabSheet_R_C_Groups: TcxTabSheet;

cxEditStyleController1: TcxEditStyleController;

cxStyleRepository3: TcxStyleRepository;

st_Group: TcxStyle;

sf_s_ContentEVEN: TcxStyle;

st_Filter_Box: TcxStyle;

st_Footer: TcxStyle;

st_Inactive: TcxStyle;

st_Indicator: TcxStyle;

st_Preview: TcxStyle;

st_Selection: TcxStyle;

st_ContentOdd: TcxStyle;

st_Content_TEXT: TcxStyle;

st_Content_POPUP: TcxStyle;

st_Content_DATE: TcxStyle;

st_Content_QUALIFIER: TcxStyle;

st_Footer_Column: TcxStyle;

st_Content_ID: TcxStyle;

st_Content_Memo: TcxStyle;

st_Content_Project: TcxStyle;

st_Content_Cancel: TcxStyle;

st_Content_ProjectSend: TcxStyle;

st_Content_Owner: TcxStyle;

st_Content_NotOwner: TcxStyle;

st_Content_Hot_Track: TcxStyle;

st_Inc_Search: TcxStyle;

st_Group_By_Box: TcxStyle;

st_Header: TcxStyle;

cxTreeList_Style_1: TcxTreeListStyleSheet;

cxGrid_Style_1: TcxGridBandedTableViewStyleSheet;

cxEditRepository1: TcxEditRepository;

cxER_Date_None_Blank: TcxEditRepositoryDateItem;

cxER_Date_With_Blank: TcxEditRepositoryDateItem;

cxER_Spin_ID: TcxEditRepositorySpinItem;

cxER_Text_RO: TcxEditRepositoryTextItem;

cxER_Memo_RO: TcxEditRepositoryMemoItem;

cxER_Date_RO: TcxEditRepositoryDateItem;

cxPropertiesStore1: TcxPropertiesStore;

cxER_Text: TcxEditRepositoryTextItem;

cxGrid_R_C_Plan: TcxGrid;

tv_r_c_plan: TcxGridBandedTableView;

cxGrid_R_C_Plan_Level1: TcxGridLevel;

tv_r_c_plan_name_spec: TcxGridBandedColumn;

tv_r_c_plan_institute: TcxGridBandedColumn;

tv_r_c_plan_division: TcxGridBandedColumn;

tv_r_c_plan_kind_training: TcxGridBandedColumn;

tv_r_c_plan_d_start: TcxGridBandedColumn;

tv_r_c_plan_d_end: TcxGridBandedColumn;

tv_r_c_plan_status_text: TcxGridBandedColumn;

tv_r_c_plan_id_r_c_plan: TcxGridBandedColumn;

tv_r_c_plan_id_spec_div: TcxGridBandedColumn;

tv_r_c_plan_id_spec: TcxGridBandedColumn;

tv_r_c_plan_id_institute: TcxGridBandedColumn;

tv_r_c_plan_id_d: TcxGridBandedColumn;

tv_r_c_plan_idk_training: TcxGridBandedColumn;

tv_r_c_plan_id_paragraph: TcxGridBandedColumn;

tv_r_c_plan_id_order: TcxGridBandedColumn;

tv_r_c_plan_idk_order: TcxGridBandedColumn;

tv_r_c_plan_status_order: TcxGridBandedColumn;

cxGrid_R_C_Groups: TcxGrid;

tv_r_c_groups: TcxGridBandedTableView;

cxGrid_R_C_Groups_Level1: TcxGridLevel;

ActionList1: TActionList;

Action_Insert_tv_r_c_plan: TAction;

cxTabSheet_Add: TcxTabSheet;

cxTabSheet_Editing: TcxTabSheet;

cxPageControl1: TcxPageControl;

cxTabSheet1: TcxTabSheet;

Panel_New_R_C_Plan: TPanel;

cxLabel7: TcxLabel;

cxLabel10: TcxLabel;

cxPopupEdit_New_R_C_Plan_Spec_Div: TcxPopupEdit;

cxButtonEdit_New_R_C_Plan_Paragraph: TcxButtonEdit;

cxLabel15: TcxLabel;

cxDateEdit_New_R_C_Plan_D_Start: TcxDateEdit;

cxDateEdit_New_R_C_Plan_D_End: TcxDateEdit;

cxLabel14: TcxLabel;

cxPageControl2: TcxPageControl;

cxTabSheet2: TcxTabSheet;

cxGrid_Spec_Div_PopUp: TcxGrid;

tv_spec_div_popup: TcxGridBandedTableView;

tv_spec_div_popup_name_spec: TcxGridBandedColumn;

tv_spec_div_popup_name_div: TcxGridBandedColumn;

tv_spec_div_popup_kind_training: TcxGridBandedColumn;

tv_spec_div_popup_institute: TcxGridBandedColumn;

tv_spec_div_popup_source: TcxGridBandedColumn;

tv_spec_div_popup_d_start: TcxGridBandedColumn;

tv_spec_div_popup_d_end: TcxGridBandedColumn;

tv_spec_div_popup_id_spec_div: TcxGridBandedColumn;

tv_spec_div_popup_id_spec: TcxGridBandedColumn;

tv_spec_div_popup_id_d: TcxGridBandedColumn;

tv_spec_div_popup_idk_training: TcxGridBandedColumn;

tv_spec_div_popup_id_d_institute: TcxGridBandedColumn;

tv_spec_div_popup_id_source: TcxGridBandedColumn;

tv_spec_div_popup_idk_level_formation: TcxGridBandedColumn;

cxGridLevel8: TcxGridLevel;

Fill_tv_spec_div_popup: TAction;

tv_r_c_groups_name: TcxGridBandedColumn;

tv_r_c_groups_d_start: TcxGridBandedColumn;

tv_r_c_groups_d_end: TcxGridBandedColumn;

tv_r_c_groups_status_text: TcxGridBandedColumn;

tv_r_c_groups_id_rc_group: TcxGridBandedColumn;

tv_r_c_groups_id_ed_group: TcxGridBandedColumn;

tv_r_c_groups_id_met_complex: TcxGridBandedColumn;

tv_r_c_groups_id_paragraph: TcxGridBandedColumn;

tv_r_c_groups_id_order: TcxGridBandedColumn;

tv_r_c_groups_idk_order: TcxGridBandedColumn;

tv_r_c_groups_status_order: TcxGridBandedColumn;

cxTabSheet3: TcxTabSheet;

tv_r_c_groups_id_r_c_plan: TcxGridBandedColumn;

Action_Insert_tv_r_c_group: TAction;

cxTabSheet4: TcxTabSheet;

cxGrid_Ed_Group: TcxGrid;

tv_ed_group: TcxGridBandedTableView;

tv_ed_group_name: TcxGridBandedColumn;

tv_ed_group_kind_group: TcxGridBandedColumn;

tv_ed_group_d_start: TcxGridBandedColumn;

tv_ed_group_d_end: TcxGridBandedColumn;

tv_ed_group_id_ed_group: TcxGridBandedColumn;

tv_ed_group_id_spec_div: TcxGridBandedColumn;

tv_ed_group_idk_group: TcxGridBandedColumn;

tv_ed_group_level_group: TcxGridBandedColumn;

cxGridLevel6: TcxGridLevel;

Panel_New_R_C_Group: TPanel;

cxLabel1: TcxLabel;

cxLabel2: TcxLabel;

cxPopupEdit_New_R_C_Group_Ed_Group: TcxPopupEdit;

cxLabel3: TcxLabel;

cxDateEdit_New_R_C_Group_D_Start: TcxDateEdit;

cxDateEdit_New_R_C_Group_D_End: TcxDateEdit;

cxLabel4: TcxLabel;

cxPopupEdit_New_R_C_Group_Met_Complex: TcxPopupEdit;

cxTabSheet5: TcxTabSheet;

cxGrid_Com_Spec: TcxGrid;

tv_com_spec: TcxGridBandedTableView;

tv_com_spec_name_spec: TcxGridBandedColumn;

tv_com_spec_name_div: TcxGridBandedColumn;

tv_com_spec_kind_training: TcxGridBandedColumn;

tv_com_spec_status_text: TcxGridBandedColumn;

tv_com_spec_hours: TcxGridBandedColumn;

tv_com_spec_status_order: TcxGridBandedColumn;

tv_com_spec_id_spec_div: TcxGridBandedColumn;

tv_com_spec_id_spec: TcxGridBandedColumn;

tv_com_spec_id_d_spec_div: TcxGridBandedColumn;

tv_com_spec_idk_training: TcxGridBandedColumn;

tv_com_spec_id_p_dp: TcxGridBandedColumn;

tv_com_spec_id_order: TcxGridBandedColumn;

tv_com_spec_idk_order: TcxGridBandedColumn;

tv_com_spec_id_met_complex: TcxGridBandedColumn;

tv_com_spec_id_e_l_umk: TcxGridBandedColumn;

cxGridLevel5: TcxGridLevel;

Fill_tv_com_spec: TAction;

tv_com_spec_institute: TcxGridBandedColumn;

tv_com_spec_id_institute: TcxGridBandedColumn;

Fill_tv_ed_group: TAction;

Fill_tv_r_c_plan: TAction;

cxTabSheet_Listeners: TcxTabSheet;

cxGrid_Listeners: TcxGrid;

tv_listeners: TcxGridBandedTableView;

cxGridLevel1: TcxGridLevel;

tv_listeners_fio: TcxGridBandedColumn;

tv_listeners_ed_group: TcxGridBandedColumn;

tv_listeners_d_start: TcxGridBandedColumn;

tv_listeners_d_end: TcxGridBandedColumn;

tv_listeners_kind_basis_action: TcxGridBandedColumn;

tv_listeners_status_text_order_start: TcxGridBandedColumn;

tv_listeners_id_e: TcxGridBandedColumn;

tv_listeners_id_ed_group: TcxGridBandedColumn;

tv_listeners_id_paragraph_start: TcxGridBandedColumn;

tv_listeners_id_order_start: TcxGridBandedColumn;

tv_listeners_idk_order_start: TcxGridBandedColumn;

tv_listeners_status_order_start: TcxGridBandedColumn;

tv_listeners_id_student: TcxGridBandedColumn;

tv_listeners_idkba_transfer: TcxGridBandedColumn;

cxTabSheet7: TcxTabSheet;

Panel_New_Listener: TPanel;

cxLabel5: TcxLabel;

cxLabel6: TcxLabel;

cxPopupEdit_New_Listener_FIO: TcxPopupEdit;

cxButtonEdit_New_Listener_Order_Start: TcxButtonEdit;

cxLabel8: TcxLabel;

cxDateEdit_New_Listener_D_Start: TcxDateEdit;

cxDateEdit_New_Listener_D_End: TcxDateEdit;

cxPopupEdit_New_Listener_Ed_Group: TcxPopupEdit;

cxLabel11: TcxLabel;

cxLabel9: TcxLabel;

cxLabel12: TcxLabel;

cxPopupEdit_New_Listener_Kind_Basis_Action: TcxPopupEdit;

cxTabSheet8: TcxTabSheet;

cxGrid_KBA_Start: TcxGrid;

tv_kba_start: TcxGridBandedTableView;

cxGridLevel2: TcxGridLevel;

tv_kba_start_name: TcxGridBandedColumn;

tv_kba_start_id: TcxGridBandedColumn;

Fill_tv_r_c_groups: TAction;

Fill_tv_listeners: TAction;

Action_Insert_tv_listeners: TAction;

Fill_tv_kba_start: TAction;

cxGroupBox_New_Listener_Contract_Params: TcxGroupBox;

cxLabel13: TcxLabel;

cxPopupEdit_New_Listener_Kind_Order: TcxPopupEdit;

cxLabel16: TcxLabel;

cxPopupEdit_New_Listener_Order: TcxPopupEdit;

cxLabel17: TcxLabel;

cxDateEdit_New_Listener_Contract_D_Start: TcxDateEdit;

cxLabel18: TcxLabel;

cxDateEdit_New_Listener_Contract_D_End: TcxDateEdit;

cxLabel19: TcxLabel;

cxPopupEdit_New_Listener_Contract_Organization: TcxPopupEdit;

cxLabel20: TcxLabel;

cxLabel21: TcxLabel;

cxPopupEdit_New_Listener_Contract_Source_Finansing: TcxPopupEdit;

cxTabSheet6: TcxTabSheet;

cxGrid_Kind_Order: TcxGrid;

tv_kind_order: TcxGridBandedTableView;

tv_kind_order_name: TcxGridBandedColumn;

tv_kind_order_id: TcxGridBandedColumn;

cxGridLevel3: TcxGridLevel;

cxTabSheet9: TcxTabSheet;

cxGrid_Contracts: TcxGrid;

tv_contracts: TcxGridBandedTableView;

cxGridLevel4: TcxGridLevel;

tv_contracts_contract: TcxGridBandedColumn;

tv_contracts_d_start: TcxGridBandedColumn;

tv_contracts_d_end: TcxGridBandedColumn;

tv_contracts_kind_order: TcxGridBandedColumn;

tv_contracts_id_contract: TcxGridBandedColumn;

tv_contracts_id_paragraph: TcxGridBandedColumn;

tv_contracts_id_order: TcxGridBandedColumn;

tv_contracts_idk_order: TcxGridBandedColumn;

tv_contracts_status_order: TcxGridBandedColumn;

cxTabSheet10: TcxTabSheet;

cxGrid_Source_Financing: TcxGrid;

tv_Source_Financing: TcxGridBandedTableView;

tv_Source_Financing_Abbreviation: TcxGridBandedColumn;

tv_Source_Financing_Name: TcxGridBandedColumn;

tv_Source_Financing_Abbr_Div: TcxGridBandedColumn;

tv_Source_Financing_Division: TcxGridBandedColumn;

tv_Source_Financing_Kind_Source: TcxGridBandedColumn;

tv_Source_Financing_Activity: TcxGridBandedColumn;

tv_Source_Financing_Date_Close: TcxGridBandedColumn;

tv_Source_Financing_ID: TcxGridBandedColumn;

tv_Source_Financing_ID_D: TcxGridBandedColumn;

tv_Source_Financing_ID_Kind_Source: TcxGridBandedColumn;

tv_Source_Financing_ID_Activity: TcxGridBandedColumn;

cxGridLevel7: TcxGridLevel;

Fill_tv_kind_order: TAction;

Fill_tv_contracts: TAction;

Fill_tv_source_finansing: TAction;

tv_listeners_org: TcxGridBandedColumn;

tv_listeners_money: TcxGridBandedColumn;

tv_listeners_status_text_contract: TcxGridBandedColumn;

tv_listeners_status_text_order_end: TcxGridBandedColumn;

tv_listeners_id_contract: TcxGridBandedColumn;

Delete_tv_listeners: TAction;

cxPageControl_Student: TcxPageControl;

cxSplitter3: TcxSplitter;

cxTabSheet_Orders: TcxTabSheet;

cxGrid_Orders: TcxGrid;

tv_orders: TcxGridBandedTableView;

cxGridLevel9: TcxGridLevel;

tv_orders_id_order: TcxGridBandedColumn;

tv_orders_kind_paragraph: TcxGridBandedColumn;

tv_orders_status_text: TcxGridBandedColumn;

tv_orders_id_paragraph: TcxGridBandedColumn;

tv_orders_d_creation: TcxGridBandedColumn;

tv_orders_d_modification: TcxGridBandedColumn;

tv_orders_idk_order: TcxGridBandedColumn;

tv_orders_status_order: TcxGridBandedColumn;

Fill_tv_orders: TAction;

tv_listeners_id_paragraph_contract: TcxGridBandedColumn;

tv_r_c_plan_id_erp_user: TcxGridBandedColumn;

tv_r_c_groups_id_erp_user: TcxGridBandedColumn;

tv_listeners_id_erp_user: TcxGridBandedColumn;

tv_orders_ed_group: TcxGridBandedColumn;

tv_orders_spec: TcxGridBandedColumn;

tv_orders_d_start: TcxGridBandedColumn;

tv_orders_kind_training: TcxGridBandedColumn;

tv_orders_institute: TcxGridBandedColumn;

tv_orders_status_order_contract: TcxGridBandedColumn;

tv_orders_kind_paragraph_contract: TcxGridBandedColumn;

cxTabSheet_Anketa: TcxTabSheet;

tv_listeners_id_contractor: TcxGridBandedColumn;

Panel_Anketa: TPanel;

Fill_Anketa: TAction;

tv_r_c_groups_hours: TcxGridBandedColumn;

tv_listeners_hours: TcxGridBandedColumn;

cxTabSheet_Contracts: TcxTabSheet;

Panel_FIO: TPanel;

Label_FIO: TcxLabel;

tv_r_c_plan_id_source: TcxGridBandedColumn;

tv_r_c_plan_source: TcxGridBandedColumn;

cxGroupBox_Contract_Params: TcxGroupBox;

cxLabel22: TcxLabel;

cxDateEdit_PC_D_Start: TcxDateEdit;

cxLabel23: TcxLabel;

cxDateEdit_PC_D_End: TcxDateEdit;

cxLabel24: TcxLabel;

cxPopupEdit_PC_Org: TcxPopupEdit;

cxLabel25: TcxLabel;

cxLabel26: TcxLabel;

cxPopupEdit_PC_SF: TcxPopupEdit;

cxLabel27: TcxLabel;

cxButtonEdit_PC_Contract: TcxButtonEdit;

cxLabel28: TcxLabel;

cxPopupEdit_PC_Kind_Order: TcxPopupEdit;

cxLabel30: TcxLabel;

cxButtonEdit_PC_Create_Direction: TcxButtonEdit;

cxButtonEdit_PC_Direction: TcxButtonEdit;

cxLabel29: TcxLabel;

cxPopupEdit_PC_Kind_Direction: TcxPopupEdit;

Fill_Contract_Params: TAction;

cxTabSheet13: TcxTabSheet;

Panel_New_Direction: TPanel;

cxLabel31: TcxLabel;

cxPopupEdit_New_Direction: TcxPopupEdit;

Clear_Contract: TAction;

cxTabSheet14: TcxTabSheet;

cxGrid_Kind_Direction: TcxGrid;

tv_kind_direction: TcxGridBandedTableView;

tv_kind_direction_name: TcxGridBandedColumn;

tv_kind_direction_id: TcxGridBandedColumn;

cxGridLevel10: TcxGridLevel;

cxButton_PC_Apply: TcxButton;

cxButton_PC_Refuse: TcxButton;

cxButton_PC_Autorepresentative: TcxButton;

PC_Apply: TAction;

PC_Refuse: TAction;

PC_Autorepresentative: TAction;

Fill_tv_kind_direction: TAction;

Action_Insert_New_Direction: TAction;

Action_Add_Contract: TAction;

Action_Delete_Contract: TAction;

Action_End_Education: TAction;

cxTabSheet15: TcxTabSheet;

cxGrid_Kba_End: TcxGrid;

tv_kba_end: TcxGridBandedTableView;

tv_kba_end_name: TcxGridBandedColumn;

tv_kba_end_id: TcxGridBandedColumn;

cxGridLevel11: TcxGridLevel;

Fill_tv_kba_end: TAction;

cxTabSheet16: TcxTabSheet;

Panel_End_Education: TPanel;

cxLabel32: TcxLabel;

cxLabel33: TcxLabel;

cxPopupEdit_KBA_End: TcxPopupEdit;

cxButtonEdit_End_Education: TcxButtonEdit;

cxLabel34: TcxLabel;

cxDateEdit_End_Education: TcxDateEdit;

tv_listeners_d_end_plan: TcxGridBandedColumn;

cxCurrencyEdit_PC_Money: TcxCurrencyEdit;

cxCurrencyEdit_New_Listener_Contract_Money: TcxCurrencyEdit;

tv_listeners_hours_plan: TcxGridBandedColumn;

tv_r_c_plan_money: TcxGridBandedColumn;

tv_listeners_certificate: TcxGridBandedColumn;

cxGroupBox_PC_Representative: TcxGroupBox;

cxLabel35: TcxLabel;

cxTextEdit_PC_Basis: TcxTextEdit;

cxLabel36: TcxLabel;

cxLabel37: TcxLabel;

cxLabel38: TcxLabel;

cxTextEdit_PC_FIO: TcxTextEdit;

cxTextEdit_PC_FIO_R: TcxTextEdit;

cxPopupEdit_PC_Post: TcxPopupEdit;

cxTabSheet17: TcxTabSheet;

cxGrid_Posts: TcxGrid;

tv_posts: TcxGridBandedTableView;

tv_posts_name: TcxGridBandedColumn;

tv_posts_id: TcxGridBandedColumn;

cxGridLevel12: TcxGridLevel;

Fill_tv_posts: TAction;

cxGroupBox_New_Listener_Representative: TcxGroupBox;

cxLabel39: TcxLabel;

cxTextEdit_New_Listener_Basis: TcxTextEdit;

cxLabel40: TcxLabel;

cxLabel41: TcxLabel;

cxLabel42: TcxLabel;

cxTextEdit_New_Listener_FIO: TcxTextEdit;

cxTextEdit_New_Listener_FIO_R: TcxTextEdit;

cxPopupEdit_New_Listener_Post: TcxPopupEdit;

tv_listeners_last_date: TcxGridBandedColumn;

cxGroupBox_Plan: TcxGroupBox;

cxSpinEdit_Plan_Filters_Year: TcxSpinEdit;

cxLabel43: TcxLabel;

cxLabel44: TcxLabel;

cxLabel45: TcxLabel;

cxLabel46: TcxLabel;

cxTextEdit_Plan_Filters_Note: TcxTextEdit;

cxTextEdit_Plan_Filters_Summary: TcxTextEdit;

cxButton_Plan_Filters_Apply: TcxButton;

cxButton_Plan_Filters_Refuse: TcxButton;

cxPopupEdit_Plan_Filters_Plan: TcxPopupEdit;

cxTabSheet11: TcxTabSheet;

cxGrid_Plan: TcxGrid;

tv_plan: TcxGridBandedTableView;

cxGridLevel13: TcxGridLevel;

tv_plan_note: TcxGridBandedColumn;

tv_plan_summary: TcxGridBandedColumn;

tv_plan_status_text: TcxGridBandedColumn;

tv_plan_hisdate: TcxGridBandedColumn;

tv_plan_d_creation: TcxGridBandedColumn;

tv_plan_d_modification: TcxGridBandedColumn;

tv_plan_id_paragraph: TcxGridBandedColumn;

tv_plan_id_order: TcxGridBandedColumn;

tv_plan_idk_order: TcxGridBandedColumn;

tv_plan_status_order: TcxGridBandedColumn;

tv_plan_id_erp_user: TcxGridBandedColumn;

Fill_tv_plan: TAction;

Plan_Apply: TAction;

Plan_Refuse: TAction;

Panel_Curator: TPanel;

cxSplitter1: TcxSplitter;

cxGrid_Curator: TcxGrid;

TTree_Curator: TcxGridBandedTableView;

Tree_Curator_Start: TcxGridBandedColumn;

Tree_Curator_End: TcxGridBandedColumn;

Tree_Curator_ID_EG: TcxGridBandedColumn;

Tree_Curator_ID_E: TcxGridBandedColumn;

cxGrid_Curator_Level1: TcxGridLevel;

Tree_Curator_FIO: TcxGridBandedColumn;

Action_Insert_Curator: TAction;

Action_New_Curator: TAction;

TabSheet_New_Curator: TcxTabSheet;

Panel_New_Curator: TPanel;

cxLabel47: TcxLabel;

PopupEdit_New_Curator_FIO: TcxPopupEdit;

cxLabel48: TcxLabel;

DateEdit_New_Curator: TcxDateEdit;

tv_listeners_Main_Contract: TcxGridBandedColumn;

tv_listeners_ID_Contract_Main: TcxGridBandedColumn;

tv_listeners_Org_Contract_Main: TcxGridBandedColumn;

Action_Main_Contract: TAction;

TabSheet_Set_Main_Contract: TcxTabSheet;

Panel_Set_Main_Contract: TPanel;

cxLabel49: TcxLabel;

PopupEdit_Set_Main_Contract: TcxPopupEdit;

cxLabel50: TcxLabel;

DateEdit_Set_Main_Contract_Find: TcxDateEdit;

Action_Go_Set_Main_Contract: TAction;

cxGrid_Main_Contracts: TcxGrid;

TTree_Main_Contracts: TcxGridBandedTableView;

Tree_Main_Contracts_Contract: TcxGridBandedColumn;

cxGrid_Main_Contracts_Level14: TcxGridLevel;

Tree_Main_Contracts_Org_Name: TcxGridBandedColumn;

Tree_Main_Contracts_ID_Contract: TcxGridBandedColumn;

Tree_Main_Contracts_Number: TcxGridBandedColumn;

Action_Import: TAction;

TabSheet_Import: TcxTabSheet;

Panel_Import: TPanel;

cxLabel51: TcxLabel;

PopupEdit_Import_Plan: TcxPopupEdit;

cxLabel52: TcxLabel;

DateEdit_Import_Start: TcxDateEdit;

Import_File: TOpenDialog;

cxLabel53: TcxLabel;

cxLabel54: TcxLabel;

cxLabel55: TcxLabel;

ButtonEdit_Import_Plan: TcxButtonEdit;

PopupEdit_Import_Spec: TcxPopupEdit;

ButtonEdit_Import_Spec: TcxButtonEdit;

PopupEdit_Import_Spec_Div: TcxPopupEdit;

ButtonEdit_Import_Spec_Div: TcxButtonEdit;

PopupEdit_Import_UMK: TcxPopupEdit;

ButtonEdit_Import_UMK: TcxButtonEdit;

Action_Go_Import: TAction;

cxGrid_Spec: TcxGrid;

tv_Spec: TcxGridBandedTableView;

tv_Spec_Name: TcxGridBandedColumn;

tv_Spec_Q: TcxGridBandedColumn;

tv_Spec_ID: TcxGridBandedColumn;

tv_Spec_IDK_Level_Spec: TcxGridBandedColumn;

tv_Spec_id_discipline: TcxGridBandedColumn;

tv_Spec_idk_discipline: TcxGridBandedColumn;

cxGrid_Spec_Level1: TcxGridLevel;

TabSheet_New_Spec: TcxTabSheet;

Panel_New_Spec: TPanel;

cxLabel56: TcxLabel;

cxTextEditNew_Spec_Name: TcxTextEdit;

cxTextEditNew_Spec_Quality: TcxTextEdit;

cxLabel57: TcxLabel;

DateEdit_Import_End: TcxDateEdit;

TabSheet_New_Spec_Div: TcxTabSheet;

Panel_New_Spec_Div: TPanel;

cxLabel58: TcxLabel;

cxLabel59: TcxLabel;

cxLabel60: TcxLabel;

cxLabel61: TcxLabel;

DateEditNew_Spec_Div_D_Start: TcxDateEdit;

PopupEditNew_Spec_Div_Institute: TcxPopupEdit;

cxLabel63: TcxLabel;

PopupEditNew_Spec_Div_Div: TcxPopupEdit;

PopupEditNew_Spec_Div_Spec: TcxPopupEdit;

PopupEditNew_Spec_Div_KT: TcxPopupEdit;

cxLabel64: TcxLabel;

PopupEditNew_Spec_Div_SF: TcxPopupEdit;

cxGrid_Org_Division: TcxGrid;

tv_Org_Division: TcxGridBandedTableView;

tv_Org_Division_Abbr: TcxGridBandedColumn;

tv_Org_Division_Name: TcxGridBandedColumn;

tv_Org_Division_ID: TcxGridBandedColumn;

cxGrid_Org_Division_Level1: TcxGridLevel;

cxGrid_Kind_Training: TcxGrid;

tv_Kind_Training: TcxGridBandedTableView;

tv_Kind_Training_Name: TcxGridBandedColumn;

tv_Kind_Training_IDK_TRAINING: TcxGridBandedColumn;

cxGridLevel14: TcxGridLevel;

cxLabel62: TcxLabel;

PopupEdit_Import_EG: TcxPopupEdit;

ButtonEdit_Import_EG: TcxButtonEdit;

TabSheet_New_UMK: TcxTabSheet;

Panel_New_UMK: TPanel;

cxLabel68: TcxLabel;

SpinEdit_New_UMK_Hours: TcxSpinEdit;

Action_After_Show_New_Anketa: TAction;

Action_New_SE: TAction;

cxLabel65: TcxLabel;

ButtonEdit_Import_Order: TcxButtonEdit;

TabSheet_New_Contract_Main: TcxTabSheet;

Panel_New_Contract_Main: TPanel;

cxLabel66: TcxLabel;

PopupEdit_New_Contract_Main: TcxPopupEdit;

cxLabel67: TcxLabel;

ButtonEdit_New_Contract_Main: TcxButtonEdit;

cxLabel69: TcxLabel;

TextEdit_New_Contract_Main: TcxTextEdit;

cxLabel70: TcxLabel;

DateEdit_New_Contract_Main_Start: TcxDateEdit;

DateEdit_New_Contract_Main_End: TcxDateEdit;

Action_New_Contract_Main: TAction;

Action_Insert_Contract_Main: TAction;

cxER_Money: TcxEditRepositoryCurrencyItem;

cxLabel71: TcxLabel;

CurrencyEdit_Import_Money: TcxCurrencyEdit;

cxLabel72: TcxLabel;

CurrencyEdit_Import_NDS: TcxCurrencyEdit;

cxLabel73: TcxLabel;

DateEdit_Import_Start_Otrjv: TcxDateEdit;

DateEdit_Import_End_Otrjv: TcxDateEdit;

cxLabel74: TcxLabel;

ButtonEdit_Import_Nach: TcxButtonEdit;

ProgressBar_Import: TcxProgressBar;

cxLabel75: TcxLabel;

DateEdit_Import_Reference: TcxDateEdit;

cxTabSheet_Stages: TcxTabSheet;

cxGrid_Nach: TcxGrid;

TTree_Nach: TcxGridBandedTableView;

Tree_Nach_D_Start: TcxGridBandedColumn;

Tree_Nach_D_End: TcxGridBandedColumn;

Tree_Nach_ID_Stage: TcxGridBandedColumn;

Tree_Nach_ID_Account_Contract: TcxGridBandedColumn;

Tree_Nach_Document: TcxGridBandedColumn;

cxGrid_Nach_Level1: TcxGridLevel;

Tree_Nach_Status: TcxGridBandedColumn;

Tree_Nach_Sum: TcxGridBandedColumn;

Tree_Nach_ID_Basis_Salary: TcxGridBandedColumn;

Tree_Nach_ID_SF: TcxGridBandedColumn;

Tree_Nach_IDK_Order: TcxGridBandedColumn;

Tree_Nach_ID_Paragraph: TcxGridBandedColumn;

Tree_Nach_ID_Order: TcxGridBandedColumn;

Tree_Nach_ID_ERP: TcxGridBandedColumn;

Tree_Nach_User: TcxGridBandedColumn;

Action_Create_Nach: TAction;

TabSheet_New_Nach: TcxTabSheet;

Tree_Nach_Kind_Order: TcxGridBandedColumn;

tv_listeners_NDS: TcxGridBandedColumn;

Panel_New_Nach: TPanel;

cxLabel76: TcxLabel;

ButtonEdit_New_Nach: TcxButtonEdit;

cxLabel77: TcxLabel;

DateEdit_New_Nach: TcxDateEdit;

Action_Go_New_Nach: TAction;

Action_Go_Nach_All: TAction;

Action_Create_Nach_All: TAction;

TabSheet_Create_Nach_All: TcxTabSheet;

Panel_Create_Nach_All: TPanel;

cxLabel78: TcxLabel;

ButtonEdit_Create_Nach_All: TcxButtonEdit;

cxLabel79: TcxLabel;

DateEdit_Create_Nach_All: TcxDateEdit;

CheckBox_PC_NDS: TcxCheckBox;

cxLabel80: TcxLabel;

cxDateEdit_PC_D_Start_Otrjv: TcxDateEdit;

cxLabel81: TcxLabel;

cxDateEdit_PC_D_End_Otrjv: TcxDateEdit;

tv_listeners_ID_ERP_End: TcxGridBandedColumn;

tv_listeners_ID_Status_End: TcxGridBandedColumn;

tv_listeners_ID_Paragraph_End: TcxGridBandedColumn;

Action_Delete_Order_End: TAction;

cxLabel82: TcxLabel;

PopupEdit_Import_Curator: TcxPopupEdit;

TabSheet_Stat: TcxTabSheet;

cxGroupBox1: TcxGroupBox;

cxLabel83: TcxLabel;

DateEdit_Stat_Begin: TcxDateEdit;

cxLabel84: TcxLabel;

DateEdit_Stat_End: TcxDateEdit;

cxButton1: TcxButton;

Action_Read_Stat: TAction;

cxGrid_Stat: TcxGrid;

TTree_Stat: TcxGridBandedTableView;

Tree_Stat_FIO: TcxGridBandedColumn;

Tree_Stat_EG: TcxGridBandedColumn;

Tree_Stat_D_Start: TcxGridBandedColumn;

Tree_Stat_D_End: TcxGridBandedColumn;

Tree_Stat_Order_Start: TcxGridBandedColumn;

Tree_Stat_Order_End: TcxGridBandedColumn;

Tree_Stat_Contract: TcxGridBandedColumn;

Tree_Stat_Org: TcxGridBandedColumn;

Tree_Stat_Money: TcxGridBandedColumn;

Tree_Stat_Cert: TcxGridBandedColumn;

Tree_Stat_Hours_Fact: TcxGridBandedColumn;

Tree_Stat_Hours_Plan: TcxGridBandedColumn;

Tree_Stat_Last_Date: TcxGridBandedColumn;

Tree_Stat_ID_Student: TcxGridBandedColumn;

Tree_Stat_ID_E: TcxGridBandedColumn;

Tree_Stat_ID_EG: TcxGridBandedColumn;

Tree_Stat_ID_C: TcxGridBandedColumn;

Tree_Stat_Contract_Main: TcxGridBandedColumn;

Tree_Stat_Org_Main: TcxGridBandedColumn;

Tree_Stat_Money_NDS: TcxGridBandedColumn;

cxGrid_Stat_Level15: TcxGridLevel;

Tree_Stat_Spec_Name: TcxGridBandedColumn;

cxLabel85: TcxLabel;

SpinEdit_New_UMK_Hours_SR: TcxSpinEdit;

Action_Make_Certificate: TAction;

tv_listeners_Reg_Number: TcxGridBandedColumn;

TabSheet_New_Cert: TcxTabSheet;

Panel_New_Cert: TPanel;

cxLabel86: TcxLabel;

ButtonEdit_New_Cert: TcxButtonEdit;

cxLabel87: TcxLabel;

SpinEdit_New_Cert_Reg: TcxSpinEdit;

cxER_Spin_Integer: TcxEditRepositorySpinItem;

cxLabel88: TcxLabel;

SpinEdit_New_Cert_Number: TcxSpinEdit;

cxLabel89: TcxLabel;

PopupEdit_New_Cert_Kind_Doc: TcxPopupEdit;

Action_Go_New_Cert: TAction;

cxGrid_Kind_Doc_Cert: TcxGrid;

TTree_Kind_Doc_Cert: TcxGridBandedTableView;

Tree_Kind_Doc_Cert_Name: TcxGridBandedColumn;

Tree_Kind_Doc_Cert_ID: TcxGridBandedColumn;

cxGrid_Kind_Doc_Cert_Level15: TcxGridLevel;

tv_listeners_Kind_Cert: TcxGridBandedColumn;

tv_listeners_ID_Kind_Cert: TcxGridBandedColumn;

cxLabel90: TcxLabel;

SpinEdit_New_Cert_Hours: TcxSpinEdit;

RadioGroup_Import_Mode: TcxRadioGroup;

Tree_Stat_Inst: TcxGridBandedColumn;

Action_View_Certificate: TAction;

tv_listeners_ID_Certificate: TcxGridBandedColumn;

tv_listeners_ID_Doc_Cert: TcxGridBandedColumn;

tv_listeners_Cert_Date: TcxGridBandedColumn;

tv_listeners_ID_Reg: TcxGridBandedColumn;

Action_Delete_Certificate: TAction;

cxTabSheet_MC: TcxTabSheet;

cxGroupBox2: TcxGroupBox;

cxLabel91: TcxLabel;

DateEdit_Filter_Start: TcxDateEdit;

cxLabel92: TcxLabel;

DateEdit_Filter_End: TcxDateEdit;

cxLabel93: TcxLabel;

PopupEdit_Filter_Org: TcxPopupEdit;

cxGrid_MC: TcxGrid;

TTree_MC: TcxGridBandedTableView;

Tree_MC_Org: TcxGridBandedColumn;

Tree_MC_ID_Contract: TcxGridBandedColumn;

cxGrid_MC_Level15: TcxGridLevel;

Tree_MC_ID_CA: TcxGridBandedColumn;

Tree_MC_Start: TcxGridBandedColumn;

Tree_MC_End: TcxGridBandedColumn;

Tree_MC_Number: TcxGridBandedColumn;

Tree_MC_Old_Number: TcxGridBandedColumn;

Tree_MC_Kind: TcxGridBandedColumn;

Tree_MC_IDK_Order: TcxGridBandedColumn;

Tree_MC_ID_MT: TcxGridBandedColumn;

Tree_MC_ID_MO: TcxGridBandedColumn;

Tree_MC_ID_Paragraph: TcxGridBandedColumn;

Tree_MC_ID_Order: TcxGridBandedColumn;

Tree_MC_ID_ERP: TcxGridBandedColumn;

Tree_MC_ID_Status: TcxGridBandedColumn;

Tree_MC_User: TcxGridBandedColumn;

Tree_MC_Hisdate: TcxGridBandedColumn;

Tree_MC_Count: TcxGridBandedColumn;

Tree_MC_Order: TcxGridBandedColumn;

Action_New_MC: TAction;

Action_Insert_MC: TAction;

tv_com_spec_sam: TcxGridBandedColumn;

Action_Delete_Nach: TAction;

TabSheet_New_Money: TcxTabSheet;

Panel_New_Money: TPanel;

CurrencyEdit_New_Money: TcxCurrencyEdit;

cxLabel94: TcxLabel;

Action_New_Money: TAction;

Action_Go_New_Money: TAction;

procedure Action_Insert_tv_r_c_planExecute(Sender: TObject);

procedure Fill_tv_spec_div_popupExecute(Sender: TObject);

procedure tv_r_c_plan_name_specPropertiesInitPopup(Sender: TObject);

procedure cxPopupEdit_New_R_C_Plan_Spec_DivPropertiesInitPopup

(Sender: TObject);

procedure Action_Insert_tv_r_c_groupExecute(Sender: TObject);

procedure Fill_tv_com_specExecute(Sender: TObject);

procedure Fill_tv_ed_groupExecute(Sender: TObject);

procedure cxPopupEdit_New_R_C_Group_Met_ComplexPropertiesInitPopup

(Sender: TObject);

procedure Fill_tv_r_c_planExecute(Sender: TObject);

procedure cxPopupEdit_New_R_C_Group_Ed_GroupPropertiesInitPopup

(Sender: TObject);

procedure tv_r_c_groups_namePropertiesInitPopup(Sender: TObject);

procedure Fill_tv_r_c_groupsExecute(Sender: TObject);

procedure Fill_tv_listenersExecute(Sender: TObject);

procedure PageControl_MainPageChanging(Sender: TObject;

NewPage: TcxTabSheet; var AllowChange: Boolean);

procedure Action_Insert_tv_listenersExecute(Sender: TObject);

procedure cxPopupEdit_New_Listener_Ed_GroupPropertiesEditValueChanged

(Sender: TObject);

procedure cxPopupEdit_New_Listener_Ed_GroupPropertiesInitPopup

(Sender: TObject);

procedure Fill_tv_kba_startExecute(Sender: TObject);

procedure cxPopupEdit_New_Listener_Kind_Basis_ActionPropertiesInitPopup

(Sender: TObject);

procedure Fill_tv_kind_orderExecute(Sender: TObject);

procedure cxPopupEdit_New_Listener_Kind_OrderPropertiesInitPopup

(Sender: TObject);

procedure Fill_tv_contractsExecute(Sender: TObject);

procedure cxPopupEdit_New_Listener_OrderPropertiesInitPopup

(Sender: TObject);

procedure Fill_tv_source_finansingExecute(Sender: TObject);

procedure

cxPopupEdit_New_Listener_Contract_Source_FinansingPropertiesInitPopup

(Sender: TObject);

procedure cxDateEdit_New_Listener_D_StartPropertiesEditValueChanged

(Sender: TObject);

procedure cxDateEdit_New_Listener_D_EndPropertiesEditValueChanged

(Sender: TObject);

procedure cxDateEdit_New_Listener_Contract_D_StartPropertiesEditValueChanged

(Sender: TObject);

procedure cxDateEdit_New_Listener_Contract_D_EndPropertiesEditValueChanged

(Sender: TObject);

procedure tv_listeners_ed_groupPropertiesInitPopup(Sender: TObject);

procedure tv_listeners_kind_basis_actionPropertiesInitPopup

(Sender: TObject);

procedure Delete_tv_listenersExecute(Sender: TObject);

procedure Fill_tv_ordersExecute(Sender: TObject);

procedure tv_listenersEditing(Sender: TcxCustomGridTableView;

AItem: TcxCustomGridTableItem; var AAllow: Boolean);

procedure tv_r_c_groupsEditing(Sender: TcxCustomGridTableView;

AItem: TcxCustomGridTableItem; var AAllow: Boolean);

procedure tv_listenersSelectionChanged(Sender: TcxCustomGridTableView);

procedure tv_r_c_planSelectionChanged(Sender: TcxCustomGridTableView);

procedure tv_r_c_groupsSelectionChanged(Sender: TcxCustomGridTableView);

procedure Fill_AnketaExecute(Sender: TObject);

procedure cxPageControl_StudentPageChanging(Sender: TObject;

NewPage: TcxTabSheet; var AllowChange: Boolean);

procedure Fill_Contract_ParamsExecute(Sender: TObject);

procedure Clear_ContractExecute(Sender: TObject);

procedure PC_ApplyExecute(Sender: TObject);

procedure PC_RefuseExecute(Sender: TObject);

procedure PC_AutorepresentativeExecute(Sender: TObject);

procedure Fill_tv_kind_directionExecute(Sender: TObject);

procedure cxPopupEdit_PC_Kind_DirectionPropertiesInitPopup(Sender: TObject);

procedure Action_Insert_New_DirectionExecute(Sender: TObject);

procedure cxButtonEdit_PC_Create_DirectionClick(Sender: TObject);

procedure tv_listeners_d_startPropertiesEditValueChanged(Sender: TObject);

procedure Action_Delete_ContractExecute(Sender: TObject);

procedure Action_Add_ContractExecute(Sender: TObject);

procedure cxPopupEdit_New_DirectionPropertiesInitPopup(Sender: TObject);

procedure cxPopupEdit_New_Listener_OrderPropertiesEditValueChanged

(Sender: TObject);

procedure Fill_tv_kba_endExecute(Sender: TObject);

procedure cxPopupEdit_KBA_EndPropertiesInitPopup(Sender: TObject);

procedure Action_End_EducationExecute(Sender: TObject);

procedure tv_r_c_planKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure tv_r_c_planMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure tv_r_c_groupsKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure tv_r_c_groupsMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure tv_listenersKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure tv_listenersMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormDestroy(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Fill_tv_postsExecute(Sender: TObject);

procedure cxPopupEdit_PC_PostPropertiesInitPopup(Sender: TObject);

procedure tv_r_c_planEditing(Sender: TcxCustomGridTableView;

AItem: TcxCustomGridTableItem; var AAllow: Boolean);

procedure Fill_tv_planExecute(Sender: TObject);

procedure cxPopupEdit_Plan_Filters_PlanPropertiesInitPopup(Sender: TObject);

procedure Plan_ApplyExecute(Sender: TObject);

procedure Plan_RefuseExecute(Sender: TObject);

procedure Action_New_CuratorExecute(Sender: TObject);

procedure Action_Insert_CuratorExecute(Sender: TObject);

procedure Action_Main_ContractExecute(Sender: TObject);

procedure DateEdit_Set_Main_Contract_FindPropertiesEditValueChanged

(Sender: TObject);

procedure Action_Go_Set_Main_ContractExecute(Sender: TObject);

procedure Action_ImportExecute(Sender: TObject);

procedure PopupEdit_Import_SpecPropertiesEditValueChanged(Sender: TObject);

procedure ButtonEdit_Import_SpecClick(Sender: TObject);

procedure ButtonEdit_Import_Spec_DivClick(Sender: TObject);

procedure ButtonEdit_Import_UMKClick(Sender: TObject);

procedure ButtonEdit_Import_PlanClick(Sender: TObject);

procedure ButtonEdit_Import_EGClick(Sender: TObject);

procedure Action_After_Show_New_AnketaExecute(Sender: TObject);

procedure Action_New_SEExecute(Sender: TObject);

procedure Action_New_Contract_MainExecute(Sender: TObject);

procedure Action_Insert_Contract_MainExecute(Sender: TObject);

procedure Action_Create_NachExecute(Sender: TObject);

procedure Action_Go_New_NachExecute(Sender: TObject);

procedure Action_Go_Nach_AllExecute(Sender: TObject);

procedure Action_Create_Nach_AllExecute(Sender: TObject);

procedure Action_Delete_Order_EndExecute(Sender: TObject);

procedure Action_Read_StatExecute(Sender: TObject);

procedure Action_Make_CertificateExecute(Sender: TObject);

procedure Action_Go_New_CertExecute(Sender: TObject);

procedure ButtonEdit_New_CertPropertiesEditValueChanged(Sender: TObject);

procedure Action_View_CertificateExecute(Sender: TObject);

procedure Action_Delete_CertificateExecute(Sender: TObject);

procedure Filter_MC_Changed(Sender: TObject);

procedure Action_New_MCExecute(Sender: TObject);

procedure Action_Delete_NachExecute(Sender: TObject);

procedure Action_New_MoneyExecute(Sender: TObject);

procedure Action_Go_New_MoneyExecute(Sender: TObject);

procedure ButtonEdit_Import_OrderPropertiesEditValueChanged(

Sender: TObject);

private

{ Private declarations }

ea: Excel2000.TExcelApplication;

ew: _Workbook;

wsh: _Worksheet;

{ Доступность редактирования учебных групп, сроков проведения и плана ПК }

REdit_Groups: Boolean;

{ Доступность просмотра мероприятий }

RView_Event: Boolean;

{ Доступность всех действий с мероприятиями }

REdit_Event: Boolean;

{ Объект для работы со списками }

FSqlData_TableView: TSqlData_cxGridTableView;

{ Путь реестра (для загрузки/сохранения параметров) }

Curr_Reg_Path: String;

// Название программы и код подразделения при импорте

Import_Name_Spec, id_d_import, Import_Hours, Import_ID_EG, Import_EG_Name

,Import_FIO_Curator, Import_Hours_SR, id_d_kaf, idk_training: String;

{ Форма поиска человека }

Current_Form_SE: TForm_SE;

{ Форма поиска организации }

Current_Form_Find_Org: TForm_Find_Org;

{ Форма анкета }

Current_Form_Anketa, Form_Anketa_For_New: TFUnivQuestionare;

// Текущие значения из файла импорта

curr_sex, curr_surname, curr_name, curr_patronymic, curr_birthday

, curr_email, curr_phone: string;

{ Контейнеры оберток }

cW_New_R_C_Plan: TContainerWrappers;

cW_New_R_C_Group: TContainerWrappers;

cW_New_Listener: TContainerWrappers;

cW_Contract_Params: TContainerWrappers;

cW_New_Direction: TContainerWrappers;

cW_End_Education: TContainerWrappers;

cW_Plan_Filters: TContainerWrappers;

cW_New_Curator: TContainerWrappers;

cW_Set_Main_Contract, cw_Filter_Contracts_Main: TContainerWrappers;

cW_Import, cW_New_Spec, cW_New_Spec_Div, cw_New_UMK

, cw_New_Contract_Main, Cont_New_Nach, Cont_New_Nach_All

, Cont_Stat, Cont_Make_Cert, New_MC, cw_New_Money: TContainerWrappers;

{ Обработчики событий изменения в контейнерах оберток }

procedure DoChanged_cW_New_R_C_Plan(AWrapper: TCustomEditWrapper);

procedure DoChanged_cW_New_R_C_Group(AWrapper: TCustomEditWrapper);

procedure DoChanged_cW_New_Listener(AWrapper: TCustomEditWrapper);

procedure DoChanged_cW_Contract_Params(AWrapper: TCustomEditWrapper);

procedure DoChanged_cW_New_Direction(AWrapper: TCustomEditWrapper);

procedure DoChanged_cW_End_Education(AWrapper: TCustomEditWrapper);

procedure DoChanged_cW_Plan_Filters(AWrapper: TCustomEditWrapper);

{ Смена записи в tv_r_c_plan }

procedure ChoiceGridRecord(Sender: TSqlData_cxGridTableView;

AGridRecord: TcxGridDataRow);

{ Смена записи в tv_listeners }

procedure OnChoiceGridRecord_tv_listeners(Sender: TSqlData_cxGridTableView;

AGridRecord: TcxGridDataRow);

{ Действие перед изменением данных в tv_listeners }

procedure Before_Update_Exchange_tv_listeners

(Sender: TSqlData_cxGridTableView; UpdateValue: Variant;

AItem: TcxCustomGridTableItem; ARecordIndex: Integer;

var ExchangeParameters: OleVariant; var Allow: Boolean);

{ Установка доступности добавления }

procedure Allow_Insert(TV: TcxCustomGridTableView; Roles: array of Boolean);

{ Установка доступности редактирования таблицы (с документом) }

function Allow_Editing(TV: TcxCustomGridTableView;

Status_Column: TcxGridColumn; ID_ERP_Column: TcxGridColumn;

Roles: array of Boolean): Boolean; overload;

{ Установка доступности редактирования таблицы (без документа) }

function Allow_Editing(TV: TcxCustomGridTableView;

Roles: array of Boolean): Boolean; overload;

{ Установка доступности удаления из таблицы (с документом) }

procedure Allow_Delete(TV: TcxCustomGridTableView;

Status_Column: TcxGridColumn; ID_ERP_Column: TcxGridColumn;

Roles: array of Boolean); overload;

{ Установка доступности удаления из таблицы (без документа) }

procedure Allow_Delete(TV: TcxCustomGridTableView;

Roles: array of Boolean); overload;

{ Обработчик события после чтения в tv_listeners }

procedure After_Read_tv_listeners(Sender: TSqlData_cxGridTableView);

{ Включить/выключить параметры договора }

procedure ContractParamsEnabled(GB: TcxGroupBox; Enabled: Boolean);

{ Включить/выключить элементы для добавления студента/договора }

procedure StudentElementsEnabled(Enabled: Boolean);

{ Сохранение/восстановление параметров списков }

procedure Save_Restore_Params(RReg_Path: String = Reg_Path;

PIs_Load: Boolean = True);

procedure DoChanged_cW_Spec_Div(AWrapper: TCustomEditWrapper);

// Добавить-таки человека!

procedure OkNewEmp;

// Выбрать старого!}

procedure OkOldEmp;

// После удаления

procedure After_Delete(Sender: TSqlData_cxGridTableView);

// Параметры удаления

procedure Delete_Main_Contract(Sender: TSqlData_cxGridTableView; ARecordIndex: Integer;