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

if new_form.ModalResult = mrok

then Get_SqlData_cxGrid(tv_listeners).Read_Data;

finally // 1

if assigned(new_form) then

FreeAndNil(new_form);

end; // 1

end;

{ Добавить новую анкету человека!}

procedure TForm_Event.Action_New_SEExecute(Sender: TObject);

begin

Case Form_Anketa_For_New.ShowNewEmpForm of

QRInserted: OkNewEmp;

QRSimChecked: OkOldEmp;

End;

end;

{ Получить статистику }

procedure TForm_Event.Action_Read_StatExecute(Sender: TObject);

begin

with Get_SqlData_cxGrid(TTree_Stat), Cont_Stat do

begin

Parameters[1] := VarToStr(Cont_Stat.Wrappers[DateEdit_Stat_Begin].Value);

Parameters[2] := VarToStr(Cont_Stat.Wrappers[DateEdit_Stat_End].Value);

Read_Data;

end;

end;

{ Просмотр удостоверения }

procedure TForm_Event.Action_View_CertificateExecute(Sender: TObject);

var L: TIntegerList;

i: integer;

s: String;

begin

with Get_SqlData_cxGrid(tv_listeners) do

begin

GetSelectedRecordIndexList(L);

MSystemServices.StartSequenceActions(False, True);

s := '';

with GridTableView.DataController do

for i := 0 to L.Count - 1 do

if s = ''

then s := VarToStr(Values[L.Items[i], tv_listeners_ID_Certificate.Index])

else s := s + ',' + VarToStr(Values[L.Items[i], tv_listeners_ID_Certificate.Index]);

// Размер сдвига по-Галиному:

{if cxSpinEdit1.Value<0 then

sdvig:=vartostr(45.35+abs(cxSpinEdit1.Value))

else sdvig:=vartostr(45.35-cxSpinEdit1.Value);}

MSystemServices.EndSequenceActions;

HandymanFunctions.PreviePaper(MSystemServices

, View_Cert

, CreateVarAr([s])

, VarArrayOf([AWP_PageSetup_TopMargin ,VarToStr(45.35 - 0)])

, True);

end;

end;

procedure TForm_Event.Fill_AnketaExecute(Sender: TObject);

var

DC: TcxGridDataController;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_listeners);

if FSqlData_TableView <> nil then

begin // 1

DC := FSqlData_TableView.GridTableView.DataController;

if (FSqlData_TableView.LastChoiceIndex >= 0) and

(FSqlData_TableView.LastChoiceIndex < DC.RecordCount) then

begin // 2

Current_Form_Anketa.ID_CONTRACTOR := VarToStr

(DC.Values[FSqlData_TableView.LastChoiceIndex,

tv_listeners_id_contractor.Index]);

Current_Form_Anketa.ID_E := VarToStr

(DC.Values[FSqlData_TableView.LastChoiceIndex,

tv_listeners_id_e.Index]);

end // 2

else

begin // 3

Current_Form_Anketa.ID_CONTRACTOR := '';

Current_Form_Anketa.ID_E := '';

end; // 3

Current_Form_Anketa.RefreshRoles(False);

Current_Form_Anketa.IsEnabled := True;

Current_Form_Anketa.Editing :=

Current_Form_Anketa.IsEnabled and vnSessionAgent.

IsRoleSomehowAccessible('', '', '7001');

if not Current_Form_Anketa.Visible then

Current_Form_Anketa.Show;

Panel_Anketa.Realign;

Current_Form_Anketa.Realign;

end; // 1

end;

procedure TForm_Event.Fill_Contract_ParamsExecute(Sender: TObject);

var

data: OleVariant;

DC: TcxDataController;

ID_C: string;

rID: Integer;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_listeners);

DC := tv_listeners.DataController;

if FSqlData_TableView <> nil then

begin // 1

if PC_Refuse.Enabled

then PC_Refuse.Execute;

ID_C := VarToStr(DC.Values[FSqlData_TableView.LastChoiceIndex,

tv_listeners_id_contract.Index]);

if ID_C <> '' then

begin // 2

data := MSystemServices.SelectData(Contr_Params, VarArrayOf([ID_C]), rID);

if VarIsArray(data) then

begin // 3

cW_Contract_Params.wrappers[cxDateEdit_PC_D_Start].Value := VarToStr

(data[0][0]);

cW_Contract_Params.wrappers[cxDateEdit_PC_D_End].Value := VarToStr

(data[0][1]);

cW_Contract_Params.wrappers[cxPopupEdit_PC_Org].Value := VarToStr

(data[0][2]);

cW_Contract_Params.wrappers[cxPopupEdit_PC_Org].ValueDisplay := VarToStr

(data[0][20]);

cW_Contract_Params.wrappers[CheckBox_PC_NDS].Value := VarToStr

(data[0][21]);

if VarToStr(data[0][24]) = ''

then cW_Contract_Params.wrappers[cxCurrencyEdit_PC_Money].Clear

else cW_Contract_Params.wrappers[cxCurrencyEdit_PC_Money].Value :=VarToStr

(data[0][24]);

{cW_Contract_Params.wrappers[cxCurrencyEdit_PC_Money].Value := VarToStr

(DC.GetValue(DC.FocusedRecordIndex, tv_listeners_money.Index));

cW_Contract_Params.wrappers[cxCurrencyEdit_PC_Money].ValueDisplay :=

DC.GetDisplayText(DC.FocusedRecordIndex, tv_listeners_money.Index);}

if VarToStr(data[0][22]) = ''

then cW_Contract_Params.wrappers[cxDateEdit_PC_D_Start_Otrjv].Clear

else cW_Contract_Params.wrappers[cxDateEdit_PC_D_Start_Otrjv].Value :=

DateToStr(StrToDate(VarToStr(data[0][22])));

if VarToStr(data[0][22]) = ''

then cW_Contract_Params.wrappers[cxDateEdit_PC_D_End_Otrjv].Clear

else cW_Contract_Params.wrappers[cxDateEdit_PC_D_End_Otrjv].Value :=

DateToStr(StrToDate(VarToStr(data[0][23])));

cW_Contract_Params.wrappers[cxPopupEdit_PC_SF].Value := VarToStr

(data[0][3]);

cW_Contract_Params.wrappers[cxPopupEdit_PC_SF].ValueDisplay := VarToStr

(data[0][4]);

TButtonOrderEditWrapper(cW_Contract_Params.wrappers

[cxButtonEdit_PC_Contract]).SetListProperties

(VarToStr(DC.Values[FSqlData_TableView.LastChoiceIndex,

tv_listeners_id_paragraph_contract.Index]), VarToStr(data[0][6]),

VarToStr(data[0][8]), '', VarToStr(data[0][5]), '', '', '',

VarToStr(data[0][7]),

VarToStr(DC.Values[FSqlData_TableView.LastChoiceIndex,

tv_listeners_status_text_contract.Index]), '', '', '');

cW_Contract_Params.wrappers[cxPopupEdit_PC_Kind_Order].Value := VarToStr

(data[0][6]);

cW_Contract_Params.wrappers[cxPopupEdit_PC_Kind_Order].ValueDisplay :=

VarToStr(data[0][8]);

TButtonOrderEditWrapper(cW_Contract_Params.wrappers

[cxButtonEdit_PC_Direction]).SetListProperties

(VarToStr(data[0][9]), VarToStr(data[0][13]), VarToStr(data[0][14]),

'', VarToStr(data[0][10]), '', '', '', VarToStr(data[0][11]),

VarToStr(data[0][12]), '', '', '');

cW_Contract_Params.wrappers[cxPopupEdit_PC_Kind_Direction].Value :=

VarToStr(data[0][13]);

cW_Contract_Params.wrappers[cxPopupEdit_PC_Kind_Direction]

.ValueDisplay := VarToStr(data[0][14]);

cW_Contract_Params.wrappers[cxTextEdit_PC_Basis].Value := VarToStr

(data[0][15]);

