uCleaningNotes.pas

unit uCleaningNotes;

interface

uses
    Winapi.Windows
  , Winapi.Messages
  , System.SysUtils
  , System.Variants
  , System.Classes
  , Vcl.Graphics
  , Vcl.Controls
  , Vcl.Forms
  , Vcl.Dialogs
  , Vcl.Buttons
  , Vcl.StdCtrls
  , Vcl.ComCtrls
  , Vcl.Menus
  , Vcl.ExtCtrls
  , Generics.Collections
  , Data.DB
  , shellapi
  , _glob
  , Hdata
  , ug
  , uD
  , uFrmKeyPairSelector
  , RoomerCloudEntities

  , uManageFilesOnServer
  , kbmMemTable

  , sSkinProvider
  , sSpeedButton
  , sEdit
  , sPageControl
  , sStatusBar
  , sLabel
  , sButton
  , sPanel

  , dxCore
  , cxGridExportLink
  , cxGraphics
  , cxControls
  , cxLookAndFeels
  , cxLookAndFeelPainters
  , cxStyles
  , cxCustomData
  , cxFilter
  , cxData
  , cxDataStorage
  , cxEdit
  , cxNavigator
  , cxDBData
  , cxGridCustomTableView
  , cxGridTableView
  , cxGridDBTableView
  , cxGridLevel
  , cxClasses
  , cxGridCustomView
  , cxGrid
  , cxTextEdit
  , dxPSGlbl
  , dxPSUtl
  , dxPSEngn
  , dxPrnPg
  , dxBkgnd
  , dxWrap
  , dxPrnDev
  , dxPSCompsProvider
  , dxPSFillPatterns
  , dxPSEdgePatterns
  , dxPSPDFExportCore
  , dxPSPDFExport
  , cxDrawTextUtils
  , dxPSPrVwStd
  , dxPSPrVwAdv
  , dxPSPrVwRibbon
  , dxPScxPageControlProducer
  , dxPScxGridLnk
  , dxPScxGridLayoutViewLnk
  , dxPScxEditorProducers
  , dxPScxExtEditorProducers
  , dxPSCore
  , dxPScxCommon

  , cmpRoomerDataSet
  , cmpRoomerConnection, dxSkinsCore, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinMcSkin, dxSkinOffice2013White,
  dxSkinsDefaultPainters, dxSkinscxPCPainter, cxCalc, cxButtonEdit, dxSkinsdxBarPainter, dxSkinsdxRibbonPainter, cxPropertiesStore, dxmdaset,
  dxPScxPivotGridLnk, dxSkinCaramel, dxSkinCoffee, dxSkinTheAsphaltWorld, sCheckBox, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
  dxSkinDarkRoom, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinValentine,
  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, cxDropDownEdit, cxCheckBox, cxCalendar, cxCurrencyEdit,
  uCurrencyHandler
  , uRoomerForm, dxSkinsdxStatusBarPainter, dxStatusBar

  ;

