128
FD?SServerModuleCreateCommand = FD?BXConnection->CreateCommand();
FD?SServerModuleCreateCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FD?SServerModuleCreateCommand->Text = "TdssmRemoteData.DSServerModuleCreate";
FDSServerModuleCreateCommand->Prepare();
}
FDSServerModuleCreateCommand->Parameters->Parameter[0]->Value->SetJSONValue(Sender,
FI?nstanceOwner);
FDSServerModuleCreateCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_custom_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_custom_BeforeOpenCommand == NU?LL)
{
Fq?_custom_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_custom_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_custom_BeforeOpenCommand->Text = "TdssmRemoteData.q_custom_BeforeOpen";
Fq_custom_BeforeOpenCommand->Prepare();
}
Fq?_custom_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_custom_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_equipment_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_equipment_BeforeOpenCommand == NU?LL)
{
Fq?_equipment_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_equipment_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
129
Fq?_equipment_BeforeOpenCommand->Text = "TdssmRemoteData.q_equipment_BeforeOpen";
Fq_equipment_BeforeOpenCommand->Prepare();
}
Fq?_equipment_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_equipment_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_equipment_maintenance_schedule_BeforeOpen(TDataSet*
Da?taSet)
{
if (F?q_equipment_maintenance_schedule_BeforeOpenCommand == NU?LL)
{
Fq?_equipment_maintenance_schedule_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_equipment_maintenance_schedule_BeforeOpenCommand->CommandType =
TD?BXCommandTypes_DSServerMethod;
Fq?_equipment_maintenance_schedule_BeforeOpenCommand->Text =
"TdssmRemoteData.q_equipment_maintenance_schedule_BeforeOpen";
Fq_equipment_maintenance_schedule_BeforeOpenCommand->Prepare();
}
Fq?_equipment_maintenance_schedule_BeforeOpenCommand->Parameters->Parameter[0]->Value-
>SetDBXReader(new TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_equipment_maintenance_schedule_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_filter_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_filter_BeforeOpenCommand == NU?LL)
{
Fq?_filter_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_filter_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
130
Fq?_filter_BeforeOpenCommand->Text = "TdssmRemoteData.q_filter_BeforeOpen";
Fq_filter_BeforeOpenCommand->Prepare();
}
Fq?_filter_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_filter_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_request_BeforeDelete(TDataSet* Da?taSet)
{
if (F?q_request_BeforeDeleteCommand == NU?LL)
{
Fq?_request_BeforeDeleteCommand = FD?BXConnection->CreateCommand();
Fq?_request_BeforeDeleteCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_request_BeforeDeleteCommand->Text = "TdssmRemoteData.q_request_BeforeDelete";
Fq_request_BeforeDeleteCommand->Prepare();
}
Fq?_request_BeforeDeleteCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_request_BeforeDeleteCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_request_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_request_BeforeOpenCommand == NU?LL)
{
Fq?_request_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_request_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_request_BeforeOpenCommand->Text = "TdssmRemoteData.q_request_BeforeOpen";
Fq_request_BeforeOpenCommand->Prepare();
131
}
Fq?_request_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_request_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_request_destinations_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_request_destinations_BeforeOpenCommand == NU?LL)
{
Fq?_request_destinations_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_request_destinations_BeforeOpenCommand->CommandType =
TD?BXCommandTypes_DSServerMethod;
Fq?_request_destinations_BeforeOpenCommand->Text =
"TdssmRemoteData.q_request_destinations_BeforeOpen";
Fq_request_destinations_BeforeOpenCommand->Prepare();
}
Fq?_request_destinations_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_request_destinations_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_request_states_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_request_states_BeforeOpenCommand == NU?LL)
{
Fq?_request_states_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_request_states_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_request_states_BeforeOpenCommand->Text = "TdssmRemoteData.q_request_states_BeforeOpen";
Fq_request_states_BeforeOpenCommand->Prepare();
}
132
Fq?_request_states_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_request_states_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_request_users_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_request_users_BeforeOpenCommand == NU?LL)
{
Fq?_request_users_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_request_users_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_request_users_BeforeOpenCommand->Text = "TdssmRemoteData.q_request_users_BeforeOpen";
Fq_request_users_BeforeOpenCommand->Prepare();
}
Fq?_request_users_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_request_users_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_view_user_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_view_user_BeforeOpenCommand == NU?LL)
{
Fq?_view_user_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_view_user_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_view_user_BeforeOpenCommand->Text = "TdssmRemoteData.q_view_user_BeforeOpen";
Fq_view_user_BeforeOpenCommand->Prepare();
}
Fq?_view_user_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_view_user_BeforeOpenCommand->ExecuteUpdate();
133
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_request_spares_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_request_spares_BeforeOpenCommand == NU?LL)
{
Fq?_request_spares_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_request_spares_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_request_spares_BeforeOpenCommand->Text = "TdssmRemoteData.q_request_spares_BeforeOpen";
Fq_request_spares_BeforeOpenCommand->Prepare();
}
Fq?_request_spares_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_request_spares_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::q_report_request_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_report_request_BeforeOpenCommand == NU?LL)
{
Fq?_report_request_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_report_request_BeforeOpenCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Fq?_report_request_BeforeOpenCommand->Text = "TdssmRemoteData.q_report_request_BeforeOpen";
Fq_report_request_BeforeOpenCommand->Prepare();
}
Fq?_report_request_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_report_request_BeforeOpenCommand->ExecuteUpdate();
}
134
vo?id __?fastcall Td?ssmRemoteDataClient::q_report_workshop_BeforeOpen(TDataSet* Da?taSet)
{
if (F?q_report_workshop_BeforeOpenCommand == NU?LL)
{
Fq?_report_workshop_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Fq?_report_workshop_BeforeOpenCommand->CommandType =
TD?BXCommandTypes_DSServerMethod;
Fq?_report_workshop_BeforeOpenCommand->Text =
"TdssmRemoteData.q_report_workshop_BeforeOpen";
Fq_report_workshop_BeforeOpenCommand->Prepare();
}
Fq?_report_workshop_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Fq_report_workshop_BeforeOpenCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::t_subdivision_user_list_BeforeOpen(TDataSet* Da?taSet)
{
if (F?t_subdivision_user_list_BeforeOpenCommand == NU?LL)
{
Ft?_subdivision_user_list_BeforeOpenCommand = FD?BXConnection->CreateCommand();
Ft?_subdivision_user_list_BeforeOpenCommand->CommandType =
TD?BXCommandTypes_DSServerMethod;
Ft?_subdivision_user_list_BeforeOpenCommand->Text =
"TdssmRemoteData.t_subdivision_user_list_BeforeOpen";
Ft_subdivision_user_list_BeforeOpenCommand->Prepare();
}
Ft?_subdivision_user_list_BeforeOpenCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Ft_subdivision_user_list_BeforeOpenCommand->ExecuteUpdate();
}
135
vo?id __?fastcall Td?ssmRemoteDataClient::t_user_BeforePost(TDataSet* Da?taSet)
{
if (F?t_user_BeforePostCommand == NU?LL)
{
Ft?_user_BeforePostCommand = FD?BXConnection->CreateCommand();
Ft?_user_BeforePostCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
Ft?_user_BeforePostCommand->Text = "TdssmRemoteData.t_user_BeforePost";
Ft_user_BeforePostCommand->Prepare();
}
Ft?_user_BeforePostCommand->Parameters->Parameter[0]->Value->SetDBXReader(new
TDBXDataSetReader(DataSet, FInstanceOwner), Tr?ue);
Ft_user_BeforePostCommand->ExecuteUpdate();
}
Sy?stem::TDateTime __?fastcall Td?ssmRemoteDataClient::GetDate()
{
if (F?GetDateCommand == NU?LL)
{
FG?etDateCommand = FD?BXConnection->CreateCommand();
FG?etDateCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FG?etDateCommand->Text = "TdssmRemoteData.GetDate";
FGetDateCommand->Prepare();
}
FGetDateCommand->ExecuteUpdate();
Sy?stem::TDateTime re?sult = FG?etDateCommand->Parameters->Parameter[0]->Value->AsDateTime;
re?turn re?sult;
}
in?t __?fastcall Td?ssmRemoteDataClient::GetUserTypeID()
{
136
if (F?GetUserTypeIDCommand == NU?LL)
{
FG?etUserTypeIDCommand = FD?BXConnection->CreateCommand();
FG?etUserTypeIDCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FG?etUserTypeIDCommand->Text = "TdssmRemoteData.GetUserTypeID";
FGetUserTypeIDCommand->Prepare();
}
FGetUserTypeIDCommand->ExecuteUpdate();
in?t re?sult = FG?etUserTypeIDCommand->Parameters->Parameter[0]->Value->GetInt32();
re?turn re?sult;
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestSelect(int Re?questID)
{
if (F?RequestSelectCommand == NU?LL)
{
FR?equestSelectCommand = FD?BXConnection->CreateCommand();
FR?equestSelectCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestSelectCommand->Text = "TdssmRemoteData.RequestSelect";
FRequestSelectCommand->Prepare();
}
FRequestSelectCommand->Parameters->Parameter[0]->Value->SetInt32(RequestID);
FRequestSelectCommand->ExecuteUpdate();
}
in?t __?fastcall Td?ssmRemoteDataClient::RequestAdd(int Eq?uipmentID)
{
if (F?RequestAddCommand == NU?LL)
{
137
FR?equestAddCommand = FD?BXConnection->CreateCommand();
FR?equestAddCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestAddCommand->Text = "TdssmRemoteData.RequestAdd";
FRequestAddCommand->Prepare();
}
FRequestAddCommand->Parameters->Parameter[0]->Value->SetInt32(EquipmentID);
FRequestAddCommand->ExecuteUpdate();
in?t re?sult = FR?equestAddCommand->Parameters->Parameter[1]->Value->GetInt32();
re?turn re?sult;
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestSendToSubdivision(int Su?bdivisionID)
{
if (F?RequestSendToSubdivisionCommand == NU?LL)
{
FR?equestSendToSubdivisionCommand = FD?BXConnection->CreateCommand();
FR?equestSendToSubdivisionCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestSendToSubdivisionCommand->Text = "TdssmRemoteData.RequestSendToSubdivision";
FRequestSendToSubdivisionCommand->Prepare();
}
FRequestSendToSubdivisionCommand->Parameters->Parameter[0]->Value->SetInt32(SubdivisionID);
FRequestSendToSubdivisionCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestReturn()
{
if (F?RequestReturnCommand == NU?LL)
{
FR?equestReturnCommand = FD?BXConnection->CreateCommand();