122
begin
if DataInfo.qListValuations.RecordCount=0 then
begin
MessageDlg('Список залогов пустой!',mtWarning,[mbOk],0);
Exit
end;
frmValuation.Tag:=0;
frmValuation.ShowModal;
end;
procedure TfrmDetail.btnNewOperationClick(Sender: TObject);
begin
frmOperation.Tag:=1;
frmOperation.ShowModal;
end;
procedure TfrmDetail.btnNewValuationClick(Sender: TObject);
begin
frmValuation.Tag:=1;
frmValuation.ShowModal;
end;
procedure TfrmDetail.btnPrintOperClick(Sender: TObject);
begin
DataInfo.qSysParam.Open;
DataInfo.qListOperations.Open;
fd:=PChar(ExtractFilePath(Application.ExeName)+'Template\order.xls');
fn:=PChar(ExtractFilePath(Application.ExeName)+'Report\Order#'+DataInfo.qListOp
erations.FieldByName('Id').asString+'.xls');
if not FileExists(fd) then
123
begin
MessageDlg('Файл шаблона не найден!',mtError,[mbOk],0);
Exit
end;
if not CopyFile(fd,fn,false) then
begin
MessageDlg('Не могу скопировать файл шаблона в папку
отчетов!',mtError,[mbOk],0);
Exit
end;
ExcelApp:=TExcelApplication.Create(nil);
try
// ExcelApp.Visible[xlLCID]:=False;
IWorkbook:=ExcelApp.Workbooks.Open(fn,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Emp
tyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,xlLCID);
IWorksheets:=IWorkbook.Worksheets;
ISheet := IWorksheets.Item[1] as ExcelXP._Worksheet;
ISheet.Cells.Item[7,1].Value:=DataInfo.qSysParam.FieldByName('FirmaName').AsStr
ing;
ISheet.Cells.Item[13,6].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qListOperati
ons.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[18,6].Value:=Format('%m',[DataInfo.qListOperations.FieldByName
('Suma').asCurrency]);
ISheet.Cells.Item[20,2].Value:=DataInfo.qListAgreements.FieldByName('ClientName
').AsString;
124
ISheet.Cells.Item[21,2].Value:='Погашение кредита за
'+DataInfo.qListValuations.FieldByName('ValueName').AsString;
ISheet.Cells.Item[23,2].Value:=MoneyToString(DataInfo.qListOperations.FieldByNa
me('Suma').asCurrency);
ISheet.Cells.Item[29,5].Value:=DataInfo.qSysParam.FieldByName('BuhFIO').AsStrin
g;
ISheet.Cells.Item[1,13].Value:=DataInfo.qSysParam.FieldByName('FirmaName').AsS
tring;
ISheet.Cells.Item[5,17].Value:=DataInfo.qListOperations.FieldByName('Id').AsString
;
ISheet.Cells.Item[6,14].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qListOperati
ons.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[8,14].Value:=DataInfo.qListAgreements.FieldByName('ClientName
').AsString;
ISheet.Cells.Item[9,14].Value:='Погашение кредита за
'+DataInfo.qListValuations.FieldByName('ValueName').AsString;
ISheet.Cells.Item[12,14].Value:=Format('%m',[DataInfo.qListOperations.FieldByNam
e('Suma').asCurrency]);
ISheet.Cells.Item[14,13].Value:=MoneyToString(DataInfo.qListOperations.FieldByN
ame('Suma').asCurrency);
ISheet.Cells.Item[21,13].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qListOperat
ions.FieldByName('DateOper').AsDateTime);
125
ISheet.Cells.Item[26,16].Value:=DataInfo.qSysParam.FieldByName('BuhFIO').AsStri
ng;
IWorkbook.Close(True, EmptyParam, EmptyParam, xlLCID);
finally
ISheet := nil;
ExcelApp.DisplayAlerts[0]:=False;
ExcelApp.Workbooks.Close(0);
IWorkbook:=nil;
ExcelApp.Quit;
FreeAndNil(ExcelApp);
end;
DataInfo.qSysParam.Close;
FileExecute(fn,'','',esMaximized);
end;
end.
unit Operation;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDropDownEdit, cxCurrencyEdit, cxCalendar, cxCalc;
type
TfrmOperation = class(TForm)
126
vgOperation: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgOperationDateOper: TcxDBEditorRow;
vgOperationTypeId: TcxDBEditorRow;
vgOperationSuma: TcxDBEditorRow;
procedure FormShow(Sender: TObject);
procedure btnNoClick(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmOperation: TfrmOperation;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmOperation.FormShow(Sender: TObject);
begin
if frmOperation.Tag=1 then
begin
DataInfo.qListOperations.Insert;
end
else
127
begin
DataInfo.qListOperations.Edit;
end;
end;
procedure TfrmOperation.btnNoClick(Sender: TObject);
begin
DataInfo.qListOperations.Cancel;
frmOperation.Close;
end;
procedure TfrmOperation.btnYesClick(Sender: TObject);
begin
if DataInfo.qListOperations.FieldByName('DateOper').isNull then
begin
MessageDlg('Укажите дату операции!',mtError,[mbOk],0);
Exit
end;
if DataInfo.qListOperations.FieldByName('TypeId').isNull then
begin
MessageDlg('Укажите тип операции!',mtError,[mbOk],0);
Exit
end;
if DataInfo.qListOperations.FieldByName('Suma').isNull then
begin
MessageDlg('Укажите сумму операции!',mtError,[mbOk],0);
Exit
end;
DataInfo.qListOperations.FieldByName('ValueId').AsInteger:=DataInfo.qListValuatio
ns.FieldByName('Id').AsInteger;
128
DataInfo.qListOperations.Post;
DataInfo.qListValuations.Close;
DataInfo.qListValuations.Open;
frmOperation.Close;
end;
end.
unit TypeOperation;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDropDownEdit, cxCurrencyEdit;
type
TfrmTypeOperation = class(TForm)
vgTypeOperation: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgTypeOperationTypeName: TcxDBEditorRow;
procedure FormShow(Sender: TObject);
procedure btnNoClick(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
{ Private declarations }
public
129
{ Public declarations }
end;
var
frmTypeOperation: TfrmTypeOperation;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmTypeOperation.FormShow(Sender: TObject);
begin
if frmTypeOperation.Tag=1 then
begin
DataInfo.qListTypeOperation.Insert;
end
else
begin
DataInfo.qListTypeOperation.Edit;
end;
end;
procedure TfrmTypeOperation.btnNoClick(Sender: TObject);
begin
DataInfo.qListTypeOperation.Cancel;
frmTypeOperation.Close;
end;
procedure TfrmTypeOperation.btnYesClick(Sender: TObject);
begin
if DataInfo.qListTypeOperation.FieldByName('TypeName').isNull then
130
begin
MessageDlg('Укажите тип операции!',mtError,[mbOk],0);
Exit
end;
DataInfo.qListTypeOperation.Post;
frmTypeOperation.Close;
end;
end.