库存查询调整

A02基础产品管理/U_ClothTypeSel.dfm

@@ -35,6 +35,7 @@ object frmClothTypeSel: TfrmClothTypeSel
     OptionsView.CellAutoHeight = True
     OptionsView.Headers = False
     RootValue = -1
+    ScrollbarAnnotations.CustomAnnotations = <>
     TabOrder = 0
     OnDblClick = cxDBTreeList1DblClick
     object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn

A02基础产品管理/U_ClothTypeSel.pas

@@ -7,7 +7,7 @@ uses
   Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit,
   cxInplaceContainer, cxDBTL, cxControls, cxTLData, DB, ADODB, cxLookAndFeels,
   cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, 
-  dxSkinsDefaultPainters;
+  dxSkinsDefaultPainters, dxSkinsCore, cxFilter, dxScrollbarAnnotations;
 
 type
   TfrmClothTypeSel = class(TForm)

T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm

@@ -7,7 +7,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
   Color = clBtnFace
   Font.Height = -16
   FormStyle = fsMDIChild
-  Visible = True
   ExplicitWidth = 1751
   ExplicitHeight = 683
   PixelsPerInch = 96

T02贸易汇总仓库/U_ClothScheduleList.dfm

@@ -7,7 +7,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   Color = clBtnFace
   Font.Height = -16
   FormStyle = fsMDIChild
-  Visible = True
   ExplicitWidth = 1536
   ExplicitHeight = 764
   PixelsPerInch = 96
@@ -531,6 +530,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     object cxTabSheet2: TcxTabSheet
       Caption = '  '#37197#24067#25968#25454'  '
       ImageIndex = 1
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object cxGrid2: TcxGrid
         Left = 0
         Top = 0
@@ -891,6 +893,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     object cxTabSheet1: TcxTabSheet
       Caption = '  '#23436#24037#21450#25220#30721#25968#25454'  '
       ImageIndex = 2
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object cxGrid4: TcxGrid
         Left = 0
         Top = 0
@@ -1106,6 +1111,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     object cxTabSheet4: TcxTabSheet
       Caption = #38754#26009#20986#24211
       ImageIndex = 3
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object cxGrid5: TcxGrid
         Left = 0
         Top = 0
@@ -1300,6 +1308,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     object cxTabSheet5: TcxTabSheet
       Caption = #29983#20135#22791#27880
       ImageIndex = 4
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object cxGrid6: TcxGrid
         Tag = 2
         Left = 0

T02贸易汇总仓库/U_ItemizedListList.dfm

@@ -8,7 +8,6 @@ inherited frmItemizedListList: TfrmItemizedListList
   Font.Height = -16
   FormStyle = fsMDIChild
   Position = poScreenCenter
-  Visible = True
   ExplicitWidth = 1789
   ExplicitHeight = 775
   PixelsPerInch = 96

T02贸易汇总仓库/U_TradeClothTotalInList.dfm

@@ -7,7 +7,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
   Color = clBtnFace
   Font.Height = -16
   FormStyle = fsMDIChild
-  Visible = True
   ExplicitWidth = 1556
   ExplicitHeight = 593
   PixelsPerInch = 96

T02贸易汇总仓库/U_TradeClothTotalOutList.dfm

@@ -860,6 +860,12 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
       GridView = Tv1
     end
   end
+  inherited loadProcess: TPanel
+    Left = 888
+    Top = 296
+    ExplicitLeft = 888
+    ExplicitTop = 296
+  end
   inherited cxProgressBar2: TcxProgressBar
     Left = 721
     Top = 398

T02贸易汇总仓库/U_TradeClothTotalStkList.dfm

@@ -8,7 +8,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
   Font.Height = -16
   FormStyle = fsMDIChild
   Position = poDefault
-  Visible = True
   ExplicitWidth = 1420
   ExplicitHeight = 554
   PixelsPerInch = 96
@@ -89,28 +88,28 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
     ParentColor = True
     TabOrder = 3
     object Label3: TLabel