type
  {$SCOPEDENUMS ON}
  TfrmCleaningNotes = class(TfrmBaseRoomerForm)
    sPanel1: TsPanel;
    btnDelete: TsButton;
    btnOther: TsButton;
    mnuOther: TPopupMenu;
    mnuiPrint: TMenuItem;
    N2: TMenuItem;
    Export1: TMenuItem;
    mnuiGridToExcel: TMenuItem;
    mnuiGridToHtml: TMenuItem;
    mnuiGridToText: TMenuItem;
    mnuiGridToXml: TMenuItem;
    edFilter: TsEdit;
    cLabFilter: TsLabel;
    btnClear: TsSpeedButton;
    panBtn: TsPanel;
    btnCancel: TsButton;
    BtnOk: TsButton;
    dsCleaningNotes: TDataSource;
    grPrinter: TdxComponentPrinter;
    prLink_grData: TdxGridReportLink;
    m_CleaningNotes: TdxMemData;
    grData: TcxGrid;
    tvData: TcxGridDBTableView;
    lvData: TcxGridLevel;
    m_CleaningNotesID: TIntegerField;
    m_CleaningNotesActive: TBooleanField;
    btnInsert: TsButton;
    btnEdit: TsButton;
    chkActive: TsCheckBox;
    timFilter: TTimer;
    m_CleaningNotesinterval: TIntegerField;
    m_CleaningNotesminimumDays: TIntegerField;
    m_CleaningNotesserviceType: TWideStringField;
    m_CleaningNotesmessage: TWideStringField;
    m_CleaningNotesonceType: TWideStringField;
    tvDataRecId: TcxGridDBColumn;
    tvDataID: TcxGridDBColumn;
    tvDataactive: TcxGridDBColumn;
    tvDataserviceType: TcxGridDBColumn;
    tvDataonceType: TcxGridDBColumn;
    tvDatainterval: TcxGridDBColumn;
    tvDataminimumDays: TcxGridDBColumn;
    tvDatamessage: TcxGridDBColumn;
    m_CleaningNotesonlyWhenRoomIsDirty: TBooleanField;
    tvDataonlyWhenRoomIsDirty: TcxGridDBColumn;

    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure m_CleaningNotesBeforeDelete(DataSet: TDataSet);
    procedure m_CleaningNotesBeforePost(DataSet: TDataSet);
    procedure m_CleaningNotesNewRecord(DataSet: TDataSet);
    procedure tvDataDblClick(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure tvDataDataControllerSortingChanged(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure mnuiPrintClick(Sender: TObject);
    procedure mnuiGridToExcelClick(Sender: TObject);
    procedure mnuiGridToHtmlClick(Sender: TObject);
    procedure mnuiGridToTextClick(Sender: TObject);
    procedure mnuiGridToXmlClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnClearClick(Sender: TObject);
    procedure edFilterChange(Sender: TObject);
    procedure btnInsertClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure chkActiveClick(Sender: TObject);
    procedure m_CleaningNotesFilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure timFilterTimer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure m_CleaningNotesAfterPost(DataSet: TDataSet);
    procedure tvDataCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState;
      var AHandled: Boolean);
    procedure tvDataonceTypeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure tvDataintervalCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure tvDataserviceTypeGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
      var AText: string);
    procedure tvDataonceTypeGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
      var AText: string);
  private
    FAllowGridEdit : Boolean;
    { Private declarations }
    procedure applyFilter;
    procedure StopFilter;
    function CopyDatasetToRecCleaningNote: recCleaningNotesHolder;
    procedure SetAllowGridEdit(const Value: boolean);
    procedure SetFilterForDataset(aRSet: TRoomerDataset);
    function ConstructSQL: string;
    procedure SetEditedValuesIn_M_Dataset;
  protected
    Lookup : Boolean;
    zAct: TActTableAction;
    zData: recCleaningNotesHolder;
    property AllowGridEdit: boolean read FAllowGridEdit write SetAllowGridEdit;
    procedure DoLoadData; override;
    procedure UpdateControls; override;
  end;

function openCleaningNotes(act : TActTableAction; Lookup : Boolean; var theData : recCleaningNotesHolder) : boolean;

implementation

{$R *.dfm}

uses
  prjConst
  , uSqlDefinitions
  , uItemTypes2
  , uMessageList
  , uAppGlobal
  , uDimages
  , uFrmTaxItemLink
  , uBookKeepingCodes
  , uUtils
  , UITypes
  , uDateUtils
  , DateUtils
  , Math
  , uCleaningNotesEdit
  , uCleaningNotesDefinitions;

//////////////////////////////////////////////////////////////////////////////////////////////
//  unit global functions
//////////////////////////////////////////////////////////////////////////////////////////////