cW_Contract_Params.wrappers[cxTextEdit_PC_FIO].Value := VarToStr

(data[0][16]);

cW_Contract_Params.wrappers[cxTextEdit_PC_FIO_R].Value := VarToStr

(data[0][17]);

cW_Contract_Params.wrappers[cxPopupEdit_PC_Post].Value := VarToStr

(data[0][18]);

cW_Contract_Params.wrappers[cxPopupEdit_PC_Post].ValueDisplay :=

VarToStr(data[0][19]);

end // 3

else

cW_Contract_Params.ClearWrappers;

end // 2

else

cW_Contract_Params.ClearWrappers;

end; // 1

end;

{ Установить параметры текущего выбора и прочитать методические комплексы}

procedure TForm_Event.Fill_tv_com_specExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_com_spec);

if (FSqlData_TableView <> nil) then

begin // 1

if Sender = PopupEdit_Import_UMK then

begin

if FSqlData_TableView.Parameters[1] <> VarToStr(cW_Import.Wrappers[PopupEdit_Import_Spec_Div].Value)

then begin

FSqlData_TableView.Parameters[1] := VarToStr(cW_Import.Wrappers[PopupEdit_Import_Spec_Div].Value);

FSqlData_TableView.Read_Data;

end

else FSqlData_TableView.Read_Data_First;

end

else

// Работа с текущим повышением плана (в редактировании грида)

begin

if FSqlData_TableView.Parameters[1] <> VarToStr

(tv_r_c_plan.DataController.Values[tv_r_c_plan.DataController.FocusedRecordIndex

,tv_r_c_plan_id_spec_div.Index])

then

begin

FSqlData_TableView.Parameters[1] := VarToStr

(tv_r_c_plan.DataController.Values[tv_r_c_plan.DataController.FocusedRecordIndex

, tv_r_c_plan_id_spec_div.Index]);

FSqlData_TableView.Read_Data;

end

else FSqlData_TableView.Read_Data_First;

end;

end; // 1

end;

procedure TForm_Event.Fill_tv_contractsExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_contracts);

if (FSqlData_TableView <> nil) then

begin // 1

FSqlData_TableView.Params[0] := cW_New_Listener.wrappers

[cxPopupEdit_New_Listener_Kind_Order].Value;

FSqlData_TableView.Params[1] := cW_New_Listener.wrappers

[cxPopupEdit_New_Listener_FIO].Value;

if FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First

else

FSqlData_TableView.Read_Data;

end; // 1

end;

procedure TForm_Event.Fill_tv_ed_groupExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_ed_group);

if (FSqlData_TableView <> nil) then

begin // 1

FSqlData_TableView.Params[0] := VarToStr

(tv_r_c_plan.DataController.Values

[tv_r_c_plan.DataController.FocusedRecordIndex,

tv_r_c_plan_id_spec_div.Index]);

if FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First

else

FSqlData_TableView.Read_Data;

end; // 1

end;

procedure TForm_Event.Fill_tv_kba_endExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_kba_end);

if (FSqlData_TableView <> nil) then

begin // 1

if VarToStr(FSqlData_TableView.Params[0]) <> cW_End_Education.wrappers

[cxButtonEdit_End_Education].Value then

begin // 2

FSqlData_TableView.Params[0] := cW_End_Education.wrappers

[cxButtonEdit_End_Education].Value;

FSqlData_TableView.Read_Data;

end; // 2

end; // 1

end;

procedure TForm_Event.Fill_tv_kba_startExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_kba_start);

if (FSqlData_TableView <> nil) then

if FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First;

end;

procedure TForm_Event.Fill_tv_kind_directionExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_kind_direction);

if (FSqlData_TableView <> nil) then

if FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First;

end;

procedure TForm_Event.Fill_tv_kind_orderExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_kind_order);

if (FSqlData_TableView <> nil) then

if FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First;

end;

procedure TForm_Event.Fill_tv_listenersExecute(Sender: TObject);

var

FSqlData_TableView2: TSqlData_cxGridTableView;

Param0: string;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_listeners);

FSqlData_TableView2 := Get_SqlData_cxGrid(tv_r_c_plan);

if (FSqlData_TableView <> nil) and (FSqlData_TableView2 <> nil) then

begin // 1

Param0 := VarToStr(FSqlData_TableView2.GridTableView.DataController.Values

[FSqlData_TableView2.LastChoiceIndex, tv_r_c_plan_id_r_c_plan.Index]);

if VarToStr(FSqlData_TableView.Params[0]) <> Param0 then

begin // 2

FSqlData_TableView.Params[0] := Param0;

FSqlData_TableView.Read_Data;

end

else FSqlData_TableView.Read_Data_First; // 2

end; // 1

end;

procedure TForm_Event.Fill_tv_ordersExecute(Sender: TObject);

var

Param0: string;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_orders);

if (FSqlData_TableView <> nil) then

begin // 1

Param0 := VarToStr(tv_listeners.DataController.Values

[tv_listeners.DataController.FocusedRecordIndex,

tv_listeners_id_e.Index]);

if VarToStr(FSqlData_TableView.Params[0]) <> Param0 then

begin // 2

FSqlData_TableView.Params[0] := Param0;

FSqlData_TableView.Read_Data;

end; // 2

end; // 1

end;

procedure TForm_Event.Fill_tv_planExecute(Sender: TObject);

var

Param0: string;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_plan);

if (FSqlData_TableView <> nil) then

begin // 1

Param0 := VarToStr(cW_Plan_Filters.wrappers[cxSpinEdit_Plan_Filters_Year]

.Value);

if (VarToStr(FSqlData_TableView.Params[0]) <> Param0) then

begin // 2

FSqlData_TableView.Params[0] := Param0;

FSqlData_TableView.Read_Data;

end // 2

else FSqlData_TableView.Read_Data_First;

if (cW_Plan_Filters.wrappers[cxPopupEdit_Plan_Filters_Plan].Value) <> ''

then FindGridRecord(tv_plan, [tv_plan_id_paragraph]

, CreateVarAr([VarToStr(cW_Plan_Filters.wrappers[cxPopupEdit_Plan_Filters_Plan].Value)]));

end; // 1

end;

procedure TForm_Event.Fill_tv_postsExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_posts);

if (FSqlData_TableView <> nil) then

if FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First;

end;

procedure TForm_Event.Fill_tv_r_c_groupsExecute(Sender: TObject);

var

FSqlData_TableView2: TSqlData_cxGridTableView;

Param0: string;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_r_c_groups);

FSqlData_TableView2 := Get_SqlData_cxGrid(tv_r_c_plan);

if (FSqlData_TableView <> nil) and (FSqlData_TableView2 <> nil) then

begin // 1

Param0 := VarToStr(FSqlData_TableView2.GridTableView.DataController.Values

[FSqlData_TableView2.LastChoiceIndex, tv_r_c_plan_id_r_c_plan.Index]);

if VarToStr(FSqlData_TableView.Params[0]) <> Param0 then

begin // 2

FSqlData_TableView.Params[0] := Param0;

FSqlData_TableView.Read_Data;

end

else FSqlData_TableView.Read_Data_First; // 2

end; // 1

end;

procedure TForm_Event.Fill_tv_r_c_planExecute(Sender: TObject);

var

Param0: string;

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_r_c_plan);

if (FSqlData_TableView <> nil) then

begin // 1

Param0 := VarToStr(cW_Plan_Filters.wrappers[cxPopupEdit_Plan_Filters_Plan]

.Value);

if (VarToStr(FSqlData_TableView.Params[0]) <> Param0)

or FSqlData_TableView.IsFirstRead then

begin // 2

FSqlData_TableView.Params[0] := Param0;

FSqlData_TableView.Read_Data;

end; // 2

end; // 1

end;

procedure TForm_Event.Fill_tv_source_finansingExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_Source_Financing);

if (FSqlData_TableView <> nil) and FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First;

end;

procedure TForm_Event.Fill_tv_spec_div_popupExecute(Sender: TObject);

