131
/// Компонент поддержки экспорта отчетов в TXT
/// </summary>
frxSimpleTextExport1: TfrxSimpleTextExport;
aReportEdit: TAction;
aReportInbox: TAction;
aReportOutbox: TAction;
aReportSettings: TAction;
frxCurrentUser: TfrxDBDataset;
procedure aReportEditExecute(Sender: TObject);
procedure aReportInboxExecute(Sender: TObject);
procedure aReportOutboxExecute(Sender: TObject);
procedure aReportSettingsExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ReportLoad(FileName: string; DesignMode: Boolean);
end;
const
c_Dir_Report: String = 'Report\';
var
dmReport: TdmReport;
implementation
132
{$R *.dfm}
uses udmData, ufReportSettings;
procedure TdmReport.ReportLoad(FileName: string; DesignMode: Boolean);
begin
frxEngine.LoadFromFile(ExtractFilePath(Application.ExeName) +
c_Dir_Report + FileName, True);
if DesignMode then
begin
frxEngine.DesignReport;
end
else
begin
frxEngine.PrepareReport;
frxEngine.ShowPreparedReport;
end;
end;
procedure TdmReport.aReportEditExecute(Sender: TObject);
begin
//
end;
procedure TdmReport.aReportInboxExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
dmData.cdsReportInbox.Refresh;
ReportLoad('frxReportInbox.fr3', aReportEdit.Checked);
end;
133
procedure TdmReport.aReportOutboxExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
dmData.cdsReportOutbox.Refresh;
ReportLoad('frxReportOutbox.fr3', aReportEdit.Checked);
end;
procedure TdmReport.aReportSettingsExecute(Sender: TObject);
begin
dmData.TestActiveConnection;
fReportSettings.ShowModal;
end;
end.
unit ufInboxViewer;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
Vcl.DBCtrls,
Vcl.Mask, DB, Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls, Vcl.ToolWin,
Vcl.DBClientActns, Vcl.DBActns, Vcl.ActnList,
Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, Vcl.ExtDlgs, Vcl.Menus,
Vcl.ImgList;
type
134
TfInboxViewer = class(TForm)
amMain: TActionManager;
aUserAdd: TAction;
aUserDelete: TAction;
DataSetPost1: TDataSetPost;
DataSetCancel1: TDataSetCancel;
StatusBar1: TStatusBar;
pData: TPanel;
PageControl1: TPageControl;
TabSheet3: TTabSheet;
Label6: TLabel;
Label4: TLabel;
DBEdit5: TDBEdit;
DBMemo1: TDBMemo;
aSendSMS: TAction;
aSendEmail: TAction;
ilMessage: TImageList;
Label2: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit4: TDBEdit;
Label9: TLabel;
DBEdit7: TDBEdit;
Panel1: TPanel;
bNotReaded: TButton;
DBCheckBox3: TDBCheckBox;
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure bNotReadedClick(Sender: TObject);
private
{ Private declarations }
135
public
{ Public declarations }
end;
var
fInboxViewer: TfInboxViewer;
implementation
{$R *.dfm}
uses udmData, udmReport, ufUser;
procedure TfInboxViewer.bNotReadedClick(Sender: TObject);
begin
//
dmData.RemoteMethods.MessageReadStatus(False);
dmData.cdsInbox.Refresh;
end;
procedure TfInboxViewer.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then
Close;
end;
procedure TfInboxViewer.FormShow(Sender: TObject);
begin
dmData.cdsInbox.Refresh;
end;
136
end.
unit ufMessageEditor;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
Vcl.DBCtrls,
Vcl.Mask, DB, Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls, Vcl.ToolWin,
Vcl.DBClientActns, Vcl.DBActns, Vcl.ActnList,
Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, Vcl.ExtDlgs, Vcl.Menus,
Vcl.ImgList;
type
TfMessageEditor = class(TForm)
amMain: TActionManager;
aUserAdd: TAction;
aUserDelete: TAction;
DataSetPost1: TDataSetPost;
DataSetCancel1: TDataSetCancel;
StatusBar1: TStatusBar;
pControl: TPanel;
bOk: TButton;
bCancel: TButton;
pData: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label2: TLabel;
137
Label16: TLabel;
Label5: TLabel;
Label9: TLabel;
DBEdit2: TDBEdit;
DBEdit13: TDBEdit;
DBEdit4: TDBEdit;
DBEdit7: TDBEdit;
Panel1: TPanel;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
TabSheet2: TTabSheet;
DBGrid2: TDBGrid;
tbWorkplace: TToolBar;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
TabSheet3: TTabSheet;
Label6: TLabel;
Label4: TLabel;
DBEdit5: TDBEdit;
DBMemo1: TDBMemo;
bSend: TButton;
aSendSMS: TAction;
aSendEmail: TAction;
ilMessage: TImageList;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
138
procedure aUserAddExecute(Sender: TObject);
procedure aUserDeleteExecute(Sender: TObject);
procedure aCalculationPrintExecute(Sender: TObject);
procedure aCalculationShowExecute(Sender: TObject);
procedure aCalculationSendExecute(Sender: TObject);
procedure aSendEmailExecute(Sender: TObject);
procedure aSendSMSExecute(Sender: TObject);
procedure bSendClick(Sender: TObject);
procedure bOkClick(Sender: TObject);
private
{ Private declarations }
procedure DataSave;
public
{ Public declarations }
end;
var
fMessageEditor: TfMessageEditor;
implementation
{$R *.dfm}
uses udmData, udmReport, ufUser, ufInfo;
procedure TfMessageEditor.DataSave;
begin
if (dmData.cdsMessage.State = dsInsert) or (dmData.cdsMessage.State =
dsEdit) then
dmData.cdsMessage.Post;
end;
139
procedure TfMessageEditor.aCalculationPrintExecute(Sender: TObject);
var
//
ID: Integer;
begin
{
if dmData.cdsClientCalculation.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
ID := dmData.cdsClientCalculation.FieldByName('id').AsInteger;
dmData.RemoteMethods.SetCalculationID(ID);
dmData.cdsCalculation.Refresh;
dmData.cdsCalculationService.Refresh;
dmReport.aReportCalculation.Execute;
}
end;
procedure TfMessageEditor.aCalculationSendExecute(Sender: TObject);
var
ID: Integer;
begin
{
if dmData.cdsClientCalculation.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
ID := dmData.cdsClientCalculation.FieldByName('id').AsInteger;
if MessageDlg('Отправить квитанцию клиенту?', mtConfirmation, [mbOK,
mbCancel], 0) = mrOk then
begin
dmData.RemoteMethods.CalculationSend(ID);
MessageDlg('Квитанция успешно отправлена!', mtConfirmation, [mbOK],
0);
140
end;
}
end;
procedure TfMessageEditor.aCalculationShowExecute(Sender: TObject);
var
//
ID: Integer;
begin
{
if dmData.cdsClientCalculation.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
ID := dmData.cdsClientCalculation.FieldByName('id').AsInteger;
dmData.RemoteMethods.SetCalculationID(ID);
fCalculationEditor.ShowModal;
}
end;
procedure TfMessageEditor.aSendEmailExecute(Sender: TObject);
var
ReceiverID: Integer;
begin
dmData.TestActiveConnection;
if dmData.cdsMessageReceiver.RecordCount = 0 then
raise Exception.Create(c_error_dataset_is_empty);
if (MessageDlg(c_confirm_message_send_by_email, mtConfirmation,
[mbOK, mbCancel], 0) = mrOk) then
begin
DataSave;
ReceiverID :=
dmData.cdsMessageReceiver.FieldByName('Код_Получатель').AsInteger;