function openCleaningNotes(act : TActTableAction; Lookup : Boolean; var theData : recCleaningNotesHolder) : boolean;
var _frmCleaningNotes : TfrmCleaningNotes;
begin
  result := false;
  _frmCleaningNotes := TfrmCleaningNotes.Create(nil);
  try
    _frmCleaningNotes.zData := theData;
    _frmCleaningNotes.Lookup := Lookup;
    _frmCleaningNotes.zAct := act;
    _frmCleaningNotes.ShowModal;
    if _frmCleaningNotes.modalresult = mrOk then
    begin
      theData := _frmCleaningNotes.zData;
      result := true;
    end
    else
    begin
      initCleaningNoteHolder(theData);
    end;
  finally
    freeandnil(_frmCleaningNotes);
  end;
end;

///////////////////////////////////////////////////////////////////////
                    { Private declarations }
///////////////////////////////////////////////////////////////////////

function TfrmCleaningNotes.CopyDatasetToRecCleaningNote:recCleaningNotesHolder;
begin
  Result.ID                    := m_CleaningNotesID.AsInteger;
  Result.Active                := m_CleaningNotesActive.AsBoolean;
  Result.onlyWhenRoomIsDirty   := m_CleaningNotesonlyWhenRoomIsDirty.AsBoolean;
  Result.serviceType           := m_CleaningNotesserviceType.AsString;
  Result.onceType              := m_CleaningNotesonceType.asString;
  Result.interval              := m_CleaningNotesinterval.AsInteger;
  Result.minimumDays           := m_CleaningNotesminimumDays.AsInteger;
  Result.smessage              := m_CleaningNotesmessage.AsString;
end;


procedure TfrmCleaningNotes.SetFilterForDataset(aRSet: TRoomerDataset);
var
  lFilterExpr: TStringbuilder;
begin
  lFilterExpr := TStringbuilder.Create;
  try
    if chkActive.Checked then
      lFilterExpr.Append('(active=1) ')
    else
      lFilterExpr.Append('(active=0) ');

    aRSet.Filter := lFilterExpr.ToString;
    aRSet.Filtered := aRSet.Filter <> '';
  finally
    lFilterExpr.Free;
  end;

end;

function TfrmCleaningNotes.ConstructSQL: string;
const
  cSQL = 'select * FROM cleaningnotes';
begin
  Result := cSQL;
end;

Procedure TfrmCleaningNotes.DoLoadData;
var
  rSet : TRoomerDataSet;
begin
  inherited;

  rSet := CreateNewDataSet;
  rSet_bySQL(rSet, ConstructSQL);
  try

    SetFilterForDataset(rSet);

    m_CleaningNotes.Close;
    m_CleaningNotes.Open;

    rSet.First;
    if NOT rSet.Eof then
    begin
      m_CleaningNotes.DisableControls;
      try
        m_CleaningNotes.LoadFromDataSet(rSet);
      finally
        m_CleaningNotes.EnableControls;
      end;
    end;
  finally
    rSet.Free;
  end;

end;

procedure TfrmCleaningNotes.chkActiveClick(Sender: TObject);
begin
  if tvdata.DataController.DataSet.State in [dsEdit, dsInsert] then
  begin
    tvdata.DataController.Post;
  end;

  RefreshData;
end;

procedure TfrmCleaningNotes.SetAllowGridEdit(const Value: boolean);
begin
  FAllowGridEdit := Value;

  tvDataID.Options.Editing            := false;
  tvDataactive.Options.Editing        := AllowGridEdit;

  tvDataRecId.Options.Editing         := AllowGridEdit;
  tvDataserviceType.Options.Editing   := AllowGridEdit;
  tvDataonceType.Options.Editing      := AllowGridEdit;
  tvDatainterval.Options.Editing      := AllowGridEdit;
  tvDataminimumDays.Options.Editing   := AllowGridEdit;
  tvDatamessage.Options.Editing       := AllowGridEdit;
end;

procedure TfrmCleaningNotes.StopFilter;
begin
  if tvData.DataController.Filter.AutoDataSetFilter then
  begin
    timFilter.Enabled := False;
    m_CleaningNotes.filtered := False;
    tvData.DataController.Filter.Active := False;
    tvData.DataController.Filter.Changed;
  end else
  begin
    tvData.DataController.Filter.Root.Clear;
    tvData.DataController.Filter.Active := false;
    grData.Invalidate(true);
  end;
