121
DM.dstContr.Filtered := True;
end
else
DM.dstContr.Filtered := False;
end;
procedure TfmContract.FormCreate(Sender: TObject);
begin
dtpDateTo.Date := Date;
end;
procedure TfmContract.bbtRealtyLookupClick(Sender: TObject);
begin
fmRealty.bbtGo.Caption := ' ';
fmRealty.bbtGo.Visible := True;
if fmRealty.ShowModal = mrOK then
dblcbRealtyCode.KeyValue := DM.tbRealty.FieldByName('ID').AsInteger;
fmRealty.bbtGo.Visible := False;
sbFilterClick(Self);
end;
procedure TfmContract.bbtOrgLookupClick(Sender: TObject);
begin
fmOrg.bbtGo.Caption := ' ';
fmOrg.bbtGo.Visible := True;
if fmOrg.ShowModal = mrOK then
dblcbOrgName.KeyValue := DM.tbOrg.FieldByName('ID').AsInteger;
122
fmOrg.bbtGo.Visible := False;
sbFilterClick(Self);
end;
procedure TfmContract.bbtPrintClick(Sender: TObject);
var Excel: Variant;
WorkbookName: string;
i, PosInc: Integer;
begin
// :
WorkbookName := GetCurrentDir + '\\ .xlt';
Excel := CreateOleObject('Excel.Application');
try
Excel.Workbooks.Open(WorkbookName);
Excel.WorkSheets[1].Select;
with DM do
begin
Excel.Cells[2,13] := FormatFloat('00000', dstContr.FieldByName('ID').AsFloat);
Excel.Cells[3,10] := dstContr.FieldByName('').AsString;
// :
Excel.Cells[5,1] := tbOurOrg.FieldByName('').AsString;
Excel.Cells[6,15] := tbOurOrg.FieldByName('').AsString;
Excel.Cells[7,7] := tbOurOrg.FieldByName('').AsString;
Excel.Cells[53,11] := tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', ' +
123
tbOurOrg.FieldByName('').AsString;
Excel.Cells[54,11] := tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', ' +
tbOurOrg.FieldByName('').AsString + ', / ' +
tbOurOrg.FieldByName('').AsString + ', / ' +
if tbRealty.Locate('ID', dstContr.FieldByName('ID').AsInteger, []) then
Excel.Cells[17,1] := tbRealty.FieldByName('Type').AsString + ', ' +
tbRealty.FieldByName('').AsString + ', ' +
tbRealty.FieldByName('').AsString + ' 2';
Excel.Cells[25,3] := tbContracts.FieldByName('').AsString;
// :
if tbOrg.Locate('ID', tbContracts.FieldByName('ID').AsInteger, []) then
begin
Excel.Cells[8,5] := tbOrg.FieldByName('').AsString;
Excel.Cells[9,10] := tbOrg.FieldByName('').AsString;
Excel.Cells[10,7] := tbOrg.FieldByName('').AsString;
Excel.Cells[53,1] := tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString;
Excel.Cells[54,1] := tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', ' +
tbOrg.FieldByName('').AsString + ', / ' +
tbOrg.FieldByName('').AsString + ', / ' +
tbOrg.FieldByName('').AsString;
124
end;
Excel.WorkSheets[2].Select;
Excel.Cells[2,7] := FormatFloat('00000', dstContr.FieldByName('ID').AsFloat);
PosInc := 5;
tbPay.First;
for i:=PosInc to tbPay.RecordCount+PosInc-1 do
begin
Excel.Cells[i,1] := tbPay.FieldByName('').AsString;
Excel.Cells[i,3] := tbPay.FieldByName('').AsString;
tbPay.Next;
end; //for
Excel.Cells[i,2] := '';
Excel.Cells[i,3] := dstContr.FieldByName('').AsString;
end; //with
Excel.WorkSheets[1].Select;
Excel.Visible := True;
except
Excel.Quit;
end;
end;
-
procedure TfmContract.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
125
if DaysBetween(Date, DM.dstContr.FieldByName('').AsDateTime) <= 7 then
DBGrid1.Canvas.Font.Color := clGreen
else
if DM.dstContr.FieldByName('').AsCurrency > 0 then
begin
DBGrid1.Canvas.Font.Color := clRed;
end;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
procedure TfmContract.bbtRepClick(Sender: TObject);
var Excel: Variant;
WorkbookName: string;
i, PosInc: Integer;
Sum1, Sum2, Sum3: Currency;
begin
with DM do begin
qrRepOrg.Close;
qrRepOrg.Open;
WorkbookName := GetCurrentDir + '\\
Excel := CreateOleObject('Excel.Application');
try
Excel.Workbooks.Open(WorkbookName);
126
Excel.Cells[3,6] := Date();
with DM do begin
qrRepOrg.First;
PosInc := 6;
Sum1 := 0;
Sum2 := 0;
Sum3 := 0;
for i:=PosInc to qrRepOrg.RecordCount+PosInc-1 do begin
// :
if i < qrRepOrg.RecordCount+PosInc-1 then begin
Excel.Rows.Item[i+1].Select;
Excel.Selection.Insert;
Excel.Rows.Item[i].Select;
Excel.Selection.Copy;
Excel.Rows.Item[i+1].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
// :
Excel.Cells[i,1] := qrRepOrg.FieldByName('').AsString;
Excel.Cells[i,5] := FormatFloat('00000', qrRepOrg.FieldByName('N').AsFloat);
Excel.Cells[i,6] := qrRepOrg.FieldByName('').AsString;
Excel.Cells[i,7] := qrRepOrg.FieldByName('').AsString;
Excel.Cells[i,10] := qrRepOrg.FieldByName('').AsString;
Sum1 := Sum1 + qrRepOrg.FieldByName('').AsCurrency;
Sum2 := Sum2 + qrRepOrg.FieldByName('').AsCurrency;
Sum3 := Sum3 + qrRepOrg.FieldByName('').AsCurrency;
127
qrRepOrg.Next;
end; //for
if i>0 then begin
Excel.Cells[i,6] := Sum1;
Excel.Cells[i,7] := Sum2;
Excel.Cells[i,10] := Sum3;
end;
end; //with
Excel.Visible := True;
except
Excel.Quit;
end;
end;
end;
// :
procedure TfmContract.bbtCloseContrClick(Sender: TObject);
begin
if Application.MessageBox(PChar('
FormatFloat('00000', DM.dstContr.FieldByName('ID').AsFloat) + '?'), '',
MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
begin
if DM.tbContracts.Locate('ID', DM.dstContr.FieldByName('ID').AsInteger, []) then
begin
DM.tbContracts.Edit;
DM.tbContracts.FieldByName('').AsBoolean := False;
DM.tbContracts.Post;
DM.dstContr.Requery();
end;
128
end;
end;
end.
// :
procedure TDM.tbPayCalcFields(DataSet: TDataSet);
begin
if DataSet.RecNo <> -1 then
DataSet.FieldByName('RecNo').AsInteger := DataSet.RecNo
else
DataSet.FieldByName('RecNo').AsInteger := 1;
// :
if not DataSet.FieldByName('').IsNull then
DataSet.FieldByName('Timeliness').AsInteger :=
DaysBetween(DataSet.FieldByName('').AsDateTime,
DataSet.FieldByName('').AsDateTime);
// :
DataSet.FieldByName('Dolg').AsCurrency := DataSet.FieldByName('').AsCurrency -
DataSet.FieldByName('').AsCurrency;
end;
procedure TDM.DataModuleCreate(Sender: TObject);
begin
ADOConnection1.Open;
tbOrg.Open;
129
tbRealtyTypes.Open;
tbRealty.Open;
tbContracts.Open;
tbPay.Open;
tbOurOrg.Open;
end;
procedure TDM.DataModuleDestroy(Sender: TObject);
begin
ADOConnection1.Close;
end;
// "":
procedure TDM.tbRealtyAfterInsert(DataSet: TDataSet);
begin
DataSet.FieldByName('').AsBoolean := False;
end;
-"):
procedure TDM.tbRealtyAfterOpen(DataSet: TDataSet);
begin
DataSet.FieldByName('').ValidChars := ['0'..'9', ','];
DataSet.FieldByName('').ValidChars := ['0'..'9', ','];
end;
-"):
130
procedure TDM.tbContractsAfterOpen(DataSet: TDataSet);
begin
DataSet.FieldByName('').ValidChars := ['0'..'9', ','];
end;
procedure TDM.tbOrgBeforeDelete(DataSet: TDataSet);
var
Dolg: Currency;
OrgID: Integer;
begin
'', MB_YESNO+MB_ICONQUESTION) = IDYES then
begin
OrgID := DataSet.FieldByName('ID').AsInteger;
tbContracts.Filter := 'ID = ' + IntToStr(OrgID);
tbContracts.Filtered := True;
Dolg := 0;
tbContracts.First;
while not tbContracts.Eof do
begin
qrDolg.Parameters.ParamByName('pContractID').Value := tbContracts.FieldByName('ID').AsInteger;
qrDolg.Open;
if qrDolg.FieldByName('Dolg').AsCurrency > 0 then
Dolg := Dolg + qrDolg.FieldByName('Dolg').AsCurrency;
qrDolg.Close;
tbContracts.Next;