121
ToolBar1: TToolBar;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton16: TToolButton;
ToolButton26: TToolButton;
StatusBar1: TStatusBar;
Panel1: TPanel;
Label1: TLabel;
dblcbReporting: TDBLookupComboBox;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
aPrint: TAction;
aSend: TAction;
aSendAll: TAction;
ToolButton4: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
bReporting: TButton;
procedure aAddExecute(Sender: TObject);
procedure aEditExecute(Sender: TObject);
procedure aDeleteExecute(Sender: TObject);
procedure aRefreshExecute(Sender: TObject);
procedure aFilterExecute(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure dblcbReportingClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure aPrintExecute(Sender: TObject);
procedure aSendExecute(Sender: TObject);
procedure aSendAllExecute(Sender: TObject);
procedure bReportingClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fCalculation: TfCalculation;
implementation
{$R *.dfm}
122
uses udmData, udmReport, ufCalculationEditor, ufApartmentSelector, ufReporting;
procedure TfCalculation.aAddExecute(Sender: TObject);
var
//
ID: Integer;
begin
//
dmData.TestActiveConnection;
if fApartmentSelector.ShowModal = mrOk then
begin
ID := dmData.RemoteMethods.CalculationAdd
(dmData.RemoteMethods.GetReportingID(False), fApartmentSelector.ID);
dmData.RemoteMethods.SetCalculationID(ID);
fCalculationEditor.ShowModal;
dmData.cdsReportingCalculationList.Refresh;
end;
end;
procedure TfCalculation.aDeleteExecute(Sender: TObject);
var
//
ID: Integer;
begin
dmData.TestActiveConnection;
if dmData.cdsReportingCalculationList.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
if (MessageDlg(c_Confirm_Delete_record, mtConfirmation, [mbOK, mbCancel], 0)
= mrOk) then
begin
ID := dmData.cdsReportingCalculationList.FieldByName('id').AsInteger;
dmData.RemoteMethods.SetCalculationID(ID);
dmData.RemoteMethods.CalculationDelete
(dmData.cdsReportingCalculationListid.Value);
dmData.cdsReportingCalculationList.Refresh;
end;
end;
procedure TfCalculation.aEditExecute(Sender: TObject);
var
//
ID: Integer;
begin
123
dmData.TestActiveConnection;
if dmData.cdsReportingCalculationList.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
ID := dmData.cdsReportingCalculationList.FieldByName('id').AsInteger;
dmData.RemoteMethods.SetCalculationID(ID);
fCalculationEditor.ShowModal;
dmData.cdsReportingCalculationList.Refresh;
end;
procedure TfCalculation.aFilterExecute(Sender: TObject);
begin
{
dmData.TestActiveConnection;
if fPrisonerFilter.ShowModal = mrOk then
begin
dmData.cdsPrisonerList.Refresh;
end;
}
end;
procedure TfCalculation.aPrintExecute(Sender: TObject);
var
//
ID: Integer;
begin
if dmData.cdsReportingCalculationList.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
ID := dmData.cdsReportingCalculationList.FieldByName('id').AsInteger;
dmData.RemoteMethods.SetCalculationID(ID);
dmData.cdsCalculation.Refresh;
dmData.cdsCalculationService.Refresh;
dmReport.aReportCalculation.Execute;
end;
procedure TfCalculation.aRefreshExecute(Sender: TObject);
begin
//
dmData.TestActiveConnection;
dmData.cdsReportingCalculationList.Refresh;
end;
procedure TfCalculation.aSendAllExecute(Sender: TObject);
var
ID, I: Integer;
begin
if dmData.cdsReportingCalculationList.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
124
if MessageDlg('Разослать квитанции всем клиентам?', mtConfirmation,
[mbOK, mbCancel], 0) = mrOk then
begin
for I := 1 to dmData.cdsReportingCalculationList.RecordCount do
begin
dmData.cdsReportingCalculationList.RecNo := I;
ID := dmData.cdsReportingCalculationList.FieldByName('id').AsInteger;
dmData.RemoteMethods.CalculationSend(ID);
end;
dmData.cdsReportingCalculationList.First;
MessageDlg('Квитанции успешно отправлены!', mtConfirmation, [mbOK], 0);
end;
end;
procedure TfCalculation.aSendExecute(Sender: TObject);
var
ID: Integer;
begin
if dmData.cdsReportingCalculationList.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
ID := dmData.cdsReportingCalculationList.FieldByName('id').AsInteger;
if MessageDlg('Отправить квитанцию клиенту?', mtConfirmation,
[mbOK, mbCancel], 0) = mrOk then
begin
dmData.RemoteMethods.CalculationSend(ID);
MessageDlg('Квитанция успешно отправлена!', mtConfirmation, [mbOK], 0);
end;
end;
procedure TfCalculation.bReportingClick(Sender: TObject);
begin
fReporting.ShowModal;
end;
procedure TfCalculation.dblcbReportingClick(Sender: TObject);
begin
if VarIsNull(dblcbReporting.KeyValue) = False then
begin
dmData.RemoteMethods.SetReportingID(dblcbReporting.KeyValue);
dmData.cdsReportingCalculationList.Refresh;
end;
end;
procedure TfCalculation.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
Close;
end;