unit U_YFList_Month;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, DateUtils;

type
  TfrmYFList_Month = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ToolButton2: TToolButton;
    ToolButton1: TToolButton;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    Label3: TLabel;
    FactoryName: TEdit;
    Label2: TLabel;
    begdate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    ADOQueryMain: TADOQuery;
    CDS_HZ: TClientDataSet;
    ToolButton3: TToolButton;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    v2Column6: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    Tv2Column1: TcxGridDBColumn;
    Tv2Column2: TcxGridDBColumn;
    Tv2Column3: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FactoryNameChange(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
  private
    { Private declarations }
    procedure InitGrid();
  public
    fDParameters1: string;
    { Public declarations }
    RKFlag, FCYID: string;

  end;

var
  frmYFList_Month: TfrmYFList_Month;

implementation

uses
  U_DataLink, U_Fun, U_ZDYHelp, U_YFMXlist, U_YFCR_MonthMX;

{$R *.dfm}

procedure TfrmYFList_Month.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      SQL.Clear;
      sql.Add(' exec P_YF_List_Month :begdate');
      Parameters.ParamByName('begdate').Value := Trim(FormatDateTime('yyyy', begdate.DateTime));
      Open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_HZ);
    SInitCDSData20(ADOQueryMain, CDS_HZ);
  finally
    ADOQueryMain.EnableControls;
  end;
  //ToolButton2.Click;
end;

procedure TfrmYFList_Month.FormDestroy(Sender: TObject);
begin
  frmYFList_month := nil;
end;

procedure TfrmYFList_Month.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmYFList_Month.TBCloseClick(Sender: TObject);
begin

  Close;
end;

procedure TfrmYFList_Month.FormShow(Sender: TObject);
begin
  begdate.DateTime := SGetServerDate(ADOQueryTemp);
  InitGrid();
end;

procedure TfrmYFList_Month.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
  ToolButton2.Click;
end;

procedure TfrmYFList_Month.ToolButton2Click(Sender: TObject);
var
  fsj: string;
begin
  if ADOQueryMain.Active = False then
    Exit;
  SDofilter(ADOQueryMain, Trim(SGetFilters(Panel1, 1, 2)));
  SCreateCDS20(ADOQueryMain, CDS_HZ);
  SInitCDSData20(ADOQueryMain, CDS_HZ);
end;

procedure TfrmYFList_Month.FactoryNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmYFList_Month.ToolButton1Click(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    Exit;
  SelExportData(Tv2, ADOQueryMain, '应付款付款统计列表');
end;

procedure TfrmYFList_Month.ToolButton3Click(Sender: TObject);
begin
  if CDS_HZ.IsEmpty then
    exit;
  frmYFCR_MothMX := TfrmYFCR_MothMX.Create(self);
  with frmYFCR_MothMX do
  begin
    begdate.DateTime := StrToDateTime(FormatDateTime('yyyy-mm-dd', StartOfTheMonth(StrToDateTime(Self.CDS_HZ.fieldbyname('ssmonth').asstring + '-01'))));
    Enddate.DateTime := StrToDateTime(FormatDateTime('yyyy-mm-dd', EndOfTheMonth(StrToDateTime(self.CDS_HZ.fieldbyname('ssmonth').asstring + '-01'))));
    factoryName.Text := self.CDS_HZ.fieldbyname('factoryName').AsString;
    show;
  end;
end;

procedure TfrmYFList_Month.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  toolbutton3.Click;
end;

end.