begin

FSqlData_TableView := Get_SqlData_cxGrid(tv_spec_div_popup);

if (FSqlData_TableView <> nil) then

begin // 1

if FSqlData_TableView.IsFirstRead then

FSqlData_TableView.Read_Data_First;

end; // 1

end;

procedure TForm_Event.FormDestroy(Sender: TObject);

begin

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

Save_Restore_Params(Curr_Reg_Path, False);

end;

procedure TForm_Event.FormShow(Sender: TObject);

begin

{ Читаем списки }

Fill_tv_r_c_planExecute(self);

end;

{ Инициализация формы }

procedure TForm_Event.Init(AReg_Path: String = Reg_Path;

AForm_SE: TForm_SE = nil; AForm_Find_Org: TForm_Find_Org = nil;

AForm_Anketa: TFUnivQuestionare = nil;

AForm_Anketa_For_New: TFUnivQuestionare = nil);

begin

Curr_Reg_Path := AReg_Path;

DateEdit_Import_Reference.Date := Date;

DateEdit_New_Nach.Date := Date;

DateEdit_Create_Nach_All.Date := Date;

DateEdit_Stat_Begin.Date := StrToDate('01.01.' + IntToStr(YearOf(Date)));

DateEdit_Stat_End.Date := StrToDate('31.12.' + IntToStr(YearOf(Date)));

DateEdit_Filter_Start.Date := DateEdit_Stat_Begin.Date;

DateEdit_Filter_End.Date := DateEdit_Stat_End.Date;

if AForm_SE <> nil then

Current_Form_SE := AForm_SE;

if not assigned(Current_Form_SE) then

Current_Form_SE := TForm_SE.Create(self);

with Get_SqlData_cxGrid(Current_Form_SE.cxGrid_FIO) do

begin

ActionInsert.OnExecute := Action_New_SE.OnExecute;

ActionDelete.Enabled := False;

PopupActions.Add(ActionInsert);

PopupActions.Add(nil);

PopupActions.Add(ActionUpdate);

end;

if AForm_Find_Org <> nil then

Current_Form_Find_Org := AForm_Find_Org;

if not assigned(Current_Form_Find_Org) then

begin

Current_Form_Find_Org := TForm_Find_Org.Create(self);

Current_Form_Find_Org.Init;

end;

if AForm_Anketa <> nil

then Current_Form_Anketa := AForm_Anketa;

if not assigned(Current_Form_Anketa) then

begin

Current_Form_Anketa.Init(Current_Form_Anketa, [qpers, qphoto, qcont, qdocs,

qadr, QWithTabSheet, Qworkplaces, QWeb_User], ForWorkWith, nil,

Current_Form_SE);

//Current_Form_Anketa.FFormDocuments.TypeDoc := 3;

Current_Form_Anketa.FFormDocuments.ReadAdditionalInfo;

Current_Form_Anketa.IsEnabled := True;

Current_Form_Anketa.ManualDock(Panel_Anketa, nil, alClient);

Current_Form_Anketa.RefreshRoles(False);

end;

if AForm_Anketa_For_New <> nil

then Form_Anketa_For_New := AForm_Anketa_For_New;

if not assigned(Form_Anketa_For_New)

then

begin

Form_Anketa_For_New.Init(Form_Anketa_For_New

, [Qpers, Qdocs, QCont, QAdr]

, ForNew, nil, Current_Form_SE);

Form_Anketa_For_New.FFormDocuments.TypeDoc := 1;

//Form_Anketa_For_New.hm := HandymanFunctions;

Form_Anketa_For_New.SimilaryCheckModeOn := True;

Form_Anketa_For_New.PostOnEnter := True;

Form_Anketa_For_New.DisplayLookUps := False;

end;

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

cW_New_R_C_Plan := TContainerWrappers.Create;

