126
begin
MessageDlg('Списокзалоговпустой!',mtWarning,[mbOk],0);
Exit
end;
frmValuation.Tag:=0;
frmValuation.ShowModal;
end;
procedureTfrmDetail.btnNewOperationClick(Sender: TObject);
begin
frmOperation.Tag:=1;
frmOperation.ShowModal;
end;
procedureTfrmDetail.btnNewValuationClick(Sender: TObject);
begin
frmValuation.Tag:=1;
frmValuation.ShowModal;
end;
procedureTfrmDetail.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.q
ListOperations.FieldByName('Id').asString+'.xls');
if not FileExists(fd) then
begin
MessageDlg('Файлшаблонаненайден!',mtError,[mbOk],0);
Exit
127
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'
).AsString;
ISheet.Cells.Item[13,6].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qList
Operations.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[18,6].Value:=Format('%m',[DataInfo.qListOperations.FieldB
yName('Suma').asCurrency]);
ISheet.Cells.Item[20,2].Value:=DataInfo.qListAgreements.FieldByName('Clien
tName').AsString;
ISheet.Cells.Item[21,2].Value:='Погашениекредитаза
'+DataInfo.qListValuations.FieldByName('ValueName').AsString;
ISheet.Cells.Item[23,2].Value:=MoneyToString(DataInfo.qListOperations.Field
ByName('Suma').asCurrency);
ISheet.Cells.Item[29,5].Value:=DataInfo.qSysParam.FieldByName('BuhFIO').
AsString;
128
ISheet.Cells.Item[1,13].Value:=DataInfo.qSysParam.FieldByName('FirmaNam
e').AsString;
ISheet.Cells.Item[5,17].Value:=DataInfo.qListOperations.FieldByName('Id').A
sString;
ISheet.Cells.Item[6,14].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qList
Operations.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[8,14].Value:=DataInfo.qListAgreements.FieldByName('Clien
tName').AsString;
ISheet.Cells.Item[9,14].Value:='Погашениекредитаза
'+DataInfo.qListValuations.FieldByName('ValueName').AsString;
ISheet.Cells.Item[12,14].Value:=Format('%m',[DataInfo.qListOperations.Field
ByName('Suma').asCurrency]);
ISheet.Cells.Item[14,13].Value:=MoneyToString(DataInfo.qListOperations.Fiel
dByName('Suma').asCurrency);
ISheet.Cells.Item[21,13].Value:=FormatDateTime('dd.mm.yyyy',DataInfo.qList
Operations.FieldByName('DateOper').AsDateTime);
ISheet.Cells.Item[26,16].Value:=DataInfo.qSysParam.FieldByName('BuhFIO').
AsString;
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;
129
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)
vgOperation: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgOperationDateOper: TcxDBEditorRow;
vgOperationTypeId: TcxDBEditorRow;
vgOperationSuma: TcxDBEditorRow;
procedureFormShow(Sender: TObject);
procedurebtnNoClick(Sender: TObject);
procedurebtnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
130
frmOperation: TfrmOperation;
implementation
usesDataBase;
{$R *.dfm}
procedureTfrmOperation.FormShow(Sender: TObject);
begin
iffrmOperation.Tag=1 then
begin
DataInfo.qListOperations.Insert;
end
else
begin
DataInfo.qListOperations.Edit;
end;
end;
procedureTfrmOperation.btnNoClick(Sender: TObject);
begin
DataInfo.qListOperations.Cancel;
frmOperation.Close;
end;
procedureTfrmOperation.btnYesClick(Sender: TObject);
begin
ifDataInfo.qListOperations.FieldByName('DateOper').isNull then
begin
MessageDlg('Укажитедатуоперации!',mtError,[mbOk],0);
131
Exit
end;
ifDataInfo.qListOperations.FieldByName('TypeId').isNull then
begin
MessageDlg('Укажитетипоперации!',mtError,[mbOk],0);
Exit
end;
ifDataInfo.qListOperations.FieldByName('Suma').isNull then
begin
MessageDlg('Укажитесуммуоперации!',mtError,[mbOk],0);
Exit
end;
DataInfo.qListOperations.FieldByName('ValueId').AsInteger:=DataInfo.qListV
aluations.FieldByName('Id').AsInteger;
DataInfo.qListOperations.Post;
DataInfo.qListValuations.Close;
DataInfo.qListValuations.Open;
frmOperation.Close;
end;
end.
unitTypeOperation;
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,
132
cxLookAndFeels, cxDropDownEdit, cxCurrencyEdit;
type
TfrmTypeOperation = class(TForm)
vgTypeOperation: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgTypeOperationTypeName: TcxDBEditorRow;
procedureFormShow(Sender: TObject);
procedurebtnNoClick(Sender: TObject);
procedurebtnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTypeOperation: TfrmTypeOperation;
implementation
usesDataBase;
{$R *.dfm}
procedureTfrmTypeOperation.FormShow(Sender: TObject);
begin
iffrmTypeOperation.Tag=1 then
begin
DataInfo.qListTypeOperation.Insert;
133
end
else
begin
DataInfo.qListTypeOperation.Edit;
end;
end;
procedureTfrmTypeOperation.btnNoClick(Sender: TObject);
begin
DataInfo.qListTypeOperation.Cancel;
frmTypeOperation.Close;
end;
procedureTfrmTypeOperation.btnYesClick(Sender: TObject);
begin
ifDataInfo.qListTypeOperation.FieldByName('TypeName').isNull then
begin
MessageDlg('Укажитетипоперации!',mtError,[mbOk],0);
Exit
end;
DataInfo.qListTypeOperation.Post;
frmTypeOperation.Close;
end;
end.