end;

procedure TfrmCleaningNotes.edFilterChange(Sender: TObject);
begin
  if edFilter.Text = '' then
  begin
    StopFilter;
  end else
  begin
    applyFilter;
  end;
end;

procedure TfrmCleaningNotes.applyFilter;
var i : Integer;

    procedure RestartTimer;
    begin
      timFilter.Enabled := False;
      timFilter.Interval := 500;
      timFilter.Interval := 30;
      timFilter.Enabled := True;
    end;
begin
  if tvData.DataController.Filter.AutoDataSetFilter then
  begin
    m_CleaningNotes.filtered := False;
    RestartTimer;
  end else
  begin
    tvData.DataController.Filter.Options := [fcoCaseInsensitive];
    tvData.DataController.Filter.Root.BoolOperatorKind := fboOr;
    tvData.DataController.Filter.Root.Clear;
    for i := 0 to tvData.ColumnCount - 1 do
      if tvData.Columns[i].DataBinding.ValueType = 'String' then
        tvData.DataController.Filter.Root.AddItem(tvData.Columns[i], foLike, '%'+edFilter.Text+'%', '%'+edFilter.Text+'%');
    tvData.DataController.Filter.Active := True;
  end;
end;


/////////////////////////////////////////////////////////////
// Form actions
/////////////////////////////////////////////////////////////

procedure TfrmCleaningNotes.FormShow(Sender: TObject);
begin
  chkActive.Checked := True;

  AllowGridEdit := False; // (ZAct <> actLookup);
  RefreshData;

  tvData.DataController.DataModeController.GridMode := (ZAct = actLookup);
  tvData.DataController.Filter.AutoDataSetFilter := tvData.DataController.DataModeController.GridMode;
  tvData.DataController.MultiSelect := true;

  grData.SetFocus;
end;

procedure TfrmCleaningNotes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if tvdata.DataController.DataSet.State in [dsInsert, dsEdit] then
    tvdata.DataController.Post;
end;

procedure TfrmCleaningNotes.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := True;
end;

procedure TfrmCleaningNotes.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    if m_CleaningNotes.State in [dsInsert, dsEdit] then
    begin
      m_CleaningNotes.Cancel;
      Key := 0;
    end;
end;

procedure TfrmCleaningNotes.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (ZAct = actLookup) and (ActiveControl <> edFilter) then
  begin
    if key = chr(13) then
      btnOk.click;
  end;
end;


////////////////////////////////////////////////////////////////////////////////////////
// memory table
////////////////////////////////////////////////////////////////////////////////////////

procedure TfrmCleaningNotes.m_CleaningNotesAfterPost(DataSet: TDataSet);
begin
  glb.ForceTableRefresh;
end;

procedure TfrmCleaningNotes.m_CleaningNotesBeforeDelete(DataSet: TDataSet);
var
  s : string;
begin
  zData := CopyDatasetToRecCleaningNote;
  s := '';
  s := s+GetTranslatedText('shDeleteItem')+' '+zData.smessage+' '+chr(10);
  s := s+GetTranslatedText('shContinue');

  if (MessageDlg(s,mtConfirmation, [mbYes, mbNo], 0) = mrNo) or not Del_CleaningNote(zData) then
    abort;
end;

procedure TfrmCleaningNotes.m_CleaningNotesBeforePost(DataSet: TDataSet);
var
 nID : integer;
begin
  initCleaningNoteHolder(zData);

  zData := CopyDatasetToRecCleaningNote;

  if tvData.DataController.DataSource.State = dsEdit then
  begin
    if UPD_CleaningNote(zData) then
    begin
       glb.ForceTableRefresh;
    end else
    begin
      abort;
      exit;
    end;
  end;
  if tvData.DataController.DataSource.State = dsInsert then
  begin
    if m_CleaningNotesserviceType.AsString = ''  then
    begin
	    showmessage(GetTranslatedText('shServiceTypeNeeded'));
      tvData.GetColumnByFieldName('serviceType').Focused := True;
      abort;
      exit;
    end;
    if m_CleaningNotesonceType.AsString = ''  then
    begin
	    showmessage(GetTranslatedText('shOnceTypeNeeded'));
      tvData.GetColumnByFieldName('onceType').Focused := True;
      abort;
      exit;
    end;
    if ins_CleaningNote(zData,nID) then
      m_CleaningNotesID.AsInteger := nID
    else
      abort;
  end;