cW_New_R_C_Plan.AddPopupEdit(cxPopupEdit_New_R_C_Plan_Spec_Div, 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_R_C_Plan.AddButtonOrderEdit(cxButtonEdit_New_R_C_Plan_Paragraph, True,

False, '', ['902'], [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW],

[nil, nil, nil, nil]);

cW_New_R_C_Plan.AddCustomEdit(cxDateEdit_New_R_C_Plan_D_Start, True, False,

'');

cW_New_R_C_Plan.AddCustomEdit(cxDateEdit_New_R_C_Plan_D_End, False, False,

'');

cW_New_R_C_Plan.OnChangeWrapper := DoChanged_cW_New_R_C_Plan;

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

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

cW_New_R_C_Group := TContainerWrappers.Create;

cW_New_R_C_Group.AddPopupEdit(cxPopupEdit_New_R_C_Group_Ed_Group, True,

False, cxGrid_Ed_Group, tv_ed_group, tv_ed_group_id_ed_group,

[tv_ed_group_name], '');

cW_New_R_C_Group.AddPopupEdit(cxPopupEdit_New_R_C_Group_Met_Complex, True,

False, cxGrid_Com_Spec, tv_com_spec, tv_com_spec_id_met_complex,

[tv_com_spec_name_spec, tv_com_spec_status_text], '');

cW_New_R_C_Group.AddCustomEdit(cxDateEdit_New_R_C_Group_D_Start, True, False,

'');

cW_New_R_C_Group.AddCustomEdit(cxDateEdit_New_R_C_Group_D_End, True, False,

'');

cW_New_R_C_Group.OnChangeWrapper := DoChanged_cW_New_R_C_Group;

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

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

cW_New_Listener := TContainerWrappers.Create;

cW_New_Listener.AddPopupEdit(cxPopupEdit_New_Listener_FIO, True, False,

Current_Form_SE.cxGrid1, Current_Form_SE.cxGrid_FIO,

Current_Form_SE.cxGrid_FIO_ID_E, [Current_Form_SE.cxGrid_FIO_Full], '');

cW_New_Listener.AddPopupEdit(cxPopupEdit_New_Listener_Ed_Group, True, False,

cxGrid_R_C_Groups, tv_r_c_groups, tv_r_c_groups_id_ed_group,

[tv_r_c_groups_name], '');

cW_New_Listener.AddCustomEdit(cxDateEdit_New_Listener_D_Start, True, False,

'');

cW_New_Listener.AddCustomEdit(cxDateEdit_New_Listener_D_End, True, False, '');

cW_New_Listener.AddPopupEdit(cxPopupEdit_New_Listener_Kind_Basis_Action,

True, False, cxGrid_KBA_Start, tv_kba_start, tv_kba_start_id,

[tv_kba_start_name], '');

cW_New_Listener.AddButtonOrderEdit(cxButtonEdit_New_Listener_Order_Start,

True, False, '', ['200'], [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE,

OBE_PREVIEW], [nil, nil, nil, nil]);

cW_New_Listener.AddPopupEdit(cxPopupEdit_New_Listener_Kind_Order, False,

False, cxGrid_Kind_Order, tv_kind_order, tv_kind_order_id,

[tv_kind_order_name], '');

cW_New_Listener.AddPopupEdit(cxPopupEdit_New_Listener_Order, False, False,

cxGrid_Contracts, tv_contracts, tv_contracts_id_paragraph,

[tv_contracts_contract], '');

cW_New_Listener.AddCustomEdit(cxDateEdit_New_Listener_Contract_D_Start,

False, False, '');

cW_New_Listener.AddCustomEdit(cxDateEdit_New_Listener_Contract_D_End, False,

False, '');

cW_New_Listener.AddPopupEdit(cxPopupEdit_New_Listener_Contract_Organization,

False, False, Current_Form_Find_Org.cxGrid_Org,

Current_Form_Find_Org.TTree_Org, Current_Form_Find_Org.Tree_Org_ID_CA,

[Current_Form_Find_Org.Tree_Org_Name], '');

cW_New_Listener.AddPopupEdit(

cxPopupEdit_New_Listener_Contract_Source_Finansing, False, False,

cxGrid_Source_Financing, tv_Source_Financing, tv_Source_Financing_ID,

[tv_Source_Financing_Name], '');

cW_New_Listener.AddCustomEdit(cxCurrencyEdit_New_Listener_Contract_Money,

False, False, '');

cW_New_Listener.AddCustomEdit(cxTextEdit_New_Listener_Basis, False, False,

'');

cW_New_Listener.AddCustomEdit(cxTextEdit_New_Listener_FIO, False, False, '');

cW_New_Listener.AddCustomEdit(cxTextEdit_New_Listener_FIO_R, False, False,

'');

cW_New_Listener.AddPopupEdit(cxPopupEdit_New_Listener_Post, False, False,

cxGrid_Posts, tv_posts, tv_posts_id, [tv_posts_name], '');

cW_New_Listener.OnChangeWrapper := DoChanged_cW_New_Listener;

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

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

cW_Contract_Params := TContainerWrappers.Create;

cW_Contract_Params.AddCustomEdit(cxDateEdit_PC_D_Start, False, True, '');

cW_Contract_Params.AddCustomEdit(cxDateEdit_PC_D_End, False, True, '');

cW_Contract_Params.AddCustomEdit(cxDateEdit_PC_D_Start_Otrjv, False, True, '');

cW_Contract_Params.AddCustomEdit(cxDateEdit_PC_D_End_Otrjv, False, True, '');

cW_Contract_Params.AddPopupEdit(cxPopupEdit_PC_Org, False, True,

Current_Form_Find_Org.cxGrid_Org, Current_Form_Find_Org.TTree_Org,

Current_Form_Find_Org.Tree_Org_ID_CA,

[Current_Form_Find_Org.Tree_Org_Name], '');

cW_Contract_Params.AddPopupEdit(cxPopupEdit_PC_SF, False, True,

cxGrid_Source_Financing, tv_Source_Financing, tv_Source_Financing_ID,

[tv_Source_Financing_Name], '');

cW_Contract_Params.AddCustomEdit(cxCurrencyEdit_PC_Money, False, True, '');

cW_Contract_Params.AddButtonOrderEdit(cxButtonEdit_PC_Contract, False, False,

'', ['68924'], [OBE_INNAVIGATE, OBE_PREVIEW], [nil, nil]);

cW_Contract_Params.AddPopupEdit(cxPopupEdit_PC_Kind_Order, False, True,

cxGrid_Kind_Order, tv_kind_order, tv_kind_order_id, [tv_kind_order_name],

'');

cW_Contract_Params.AddButtonOrderEdit(cxButtonEdit_PC_Direction, False,

False, '', ['431', '433', '434', '62'], [OBE_INNAVIGATE, OBE_PREVIEW],

[nil, nil]);

cW_Contract_Params.AddPopupEdit(cxPopupEdit_PC_Kind_Direction, False, True,

cxGrid_Kind_Direction, tv_kind_direction, tv_kind_direction_id,

[tv_kind_direction_name], '');

cW_Contract_Params.AddCustomEdit(cxTextEdit_PC_Basis, False, True, '');

cW_Contract_Params.AddCustomEdit(cxTextEdit_PC_FIO, False, True, '');

cW_Contract_Params.AddCustomEdit(cxTextEdit_PC_FIO_R, False, True, '');

cW_Contract_Params.AddPopupEdit(cxPopupEdit_PC_Post, False, True,

cxGrid_Posts, tv_posts, tv_posts_id, [tv_posts_name], '');

cW_Contract_Params.AddCustomEdit(CheckBox_PC_NDS, False, True, '');

cW_Contract_Params.ActionApply := PC_Apply;

cW_Contract_Params.ActionRefuse := PC_Refuse;

cW_Contract_Params.OnChangeWrapper := DoChanged_cW_Contract_Params;

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

cW_New_Direction := TContainerWrappers.Create;

cW_New_Direction.AddPopupEdit(cxPopupEdit_New_Direction, True, False,

cxGrid_Kind_Direction, tv_kind_direction, tv_kind_direction_id,

[tv_kind_direction_name], '');

cW_New_Direction.OnChangeWrapper := DoChanged_cW_New_Direction;

cw_New_UMK := TContainerWrappers.Create;

cw_New_UMK.AddCustomEdit(SpinEdit_New_UMK_Hours, True, False, '');

cw_New_UMK.AddCustomEdit(SpinEdit_New_UMK_Hours_SR, False, False, '');

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

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

cW_End_Education := TContainerWrappers.Create;

cW_End_Education.AddButtonOrderEdit(cxButtonEdit_End_Education, True, False,

'', ['201', '207'], [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW],

[nil, nil, nil, nil]);

cW_End_Education.AddPopupEdit(cxPopupEdit_KBA_End, True, False,

cxGrid_Kba_End, tv_kba_end, tv_kba_end_id, [tv_kba_end_name],

'');

cW_End_Education.AddCustomEdit(cxDateEdit_End_Education, True, False, '');

cW_End_Education.OnChangeWrapper := DoChanged_cW_End_Education;

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

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

// добавление плана повышения квалификации

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

if Get_SqlData_cxGrid(tv_r_c_plan) = nil then

with TSqlData_cxGridTableView.Create(tv_r_c_plan) do

begin

Editing := True;

Single := False;

Table_Name := tv_r_c_plan.Bands.Items[0].Caption;

GUID_Select := R_C_Plan;

GUID_Update := d_P_REFRESHER_COURSE_PLAN;

Params := CreateVarAr(['']);

StepOnTopDataRecordMode := True;

Stat_Column := tv_r_c_plan_institute;

NameColumnForPopupEdit := tv_r_c_plan_institute;

with Select_Columns do

begin

Add(tv_r_c_plan_name_spec, 2);

Add(tv_r_c_plan_institute, 2);

Add(tv_r_c_plan_division, 2);

Add(tv_r_c_plan_kind_training, 2);

Add(tv_r_c_plan_d_start, 1);

Add(tv_r_c_plan_d_end, 0);

Add(tv_r_c_plan_source, 2);

Add(tv_r_c_plan_money);

Add(tv_r_c_plan_status_text, 3);

Add(tv_r_c_plan_id_r_c_plan, 4);

Add(tv_r_c_plan_id_spec_div, 2);

Add(tv_r_c_plan_id_spec, 2);

Add(tv_r_c_plan_id_institute, 2);

Add(tv_r_c_plan_id_d, 2);

Add(tv_r_c_plan_idk_training, 2);

Add(tv_r_c_plan_id_paragraph, 3);

Add(tv_r_c_plan_id_order, 3);

Add(tv_r_c_plan_idk_order, 3);

Add(tv_r_c_plan_status_order, 3);

Add(tv_r_c_plan_id_source, 2);

Add(tv_r_c_plan_id_erp_user);

end;

Key_Columns.Add(tv_r_c_plan_id_r_c_plan, 4);

with Insert_Columns do

begin

Add(tv_r_c_plan_d_end, 0);

Add(tv_r_c_plan_d_start, 1);

Add(tv_r_c_plan_id_spec_div, 2);

Add(tv_r_c_plan_id_paragraph, 3);

end;

with PopupColumnsList.Add(tv_r_c_plan_name_spec) do

begin

SelfKeyColumn := tv_r_c_plan_id_spec_div;

PopupKeyColumn := tv_spec_div_popup_id_spec_div;

PopupNameColumn := tv_spec_div_popup_name_spec;

end;

with PopupColumnsList.Add(tv_r_c_plan_institute) do

begin

SelfKeyColumn := tv_r_c_plan_id_spec_div;

PopupKeyColumn := tv_spec_div_popup_id_spec_div;

PopupNameColumn := tv_spec_div_popup_institute;

end;

with PopupColumnsList.Add(tv_r_c_plan_division) do

begin

SelfKeyColumn := tv_r_c_plan_id_spec_div;

PopupKeyColumn := tv_spec_div_popup_id_spec_div;

PopupNameColumn := tv_spec_div_popup_name_div;

end;

with PopupColumnsList.Add(tv_r_c_plan_kind_training) do

begin

SelfKeyColumn := tv_r_c_plan_id_spec_div;

PopupKeyColumn := tv_spec_div_popup_id_spec_div;

PopupNameColumn := tv_spec_div_popup_kind_training;

end;

with PopupColumnsList.Add(tv_r_c_plan_source) do

begin

SelfKeyColumn := tv_r_c_plan_id_source;

PopupKeyColumn := tv_Source_Financing_ID;

PopupNameColumn := tv_Source_Financing_Name;

end;

OptionsOrder.Column_Status_Text := tv_r_c_plan_status_text;

OptionsOrder.Column_ID_order := tv_r_c_plan_id_order;

OptionsOrder.Column_ID_paragraph := tv_r_c_plan_id_paragraph;

OptionsOrder.Column_IDk_order := tv_r_c_plan_idk_order;

ActionInsert.Visible := True;

ActionInsert.OnExecute := Action_Insert_tv_r_c_plan.OnExecute;

PopupActions.Add(ActionInsert);

PopupActions.Add(ActionDelete);

PopupActions.Add(nil);

PopupActions.Add(OptionsOrder.ActionPreview);

PopupActions.Add(OptionsOrder.ActionNavigate);

PopupActions.Add(nil);

PopupActions.Add(ActionUpdate);

LogicMode := lmLastChoice;

OnChoiceGridRecord := ChoiceGridRecord;

end;

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

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

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

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

if Get_SqlData_cxGrid(tv_spec_div_popup) = nil then

with TSqlData_cxGridTableView.Create(tv_spec_div_popup) do

begin

Single := False;

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

GUID_Select := Spec_div;

GUID_Update := d_P_SPECIALITIES_DIVISION;

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

Stat_Column := tv_spec_div_popup_institute;

NameColumnForPopupEdit := tv_spec_div_popup_institute;

StepOnTopDataRecordMode := True;

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;

with Insert_Columns

do begin

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_d_start, 4);

