unit U_GCFPHZList;

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, Menus, cxPC, MovePanel, cxLookAndFeels, cxLookAndFeelPainters,
  cxNavigator, dxBarBuiltInMenu;

type
  TfrmGCFPHZList = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    ADOQueryTemp: TADOQuery;
    ADOQueryCmd: TADOQuery;
    Panel1: TPanel;
    ToolButton2: TToolButton;
    ADOQueryMain: TADOQuery;
    TBExport: TToolButton;
    RM1: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    Label2: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    cxGrid1: TcxGrid;
    TV2: TcxGridDBTableView;
    cxFactoryName: TcxGridDBColumn;
    cSQQP: TcxGridDBColumn;
    cBQKP: TcxGridDBColumn;
    cxWKP: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    V2BQXKPMoney: TcxGridDBColumn;
    V2WCStatus: TcxGridDBColumn;
    Label1: TLabel;
    V2Column1: TcxGridDBColumn;
    V2Column2: TcxGridDBColumn;
    V2Column3: TcxGridDBColumn;
    V2Column4: TcxGridDBColumn;
    V2Column5: TcxGridDBColumn;
    V2Column6: TcxGridDBColumn;
    V2Column7: TcxGridDBColumn;
    cxTabControl1: TcxTabControl;
    Label3: TLabel;
    KHName: TEdit;
    Label4: TLabel;
    GCName: TEdit;
    CheckBox1: TCheckBox;
    TBDataDel: TToolButton;
    V2Column8: TcxGridDBColumn;
    V2Column9: TcxGridDBColumn;
    V2Column10: TcxGridDBColumn;
    Panel2: TMovePanel;
    Label5: TLabel;
    TV2Column1: TcxGridDBColumn;
    CheckBox2: TCheckBox;
    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 GCNameChange(Sender: TObject);
    procedure TBExportClick(Sender: TObject);
    procedure V2Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure V2Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure cSQQPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure cBQKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure V2Column4CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure V2BQXKPMoneyCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure cxWKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure V2Column5CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure V2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure V2WCStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure V2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    procedure cxTabControl1Change(Sender: TObject);
    procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure KHNameChange(Sender: TObject);
    procedure GCName10Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure TBDataDelClick(Sender: TObject);
    procedure TV2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
  private
    { Private declarations }
    procedure InitGrid();
  public
    fDParameters1: string;
    { Public declarations }
    RKFlag, FCYID: string;
    BFBegdate, BFEnddate, BFGCName: string;
  end;

var
  frmGCFPHZList: TfrmGCFPHZList;

implementation

uses
  U_DataLink, U_RTFun, U_Fun, U_YSCRPBMggGCView, U_SKCRPBMggGCView,
  U_FPCRPBMggGCView;

{$R *.dfm}

procedure TfrmGCFPHZList.InitGrid();
var
  i: Integer;
  n: Integer;
