unit U_JGSXKNewList_CLGLCXMgg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
  cxCalendar, cxButtonEdit, cxTextEdit, cxPC;

type
  TfrmJGSXKNewList_CLGLCXMgg = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    cxGridPopupMenu1: TcxGridPopupMenu;
    Label1: TLabel;
    Label2: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    CDS_Main: TClientDataSet;
    RM1: TRMGridReport;
    RMDBMain: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    RMDBHZ: TRMDBDataSet;
    CDS_HZ: TClientDataSet;
    CDS_PRT: TClientDataSet;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label4: TLabel;
    OrderNo: TEdit;
    cxGrid2: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1CRTime: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    v1CPFLQty: TcxGridDBColumn;
    cxGrid1: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DataSource2: TDataSource;
    ClientDataSet1: TClientDataSet;
    CheckBox1: TCheckBox;
    v2Column1: TcxGridDBColumn;
    v2Column2: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBRafreshClick(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    canshu1,canshu2,canshu3:string;
    procedure InitGrid();
    procedure InitGridMX();
    { Private declarations }
  public
    FGCName:String;
    { Public declarations }
  end;

var
  frmJGSXKNewList_CLGLCXMgg: TfrmJGSXKNewList_CLGLCXMgg;

implementation
uses
  U_DataLink,U_RTFun,U_Fun;

{$R *.dfm}


procedure TfrmJGSXKNewList_CLGLCXMgg.FormDestroy(Sender: TObject);
begin
  frmJGSXKNewList_CLGLCXMgg:=nil;
end;

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

procedure TfrmJGSXKNewList_CLGLCXMgg.InitGrid();
var i:Integer;
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select ');
      sql.Add(' A.CRTime,CPFLQty=sum(CPFLQty)');
      sql.Add(' from CK_CP_CR A');
      sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
      sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
      sql.Add(' and isnull(A.CRType,'''')=''销售出库'' ');
      sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
      sql.Add(' Group by CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,ClientDataSet1);
    SInitCDSData20(ADOQueryMain,ClientDataSet1);

    InitGridMX();
    {with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select ');
      sql.Add(' A.OrderNo,A.CustomerNoName,A.BNo,A.TeXing,A.GCName,A.SGFangshi,A.CRType,A.CRTime');
      sql.Add(',SGBuWei=(select Top 1 B.SGBuWei from JYOrder_Main B where B.OrderNo=A.OrderNO)');
      sql.Add(',CPFLQty');
      sql.Add(' from CK_CP_CR A');
      sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
      sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
      sql.Add(' and isnull(A.CRType,'''')=''销售出库'' ');
      sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
      sql.Add(' order by CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);  }
  finally;
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.TBRafreshClick(Sender: TObject);
begin
  BegDate.SetFocus;
  Tv2.DataController.Filter.Clear;
  InitGrid();
  Tv2.FilterBox.Visible := fvNever;
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('成品发货汇总mggmx1',Tv1,'成品仓库');
  WriteCxGrid('成品发货汇总mggmx2',Tv2,'成品仓库');
  Close;
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.FormShow(Sender: TObject);
begin
  ReadCxGrid('成品发货汇总mggmx1',Tv1,'成品仓库');
  ReadCxGrid('成品发货汇总mggmx2',Tv2,'成品仓库');
  InitGrid();
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.InitGridMX();
begin
  Tv2.DataController.Filter.Clear;
  if CheckBox1.Checked then
  begin
    if ClientDataSet1.IsEmpty=False then
    begin
      with ADOQueryMain do
      begin
        Filtered:=False;
        Close;
        sql.Clear;
        sql.Add(' select ');
        sql.Add(' A.OrderNo,A.CustomerNoName,A.BNo,A.TeXing,A.GCName,A.SGFangshi,A.CRType,A.CRTime,A.CLName,A.CLQty,A.CheCi');
        sql.Add(',SGBuWei=(select Top 1 B.SGBuWei from JYOrder_Main B where B.OrderNo=A.OrderNO)');
        sql.Add(',CPFLQty');
        sql.Add(' from CK_CP_CR A');
        sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
        sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
        sql.Add(' and isnull(A.CRType,'''')=''销售出库'' ');
        sql.add(' and A.CRTime='''+Trim(ClientDataSet1.fieldbyname('CRTime').AsString)+'''');
        Open;
      end;
      SCreateCDS20(ADOQueryMain,CDS_Main);
      SInitCDSData20(ADOQueryMain,CDS_Main);
    end;
  end else
  begin
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      sql.Add(' select ');
      sql.Add(' A.OrderNo,A.CustomerNoName,A.BNo,A.TeXing,A.GCName,A.SGFangshi,A.CRType,A.CRTime,A.CLName,A.CLQty,A.CheCi');
      sql.Add(',SGBuWei=(select Top 1 B.SGBuWei from JYOrder_Main B where B.OrderNo=A.OrderNO)');
      sql.Add(',CPFLQty');
      sql.Add(' from CK_CP_CR A');
      sql.Add(' inner join JYOrderCon_Main B on A.ConNo=B.ConNo');
      sql.Add(' where isnull(A.GCName,'''')='''+Trim(FGCName)+'''');
      sql.Add(' and isnull(A.CRType,'''')=''销售出库'' ');
      sql.add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
      sql.Add(' order by CRTime');
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  end;
  Tv2.FilterBox.Visible := fvNever;
end;
procedure TfrmJGSXKNewList_CLGLCXMgg.CheckBox1Click(Sender: TObject);
begin
  InitGridMX();
end;

procedure TfrmJGSXKNewList_CLGLCXMgg.Tv1CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  if ClientDataSet1.IsEmpty then Exit;
  
  InitGridMX();
end;

end.