Add(tv_spec_div_popup_id_d_institute, 6);

Add(tv_spec_div_popup_idk_level_formation, 8);

Add(tv_spec_div_popup_id_source, 12);

end;

Key_Columns.Add(tv_spec_div_popup_id_spec_div, 0);

PopupActions.Add(ActionUpdate);

end;

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

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

// добавление групп повышения квалификации

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

if Get_SqlData_cxGrid(tv_r_c_groups) = nil then

with TSqlData_cxGridTableView.Create(tv_r_c_groups) do

begin

Editing := True;

Single := False;

Table_Name := 'Группы повышения квалификации';

GUID_Select := R_C_Groups;

GUID_Update := d_P_REFRESHER_COURSE_GROUP;

StepOnTopDataRecordMode := True;

Params := CreateVarAr(['']);

Stat_Column := tv_r_c_groups_name;

NameColumnForPopupEdit := tv_r_c_groups_name;

with Select_Columns do

begin

Add(tv_r_c_groups_name, 2);

Add(tv_r_c_groups_d_start, 1);

Add(tv_r_c_groups_d_end, 0);

Add(tv_r_c_groups_status_text, 3);

Add(tv_r_c_groups_hours); ;

Add(tv_r_c_groups_id_rc_group, 4);

Add(tv_r_c_groups_id_ed_group, 2);

Add(tv_r_c_groups_id_met_complex, 3);

Add(tv_r_c_groups_id_paragraph, 3);

Add(tv_r_c_groups_id_order, 3);

Add(tv_r_c_groups_idk_order, 3);

Add(tv_r_c_groups_status_order, 3);

Add(tv_r_c_groups_id_r_c_plan, 5);

Add(tv_r_c_groups_id_erp_user);

end;

Key_Columns.Add(tv_r_c_groups_id_rc_group, 4);

with Insert_Columns do

begin

Add(tv_r_c_groups_d_end, 0);

Add(tv_r_c_groups_d_start, 1);

Add(tv_r_c_groups_id_ed_group, 2);

Add(tv_r_c_groups_id_met_complex, 3);

Add(tv_r_c_groups_id_r_c_plan, 5);

end;

with PopupColumnsList.Add(tv_r_c_groups_name) do

begin

SelfKeyColumn := tv_r_c_groups_id_ed_group;

PopupKeyColumn := tv_ed_group_id_ed_group;

PopupNameColumn := tv_ed_group_name;

end;

OptionsOrder.Column_Status_Text := tv_r_c_groups_status_text;

OptionsOrder.Column_ID_order := tv_r_c_groups_id_order;

OptionsOrder.Column_ID_paragraph := tv_r_c_groups_id_paragraph;

OptionsOrder.Column_IDk_order := tv_r_c_groups_idk_order;

ActionInsert.Visible := True;

ActionInsert.OnExecute := Action_Insert_tv_r_c_group.OnExecute;

LogicMode := lmLastChoice;

OnChoiceGridRecord := ChoiceGridRecord;

PopupActions.Add(ActionInsert);

PopupActions.Add(ActionDelete);

PopupActions.Add(nil);

PopupActions.Add(OptionsOrder.ActionPreview);

PopupActions.Add(OptionsOrder.ActionNavigate);

PopupActions.Add(nil);

PopupActions.Add(ActionUpdate);

end;

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

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

// Учебные группы

with TSqlData_cxGridTableView.Create(tv_ed_group) do

begin

Editing := False;

Table_Name := 'Учебные группы';

Params := CreateVarAr(['']);

GUID_Select := Ed_Groups;

Single := False;

StepOnTopDataRecordMode := True;

Stat_Column := tv_ed_group_name;

NameColumnForPopupEdit := tv_ed_group_name;

with Select_Columns do

begin

Add(tv_ed_group_name, 1);

Add(tv_ed_group_kind_group, 8);

Add(tv_ed_group_d_start, 4);

Add(tv_ed_group_d_end, 5);

Add(tv_ed_group_id_ed_group, 0);

Add(tv_ed_group_id_spec_div, 2);

Add(tv_ed_group_idk_group, 8);

Add(tv_ed_group_level_group, 3);

end;

Key_Columns.Add(tv_ed_group_id_ed_group, 0);

PopupActions.Add(ActionUpdate);

end;

// Куратор текущей группы

with TSqlData_cxGridTableView.Create(TTree_Curator) do

begin

Table_Name := TTree_Curator.Bands.Items[0].Caption;

GUID_Select := Get_List_Curators_By_ID_EG;

GUID_Update := d_P_CURATOR_GROUP;

ParametersCount := 1;

RequiredParemeters.Add(1);

StepOnTopDataRecordMode := True;

Stat_Column := Tree_Curator_FIO;

with Select_Columns do

begin

Add(Tree_Curator_Start, 1);

Add(Tree_Curator_End, 0);

Add(Tree_Curator_FIO, 2);

Add(Tree_Curator_ID_E, 2);

Add(Tree_Curator_ID_EG, 3);

end;

with Insert_Columns do

begin

Add(Tree_Curator_Start, 1);

Add(Tree_Curator_ID_E, 2);

Add(Tree_Curator_ID_EG, 3);

end;

with PopupColumnsList.Add(Tree_Curator_FIO) do

begin

SelfKeyColumn := Tree_Curator_ID_E;

PopupKeyColumn := Current_Form_SE.cxGrid_FIO_ID_E;

PopupNameColumn := Current_Form_SE.cxGrid_FIO_Full;

end;

Key_Columns.Add(Tree_Curator_ID_E, 2);

Key_Columns.Add(Tree_Curator_ID_EG, 3);

Key_Columns.Add(Tree_Curator_Start, 1);

ActionInsert.OnExecute := Action_New_Curator.OnExecute;

TcxPopupEditProperties(Tree_Curator_FIO.Properties).PopupControl :=

Current_Form_SE;

PopupEdit_New_Curator_FIO.Properties.PopupControl := Current_Form_SE;

cW_New_Curator := TContainerWrappers.Create;