begin
  Panel2.Visible := True;
  Panel2.Refresh;
  if cxTabControl1.TabIndex = 0 then
  begin
    n := 0;
  end;
  if cxTabControl1.TabIndex = 1 then
  begin
    n := 2;
  end;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      SQL.Clear;
      sql.Add(' exec P_GC_GL_FPView :begdate,:enddate,:FPType,:HTStatus,:DataType,:DataType2 ');
      Parameters.ParamByName('begdate').Value := trim(FormatDateTime('yyyy-MM-dd', begdate.Date));
      Parameters.ParamByName('enddate').Value := trim(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
      Parameters.ParamByName('FPType').Value := '全部';
      Parameters.ParamByName('HTStatus').Value := n;
      if CheckBox1.Checked then
      begin
        Parameters.ParamByName('DataType').Value := '1';
      end
      else
      begin
        Parameters.ParamByName('DataType').Value := '';
      end;
 

      open;
    end;
    SCreateCDS20(ADOQueryMain, CDS_HZ);
    SInitCDSData20(ADOQueryMain, CDS_HZ);
    for i := 1 to 33 - CDS_HZ.RecordCount do
    begin
      with CDS_HZ do
      begin
        Append;
        post;
      end;
    end;
  finally
    ;
    ADOQueryMain.EnableControls;
  end;
  Panel2.Visible := False;
end;

procedure TfrmGCFPHZList.FormDestroy(Sender: TObject);
begin
  frmGCFPHZList := nil;
end;

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

procedure TfrmGCFPHZList.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('工程发票金额统计查询1', Tv2, '财务管理');
  Close;
end;

procedure TfrmGCFPHZList.FormShow(Sender: TObject);
var
  fsj: string;
begin
  ReadCxGrid('工程发票金额统计查询1', Tv2, '财务管理');
  Enddate.DateTime := SGetServerDate(ADOQueryTemp);
  begdate.DateTime := SGetServerDateMBeg(ADOQueryTemp);
  if Trim(DCode) <> 'ADMIN' then
  begin
    TBExport.Visible := False;
    TBDataDel.Visible := False;
  end;
end;

procedure TfrmGCFPHZList.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

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

procedure TfrmGCFPHZList.GCNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmGCFPHZList.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    Exit;
  SelExportData(Tv2, ADOQueryMain, '工程发票统计列表');
end;

procedure TfrmGCFPHZList.V2Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('SQXSMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.V2Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('SQSKMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
 // ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.cSQQPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('SQKPMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.cBQKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('BQXSMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.V2Column4CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('BQSKMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.V2BQXKPMoneyCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('BQKPMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.cxWKPCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('HZXSMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
 // ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.V2Column5CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('HZSKMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.V2Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('HZKPMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.V2WCStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('HZWKPMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.V2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  id: Integer;
begin
  id := TV2.GetColumnByFieldName('HZWSKMoney').Index; //;-TV1.GroupedItemCount;
  if id < 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] > 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = 0 then
    Exit;
  if AViewInfo.GridRecord.Values[id] = Null then
    Exit;
  //ACanvas.Brush.Color:=clRed;
  ACanvas.Font.Color := clRed;
end;

procedure TfrmGCFPHZList.cxTabControl1Change(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmGCFPHZList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
  FName: string;
begin
  if CDS_HZ.IsEmpty then
    Exit;
  FName := TV2.Controller.FocusedColumn.DataBinding.FilterFieldName;
  BFGCName := Trim(CDS_HZ.fieldbyname('GCName').AsString);
  if (FName = 'SQXSMoney') or (FName = 'SQSKMoney') or (FName = 'SQKPMoney') then
  begin
    BFBegdate := '1900-01-01';
    BFEnddate := Trim(FormatDateTime('yyyy-MM-dd', begdate.Date - 1));
  end
  else if (FName = 'BQXSMoney') or (FName = 'BQSKMoney') or (FName = 'BQKPMoney') then
  begin
    BFBegdate := Trim(FormatDateTime('yyyy-MM-dd', begdate.Date));
    BFEnddate := Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date));
  end
  else if (FName = 'HZXSMoney') or (FName = 'HZSKMoney') or (FName = 'HZKPMoney') then
  begin
    BFBegdate := '1900-01-01';
    BFEnddate := '2500-01-01';
  end;
  if (FName = 'SQXSMoney') or (FName = 'BQXSMoney') or (FName = 'HZXSMoney') then
  begin
    try
      frmYSCRPBMggGCView := TfrmYSCRPBMggGCView.Create(Application);
      with frmYSCRPBMggGCView do
      begin
        FBegdate := Self.BFBegdate;
        FEndDate := Self.BFEnddate;
        FGCName := Self.BFGCName;
        if ShowModal = 1 then
        begin

        end;
      end;
    finally
      frmYSCRPBMggGCView.Free;
    end;
  end
  else if (FName = 'SQSKMoney') or (FName = 'BQSKMoney') or (FName = 'HZSKMoney') then
  begin
    try
      frmSKCRPBMggGCView := TfrmSKCRPBMggGCView.Create(Application);
      with frmSKCRPBMggGCView do
      begin
        FBegdate := Self.BFBegdate;
        FEndDate := Self.BFEnddate;
        FGCName := Self.BFGCName;
        if ShowModal = 1 then
        begin

        end;
      end;
    finally
      frmSKCRPBMggGCView.Free;
    end;
  end
  else if (FName = 'SQKPMoney') or (FName = 'BQKPMoney') or (FName = 'HZKPMoney') then
  begin
    try
      frmFPCRPBMggGCView := TfrmFPCRPBMggGCView.Create(Application);
      with frmFPCRPBMggGCView do
      begin
        FBegdate := Self.BFBegdate;
        FEndDate := Self.BFEnddate;
        FGCName := Self.BFGCName;
        if ShowModal = 1 then
        begin

        end;
      end;
    finally
      frmFPCRPBMggGCView.Free;
    end;
  end;
end;

procedure TfrmGCFPHZList.KHNameChange(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmGCFPHZList.GCName10Change(Sender: TObject);
begin
  ToolButton2.Click;
end;

procedure TfrmGCFPHZList.CheckBox1Click(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmGCFPHZList.TBDataDelClick(Sender: TObject);
var
  FConNO, FConMainid: string;
begin
  if cxTabControl1.TabIndex <> 1 then
    Exit;
  if Application.MessageBox('确定要进行数据整理吗？数据整理后将无法撤销!', '', 32 + 4) <> IDYES then
    Exit;
  begin
    try
      ADOQueryCmd.Connection.BeginTrans;
      with ADOQueryCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('select * from JYOrderCon_Main where CustomerNoName=''' + Trim(CDS_HZ.fieldbyname('KHName').AsString) + '''');
        sql.Add(' and GCName=''' + Trim(CDS_HZ.fieldbyname('GCName').AsString) + ''' and isnull(status,'''')=''3'' ');
        Open;
      end;
      if ADOQueryCmd.RecordCount > 1 then
      begin
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('工程名称重复，不能操作！', '提示', 0);
        Exit;
      end;
      FConNO := Trim(ADOQueryCmd.fieldbyname('ConNo').AsString);
      FConMainid := Trim(ADOQueryCmd.fieldbyname('Mainid').AsString);
      with ADOQueryCmd do
      begin
        Close;
        sql.Clear;
        sql.Add('delete YF_Money_CR where isnull(ConNo,'''')=''' + Trim(FConNO) + ''' and isnull(CRFlag,'''')=''应收收'' ');
        sql.Add('delete JYOrder_Main where isnull(ConNo,'''')=''' + Trim(FConNO) + '''');
        sql.Add('delete JYOrderCon_Main where isnull(ConNo,'''')=''' + Trim(FConNO) + '''');
        sql.Add('delete JYOrderCon_Sub where isnull(MainId,'''')=''' + Trim(FConMainid) + '''');
        sql.Add('delete CK_CP_CR where isnull(ConNo,'''')=''' + Trim(FConNO) + '''');
        ExecSQL;
      end;
      ADOQueryCmd.Connection.CommitTrans;
      CDS_HZ.Delete;
      Application.MessageBox('操作成功!', '提示', 0);
    except
      ADOQueryCmd.Connection.RollbackTrans;
      Application.MessageBox('数据整理失败!', '提示', 0);
      Exit;
    end;
  end;
end;

procedure TfrmGCFPHZList.TV2StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
  if CDS_HZ.FieldByName('Ssel').AsBoolean = True then
  begin

  end;
end;

end.