D7fhtxzhuoyuan/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDListCL.pas

unit U_JYOrderCDListCL;

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, MovePanel, cxTextEdit,
  cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic,
  RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, Math, Clipbrd, cxPC, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
  dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
  dxSkinscxPCPainter, cxNavigator, ShellAPI, ShlObj, cxGridExportLink;

type
  TfrmJYOrderCDListCL = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBClose: TToolButton;
    Panel1: TPanel;
    Tv1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    Label3: TLabel;
    CustomerNoName: TEdit;
    TBExport: TToolButton;
    Order_Main: TClientDataSet;
    conNO: TEdit;
    Label7: TLabel;
    Label9: TLabel;
    v1Column2: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    v1Column13: TcxGridDBColumn;
    Label5: TLabel;
    MPRTCodeName: TEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    RM2: TRMGridReport;
    RMDB_Main: TRMDBDataSet;
    v1Column24: TcxGridDBColumn;
    MovePanel2: TMovePanel;
    v1Column14: TcxGridDBColumn;
    v1Column15: TcxGridDBColumn;
    JYXH: TEdit;
    JYCOLOR: TEdit;
    v1Column31: TcxGridDBColumn;
    v1Column32: TcxGridDBColumn;
    v1Column36: TcxGridDBColumn;
    RMXLSExport1: TRMXLSExport;
    v1Column16: TcxGridDBColumn;
    N3: TMenuItem;
    X1: TMenuItem;
    cv1Column1: TcxGridDBColumn;
    btn1: TToolButton;
    btn2: TToolButton;
    ADOQueryPrint: TADOQuery;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    IsJYTime: TCheckBox;
    cv1Column2: TcxGridDBColumn;
    lbl1: TLabel;
    filler: TEdit;
    Tv1Column1: TcxGridDBColumn;
    Tv1Column2: TcxGridDBColumn;
    Tv1Column3: TcxGridDBColumn;
    Tv1Column4: TcxGridDBColumn;
    Tv1Column5: TcxGridDBColumn;
    Tv1Column6: TcxGridDBColumn;
    Tv1Column7: TcxGridDBColumn;
    Tv1Column8: TcxGridDBColumn;
    Tv1Column9: TcxGridDBColumn;
    Tv1Column10: TcxGridDBColumn;
    Tv1Column11: TcxGridDBColumn;
    Tv1Column12: TcxGridDBColumn;
    Label17: TLabel;
    mjtype: TComboBox;
    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 Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
    procedure v1Column15PropertiesEditValueChanged(Sender: TObject);
    procedure MJIDKeyPress(Sender: TObject; var Key: Char);
    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
    procedure conNOKeyPress(Sender: TObject; var Key: Char);
    procedure MJStr2Change(Sender: TObject);
    procedure MJTypeChange(Sender: TObject);
    procedure KHConNOKeyPress(Sender: TObject; var Key: Char);
    procedure RKOrdIDKeyPress(Sender: TObject; var Key: Char);
    procedure N3Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure CustomerNoNameChange(Sender: TObject);
    procedure conNOChange(Sender: TObject);
    procedure MPRTCodeNameChange(Sender: TObject);
    procedure JYCOLORChange(Sender: TObject);
    procedure JYXHChange(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    DQdate: TDateTime;
    FLeft, FTop: Integer;
    CurrentPage, RecordsNumber: Integer;
    procedure InitGrid();
    procedure InitForm();
    function Savedata(): Boolean;
    procedure GetCDSData();
    procedure SetStatus();
    procedure PrintCKMDG(MRKOrdID: string);
 
    { Private declarations }
  public
    FFInt: Integer;
    canshu1: string;
    { Public declarations }
  end;

implementation

uses
  U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_ZDYHelp, U_ProductOrderListSel,
  U_SysLogHelp;

{$R *.dfm}
procedure ExportGridToExcelAndOpen(Grid: TcxGrid);
var
  SaveDialog: TSaveDialog;
  FileName: string;
begin
  // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ի<EFBFBD><D4BB><EFBFBD>
  SaveDialog := TSaveDialog.Create(nil);
  try
    SaveDialog.Filter := 'Excel Files (*.xlsx)|*.xlsx|All Files (*.*)|*.*';
    SaveDialog.DefaultExt := 'xlsx';
    SaveDialog.Title := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>';

    if SaveDialog.Execute then
    begin
      FileName := SaveDialog.FileName;
      
      // ȷ<><C8B7><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>չ<EFBFBD><D5B9><EFBFBD><EFBFBD>ȷ
      if ExtractFileExt(FileName) = '' then
        FileName := FileName + '.xlsx';
      
      // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݵ<EFBFBD> Excel
      ExportGridToXLSX(FileName, Grid, True, True, True);
      
      // <20><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>
      if FileExists(FileName) then
      begin
        // ʹ<><CAB9>Ĭ<EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Excel <20>ļ<EFBFBD>
        ShellExecute(0, 'open', PChar(FileName), nil, nil, SW_SHOWNORMAL);
      end
      else
        ShowMessage('Error: Excel file not created');
    end;
  finally
    SaveDialog.Free;
  end;
end;

procedure TfrmJYOrderCDListCL.SetStatus();
begin
//  TBManage.Visible := False;
//  TBZF.Visible := False;
//  v1Column15.Options.Focusing := False;
//  ToolButton1.Visible := False;
//  TBSH.Visible := False;
//  TBHH.Visible := False;
//  if Trim(canshu1) = '<27><><EFBFBD><EFBFBD>' then
//  begin
//    TBManage.Visible := True;
//    TBZF.Visible := True;
//    v1Column15.Options.Focusing := True;
//    ToolButton1.Visible := true;
//  end;
//  if Trim(canshu1) = '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>' then
//  begin
//    TBSH.Visible := True;
//    TBHH.Visible := True;
//  end;
//  case cxTabControl1.TabIndex of
//    0:
//      begin
//        ToolButton8.Visible := true;
//        ToolButton4.Visible := false;
//      end;
//    1:
//      begin
//        ToolButton8.Visible := false;
//        ToolButton4.Visible := true;
//      end;
//    2:
//      begin
//        ToolButton8.Visible := false;
//        ToolButton4.Visible := true;
//      end;
//  end;
end;

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

procedure TfrmJYOrderCDListCL.FormCreate(Sender: TObject);
begin
  cxgrid1.Align := alClient;
  DQdate := SGetServerDate(ADOQueryTemp);
end;

procedure TfrmJYOrderCDListCL.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('<27><><EFBFBD>鱨<EFBFBD><E9B1A8>JF', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Close;
end;

procedure TfrmJYOrderCDListCL.PrintCKMDG(MRKOrdID: string);
begin

end;

procedure TfrmJYOrderCDListCL.InitGrid();
var
  fwhere: string;
begin
  if IsJYTime.Checked then
  begin
    fwhere := ' where convert(varchar(10),C.filltime,120)>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
    fwhere := fwhere + ' and convert(varchar(10),C.filltime,120)<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
  end;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered := False;
      Close;
      sql.Clear;                                                                                                                //isnull(zkoumi,0)
      sql.Add('select mjtype,gongyi,sum(ZKOUMI)ZKOUMI,JTType,filltime=convert(varchar(10),C.filltime ,120),A.MPRTCodeName,A.ConNo,A.CustomerNoName,JYColor,JYXH,c.filler,apid  ');
      sql.Add(',PS=COUNT(c.SubId),MJQty4=sum( c.MJQty4 ),MJQty3=sum( c.MJQty3 ),mjmaoz=sum(mjmaoz),sum(MJLen )mjlen,round(SUM(MJLen/0.9144),2)yardage ');
      SQL.ADD(',KMCD=( SUM(CASE WHEN MJTYPE=''<27><>Ʒ'' then 0 else  MJLen  end )   )  ');
      SQL.Add(',koufenqty=(case when  MJType=''<27><>Ʒ'' then 0 else SUM(ZKOUMI) end  )     ');
      SQL.Add(',koufenyardage=round(SUM(ZKOUMI)/0.9144,2)');
      SQL.ADD(',MJLEN1= SUM( MJLEN+ISNULL(C.ZKOUMI,0))');
      sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MAINID inner join WFB_MJJY c  ');
      SQL.Add('on b.SubId=c.SubId' + fwhere);
      sql.Add(' GROUP BY MJTYPE,gongyi,JTType,apid,MPRTCodeName,ConNo,CustomerNoName,JYColor,JYXH,c.filler,convert(varchar(10),C.filltime,120)');
//      SQL.ADD('GROUP BY ISPRINT,gongyi,A.FILLER,conno,APID,OrderNo,RKOrdID,MPRTCodeName,JYCOLOR,KKMF,KKKZ,CustomerNoName,MJType,JYXH,MJTypeOther,mjstr2');
      SQL.ADD('ORDER BY convert(varchar(10),C.filltime,120) ');

      Open;
    end;
    SCreateCDS20(ADOQueryMain, Order_Main);
    SInitCDSData20(ADOQueryMain, Order_Main);
//    LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber));
    MovePanel2.Visible := false;
  finally
    ADOQueryMain.EnableControls;
    MovePanel2.Visible := false;
  end;
end;

procedure TfrmJYOrderCDListCL.InitForm();
var
  fsj: string;
begin
  ReadCxGrid('<27><><EFBFBD>鱨<EFBFBD><E9B1A8>JF', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܹ<EFBFBD><DCB9><EFBFBD>');
  fsj := 'select distinct(Filler) name from WFB_MJJY   ';
//  SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
//  Filler.ItemIndex := Filler.Items.IndexOf(trim(DName));
  EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
  BegDate.DateTime := EndDate.DateTime - 14;
  //InitGrid();
end;

procedure TfrmJYOrderCDListCL.TBFindClick(Sender: TObject);
var
  fsj, fwhere: string;
begin

end;

procedure TfrmJYOrderCDListCL.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then
    Exit;
//  TcxGridToExcel('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>', CXGRID1);
////  ShellExecute(0, 'open', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>.xls', nil, nil, SW_SHOWNORMAL);
//  ShellExecute(0, 'open', 'C:\Reports\GridData.xlsx', nil, nil, SW_SHOWNORMAL);
  ExportGridToExcelAndOpen(cxGrid1)
end;

procedure TfrmJYOrderCDListCL.TBRafreshClick(Sender: TObject);
begin
//  OrderNo.SetFocus;
  InitGrid();

end;

procedure TfrmJYOrderCDListCL.FormShow(Sender: TObject);
begin
  CurrentPage := 1;
  RecordsNumber := 500;
  InitForm();

  SetStatus();
end;

procedure TfrmJYOrderCDListCL.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FLeft := X;
  FTop := Y;
end;

procedure TfrmJYOrderCDListCL.N1Click(Sender: TObject);
begin
  SelOKNo(Order_Main, True);
end;

procedure TfrmJYOrderCDListCL.N2Click(Sender: TObject);
begin
  SelOKNo(Order_Main, False);
end;

function TfrmJYOrderCDListCL.Savedata(): Boolean;
var
  maxno, LLID: string;
  HXPS: Integer;
  HXQty, HXMQty: Double;
begin
  HXPS := 0;
  HXQty := 0;
  with ADOQueryTemp do
  begin
    Close;
    sql.Clear;
    sql.Add('select Top 1 * from Contract_Cloth_LL where OrdSubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
    sql.Add(' and FirstName=''' + Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) + '''');
    Open;
  end;
  LLID := Trim(ADOQueryTemp.fieldbyname('LLID').AsString);
  if Trim(LLID) = '' then
  begin
    Result := False;
    Application.MessageBox('û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ļӹ<C4BC><D3B9><EFBFBD>!', '<27><>ʾ', 0);
    Exit;
  end;
  try
    ADOQueryCmd.Connection.BeginTrans;
    if GetLSNo(ADOQueryCmd, maxno, 'HX', 'Contract_Cloth_BefChkHX', 2, 1) = False then
    begin
      Result := False;
      ADOQueryCmd.Connection.RollbackTrans;
      Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
      Exit;
    end;
    with Order_Main do
    begin
      First;
      while not Eof do
      begin
        if Order_Main.FieldByName('SSel').AsBoolean = True then
        begin
          HXPS := HXPS + 1;
          HXQty := HXQty + Order_Main.FieldByName('MJLen').Value;
        end;
        Next;
      end;
    end;
    with ADOQueryCmd do
    begin
      Close;
      sql.Clear;
      sql.Add('');
      Open;
    end;
  except
  end;
end;

procedure TfrmJYOrderCDListCL.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
begin
//  if Key = #13 then
//  begin
//    if Length(OrderNo.Text) < 4 then
//      Exit;
//    CurrentPage := 1;
//    InitGrid();
//  end;
end;

procedure TfrmJYOrderCDListCL.GetCDSData();
begin

end;

procedure TfrmJYOrderCDListCL.v1Column15PropertiesEditValueChanged(Sender: TObject);
var
  mvalue: string;
begin
  mvalue := TcxTextEdit(Sender).EditingText;
  with Order_Main do
  begin
    Edit;
    FieldByName('PanDing').Value := Trim(mvalue);
    Post;
  end;
  with ADOQueryCmd do
  begin
    Close;
    sql.Clear;
    sql.Add('UPdate WFB_MJJY Set PanDing=''' + Trim(mvalue) + '''');
    SQL.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
    ExecSQL;
  end;
end;

procedure TfrmJYOrderCDListCL.MJIDKeyPress(Sender: TObject; var Key: Char);
begin
//  if Key = #13 then
//  begin
//    if Length(MJID.Text) < 4 then
//      Exit;
//    CurrentPage := 1;
//    InitGrid();
//  end;
end;

procedure TfrmJYOrderCDListCL.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;

procedure TfrmJYOrderCDListCL.conNOKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    CurrentPage := 1;
    InitGrid();
  end;
end;

procedure TfrmJYOrderCDListCL.MJStr2Change(Sender: TObject);
begin
  CurrentPage := 1;
  InitGrid();
end;

procedure TfrmJYOrderCDListCL.MJTypeChange(Sender: TObject);
begin
  btn1.Click;
end;

procedure TfrmJYOrderCDListCL.KHConNOKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    CurrentPage := 1;
    InitGrid();
  end;
end;

procedure TfrmJYOrderCDListCL.RKOrdIDKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    CurrentPage := 1;
    InitGrid();
  end;
end;

procedure TfrmJYOrderCDListCL.N3Click(Sender: TObject);
var
  SSubId, SGangNo: string;
begin

  with Order_Main do
  begin
    SSubId := trim(FieldByName('SubId').AsString);
    SGangNo := trim(FieldByName('Mjstr4').AsString);
    Order_Main.DisableControls;
    first;
    while not eof do
    begin
      if ((SSubId = trim(FieldByName('SubId').AsString)) and (SGangNo = trim(FieldByName('Mjstr4').AsString))) then
      begin
        edit;
        FieldByName('SSel').value := true;
      end
      else
      begin
        edit;
        FieldByName('SSel').value := false;
      end;
      Next;
    end;
    Order_Main.Locate('SubId;Mjstr4', VarArrayOf([SSubId, SGangNo]), []);
    Order_Main.EnableControls;
  end;
end;

procedure TfrmJYOrderCDListCL.X1Click(Sender: TObject);
var
  str, SSubId, SGangNo: string;
  ZChiShu, DQChiShu: integer;
  ISSel: boolean;
begin
  ISSel := true;
  SSubId := trim(Order_Main.FieldByName('SubId').AsString);
  SGangNo := trim(Order_Main.FieldByName('Mjstr4').AsString);
  str := '';
  if InputQuery('ѡ<><D1A1>', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', str) then
  begin
    ZChiShu := strtointdef(str, 0);
    if ZChiShu <= 0 then
      exit;

    with Order_Main do
    begin

      Order_Main.DisableControls;
      first;
      DQChiShu := 0;
      while not eof do
      begin

        if ((SSubId = trim(FieldByName('SubId').AsString)) and (SGangNo = trim(FieldByName('Mjstr4').AsString))) then
        begin
          edit;
          FieldByName('SSel').value := ISSel;
          DQChiShu := DQChiShu + 1;

        end
        else
        begin
          edit;
          FieldByName('SSel').value := false;
        end;
        if DQChiShu = ZChiShu then
          ISSel := false;
        Next;
      end;
      Order_Main.Locate('SubId;Mjstr4', VarArrayOf([SSubId, SGangNo]), []);
      Order_Main.EnableControls;
    end;
  end;

end;

procedure TfrmJYOrderCDListCL.cxTabControl1Change(Sender: TObject);
begin
  CurrentPage := 1;
  InitGrid();
  SetStatus();
end;

procedure TfrmJYOrderCDListCL.btn1Click(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 TfrmJYOrderCDListCL.CustomerNoNameChange(Sender: TObject);
begin
  btn1.Click;
end;

procedure TfrmJYOrderCDListCL.conNOChange(Sender: TObject);
begin
  btn1.Click;
end;

procedure TfrmJYOrderCDListCL.MPRTCodeNameChange(Sender: TObject);
begin
  btn1.Click;
end;

procedure TfrmJYOrderCDListCL.JYCOLORChange(Sender: TObject);
begin
  btn1.Click;
end;

procedure TfrmJYOrderCDListCL.JYXHChange(Sender: TObject);
begin
  btn1.Click;
end;

procedure TfrmJYOrderCDListCL.btn2Click(Sender: TObject);
var
  filepath, lbname: string;
  mBegdate, mEnddate: string;
begin
//  mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
//  mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
  if Order_Main.IsEmpty then
    exit;
  lbname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܱ<EFBFBD>';
  ExportFtErpFile(Trim(lbname) + '.rmf', ADOQueryTemp);

  with ADOQueryPrint do
  begin
    Close;
    SQL.Clear;
    with ADOQueryPrint do
    begin
      Close;
      SQL.Clear;
      Filtered := False;
      sql.Add('select A.MPRTCodeName,A.ConNo,A.CustomerNoName,C.MJStr4, ');
      sql.Add('b.PRTColor,PS=COUNT(c.SubId),MJQty4=sum( c.MJQty4 ) ');
      sql.Add('from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MAINID inner join ');
      sql.Add('WFB_MJJY c on b.SubId=c.SubId GROUP BY MPRTCodeName,ConNo,CustomerNoName,PRTColor,MJStr4');
      Open;
    end;
    Open;
  end;

  try
    filepath := ExtractFilePath(Application.ExeName) + 'report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ܱ<EFBFBD>.rmf';

    if not FileExists(Pchar(filepath)) then
    begin
      application.MessageBox(pchar('<27>ļ<EFBFBD>[' + filepath + ']<5D><><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD>'), '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_IConError);
      exit;
    end;

//    RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date);
//    RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date);
    RMVariables['ZDR'] := trim(DName);
    RM2.LoadFromFile(filepath);
    RM2.ShowReport;
  finally

  end;

end;

end.