-      Left = 50
+      Left = 28
       Top = 18
       Width = 32
       Height = 21
       Caption = #21697#21517
     end
     object Label4: TLabel
-      Left = 651
+      Left = 598
       Top = 18
       Width = 64
       Height = 21
       Caption = #26469#33258#21333#20301
     end
     object Label2: TLabel
-      Left = 441
+      Left = 408
       Top = 18
       Width = 32
       Height = 21
       Caption = #39068#33394
     end
     object Label6: TLabel
-      Left = 240
+      Left = 218
       Top = 18
       Width = 32
       Height = 21
@@ -118,7 +117,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
     end
     object C_name: TcxTextEdit
       Tag = 2
-      Left = 86
+      Left = 64
       Top = 14
       Properties.OnChange = FromCoNamePropertiesChange
       TabOrder = 0
@@ -127,7 +126,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
     end
     object FromCoName: TcxTextEdit
       Tag = 2
-      Left = 719
+      Left = 666
       Top = 14
       Properties.OnChange = FromCoNamePropertiesChange
       TabOrder = 1
@@ -136,7 +135,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
     end
     object C_Color: TcxTextEdit
       Tag = 2
-      Left = 477
+      Left = 444
       Top = 14
       Properties.OnChange = FromCoNamePropertiesChange
       TabOrder = 2
@@ -145,7 +144,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
     end
     object C_ColorNo: TcxTextEdit
       Tag = 2
-      Left = 276
+      Left = 254
       Top = 14
       Properties.OnChange = FromCoNamePropertiesChange
       TabOrder = 3
@@ -170,6 +169,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
     Properties.ActivePage = cxTabSheet1
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 5
+    OnChange = cxPageControl1Change
     ClientRectBottom = 426
     ClientRectRight = 1404
     ClientRectTop = 32
@@ -328,9 +328,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
     object cxTabSheet2: TcxTabSheet
       Caption = #20135#21697#26126#32454
       ImageIndex = 1
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 211
       object cxGrid1: TcxGrid
         Left = 0
         Top = 0
@@ -339,8 +336,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
         Align = alClient
         PopupMenu = PopupMenu1
         TabOrder = 0
-        ExplicitLeft = -464
-        ExplicitTop = -26
         object Tv1: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>

T02贸易汇总仓库/U_TradeClothTotalStkList.pas

@@ -125,6 +125,7 @@ type
     procedure FromCoNameKeyPress(Sender: TObject; var Key: Char);
     procedure ToolButton3Click(Sender: TObject);
     procedure TV2DblClick(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
   private
     procedure InitGrid();
     procedure InitGrid1();
@@ -152,6 +153,17 @@ begin
   frmTradeClothTotalStkList := nil;
 end;
 
+procedure TfrmTradeClothTotalStkList.cxPageControl1Change(Sender: TObject);
+begin
+  case cxPageControl1.ActivePageIndex of
+    1:
+      begin
+        InitGrid1();
+      end;
+  end;
+
+end;
+
 procedure TfrmTradeClothTotalStkList.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   inherited;
@@ -201,6 +213,7 @@ begin
 
   SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
 
+//  ShowMessage(SqlStr);
   InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
 
 end;
@@ -244,15 +257,17 @@ end;
 procedure TfrmTradeClothTotalStkList.FormShow(Sender: TObject);
 begin
   inherited;
-  ReadCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
+
+  ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
+  ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
   canshu4 := Trim(self.fParameters4);
-  InitGrid();
+  InitGrid2();
 end;
 
 procedure TfrmTradeClothTotalStkList.FromCoNameKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
-    InitGrid();
+    TBFind.Click;
 end;
 
 procedure TfrmTradeClothTotalStkList.FromCoNamePropertiesChange(Sender: TObject);
@@ -296,7 +311,8 @@ end;
 
 procedure TfrmTradeClothTotalStkList.ToolButton2Click(Sender: TObject);
 begin
-  WriteCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
+  WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'óÒ×»ã×ֿܲâ');
+  WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'óÒ×»ã×ֿܲâ');
 end;
 
 procedure TfrmTradeClothTotalStkList.ToolButton3Click(Sender: TObject);