end;



procedure TfrmCleaningNotes.m_CleaningNotesFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  if tvData.DataController.Filter.AutoDataSetFilter AND (edFilter.Text <> '') then
    Accept := pos(Lowercase(edFilter.Text), LowerCase(dataset['Description'])) > 0;
end;

procedure TfrmCleaningNotes.m_CleaningNotesNewRecord(DataSet: TDataSet);
begin
  dataset['Active']         := true;
  dataset['serviceType']    := TCleaningNoteServiceType.ctInterval.ToDB;
  dataset['onceType']       := TCleaningNoteOnceType.coCheck_In_Day.ToDB;
  dataset['interval']       := 3;
  dataset['minimumDays']    := 3;
  dataset['message']        := '';
end;

////////////////////////////////////////////////////////////////////////////////////////
//  table View Functions
////////////////////////////////////////////////////////////////////////////////////////

procedure TfrmCleaningNotes.tvDataonceTypeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
begin
  with TcxGridDBTableView(Sender).DataController do
    aDone := AViewInfo.GridRecord.Values[tvDataserviceType.Index] = TCleaningNoteServiceType.ctInterval.ToDB;
end;

procedure TfrmCleaningNotes.tvDataonceTypeGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  var AText: string);
begin
  inherited;
  aText := TCleaningNoteOnceType.FromString(aText).AsReadableString;
end;

procedure TfrmCleaningNotes.tvDataserviceTypeGetDisplayText(Sender: TcxCustomGridTableItem;
  ARecord: TcxCustomGridRecord; var AText: string);
begin
  inherited;
  aText := TCleaningNoteServiceType.FromString(aText).AsReadableString;
end;

procedure TfrmCleaningNotes.UpdateControls;
begin
  inherited;

  panBtn.Visible := (Zact = actLookup);
  tvData.OptionsData.Editing := FAllowGridEdit;

end;

procedure TfrmCleaningNotes.tvDataDblClick(Sender: TObject);
begin
  if ZAct = actLookup then
    btnOK.Click
end;


procedure TfrmCleaningNotes.tvDataintervalCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
  var ADone: Boolean);
begin
  with TcxGridDBTableView(Sender).DataController do
    aDone := (AViewInfo.GridRecord.Values[tvDataserviceType.Index] = TCleaningNoteServiceType.ctOnce.ToDB) and
             NOT ((AViewInfo.GridRecord.Values[tvDataonceType.Index] = TCleaningNoteOnceType.coXth_Day.ToDB) OR
                  (AViewInfo.GridRecord.Values[tvDataonceType.Index] = TCleaningNoteOnceType.coX_Days_After_Check_Out.ToDB));
end;

////////////////////////////////////////////////////////////////////////////
//  Filter
/////////////////////////////////////////////////////////////////////////////

procedure TfrmCleaningNotes.timFilterTimer(Sender: TObject);
begin
  timFilter.Enabled := False;
  m_CleaningNotes.filtered := True;
  tvData.DataController.Filter.Refresh;
end;

procedure TfrmCleaningNotes.tvDataCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  btnEdit.Click;
end;

procedure TfrmCleaningNotes.tvDataDataControllerSortingChanged(Sender: TObject);
var
  i : integer;
  s : string;
  serval : boolean;
begin
  s := '';
  serval := false;
  for i :=  0 to tvData.SortedItemCount - 1 do
  begin
    if serval then s := s+', ';
    s := s+TcxGridDBColumn(tvData.SortedItems[I]).DataBinding.FieldName;
    serval := true;
    if tvData.SortedItems[i].SortOrder = soDescending then
    s := s + ' DESC';
  end;