cW_New_Curator.AddCustomEdit(DateEdit_New_Curator, True, False, '');

cW_New_Curator.AddPopupEdit(PopupEdit_New_Curator_FIO, True, False,

Current_Form_SE.cxGrid1, Current_Form_SE.cxGrid_FIO,

Current_Form_SE.cxGrid_FIO_ID_E, [Current_Form_SE.cxGrid_FIO_Full], '');

cW_New_Curator.ActionEnter := Action_Insert_Curator;

end;

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

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

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

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

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

if Get_SqlData_cxGrid(tv_com_spec) = nil then

with TSqlData_cxGridTableView.Create(tv_com_spec) do

begin

Editing := False;

Single := False;

Table_Name := 'Методический комплекс';

GUID_Select := Met_Complex;

StepOnTopDataRecordMode := True;

ParametersCount := 1;

RequiredParemeters.Add(1);

Stat_Column := tv_com_spec_institute;

NameColumnForPopupEdit := tv_com_spec_institute;

with Select_Columns do

begin

Add(tv_com_spec_name_spec);

Add(tv_com_spec_institute);

Add(tv_com_spec_name_div);

Add(tv_com_spec_kind_training);

Add(tv_com_spec_status_text);

Add(tv_com_spec_hours);

Add(tv_com_spec_id_spec_div);

Add(tv_com_spec_id_spec);

Add(tv_com_spec_id_institute);

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_sam);

end;

PopupActions.Add(ActionUpdate);

end;

// Рамочные договора

with TSqlData_cxGridTableView.Create(TTree_Main_Contracts) do

begin

Editing := False;

Table_Name := TTree_Main_Contracts.Bands.Items[0].Caption;

GUID_Select := Get_List_Main_Contracts;

StepOnTopDataRecordMode := True;

ParametersCount := 1;

RequiredParemeters.Add(1);

with Select_Columns do

begin

Add(Tree_Main_Contracts_Contract);

Add(Tree_Main_Contracts_Org_Name);

Add(Tree_Main_Contracts_Number);

Add(Tree_Main_Contracts_ID_Contract);

end;

Key_Columns.Add(Tree_Main_Contracts_ID_Contract);

PopupActions.Add(ActionUpdate);

Stat_Column := Tree_Main_Contracts_Contract;

NameColumnForPopupEdit := Tree_Main_Contracts_Contract;

end;

// Виды сертификатов

with TSqlData_cxGridTableView.Create(TTree_Kind_Doc_Cert) do

begin

Editing := False;

Table_Name := TTree_Kind_Doc_Cert.Bands.Items[0].Caption;

GUID_Select := Get_Kind_Documents;

StepOnTopDataRecordMode := True;

with Select_Columns do

begin

Add(Tree_Kind_Doc_Cert_Name);

Add(Tree_Kind_Doc_Cert_ID);

end;

Key_Columns.Add(Tree_Kind_Doc_Cert_ID);

PopupActions.Add(ActionUpdate);

Stat_Column := Tree_Kind_Doc_Cert_Name;

NameColumnForPopupEdit := Tree_Kind_Doc_Cert_Name;

end;

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

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

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

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

if Get_SqlData_cxGrid(tv_listeners) = nil then

with TSqlData_cxGridTableView.Create(tv_listeners) do

begin

Editing := True;

Single := False;

Table_Name := 'Участники';

GUID_Select := Listeners;

GUID_Update := d_P_STUDENTS;

StepOnTopDataRecordMode := True;

OnAfter_Read := After_Read_tv_listeners;

Params := CreateVarAr(['']);

Stat_Column := tv_listeners_fio;

NameColumnForPopupEdit := tv_listeners_fio;

StepOnTopDataRecordMode := True;

with Select_Columns do

begin

Add(tv_listeners_fio, 1);

Add(tv_listeners_ed_group, 7);

Add(tv_listeners_d_start, 4);

Add(tv_listeners_d_end);

Add(tv_listeners_d_end_plan);

Add(tv_listeners_kind_basis_action, 8);

Add(tv_listeners_status_text_order_start, 3);

Add(tv_listeners_status_text_order_end);

Add(tv_listeners_status_text_contract);

Add(tv_listeners_org);

Add(tv_listeners_money);

Add(tv_listeners_certificate, 4);

Add(tv_listeners_hours, 20);

Add(tv_listeners_hours_plan);

Add(tv_listeners_last_date);

Add(tv_listeners_id_student, 0);

Add(tv_listeners_id_e, 1);

Add(tv_listeners_id_ed_group, 7);

Add(tv_listeners_idkba_transfer, 8);

Add(tv_listeners_id_paragraph_start, 3);

Add(tv_listeners_id_order_start, 3);

Add(tv_listeners_idk_order_start, 3);

Add(tv_listeners_id_contract);

Add(tv_listeners_status_order_start, 3);

Add(tv_listeners_id_paragraph_contract, 10);

Add(tv_listeners_id_erp_user);

Add(tv_listeners_id_contractor);

Add(tv_listeners_Main_Contract);

Add(tv_listeners_ID_Contract_Main);

Add(tv_listeners_Org_Contract_Main);

Add(tv_listeners_NDS);

Add(tv_listeners_ID_Paragraph_End);

Add(tv_listeners_ID_ERP_End);

Add(tv_listeners_ID_Status_End);

Add(tv_listeners_ID_Certificate, 0);

Add(tv_listeners_ID_Doc_Cert, 0);

Add(tv_listeners_Kind_Cert, 1);

Add(tv_listeners_ID_Kind_Cert, 1);

Add(tv_listeners_Cert_Date, 2);

Add(tv_listeners_Reg_Number, 0);

Add(tv_listeners_ID_Reg, 5);

Cont_New_Nach_All := TContainerWrappers.Create;

Cont_New_Nach_All.AddButtonOrderEdit(ButtonEdit_Create_Nach_All, True, False, ''

, ['436, 444']

, [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW]

, [nil, nil, nil, nil]);

Cont_New_Nach_All.AddCustomEdit(DateEdit_Create_Nach_All, True, False, '');

Cont_New_Nach_All.ActionEnter := Action_Go_Nach_All;

end;

Key_Columns.Add(tv_listeners_id_student, 0);

with IndividualEditInfoList.Add do

begin

GUID_Update_Exchange := Update_FIO;

EditColumns.Add(tv_listeners_fio, 1);

end;

with IndividualEditInfoList.Add do

begin

GUID_Update_Exchange := Update_Ed_Group;

EditColumns.Add(tv_listeners_ed_group, 7);

EditColumns.Add(tv_listeners_d_start, 4);

end;

with IndividualEditInfoList.Add do

begin

GUID_Update_Exchange := Update_End_Date;

EditColumns.Add(tv_listeners_d_end);

end;

with IndividualEditInfoList.Add do

begin

GUID_Update := d_P_CERTIFICATE;

EditColumns.Add(tv_listeners_hours, 20);

KeyColumns.Add(tv_listeners_ID_Certificate, 0);

end;

with IndividualEditInfoList.Add do

begin

GUID_Update := d_P_MAGAZINE_REGISTR_DIPLOMAS;

EditColumns.Add(tv_listeners_Reg_Number, 0);

KeyColumns.Add(tv_listeners_ID_Reg, 5);

end;

with IndividualEditInfoList.Add do

begin

GUID_Update := d_P_DOCUMENTS;

EditColumns.Add(tv_listeners_Kind_Cert, 1);

EditColumns.Add(tv_listeners_Cert_Date, 2);

EditColumns.Add(tv_listeners_certificate, 4);

KeyColumns.Add(tv_listeners_ID_Doc_Cert, 0);

end;

OnBefore_Update_Exchange := Before_Update_Exchange_tv_listeners;

with Insert_Columns do

begin

Add(tv_listeners_id_e, 1);

Add(tv_listeners_id_ed_group, 7);

Add(tv_listeners_idkba_transfer, 8);

Add(tv_listeners_id_paragraph_start, 3);

Add(tv_listeners_d_start, 4);

