unit U_CYPBCKListW;

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
  TfrmCYPBCKListW = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBExport: 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;
    TBDel: TToolButton;
    TBAdd: TToolButton;
    TBEdit: TToolButton;
    Label3: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    SPName: TEdit;
    SPSpec: TEdit;
    CRType: TComboBox;
    Label6: TLabel;
    SPCF: TEdit;
    Label7: TLabel;
    OrderNo: TEdit;
    Label10: TLabel;
    PBNO: TEdit;
    TBOut: TToolButton;
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxTabSheet2: TcxTabSheet;
    cxTabSheet3: TcxTabSheet;
    cxTabSheet4: TcxTabSheet;
    Panel2: TPanel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    cxPageControl2: TcxPageControl;
    Panel3: TPanel;
    Label5: TLabel;
    ComboBox2: TComboBox;
    cxPageControl3: TcxPageControl;
    cxTabControl1: TcxTabControl;
    cxTabControl2: TcxTabControl;
    cxGrid4: TcxGrid;
    Tv4: TcxGridDBTableView;
    cxGridDBColumn18: TcxGridDBColumn;
    cxGridDBColumn19: TcxGridDBColumn;
    cxGridDBColumn23: TcxGridDBColumn;
    cxGridDBColumn24: TcxGridDBColumn;
    cxGridDBColumn25: TcxGridDBColumn;
    cxGridDBColumn26: TcxGridDBColumn;
    cxGridDBColumn27: TcxGridDBColumn;
    cxGridDBColumn28: TcxGridDBColumn;
    cxGridDBColumn30: TcxGridDBColumn;
    cxGridDBColumn31: TcxGridDBColumn;
    cxGridDBColumn32: TcxGridDBColumn;
    cxGridDBColumn33: TcxGridDBColumn;
    cxGridDBColumn34: TcxGridDBColumn;
    cxGridDBColumn35: TcxGridDBColumn;
    cxGridDBColumn41: TcxGridDBColumn;
    cxGridDBColumn42: TcxGridDBColumn;
    cxGridDBColumn43: TcxGridDBColumn;
    cxGridDBColumn44: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    v4Column1: TcxGridDBColumn;
    v4Column2: TcxGridDBColumn;
    v4Column3: TcxGridDBColumn;
    v4Column4: TcxGridDBColumn;
    v4Column6: TcxGridDBColumn;
    v4Column7: TcxGridDBColumn;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1Column6: TcxGridDBColumn;
    v1C1: TcxGridDBColumn;
    v1C2: TcxGridDBColumn;
    v1PBNO: TcxGridDBColumn;
    v1FtyName: TcxGridDBColumn;
    v1FromFtyName: TcxGridDBColumn;
    v1FromKHName: TcxGridDBColumn;
    v1C3: TcxGridDBColumn;
    v1C4: TcxGridDBColumn;
    v1C5: TcxGridDBColumn;
    v1C6: TcxGridDBColumn;
    v1C7: TcxGridDBColumn;
    v1C8: TcxGridDBColumn;
    v1C12: TcxGridDBColumn;
    v1C13: TcxGridDBColumn;
    v1C14: TcxGridDBColumn;
    v1C15: TcxGridDBColumn;
    v1C16: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    v1Column1: TcxGridDBColumn;
    v1FromOrderNo: TcxGridDBColumn;
    cxTabControl3: TcxTabControl;
    cxGrid3: TcxGrid;
    Tv3: TcxGridDBTableView;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    vFromOrderNo: TcxGridDBColumn;
    cxGridDBColumn9: TcxGridDBColumn;
    vFtyName: TcxGridDBColumn;
    vFromFtyName: TcxGridDBColumn;
    vFromKHName: TcxGridDBColumn;
    cxGridDBColumn13: TcxGridDBColumn;
    cxGridDBColumn14: TcxGridDBColumn;
    cxGridDBColumn15: TcxGridDBColumn;
    cxGridDBColumn16: TcxGridDBColumn;
    cxGridDBColumn17: TcxGridDBColumn;
    cxGridDBColumn20: TcxGridDBColumn;
    cxGridDBColumn21: TcxGridDBColumn;
    cxGridDBColumn22: TcxGridDBColumn;
    cxGridDBColumn45: TcxGridDBColumn;
    cxGridDBColumn46: TcxGridDBColumn;
    cxGridDBColumn47: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    cxGridPopupMenu2: TcxGridPopupMenu;
    cxGridPopupMenu3: TcxGridPopupMenu;
    cxGridPopupMenu4: TcxGridPopupMenu;
    Label9: TLabel;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    vC1: TcxGridDBColumn;
    vC2: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    v1Column2: TcxGridDBColumn;
    v1Column3: TcxGridDBColumn;
    v1Column4: TcxGridDBColumn;
    vC3: TcxGridDBColumn;
    vC4: TcxGridDBColumn;
    vC5: TcxGridDBColumn;
    vC6: TcxGridDBColumn;
    vC10: TcxGridDBColumn;
    vC11: TcxGridDBColumn;
    vC12: TcxGridDBColumn;
    vC13: TcxGridDBColumn;
    vC14: TcxGridDBColumn;
    vToOrderNoZD: TcxGridDBColumn;
    vToFactoryNameJGC: TcxGridDBColumn;
    v1Column12: TcxGridDBColumn;
    cxGrid2Level1: TcxGridLevel;
    v2Column1: TcxGridDBColumn;
    v2ToOrderNoCD: TcxGridDBColumn;
    vToFactoryNameGYS: TcxGridDBColumn;
    v4Column8: TcxGridDBColumn;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure ConNoMChange(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBExportClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure TBDelClick(Sender: TObject);
    procedure TBAddClick(Sender: TObject);
    procedure TBEditClick(Sender: TObject);
    procedure SPSpecChange(Sender: TObject);
    procedure FactoryNameChange(Sender: TObject);
    procedure cxPageControl2Change(Sender: TObject);
    procedure TBOutClick(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
    procedure cxPageControl1Change(Sender: TObject);
    procedure cxTabControl2Change(Sender: TObject);
  private
    canshu1,canshu2,canshu3:string;
    procedure InitGrid();
    procedure InitGridStatus();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCYPBCKListW: TfrmCYPBCKListW;

implementation
uses
  U_DataLink,U_RTFun,U_CYPBCKInPutW,U_CYPBCKOutPutW;

{$R *.dfm}

procedure TfrmCYPBCKListW.FormDestroy(Sender: TObject);
begin
  frmCYPBCKListW:=nil;
end;

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

procedure TfrmCYPBCKListW.FormCreate(Sender: TObject);
begin
  //cxGrid1.Align:=alClient;
  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
  BegDate.DateTime:=EndDate.DateTime-30;
  canshu1:=Trim(DParameters1);
  canshu2:=Trim(DParameters2);
  canshu3:=Trim(DParameters3);
end;

procedure TfrmCYPBCKListW.InitGrid();
begin
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Filtered:=False;
      Close;
      sql.Clear;
      if cxPageControl1.ActivePageIndex<2 then
      begin
        sql.Add(' select A.* ');
        if cxPageControl1.ActivePageIndex=1 then
        begin
          sql.Add(',Case when isnull(A.CRType,'''') in(''销售出库'',''半加工出库'',''再加工出库'') then A.ToOrderNo else Null end as ToOrderNoCD ');
          sql.Add(',Case when isnull(A.CRType,'''')=''转单出库'' then A.ToOrderNo else Null end as ToOrderNoZD ');
          sql.Add(',Case when isnull(A.CRType,'''') in(''半加工出库'',''再加工出库'') then A.ToFactoryName else Null end as ToFactoryNameJGC ');
          sql.Add(',Case when isnull(A.CRType,'''')=''退货出库'' then A.ToFactoryName else Null end as ToFactoryNameGYS ');
        end;
        sql.Add(' from CK_SXPB_CR A');
        sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
        sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
        sql.Add(' and isnull(CKName,'''')=''坯布仓库''');
        sql.Add(' and isnull(DeptName,'''')=''外面总仓'' ');
        if cxPageControl1.ActivePageIndex=0 then
        begin
          SQL.Add(' and CRFlag=''入库''  ');
          if cxTabControl1.TabIndex<>0 then
            sql.Add(' and isnull(A.CRType,'''')='''+Trim(cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption)+'''');
        end else
        if cxPageControl1.ActivePageIndex=1 then
        begin
          SQL.Add(' and CRFlag=''出库''  ');
          if cxTabControl2.TabIndex<>0 then
            sql.Add(' and isnull(A.CRType,'''')='''+Trim(cxTabControl2.Tabs[cxTabControl2.TabIndex].Caption)+'''');
        end;
        if Trim(canshu1)<>'高权限' then
        begin
          sql.Add(' and A.Filler='''+Trim(DName)+'''');
        end;
        SQL.Add(' order by A.CRTime desc');
      end else
      if cxPageControl1.ActivePageIndex=2 then
      begin
        sql.Add(' select A.* ');
        sql.Add(' from CK_SXPB_CR A where isnull(CKName,'''')=''坯布仓库'' ');
        SQL.Add(' and A.CRFlag=''入库'' and MXKCQty>0');
        sql.Add(' and isnull(DeptName,'''')=''外面总仓'' ');
        if cxTabControl3.TabIndex<>0 then
          sql.Add(' and isnull(A.CRType,'''')='''+Trim(cxTabControl3.Tabs[cxTabControl3.TabIndex].Caption)+'''');
        SQL.Add(' order by A.CRTime desc');
      end else
      if cxPageControl1.ActivePageIndex=3 then
      begin
        sql.Add(' select A.* ');
        sql.Add(',Case when isnull(A.CRType,'''') in(''销售出库'',''半加工出库'',''再加工出库'') then A.ToOrderNo else Null end as ToOrderNoCD ');
        sql.Add(',Case when isnull(A.CRType,'''')=''转单出库'' then A.ToOrderNo else Null end as ToOrderNoZD ');
        sql.Add(',Case when isnull(A.CRType,'''') in(''半加工出库'',''再加工出库'') then A.ToFactoryName else Null end as ToFactoryNameJGC ');
        sql.Add(',Case when isnull(A.CRType,'''')=''退货出库'' then A.ToFactoryName else Null end as ToFactoryNameGYS ');
        sql.Add(',Case when isnull(CRFlag,'''')=''入库'' then PiQty else Null end as PiQtyRK ');
        sql.Add(',Case when isnull(CRFlag,'''')=''出库'' then PiQty else Null end as PiQtyCK ');
        sql.Add(',Case when isnull(CRFlag,'''')=''入库'' then Qty else Null end as QtyRK ');
        sql.Add(',Case when isnull(CRFlag,'''')=''出库'' then Qty else Null end as QtyCK ');
        sql.add(' from CK_SXPB_CR A where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
        sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
        sql.Add(' and isnull(CKName,'''')=''坯布仓库''');
        sql.Add(' and isnull(DeptName,'''')=''外面总仓'' ');
        sql.Add(' order by A.CRTime,A.FillTime');
      end;
      Open;
    end;
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmCYPBCKListW.TBRafreshClick(Sender: TObject);
begin
  BegDate.SetFocus;
  InitGrid();
end;

procedure TfrmCYPBCKListW.ConNoMChange(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  end;
end;

procedure TfrmCYPBCKListW.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid(Self.Caption+'入库'+Tv1.Name,Tv1,Self.Caption);
  WriteCxGrid(Self.Caption+'出库'+Tv2.Name,Tv2,Self.Caption);
  WriteCxGrid(Self.Caption+'库存'+Tv3.Name,Tv3,Self.Caption);
  WriteCxGrid(Self.Caption+'流水'+Tv4.Name,Tv4,Self.Caption);
  Close;
end;

procedure TfrmCYPBCKListW.FormShow(Sender: TObject);
begin
  ReadcxGrid(Self.Caption+'入库'+Tv1.Name,Tv1,Self.Caption);
  ReadcxGrid(Self.Caption+'出库'+Tv2.Name,Tv2,Self.Caption);
  ReadcxGrid(Self.Caption+'库存'+Tv3.Name,Tv3,Self.Caption);
  ReadcxGrid(Self.Caption+'流水'+Tv4.Name,Tv4,Self.Caption);
  if Trim(canshu2)='查看' then
  begin
    TBAdd.Visible:=False;
    TBDel.Visible:=False;
    TBEdit.Visible:=False;
    TBOut.Visible:=False;
    Panel2.Visible:=False;
    Panel3.Visible:=False;
  end else
  begin
    TBAdd.Visible:=True;
    TBDel.Visible:=True;
    TBEdit.Visible:=True;
    TBOut.Visible:=True;
    Panel2.Visible:=True;
    Panel3.Visible:=True;
  end;
  cxPageControl1.ActivePageIndex:=0;
end;

procedure TfrmCYPBCKListW.TBExportClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then Exit;
  if cxPageControl1.ActivePageIndex=0 then
  begin
    TcxGridToExcel(Self.Caption+'入库列表',cxGrid1);
  end else
  if cxPageControl1.ActivePageIndex=1 then
  begin
    TcxGridToExcel(Self.Caption+'出库列表',cxGrid2);
  end else
  if cxPageControl1.ActivePageIndex=2 then
  begin
    TcxGridToExcel(Self.Caption+'库存列表',cxGrid3);
  end else
  if cxPageControl1.ActivePageIndex=3 then
  begin
    TcxGridToExcel(Self.Caption+'出库流水列表',cxGrid4);
  end;
end;

procedure TfrmCYPBCKListW.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active then
  begin
    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
    SCreateCDS20(ADOQueryMain,CDS_Main);
    SInitCDSData20(ADOQueryMain,CDS_Main);
  end;
end;

procedure TfrmCYPBCKListW.N1Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,True);
end;

procedure TfrmCYPBCKListW.N2Click(Sender: TObject);
begin
  SelOKNo(CDS_Main,False);
end;

procedure TfrmCYPBCKListW.TBDelClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then Exit;
  if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then
  begin
    if cxPageControl1.ActivePageIndex=0 then
    begin
      if Trim(CDS_Main.fieldbyname('CRType').AsString)='转单入库' then
      begin
        Application.MessageBox('转单入库的数据为自动生成，不能删除!','提示',0);
        Exit;
      end;
      with ADOQueryTemp do
      begin
        Close;
        sql.Clear;
        sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
        sql.Add(' and CRQtyFlag=-1');
        Open;
      end;
      if ADOQueryTemp.IsEmpty=False then
      begin
        Application.MessageBox('已有出库记录，不能删除!','提示',0);
        Exit;
      end;
      if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
      try
        ADOQueryCmd.Connection.BeginTrans;

        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
          ExecSQL;
        end;
        ADOQueryCmd.Connection.CommitTrans;
        CDS_Main.Delete;
      except
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('删除异常!','提示',0);
      end;
    end else
    if cxPageControl1.ActivePageIndex=1 then
    begin
      if Trim(CDS_Main.fieldbyname('CRType').AsString)='转单出库' then
      begin
        with ADOQueryTemp do
        begin
          Close;
          sql.Clear;
          sql.Add('select * from CK_SXPB_CR where ZDSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
          sql.Add(' and isnull(ZDSPID,'''')<>isnull(SPID,'''')');
          sql.Add(' and CRQtyFlag=-1');
          Open;
        end;
        if ADOQueryTemp.IsEmpty=False then
        begin
          Application.MessageBox('转单出库对应的转单入库记录已有出库记录，不能删除!','提示',0);
          Exit;
        end;
      end;

      if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
      try
        ADOQueryCmd.Connection.BeginTrans;

        with ADOQueryCmd do
        begin
          Close;
          sql.Clear;
          sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
          if Trim(CDS_Main.fieldbyname('CRType').AsString)='转单出库' then
          begin
            sql.Add(' delete CK_SXPB_CR where ZDSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
          end;
          sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
          sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
          sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('FZSPID').AsString)+'''');
          ExecSQL;
        end;
        ADOQueryCmd.Connection.CommitTrans;
        CDS_Main.Delete;
      except
        ADOQueryCmd.Connection.RollbackTrans;
        Application.MessageBox('删除异常!','提示',0);
      end;
    end;
  end else
  begin
    CDS_Main.Delete;
  end;
end;
procedure TfrmCYPBCKListW.InitGridStatus();
var
  FFCRType:String;
begin
  if cxPageControl1.ActivePageIndex=0 then
  begin
    FFCRType:=cxTabControl1.Tabs[cxTabControl1.TabIndex].Caption;
  end else
  if cxPageControl1.ActivePageIndex=1 then
  begin
    FFCRType:=cxTabControl2.Tabs[cxTabControl2.TabIndex].Caption;
  end else
  if cxPageControl1.ActivePageIndex=2 then
  begin
    FFCRType:=cxTabControl3.Tabs[cxTabControl3.TabIndex].Caption;
  end else
  begin
    Exit;
  end;
  if cxPageControl1.ActivePageIndex<2 then
  begin
    if Trim(FFCRType)='采购入库' then
    begin
      v1FtyName.Visible:=True;
      v1FtyName.Hidden:=false;
      v1FromFtyName.Visible:=False;
      v1FromFtyName.Hidden:=True;
      v1FromKHName.Visible:=False;
      v1FromKHName.Hidden:=True;
      v1FromOrderNo.Visible:=false;
      v1FromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='织造入库' then
    begin
      v1FtyName.Visible:=True;
      v1FtyName.Hidden:=false;
      v1FromFtyName.Visible:=False;
      v1FromFtyName.Hidden:=True;
      v1FromKHName.Visible:=False;
      v1FromKHName.Hidden:=True;
      v1FromOrderNo.Visible:=false;
      v1FromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='半加工完成入库' then
    begin
      v1FtyName.Visible:=True;
      v1FtyName.Hidden:=false;
      v1FromFtyName.Visible:=True;
      v1FromFtyName.Hidden:=false;
      v1FromFtyName.Caption:='加工厂';
      v1FromKHName.Visible:=False;
      v1FromKHName.Hidden:=True;
      v1FromOrderNo.Visible:=false;
      v1FromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='半加工未做回仓' then
    begin
      v1FtyName.Visible:=True;
      v1FtyName.Hidden:=false;
      v1FromFtyName.Visible:=True;
      v1FromFtyName.Hidden:=false;
      v1FromFtyName.Caption:='加工厂';
      v1FromKHName.Visible:=False;
      v1FromKHName.Hidden:=True;
      v1FromOrderNo.Visible:=false;
      v1FromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='再加工未做回仓' then
    begin
      v1FtyName.Visible:=True;
      v1FtyName.Hidden:=false;
      v1FromFtyName.Visible:=True;
      v1FromFtyName.Hidden:=false;
      v1FromFtyName.Caption:='加工厂';
      v1FromKHName.Visible:=False;
      v1FromKHName.Hidden:=True;
      v1FromOrderNo.Visible:=false;
      v1FromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='客户退回' then
    begin
      v1FtyName.Visible:=True;
      v1FtyName.Hidden:=false;
      v1FromFtyName.Visible:=False;
      v1FromFtyName.Hidden:=True;
      v1FromKHName.Visible:=True;
      v1FromKHName.Hidden:=False;
      v1FromOrderNo.Visible:=false;
      v1FromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='转单入库' then
    begin
      v1FtyName.Visible:=True;
      v1FtyName.Hidden:=false;
      v1FromFtyName.Visible:=True;
      v1FromFtyName.Hidden:=false;
      v1FromKHName.Visible:=false;
      v1FromKHName.Hidden:=True;
      v1FromOrderNo.Visible:=True;
      v1FromOrderNo.Hidden:=False;
    end else
    if Trim(FFCRType)='销售出库' then
    begin
      v2ToOrderNoCD.Visible:=True;
      v2ToOrderNoCD.Hidden:=false;
      vToOrderNoZD.Visible:=False;
      vToOrderNoZD.Hidden:=True;
      vToFactoryNameJGC.Visible:=False;
      vToFactoryNameJGC.Hidden:=True;
      vToFactoryNameGYS.Visible:=False;
      vToFactoryNameGYS.Hidden:=True;
    end else
    if Trim(FFCRType)='转单出库' then
    begin
      v2ToOrderNoCD.Visible:=false;
      v2ToOrderNoCD.Hidden:=True;
      vToOrderNoZD.Visible:=True;
      vToOrderNoZD.Hidden:=False;
      vToFactoryNameJGC.Visible:=False;
      vToFactoryNameJGC.Hidden:=True;
      vToFactoryNameGYS.Visible:=False;
      vToFactoryNameGYS.Hidden:=True;
    end else
    if Trim(FFCRType)='半加工出库' then
    begin
      v2ToOrderNoCD.Visible:=True;
      v2ToOrderNoCD.Hidden:=false;
      vToOrderNoZD.Visible:=false;
      vToOrderNoZD.Hidden:=True;
      vToFactoryNameJGC.Visible:=True;
      vToFactoryNameJGC.Hidden:=false;
      vToFactoryNameGYS.Visible:=False;
      vToFactoryNameGYS.Hidden:=True;
    end else
    if Trim(FFCRType)='再加工出库' then
    begin
      v2ToOrderNoCD.Visible:=True;
      v2ToOrderNoCD.Hidden:=false;
      vToOrderNoZD.Visible:=false;
      vToOrderNoZD.Hidden:=True;
      vToFactoryNameJGC.Visible:=True;
      vToFactoryNameJGC.Hidden:=false;
      vToFactoryNameGYS.Visible:=False;
      vToFactoryNameGYS.Hidden:=True;
    end else
    if Trim(FFCRType)='退货出库' then
    begin
      v2ToOrderNoCD.Visible:=false;
      v2ToOrderNoCD.Hidden:=True;
      vToOrderNoZD.Visible:=false;
      vToOrderNoZD.Hidden:=True;
      vToFactoryNameJGC.Visible:=false;
      vToFactoryNameJGC.Hidden:=True;
      vToFactoryNameGYS.Visible:=True;
      vToFactoryNameGYS.Hidden:=false;
    end else
    if Trim(FFCRType)='全部' then
    begin
      if cxPageControl1.ActivePageIndex=0 then
      begin
        v1FtyName.Visible:=True;
        v1FtyName.Hidden:=false;
        v1FromFtyName.Visible:=True;
        v1FromFtyName.Hidden:=false;
        v1FromKHName.Visible:=True;
        v1FromKHName.Hidden:=false;
        v1FromOrderNo.Visible:=True;
        v1FromOrderNo.Hidden:=False;
      end else
      if cxPageControl1.ActivePageIndex=1 then
      begin
        v2ToOrderNoCD.Visible:=True;
        v2ToOrderNoCD.Hidden:=false;
        vToOrderNoZD.Visible:=True;
        vToOrderNoZD.Hidden:=false;
        vToFactoryNameJGC.Visible:=True;
        vToFactoryNameJGC.Hidden:=false;
        vToFactoryNameGYS.Visible:=True;
        vToFactoryNameGYS.Hidden:=false;
      end;
    end;
  end else
  if cxPageControl1.ActivePageIndex=2 then
  begin
    if Trim(FFCRType)='采购入库' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=False;
      vFromFtyName.Hidden:=True;
      vFromKHName.Visible:=False;
      vFromKHName.Hidden:=True;
      vFromOrderNo.Visible:=false;
      vFromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='织造入库' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=False;
      vFromFtyName.Hidden:=True;
      vFromKHName.Visible:=False;
      vFromKHName.Hidden:=True;
      vFromOrderNo.Visible:=false;
      vFromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='半加工完成入库' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=True;
      vFromFtyName.Hidden:=false;
      vFromFtyName.Caption:='加工厂';
      vFromKHName.Visible:=False;
      vFromKHName.Hidden:=True;
      vFromOrderNo.Visible:=false;
      vFromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='半加工未做回仓' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=True;
      vFromFtyName.Hidden:=false;
      vFromFtyName.Caption:='加工厂';
      vFromKHName.Visible:=False;
      vFromKHName.Hidden:=True;
      vFromOrderNo.Visible:=false;
      vFromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='再加工未做回仓' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=True;
      vFromFtyName.Hidden:=false;
      vFromFtyName.Caption:='加工厂';
      vFromKHName.Visible:=False;
      vFromKHName.Hidden:=True;
      vFromOrderNo.Visible:=false;
      vFromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='客户退回' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=False;
      vFromFtyName.Hidden:=True;
      vFromKHName.Visible:=True;
      vFromKHName.Hidden:=False;
      vFromOrderNo.Visible:=false;
      vFromOrderNo.Hidden:=True;
    end else
    if Trim(FFCRType)='转单入库' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=True;
      vFromFtyName.Hidden:=false;
      vFromKHName.Visible:=false;
      vFromKHName.Hidden:=True;
      vFromOrderNo.Visible:=True;
      vFromOrderNo.Hidden:=False;
    end else
    if Trim(FFCRType)='全部' then
    begin
      vFtyName.Visible:=True;
      vFtyName.Hidden:=false;
      vFromFtyName.Visible:=True;
      vFromFtyName.Hidden:=false;
      vFromKHName.Visible:=True;
      vFromKHName.Hidden:=false;
      vFromOrderNo.Visible:=True;
      vFromOrderNo.Hidden:=False;
    end;
  end;

end;
procedure TfrmCYPBCKListW.TBAddClick(Sender: TObject);
begin
  if Trim(ComboBox1.Text)='' then
  begin
    Application.MessageBox('入库类型不能为空!','提示',0);
    Exit;
  end;
  try
    frmCYPBCKInPutW:=TfrmCYPBCKInPutW.Create(Application);
    with frmCYPBCKInPutW do
    begin
      FBCId:='';
      FCRType:=Trim(Self.ComboBox1.Text);
      frmCYPBCKInPutW.Caption:='坯布仓库(外)→'+Trim(Self.ComboBox1.Text);
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmCYPBCKInPutW.Free;
  end;
end;

procedure TfrmCYPBCKListW.TBEditClick(Sender: TObject);
begin
  if CDS_Main.IsEmpty then Exit;

  if cxPageControl1.ActivePageIndex=0 then
  begin
    if Trim(CDS_Main.fieldbyname('CRType').AsString)='转单入库' then
    begin
      Application.MessageBox('转单入库的数据为自动生成，不能修改!','提示',0);
      Exit;
    end;
    try
      frmCYPBCKInPutW:=TfrmCYPBCKInPutW.Create(Application);
      with frmCYPBCKInPutW do
      begin
        FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString);
        TBDel.Visible:=False;
        TBAdd.Visible:=False;
        TBCopyAdd.Visible:=False;
        FCRType:=Trim(Self.CDS_Main.fieldbyname('CRType').AsString);
        frmCYPBCKInPutW.Caption:='坯布仓库(外)→'+FCRType;
        if ShowModal=1 then
        begin
          Self.InitGrid();
        end;
      end;
    finally
      frmCYPBCKInPutW.Free;
    end;
  end else
  if cxPageControl1.ActivePageIndex=1 then
  begin
    try
      frmCYPBCKOutPutW:=TfrmCYPBCKOutPutW.Create(Application);
      with frmCYPBCKOutPutW do
      begin
        FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString);
        TBDel.Visible:=False;
        TBAdd.Visible:=False;
        FCRType:=Trim(Self.CDS_Main.fieldbyname('CRType').AsString);
        frmCYPBCKOutPutW.Caption:='坯布仓库(外)→'+FCRType;
        if ShowModal=1 then
        begin
          Self.InitGrid();
        end;
      end;
    finally
      frmCYPBCKOutPutW.Free;
    end;
  end;

end;

procedure TfrmCYPBCKListW.SPSpecChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmCYPBCKListW.FactoryNameChange(Sender: TObject);
begin
  TBFind.Click;
end;

procedure TfrmCYPBCKListW.cxPageControl2Change(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmCYPBCKListW.TBOutClick(Sender: TObject);
begin
  if Trim(ComboBox2.Text)='' then
  begin
    Application.MessageBox('出库类型不能为空!','提示',0);
    Exit;
  end;
  try
    frmCYPBCKOutPutW:=TfrmCYPBCKOutPutW.Create(Application);
    with frmCYPBCKOutPutW do
    begin
      FBCId:='';
      FCRType:=Trim(Self.ComboBox2.Text);
      frmCYPBCKOutPutW.Caption:='坯布仓库(外)→'+Trim(Self.ComboBox2.Text);
      if ShowModal=1 then
      begin
        Self.InitGrid();
      end;
    end;
  finally
    frmCYPBCKOutPutW.Free;
  end;
end;

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

procedure TfrmCYPBCKListW.cxPageControl1Change(Sender: TObject);
begin
  InitGridStatus();
  InitGrid();
end;

procedure TfrmCYPBCKListW.cxTabControl2Change(Sender: TObject);
begin
  InitGridStatus();
  InitGrid();
end;

end.