@@ -330,7 +346,7 @@ end;
 procedure TfrmTradeClothTotalStkList.TV2DblClick(Sender: TObject);
 begin
   cxPageControl1.ActivePageIndex := 1;
-  InitGrid1();
+
 end;
 
 end.

T02贸易汇总仓库/U_TradeDeliveryRequest.dfm

@@ -9,7 +9,6 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
   Font.Height = -16
   FormStyle = fsMDIChild
   Position = poScreenCenter
-  Visible = True
   ExplicitWidth = 1595
   ExplicitHeight = 780
   PixelsPerInch = 96

T02贸易汇总仓库/U_TradeTotallClothStkSel.pas

@@ -13,7 +13,7 @@ uses
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
   dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList,
-  dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters;
+  dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters, cxPC;
 
 type
   TfrmTradeTotallClothStkSel = class(TfrmBaseHelp)
@@ -23,7 +23,7 @@ type
     TBClose: TToolButton;
     Panel1: TPanel;
     ADOQueryCmd: TADOQuery;
-    ADOQueryMain: TADOQuery;
+    ADO_1: TADOQuery;
     ADOQueryTemp: TADOQuery;
     PopupMenu1: TPopupMenu;
     N1: TMenuItem;
@@ -32,39 +32,44 @@ type
     ToolButton2: TToolButton;
     Label3: TLabel;
     Label4: TLabel;
-    Label8: TLabel;
-    Label2: TLabel;
-    Label1: TLabel;
-    Label5: TLabel;
     C_name: TcxTextEdit;
     FromCoName: TcxTextEdit;
-    C_spec: TcxTextEdit;
+    GPM_1: TcxGridPopupMenu;
-    BatchNo: TcxTextEdit;
+    CDS_1: TClientDataSet;
-    GC_Name: TcxTextEdit;
+    DS_1: TDataSource;
-    CraftCode: TcxTextEdit;
+    cxPageControl1: TcxPageControl;
-    Label6: TLabel;
+    cxTabSheet1: TcxTabSheet;
-    Label7: TLabel;
+    cxGrid2: TcxGrid;
-    FtyPCId: TcxTextEdit;
+    TV2: TcxGridDBTableView;
-    FromConNo: TcxTextEdit;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn24: TcxGridDBColumn;
+    cxGridDBColumn26: TcxGridDBColumn;
+    cxGridDBColumn28: TcxGridDBColumn;
+    cxGridDBColumn29: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxTabSheet2: TcxTabSheet;
     cxGrid1: TcxGrid;
     Tv1: TcxGridDBTableView;
+    Tv1Column33: TcxGridDBColumn;
     Tv1Column13: TcxGridDBColumn;
     v1Column6: TcxGridDBColumn;
     v1Column2: TcxGridDBColumn;
     v1Column4: TcxGridDBColumn;
     v1Column14: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
-    Tv1Column20: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
     v2Column1: TcxGridDBColumn;
     v1Column8: TcxGridDBColumn;
     Tv1Column4: TcxGridDBColumn;
     v1Column13: TcxGridDBColumn;
     v1Column11: TcxGridDBColumn;
-    Tv1Column6: TcxGridDBColumn;
     v1Column15: TcxGridDBColumn;
     v2Column6: TcxGridDBColumn;
     v1Column3: TcxGridDBColumn;
-    v1Column5: TcxGridDBColumn;
     Tv1Column19: TcxGridDBColumn;
     v1Column19: TcxGridDBColumn;
     v1Column12: TcxGridDBColumn;
@@ -80,7 +85,6 @@ type
     Tv1Column9: TcxGridDBColumn;
     Tv1Column12: TcxGridDBColumn;
     Tv1Column27: TcxGridDBColumn;
-    Tv1Column14: TcxGridDBColumn;
     Tv1Column15: TcxGridDBColumn;
     Tv1Column16: TcxGridDBColumn;
     Tv1Column17: TcxGridDBColumn;