Add(tv_listeners_id_paragraph_contract, 10);

end;

TcxPopupEditProperties(tv_listeners_fio.Properties).PopupControl :=

Current_Form_SE;

cxPopupEdit_New_Listener_FIO.Properties.PopupControl := Current_Form_SE;

cxPopupEdit_New_Listener_Contract_Organization.Properties.PopupControl :=

Current_Form_Find_Org;

// TcxPopupEditProperties(tv_listeners_org.Properties).PopupControl := Current_Form_Find_Org;

cxPopupEdit_PC_Org.Properties.PopupControl := Current_Form_Find_Org;

with PopupColumnsList.Add(tv_listeners_fio) do

begin

SelfKeyColumn := tv_listeners_id_e;

PopupKeyColumn := Current_Form_SE.cxGrid_FIO_ID_E;

PopupNameColumn := Current_Form_SE.cxGrid_FIO_Full;

end;

with PopupColumnsList.Add(tv_listeners_ed_group) do

begin

SelfKeyColumn := tv_listeners_id_ed_group;

PopupKeyColumn := tv_r_c_groups_id_ed_group;

PopupNameColumn := tv_r_c_groups_name;

end;

with PopupColumnsList.Add(tv_listeners_d_start) do

begin

SelfKeyColumn := tv_listeners_id_ed_group;

PopupKeyColumn := tv_r_c_groups_id_ed_group;

PopupNameColumn := tv_r_c_groups_d_start;

end;

with PopupColumnsList.Add(tv_listeners_kind_basis_action) do

begin

SelfKeyColumn := tv_listeners_idkba_transfer;

PopupKeyColumn := tv_kba_start_id;

PopupNameColumn := tv_kba_start_name;

end;

with PopupColumnsList.Add(tv_listeners_Kind_Cert) do

begin

SelfKeyColumn := tv_listeners_ID_Kind_Cert;

PopupKeyColumn := Tree_Kind_Doc_Cert_ID;

PopupNameColumn := Tree_Kind_Doc_Cert_Name;

end;

OptionsOrder.Column_Status_Text := tv_listeners_status_text_order_start;

OptionsOrder.Column_ID_order := tv_listeners_id_order_start;

OptionsOrder.Column_ID_paragraph := tv_listeners_id_paragraph_start;

OptionsOrder.Column_IDk_order := tv_listeners_idk_order_start;

ActionInsert.Visible := True;

ActionInsert.OnExecute := Action_Insert_tv_listeners.OnExecute;

ActionDelete.OnExecute := Delete_tv_listeners.OnExecute;

PopupActions.Add(ActionInsert);

PopupActions.Add(Action_Import);

PopupActions.Add(ActionDelete);

PopupActions.Add(nil);

PopupActions.Add(Action_Add_Contract);

PopupActions.Add(Action_Main_Contract);

PopupActions.Add(Action_New_Money);

PopupActions.Add(Action_Create_Nach_All);

PopupActions.Add(Action_Delete_Nach);

PopupActions.Add(Action_Delete_Contract);

PopupActions.Add(nil);

PopupActions.Add(Action_End_Education);

PopupActions.Add(Action_Delete_Order_End);

PopupActions.Add(nil);

PopupActions.Add(Action_Make_Certificate);

PopupActions.Add(Action_View_Certificate);

PopupActions.Add(Action_Delete_Certificate);

PopupActions.Add(nil);

PopupActions.Add(OptionsOrder.ActionPreview);

PopupActions.Add(OptionsOrder.ActionNavigate);

PopupActions.Add(nil);

PopupActions.Add(ActionUpdate);

LogicMode := lmLastChoice;

OnChoiceGridRecord := OnChoiceGridRecord_tv_listeners;

cW_Set_Main_Contract := TContainerWrappers.Create;

cW_Set_Main_Contract.AddCustomEdit(DateEdit_Set_Main_Contract_Find, True,

False, '');

cW_Set_Main_Contract.AddPopupEdit(PopupEdit_Set_Main_Contract, True,

False, cxGrid_Main_Contracts, TTree_Main_Contracts,

Tree_Main_Contracts_ID_Contract, [Tree_Main_Contracts_Contract], '');

cW_Set_Main_Contract.ActionEnter := Action_Go_Set_Main_Contract;

Cont_Make_Cert := TContainerWrappers.Create;

Cont_Make_Cert.AddButtonOrderEdit(ButtonEdit_New_Cert, True, False, ''

, ['225']

, [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW]

, [nil, nil, nil, nil]);

Cont_Make_Cert.AddPopupEdit(PopupEdit_New_Cert_Kind_Doc, True, False

, nil, nil, Tree_Kind_Doc_Cert_ID, [Tree_Kind_Doc_Cert_Name]);

Cont_Make_Cert.AddCustomEdit(SpinEdit_New_Cert_Reg, True, False);

Cont_Make_Cert.AddCustomEdit(SpinEdit_New_Cert_Number, True, False);

Cont_Make_Cert.AddCustomEdit(SpinEdit_New_Cert_Hours, True, False);

Cont_Make_Cert.ActionEnter := Action_Go_New_Cert;

cw_New_Money := TContainerWrappers.Create;

cw_New_Money.AddCustomEdit(CurrencyEdit_New_Money, True, False);

cw_New_Money.ActionEnter := Action_Go_New_Money;

end;

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

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

// Основание зачисления

with TSqlData_cxGridTableView.Create(tv_kba_start) do

begin

Editing := False;

Table_Name := 'Основания зачисления';

GUID_Select := Kind_Basis_Action;

Single := False;

StepOnTopDataRecordMode := True;

with Select_Columns do

begin

Add(tv_kba_start_name);

Add(tv_kba_start_id);

end;

Key_Columns.Add(tv_kba_start_id);

PopupActions.Add(ActionUpdate);

Stat_Column := tv_kba_start_name;

NameColumnForPopupEdit := tv_kba_start_name;

end;

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

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

// Основание окончания

with TSqlData_cxGridTableView.Create(tv_kba_end) do

begin

Editing := False;

Table_Name := 'Основания окончания';

GUID_Select := End_Education_KBA;

Params := CreateVarAr(['']);

Single := False;

StepOnTopDataRecordMode := True;

Stat_Column := tv_kba_end_name;

NameColumnForPopupEdit := tv_kba_end_name;

with Select_Columns do

begin

Add(tv_kba_end_name);

Add(tv_kba_end_id);

end;

Key_Columns.Add(tv_kba_end_id);

PopupActions.Add(ActionUpdate);

end;

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

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

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

// Должности

with TSqlData_cxGridTableView.Create(tv_posts) do

begin

Editing := False;

Table_Name := 'Должности';

GUID_Select := Posts;

Single := False;

StepOnTopDataRecordMode := True;

Stat_Column := tv_posts_name;

NameColumnForPopupEdit := tv_posts_name;

with Select_Columns do

begin

Add(tv_posts_name);

Add(tv_posts_id);

end;

Key_Columns.Add(tv_posts_id);

PopupActions.Add(ActionUpdate);

end;

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

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

// Вид договора

with TSqlData_cxGridTableView.Create(tv_kind_order) do

begin

Editing := False;

Table_Name := 'Виды договоров';

GUID_Select := kind_order;

Single := False;

StepOnTopDataRecordMode := True;

Stat_Column := tv_kind_order_name;

NameColumnForPopupEdit := tv_kind_order_name;

with Select_Columns do

begin

Add(tv_kind_order_name);

Add(tv_kind_order_id);

end;

Key_Columns.Add(tv_kind_order_id);

PopupActions.Add(ActionUpdate);

end;

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

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

// Вид направления

with TSqlData_cxGridTableView.Create(tv_kind_direction) do

begin

Editing := False;

Table_Name := 'Виды направлений';

GUID_Select := Kind_Direction;

Single := False;

StepOnTopDataRecordMode := True;

Stat_Column := tv_kind_direction_name;

NameColumnForPopupEdit := tv_kind_direction_name;

with Select_Columns do

