unit U_XHList_ceshi1;   //

interface

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

type
  TfrmXHList_ceshi1 = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBClose: TToolButton;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ADOQueryMain: TADOQuery;
    DataSource1: TDataSource;
    TBExport: TToolButton;
    Order_Main: TClientDataSet;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label24: TLabel;
    Label10: TLabel;
    Label1: TLabel;
    Label12: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    OrderNo: TEdit;
    CustomerNoName: TEdit;
    JGFactoryName: TEdit;
    YWY: TEdit;
    MPRTCodeName: TEdit;
    ConNoHZ: TEdit;
    OrdDefStr1: TEdit;
    ISPH: TComboBox;
    PrtColor: TEdit;
    orderType: TComboBox;
    khConNo: TEdit;
    ComboBox2: TComboBox;
    Than: TComboBox;
    Panel2: TPanel;
    ADOQueryCmd: TADOQuery;
    cxGrid1: TcxGrid;
    TV1: TcxGridDBTableView;
    V2OrderNo: TcxGridDBColumn;
    V1ConNOHZ: TcxGridDBColumn;
    V1YWY: TcxGridDBColumn;
    V1OrdDate: TcxGridDBColumn;
    V1DlyDate: TcxGridDBColumn;
    V1CustomerNoName: TcxGridDBColumn;
    V1MPRTCodeName: TcxGridDBColumn;
    V1MPrtSpec: TcxGridDBColumn;
    V1PrtOrderQty: TcxGridDBColumn;
    V1orderUnit: TcxGridDBColumn;
    V1TP_RollNum: TcxGridDBColumn;
    V1TP_Qty: TcxGridDBColumn;
    V1TP_unit: TcxGridDBColumn;
    V1HC_RollNum: TcxGridDBColumn;
    V1HC_Qty: TcxGridDBColumn;
    V1TP_SH: TcxGridDBColumn;
    V1TP_SL: TcxGridDBColumn;
    V1RK_RollNum: TcxGridDBColumn;
    V1RK_KGQty: TcxGridDBColumn;
    V1jyCP_RollNum: TcxGridDBColumn;
    V1jyCP_KGQty: TcxGridDBColumn;
    V1JY_SH: TcxGridDBColumn;
    V1JY_SL: TcxGridDBColumn;
    V1CK_RollNum: TcxGridDBColumn;
    V1CK_Qty: TcxGridDBColumn;
    V1CK_Unit: TcxGridDBColumn;
    V1KC_RollNum: TcxGridDBColumn;
    V1KC_Qty: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure TBExportClick(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CustomerNoNameChange(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
    procedure ZJStatusChange(Sender: TObject);
  private
    canshu1:string;
    DQdate:TDateTime;
    procedure InitGrid();
    procedure InitForm();
    { Private declarations }
  public
    FFInt,FCloth:Integer;

    { Public declarations }
  end;

var
  frmXHList_ceshi1: TfrmXHList_ceshi1;

implementation
uses
  U_DataLink,U_RTFun, U_KHDYInPut, U_FjList_RZ,U_XHInPut, U_SKCR_CX,
  U_ZDYHelp;

{$R *.dfm}

procedure TfrmXHList_ceshi1.FormDestroy(Sender: TObject);
begin
  frmXHList_ceshi1:=nil;
end;

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

procedure TfrmXHList_ceshi1.FormCreate(Sender: TObject);
begin
  canshu1:=Trim(DParameters1);
end;

procedure TfrmXHList_ceshi1.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('指示单进度查询3',Tv1,'指示单管理');
  Close;
end;

procedure TfrmXHList_ceshi1.InitGrid();
var Tthan,strwhere:string;
begin
  if comboBox2.Text='回仓日期' then
  begin
    strwhere:=strwhere+' and exists(select X.ordMainIDRK from CK_SXPB_CR X where X.ordMainIDRK=mainID '+
                     ' and X.CKName=''待检布'' and X.CRType=''加工完成'' '+
                     ' and X.CRTime>='''+trim(formatDatetime('yyyy-MM-dd',begdate.DateTime))+''''+
                     ' and X.CRTime<'''+trim(formatdatetime('yyyy-MM-dd',EndDate.DateTime+1))+''')';
  end
  else
  begin
    strwhere:=strwhere+' and A.OrdDate>='''+trim(formatDatetime('yyyy-MM-dd',begdate.DateTime))+''''+
                     ' and A.OrdDate<'''+trim(formatdatetime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
  end;
  if trim(canshu1)<>'高权限' then
  begin
    strwhere:=strwhere+' and (A.YWY='''+Trim(DName)+''' or A.Filler='''+Trim(DName)+''')';
  end;
  Tthan:='';
  if trim(than.Text)='大于' then
  begin
    Tthan:='1';
  end;
  if trim(than.Text)='小于或等于' then
  begin
    Tthan:='2';
  end;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.add('exec P_View_order_Jd :WSql,:Than');
      Parameters.ParamByName('WSql').Value:=strwhere;
      Parameters.ParamByName('Than').Value:=Tthan;
      Open;
    end;
    SCreateCDS20(ADOQueryMain,Order_Main);
    SInitCDSData20(ADOQueryMain,Order_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmXHList_ceshi1.InitForm();
begin
  BegDate.Date:=SGetServerDate(ADOQueryCmd)-15;
  EndDate.Date:=SGetServerDate(ADOQueryCmd);
  ReadCxGrid('指示单进度查询3',Tv1,'指示单管理');
  //InitGrid();
end;

procedure TfrmXHList_ceshi1.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active=False then Exit;
  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  SCreateCDS20(ADOQueryMain,Order_Main);
  SInitCDSData20(ADOQueryMain,Order_Main);
end;

procedure TfrmXHList_ceshi1.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then Exit;
  TcxGridToExcel('指示单进度查询',cxGrid1);
end;

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

procedure TfrmXHList_ceshi1.FormShow(Sender: TObject);
begin
  InitForm();
end;

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

procedure TfrmXHList_ceshi1.CheckBox2Click(Sender: TObject);
begin
  TBRafresh.Click;
end;

procedure TfrmXHList_ceshi1.CustomerNoNameChange(Sender: TObject);
begin
  if ADOQueryMain.Active=False then Exit;
  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  SCreateCDS20(ADOQueryMain,Order_Main);
  SInitCDSData20(ADOQueryMain,Order_Main);
end;

procedure TfrmXHList_ceshi1.N2Click(Sender: TObject);
begin
  SelOKNo(Order_Main,True);
end;

procedure TfrmXHList_ceshi1.N1Click(Sender: TObject);
begin
  SelOKNo(Order_Main,False);
end;

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

procedure TfrmXHList_ceshi1.ZJStatusChange(Sender: TObject);
begin
  TBFind.Click;
end;

end.