@@ -88,26 +92,25 @@ type
     Tv1Column22: TcxGridDBColumn;
     Tv1Column25: TcxGridDBColumn;
     Tv1Column28: TcxGridDBColumn;
-    Tv1Column24: TcxGridDBColumn;
-    Tv1Column26: TcxGridDBColumn;
-    Tv1Column23: TcxGridDBColumn;
     Tv1Column29: TcxGridDBColumn;
     Tv1Column30: TcxGridDBColumn;
     Tv1Column31: TcxGridDBColumn;
     Tv1Column32: TcxGridDBColumn;
-    cxGrid1Level1: TcxGridLevel;
-    GPM_1: TcxGridPopupMenu;
-    CDS_1: TClientDataSet;
-    DS_1: TDataSource;
-    Tv1Column33: TcxGridDBColumn;
-    Tv1Column34: TcxGridDBColumn;
-    Tv1Column35: TcxGridDBColumn;
     Tv1Column36: TcxGridDBColumn;
-    Tv1Column37: TcxGridDBColumn;
+    Tv1Column39: TcxGridDBColumn;
+    Tv1Column40: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    GPM_2: TcxGridPopupMenu;
+    CDS_2: TClientDataSet;
+    DS_2: TDataSource;
+    ADO_2: TADOQuery;
+    Label5: TLabel;
+    Label6: TLabel;
+    C_Color: TcxTextEdit;
+    C_ColorNo: TcxTextEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);
-    procedure ConNoMChange(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBFindClick(Sender: TObject);
@@ -117,9 +120,12 @@ type
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure ToolButton2Click(Sender: TObject);
     procedure FromCoNameKeyPress(Sender: TObject; var Key: Char);
-    procedure FromCoNamePropertiesChange(Sender: TObject);
+    procedure TV2DblClick(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
   private
     procedure InitGrid();
+    procedure InitGrid1();
+    procedure InitGrid2();
     { Private declarations }
   public
     FstkName, FC_Degree, FStkIdS: string;
@@ -142,6 +148,16 @@ begin
   frmTradeTotallClothStkSel := nil;
 end;
 
+procedure TfrmTradeTotallClothStkSel.cxPageControl1Change(Sender: TObject);
+begin
+  case cxPageControl1.ActivePageIndex of
+    1:
+      begin
+        InitGrid1();
+      end;
+  end;
+end;
+
 procedure TfrmTradeTotallClothStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   inherited;
@@ -149,42 +165,77 @@ begin
 end;
 
 procedure TfrmTradeTotallClothStkSel.InitGrid();
+begin
+  case cxPageControl1.ActivePageIndex of
+    0:
+      begin
+        InitGrid2();
+      end;
+    1:
+      begin
+
+        InitGrid1();
+      end;
+  end;
+
+end;
+
+procedure TfrmTradeTotallClothStkSel.InitGrid1();
 var
-  SqlStr: string;
+  SqlStr, WSqlStr: string;
 begin
 
-  SqlStr := ' select A.*,StkPieceint=CEILING(A.StkPiece),B.BuyRepresentative,B.BuyAddress,B.BuyTel ';
+  SqlStr := ' select A.*,StkPieceint=CEILING(A.StkPiece) ';
-  SqlStr := SqlStr + ' from BS_Cloth_IO A  left join Bs_Contract_Main B on A.FROMConMId=B.ConMId  ';
+  SqlStr := SqlStr + ' from BS_Cloth_IO A    ';
   SqlStr := SqlStr + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
-//  SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
+  SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
+
   if Trim(FStkIdS) <> '' then
     SqlStr := SqlStr + '   and not EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + Quotedstr(FStkIdS) + ','','') SP where SP.RTValue=A.BCIOID ) ';
 
   if FC_Degree <> '' then
     SqlStr := SqlStr + ' and isnull(C_Degree,'''')=''' + Trim(FC_Degree) + '''';
 
+  WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"C_Code|C_Name|C_Color|C_ColorNo|C_Pattern|C_Degree|QtyUnit"}');
+  if TRIM(WSqlStr) <> '' then
+    SqlStr := SqlStr + ' and ' + WSqlStr;
+
   SqlStr := SqlStr + ' order by IOTime desc';
 
-  InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
+  InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
+
+end;
+
+procedure TfrmTradeTotallClothStkSel.InitGrid2();
+var
+  SqlStr, WSqlStr: string;
+begin
+
+  SqlStr := ' select A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty),QtyUnit ';
+  SqlStr := SqlStr + ' from BS_Cloth_IO A    ';
+  SqlStr := SqlStr + ' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ';
+  SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
+
+  if Trim(FStkIdS) <> '' then
+    SqlStr := SqlStr + '   and not EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + Quotedstr(FStkIdS) + ','','') SP where SP.RTValue=A.BCIOID ) ';
+
+  if FC_Degree <> '' then
+    SqlStr := SqlStr + ' and isnull(C_Degree,'''')=''' + Trim(FC_Degree) + '''';
+
+  SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
+
+//  ShowMessage(SqlStr);
+  InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
 
 end;
 
 procedure TfrmTradeTotallClothStkSel.TBRafreshClick(Sender: TObject);
 begin
-  InitGrid();
+  InitGrid2();
-end;
-
-procedure TfrmTradeTotallClothStkSel.ConNoMChange(Sender: TObject);
-begin
-  if ADOQueryMain.Active then
-  begin
-    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
-  end;
 end;
 
 procedure TfrmTradeTotallClothStkSel.TBCloseClick(Sender: TObject);
 begin
-
   Close;
 end;
 
@@ -192,31 +243,28 @@ procedure TfrmTradeTotallClothStkSel.FormShow(Sender: TObject);
 begin
   inherited;
   ReadCxGrid(trim(self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
-  InitGrid();
+  InitGrid2();
 end;
 
 procedure TfrmTradeTotallClothStkSel.FromCoNameKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
   begin
-    InitGrid();
+    TBFind.Click;
   end;
 end;
 
-procedure TfrmTradeTotallClothStkSel.FromCoNamePropertiesChange(Sender: TObject);
-begin
-  if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
-    Exit;
-  TBFind.Click;
-end;
-
 procedure TfrmTradeTotallClothStkSel.TBFindClick(Sender: TObject);
 begin
-  if ADOQueryMain.Active then
+  case cxPageControl1.ActivePageIndex of
-  begin
+    0:
-    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+      begin
-    SCreateCDS(ADOQueryMain, CDS_1);
+        CDSDataFilter(ADO_2, CDS_2, Tv2, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, '  {"EquTag": 1,"LikeTag": 2,"Fields": "C_name|C_Color|C_ColorNo"}') + '"  }');
-    SInitCDSData(ADOQueryMain, CDS_1);
+      end;
+    1:
+      begin
+        CDSDataFilter(ADO_1, CDS_1, Tv1, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, '  {"EquTag": 1,"LikeTag": 2,"Fields": ""}') + '"  }');
+      end;
   end;
 end;
 
@@ -252,5 +300,11 @@ begin
   ModalResult := 1;
 end;
 
+procedure TfrmTradeTotallClothStkSel.TV2DblClick(Sender: TObject);
+begin
+  cxPageControl1.ActivePageIndex := 1;
+
+end;
+
 end.
 

T05贸易门市管理/U_TradeDispatchedList.dfm

@@ -153,7 +153,9 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       Width = 1536
       Height = 37
       Align = alTop
+      Color = clWhite
       ParentBackground = False
+      ParentColor = False
       TabOrder = 3
       ExplicitLeft = 2
       ExplicitTop = 2

T05贸易门市管理/U_TradeDispatchedList.pas

@@ -15,7 +15,8 @@ uses
   IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
   dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
-  dxScrollbarAnnotations, cxProgressBar, FrameDateSel;
+  dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
+  dxSkinsDefaultPainters;
 
 type
   TfrmTradeDispatchedList = class(TfrmBaseList)