begin

Add(tv_kind_direction_name);

Add(tv_kind_direction_id);

end;

Key_Columns.Add(tv_kind_direction_id);

PopupActions.Add(ActionUpdate);

end;

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

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

// Ссылка на договор

with TSqlData_cxGridTableView.Create(tv_contracts) do

begin

Editing := False;

Table_Name := 'Ссылки на договоры';

GUID_Select := Contracts;

Single := False;

StepOnTopDataRecordMode := True;

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

Stat_Column := tv_contracts_contract;

NameColumnForPopupEdit := tv_contracts_contract;

with Select_Columns do

begin

Add(tv_contracts_contract);

Add(tv_contracts_kind_order);

Add(tv_contracts_d_start);

Add(tv_contracts_d_end);

Add(tv_contracts_id_contract);

Add(tv_contracts_id_paragraph);

Add(tv_contracts_id_order);

Add(tv_contracts_idk_order);

Add(tv_contracts_status_order);

end;

Key_Columns.Add(tv_contracts_id_contract);

PopupActions.Add(ActionUpdate);

end;

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

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

// Источник финансирования

if Get_SqlData_cxGrid(tv_Source_Financing) = nil then

with TSqlData_cxGridTableView.Create(tv_Source_Financing) do

begin

Table_Name := 'Источники финансирования';

GUID_Select := S_F;

StepOnTopDataRecordMode := True;

ParametersCount := 1;

Editing := False;

Select_Columns.Add(tv_Source_Financing_Abbreviation);

Select_Columns.Add(tv_Source_Financing_Name);

Select_Columns.Add(tv_Source_Financing_Abbr_Div);

Select_Columns.Add(tv_Source_Financing_Division);

Select_Columns.Add(tv_Source_Financing_Kind_Source);

Select_Columns.Add(tv_Source_Financing_Activity);

Select_Columns.Add(tv_Source_Financing_Date_Close);

Select_Columns.Add(tv_Source_Financing_ID);

Select_Columns.Add(tv_Source_Financing_ID_D);

Select_Columns.Add(tv_Source_Financing_ID_Kind_Source);

Select_Columns.Add(tv_Source_Financing_ID_Activity);

Key_Columns.Add(tv_Source_Financing_ID);

PopupActions.Add(ActionUpdate);

Stat_Column := tv_Source_Financing_Abbreviation;

NameColumnForPopupEdit := tv_Source_Financing_Name;

end;

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

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

// добавление приказов человека

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

if Get_SqlData_cxGrid(tv_orders) = nil then

with TSqlData_cxGridTableView.Create(tv_orders) do

begin

Editing := False;

Single := False;

Table_Name := 'Приказы человека';

GUID_Select := Orders;

StepOnTopDataRecordMode := True;

Params := CreateVarAr(['']);

Stat_Column := tv_orders_kind_paragraph;

NameColumnForPopupEdit := tv_orders_kind_paragraph;

with Select_Columns do

begin

Add(tv_orders_kind_paragraph);

Add(tv_orders_status_text);

Add(tv_orders_ed_group);

Add(tv_orders_spec);

Add(tv_orders_d_start);

Add(tv_orders_kind_training);

Add(tv_orders_institute);

Add(tv_orders_status_order_contract);

Add(tv_orders_kind_paragraph_contract);

Add(tv_orders_d_creation);

Add(tv_orders_d_modification);

Add(tv_orders_id_order);

Add(tv_orders_id_paragraph);

Add(tv_orders_idk_order);

Add(tv_orders_status_order);

end;

Key_Columns.Add(tv_orders_id_order);

OptionsOrder.Column_Status_Text := tv_orders_status_text;

OptionsOrder.Column_ID_order := tv_orders_id_order;

OptionsOrder.Column_ID_paragraph := tv_orders_id_paragraph;

OptionsOrder.Column_IDk_order := tv_orders_idk_order;

ActionInsert.Visible := True;

ActionInsert.OnExecute := Action_Insert_tv_r_c_group.OnExecute;

PopupActions.Add(OptionsOrder.ActionPreview);

PopupActions.Add(OptionsOrder.ActionNavigate);

PopupActions.Add(nil);

PopupActions.Add(ActionUpdate);

end;

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

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

// начисления

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

if Get_SqlData_cxGrid(TTree_Nach) = nil then

with TSqlData_cxGridTableView.Create(TTree_Nach) do

begin

Table_Name := TTree_Nach.Bands.Items[0].Caption;

GUID_Select := Get_Nach_By_ID_Dog;

GUID_Update := d_P_ACCOUNTS_CONTRACT;

StepOnTopDataRecordMode := True;

ParametersCount := 1;

RequiredParemeters.Add(1);

Stat_Column := Tree_Nach_Document;

with Select_Columns do

begin

Add(Tree_Nach_D_Start);

Add(Tree_Nach_D_End);

Add(Tree_Nach_Kind_Order);

Add(Tree_Nach_Document);

Add(Tree_Nach_Sum);

Add(Tree_Nach_User);

Add(Tree_Nach_Status);

Add(Tree_Nach_ID_Stage);

Add(Tree_Nach_ID_Account_Contract);

Add(Tree_Nach_ID_Basis_Salary);

Add(Tree_Nach_ID_SF);

Add(Tree_Nach_IDK_Order);

Add(Tree_Nach_ID_Paragraph);

Add(Tree_Nach_ID_Order);

Add(Tree_Nach_ID_ERP);

end;

Key_Columns.Add(Tree_Nach_ID_Basis_Salary, 3);

Key_Columns.Add(Tree_Nach_ID_Paragraph, 0);

//Key_Columns.Add(Tree_Nach_D_Start);

OnAfter_Delete := After_Delete;

OptionsOrder.Column_Status_Text := Tree_Nach_Document;

OptionsOrder.Column_ID_order := Tree_Nach_ID_Order;

OptionsOrder.Column_ID_paragraph := Tree_Nach_ID_Paragraph;

OptionsOrder.Column_IDk_order := Tree_Nach_IDK_Order;

OptionsOrder.Column_ID_erp_user := Tree_Nach_ID_ERP;

ActionInsert.OnExecute := Action_Create_Nach.OnExecute;

PopupActions.Add(ActionInsert);

PopupActions.Add(ActionDelete);

PopupActions.Add(nil);

PopupActions.Add(OptionsOrder.ActionPreview);

PopupActions.Add(OptionsOrder.ActionNavigate);

PopupActions.Add(nil);

PopupActions.Add(ActionUpdate);

Cont_New_Nach := TContainerWrappers.Create;

Cont_New_Nach.AddButtonOrderEdit(ButtonEdit_New_Nach, True, False, ''

, ['436, 444']

, [OBE_CHOOSE, OBE_NEW, OBE_INNAVIGATE, OBE_PREVIEW]

, [nil, nil, nil, nil]);

Cont_New_Nach.AddCustomEdit(DateEdit_New_Nach, True, False, '');

Cont_New_Nach.ActionEnter := Action_Go_New_Nach;

end;

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

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

// добавление планов ПК

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

if Get_SqlData_cxGrid(tv_plan) = nil then

with TSqlData_cxGridTableView.Create(tv_plan) do

begin

Editing := False;

Single := False;

Table_Name := 'Планы ПК';

GUID_Select := Plan_Paragraphs;

StepOnTopDataRecordMode := True;

Params := CreateVarAr(['-1']);

Stat_Column := tv_plan_note;

NameColumnForPopupEdit := tv_plan_note;

with Select_Columns do

begin

Add(tv_plan_note);

Add(tv_plan_summary);

Add(tv_plan_status_text);

Add(tv_plan_hisdate);

Add(tv_plan_d_creation);

Add(tv_plan_d_modification);

Add(tv_plan_id_paragraph);

Add(tv_plan_id_order);

Add(tv_plan_idk_order);

Add(tv_plan_status_order);

Add(tv_plan_id_erp_user);

end;

Key_Columns.Add(tv_plan_id_paragraph);