end;

//////////////////////////////////////////////////////////////////////////
//  Buttons
//////////////////////////////////////////////////////////////////////////


procedure TfrmCleaningNotes.BtnOkClick(Sender: TObject);
begin
  zData := CopyDatasetToRecCleaningNote;
end;

procedure TfrmCleaningNotes.btnCancelClick(Sender: TObject);
begin
  initCleaningNoteHolder(zData);
end;

procedure TfrmCleaningNotes.btnClearClick(Sender: TObject);
begin
  edFilter.Text := '';
end;

procedure TfrmCleaningNotes.btnDeleteClick(Sender: TObject);
begin
  m_CleaningNotes.Delete;
end;

procedure TfrmCleaningNotes.btnEditClick(Sender: TObject);
begin
  zData := CopyDatasetToRecCleaningNote;
  if openCleaningNotesEdit(zData) then
  begin
      m_CleaningNotes.edit;
      SetEditedValuesIn_M_Dataset;
      m_CleaningNotes.Post;
  end;
end;

procedure TfrmCleaningNotes.SetEditedValuesIn_M_Dataset;
begin
  m_CleaningNotes['Active']       := zData.active;
  m_CleaningNotes['onlyWhenRoomIsDirty'] := zData.onlyWhenRoomIsDirty;
  m_CleaningNotes['serviceType']  := zData.serviceType;
  m_CleaningNotes['onceType']     := zData.onceType;
  m_CleaningNotes['interval']     := zData.interval;
  m_CleaningNotes['minimumDays']  := zData.minimumDays;
  m_CleaningNotes['message']      := zData.smessage;
end;


procedure TfrmCleaningNotes.btnInsertClick(Sender: TObject);
begin
  m_CleaningNotes.insert;
  try
    zData := CopyDatasetToRecCleaningNote;
    if openCleaningNotesEdit(zData) then
    begin
      SetEditedValuesIn_M_Dataset;
      m_CleaningNotes.Post;
    end
    else
      m_CleaningNotes.Cancel;
  except
    m_CleaningNotes.Cancel;
    raise;
  end;
end;

//---------------------------------------------------------------------------
// Menu in other actions
//-----------------------------------------------------------------------------

procedure TfrmCleaningNotes.mnuiPrintClick(Sender: TObject);
begin
  grPrinter.PrintTitle := caption;
  prLink_grData.ReportTitle.Text := caption;
  grPrinter.Preview(true, prLink_grData);
end;

procedure TfrmCleaningNotes.mnuiGridToExcelClick(Sender: TObject);
var
  sFilename : string;
begin
  sFilename := g.qProgramPath + caption;
  ExportGridToExcel(sFilename, grData, true, true, true);
  ShellExecute(Handle, 'OPEN', PChar(sFilename + '.xls'), nil, nil, sw_shownormal);
end;

procedure TfrmCleaningNotes.mnuiGridToHtmlClick(Sender: TObject);
var
  sFilename : string;
begin
  sFilename := g.qProgramPath + caption;
  ExportGridToHtml(sFilename, grData, true, true);
  ShellExecute(Handle, 'OPEN', PChar(sFilename + '.html'), nil, nil, sw_shownormal);
end;

procedure TfrmCleaningNotes.mnuiGridToTextClick(Sender: TObject);
var
  sFilename : string;
begin
  sFilename := g.qProgramPath + caption;
  ExportGridToText(sFilename, grData, true, true,';','','','txt');
  ShellExecute(Handle, 'OPEN', PChar(sFilename + '.txt'), nil, nil, sw_shownormal);
end;

procedure TfrmCleaningNotes.mnuiGridToXmlClick(Sender: TObject);
var
  sFilename : string;
begin
  sFilename := g.qProgramPath + caption;
  ExportGridToXml(sFilename, grData, true, true);
  ShellExecute(Handle, 'OPEN', PChar(sFilename + '.xml'), nil, nil, sw_shownormal);
end;

end.