回仓调整

A01基础公司管理/U_EmployeeInPut.dfm

@@ -78,10 +78,9 @@ object frmYGInPut: TfrmYGInPut
     Height = 502
     Align = alClient
     TabOrder = 1
-    ExplicitTop = 38
-    ExplicitHeight = 494
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <>
@@ -93,24 +92,28 @@ object frmYGInPut: TfrmYGInPut
       object v1RuZhiDate: TcxGridDBColumn
         Caption = #20837#32844#26085#26399
         DataBinding.FieldName = 'EntryDate'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 97
       end
       object v1YGNo: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'EECode'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 88
       end
       object v1YGName: TcxGridDBColumn
         Caption = #22995#21517
         DataBinding.FieldName = 'EEName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 88
       end
       object v1Column1: TcxGridDBColumn
         Caption = #37096#38376
         DataBinding.FieldName = 'Dept'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 80
@@ -118,18 +121,21 @@ object frmYGInPut: TfrmYGInPut
       object v1GangWei: TcxGridDBColumn
         Caption = #23703#20301
         DataBinding.FieldName = 'Post'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 82
       end
       object v1SFZNo: TcxGridDBColumn
         Caption = #29983#26085
         DataBinding.FieldName = 'Birthday'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
       object v1YGSex: TcxGridDBColumn
         Caption = #24615#21035
         DataBinding.FieldName = 'Sex'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsEditFixedList
         Properties.Items.Strings = (
@@ -141,36 +147,42 @@ object frmYGInPut: TfrmYGInPut
       object v1Phone: TcxGridDBColumn
         Caption = #25163#26426
         DataBinding.FieldName = 'Phone'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 91
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #36523#20221#35777
         DataBinding.FieldName = 'IdCard'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 73
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #36523#20221#35777#21040#26399#26085#26399
         DataBinding.FieldName = 'IDCardEndData'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 115
       end
       object Tv1Column3: TcxGridDBColumn
         Caption = #23478#24237#20303#22336
         DataBinding.FieldName = 'HomeAddress'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 104
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #25143#21475#25152#22312#22320
         DataBinding.FieldName = 'Domicile'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 91
       end
       object Tv1Column5: TcxGridDBColumn
         Caption = #31038#20445
         DataBinding.FieldName = 'SocialSecurity'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.Items.Strings = (
           ''
@@ -181,6 +193,7 @@ object frmYGInPut: TfrmYGInPut
       object Tv1Column6: TcxGridDBColumn
         Caption = #21830#19994#20445#38505
         DataBinding.FieldName = 'CommercialInsurance'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.Items.Strings = (
           ''

A01基础公司管理/U_EmployeeInPut.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, Menus,
   ExtDlgs, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 
-   dxDateRanges, dxBarBuiltInMenu;
+   dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
+  dxScrollbarAnnotations;
 
 type
   TfrmYGInPut = class(TForm)
@@ -172,20 +173,20 @@ begin
           Edit;
           FieldByName('EEID').Value := Trim(maxno);
         end;
-
+//
-        with ADOCmd do
+//        with ADOCmd do
-        begin
+//        begin
-          Close;
+//          Close;
-          SQL.Clear;
+//          SQL.Clear;
-          sql.Add('exec P_EE_in_Account @DataID=''' + Trim(maxno) + '''');
+//          sql.Add('exec P_EE_in_Account @DataID=''' + Trim(maxno) + '''');
-          Open;
+//          Open;
-        end;
+//        end;
-        if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
+//        if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
-        begin
+//        begin
-          ADOCmd.Connection.RollbackTrans;
+//          ADOCmd.Connection.RollbackTrans;
-          Application.MessageBox(PChar(ADOCmd.fieldbyname('ShowMsg').AsString), 'Ìáʾ', 0);
+//          Application.MessageBox(PChar(ADOCmd.fieldbyname('ShowMsg').AsString), 'Ìáʾ', 0);
-          exit;
+//          exit;
-        end;
+//        end;
 
         next;
       end;

A01基础公司管理/U_EmployeeList.pas

@@ -13,7 +13,7 @@ uses
   cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData,
   cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu,
   cxNavigator, U_BaseList, dxDateRanges, cxContainer, cxTextEdit,
-  dxScrollbarAnnotations, cxProgressBar;
+  dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
 
 type
   TfrmEmployeeList = class(TfrmBaseList)

T02贸易汇总仓库/TradeTotalClothStk.dpr

@@ -48,7 +48,7 @@ uses
   U_TradeClothProcessNoteInput in 'U_TradeClothProcessNoteInput.pas' {frmTradeClothProcessNoteInput},
   U_TradeFtyClothInEdit in 'U_TradeFtyClothInEdit.pas' {frmTradeFtyClothInEdit},
   U_TradeClothTotalInList in 'U_TradeClothTotalInList.pas' {frmTradeClothTotalInList},
-  U_TradeClothTotalOutList in 'U_TradeClothTotalOutList.pas' {frmTradeClothTotalOutList},
+  U_TradeClothTotalPHList in '..\T05贸易门市管理\U_TradeClothTotalPHList.pas' {frmTradeClothTotalOutList},
   U_TradeClothCardCompleteList in '..\T01óÒ×Éú²ú¼Æ»®\U_TradeClothCardCompleteList.pas' {frmTradeClothCompleteInput},
   FrameDateSel in '..\A00ͨÓÃ×é¼þ\FrameDateSel.pas' {frmFrameDateSel: TFrame},
   U_TradePlanClothEnterInput in 'U_TradePlanClothEnterInput.pas' {frmTradePlanClothEnterInput},

T02贸易汇总仓库/TradeTotalClothStk.dproj

@@ -277,7 +277,7 @@
             <Form>frmTradeClothTotalInList</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="U_TradeClothTotalOutList.pas">
+        <DCCReference Include="..\T05贸易门市管理\U_TradeClothTotalPHList.pas">
             <Form>frmTradeClothTotalOutList</Form>
             <FormType>dfm</FormType>
         </DCCReference>

T02贸易汇总仓库/U_ClothPurchaseEnterList.pas

@@ -32,7 +32,6 @@ type
     BuyName: TcxTextEdit;
     PurNo: TcxTextEdit;
     cxTabControl1: TcxTabControl;
-    cxSplitter1: TcxSplitter;
     CDS_1: TClientDataSet;
     Label3: TLabel;
     SellName: TcxTextEdit;
@@ -62,74 +61,26 @@ type
     TV1Column4: TcxGridDBColumn;
     TV1Column7: TcxGridDBColumn;
     TV1Column8: TcxGridDBColumn;
-    ToolButton1: TToolButton;
-    DS_2: TDataSource;
-    CDS_2: TClientDataSet;
-    GPM_2: TcxGridPopupMenu;
-    ADO_2: TADOQuery;
     TV1Column5: TcxGridDBColumn;
     TV1Column6: TcxGridDBColumn;
     TV1Column9: TcxGridDBColumn;
-    TV1Column12: TcxGridDBColumn;
+    Label1: TLabel;
-    TV1Column13: TcxGridDBColumn;
+    C_Name: TcxTextEdit;
-    TV1Column14: TcxGridDBColumn;
+    Panel2: TPanel;
-    ToolBar2: TToolBar;
+    cxSplitter1: TcxSplitter;
-    ToolButton2: TToolButton;
-    ToolButton3: TToolButton;
-    ToolButton4: TToolButton;
-    ToolButton5: TToolButton;
-    ToolButton6: TToolButton;
-    cxPageControl1: TcxPageControl;
-    cxTabSheet2: TcxTabSheet;
-    cxTabSheet3: TcxTabSheet;
     cxGrid2: TcxGrid;
     TV2: TcxGridDBTableView;
+    cxGridLevel2: TcxGridLevel;
     TV2Column1: TcxGridDBColumn;
-    v1Column10: TcxGridDBColumn;
-    v1Column15: TcxGridDBColumn;
-    v2Column6: TcxGridDBColumn;
-    v1Column3: TcxGridDBColumn;
-    cxGridDBColumn7: TcxGridDBColumn;
-    v1Column12: TcxGridDBColumn;
-    cxGridDBColumn13: TcxGridDBColumn;
-    cxGridDBColumn14: TcxGridDBColumn;
-    Tv1Column10: TcxGridDBColumn;
-    cxGrid1Level1: TcxGridLevel;
-    cxGrid3: TcxGrid;
-    TV3: TcxGridDBTableView;
-    cxGridDBColumn15: TcxGridDBColumn;
-    TV3Column1: TcxGridDBColumn;
-    TV3Column3: TcxGridDBColumn;
-    TV3Column2: TcxGridDBColumn;
-    cxGridDBColumn16: TcxGridDBColumn;
-    cxGridDBColumn27: TcxGridDBColumn;
-    cxGridDBColumn28: TcxGridDBColumn;
-    cxGridDBColumn29: TcxGridDBColumn;
-    cxGridDBColumn30: TcxGridDBColumn;
-    cxGridDBColumn31: TcxGridDBColumn;
-    cxGridDBColumn32: TcxGridDBColumn;
-    cxGridDBColumn33: TcxGridDBColumn;
-    cxGridDBColumn34: TcxGridDBColumn;
-    cxGridDBColumn35: TcxGridDBColumn;
-    cxGridDBColumn36: TcxGridDBColumn;
-    cxGridLevel4: TcxGridLevel;
-    ADO_3: TADOQuery;
-    GPM_3: TcxGridPopupMenu;
-    CDS_3: TClientDataSet;
-    DS_3: TDataSource;
-    ToolButton8: TToolButton;
     TV2Column2: TcxGridDBColumn;
-    Label1: TLabel;
-    Label2: TLabel;
-    GC_Name: TcxTextEdit;
-    CraftCode: TcxTextEdit;
     TV2Column3: TcxGridDBColumn;
     TV2Column4: TcxGridDBColumn;
-    TV2Column5: TcxGridDBColumn;
+    ADO_2: TADOQuery;
-    TV2Column6: TcxGridDBColumn;
+    GPM_2: TcxGridPopupMenu;
-    TV3Column4: TcxGridDBColumn;
+    DS_2: TDataSource;
-    TV3Column5: TcxGridDBColumn;
+    ToolBar2: TToolBar;
-    TV2Column7: TcxGridDBColumn;
+    ToolButton5: TToolButton;
+    ToolButton1: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure TBFindClick(Sender: TObject);
@@ -146,30 +97,22 @@ type
     procedure FormCreate(Sender: TObject);
     procedure N5Click(Sender: TObject);
     procedure N6Click(Sender: TObject);
-    procedure ToolButton1Click(Sender: TObject);
-    procedure ToolButton2Click(Sender: TObject);
-    procedure ToolButton3Click(Sender: TObject);
-    procedure ToolButton4Click(Sender: TObject);
     procedure PurNoPropertiesChange(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
     procedure ToolButton6Click(Sender: TObject);
-    procedure cxPageControl1Change(Sender: TObject);
-    procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
-    procedure ToolButton8Click(Sender: TObject);
     procedure cxButton4Click(Sender: TObject);
     procedure cxButton1Click(Sender: TObject);
     procedure cxButton5Click(Sender: TObject);
     procedure cxButton2Click(Sender: TObject);
     procedure cxButton3Click(Sender: TObject);
     procedure PurNoKeyPress(Sender: TObject; var Key: Char);
+    procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+    procedure ToolButton1Click(Sender: TObject);
   private
     fFlileFlag: string;
     procedure InitGrid();
-    procedure InitGridIO();
     procedure SetStatus();
-    procedure InitImage();
+    procedure InitGrid2();
-    procedure DelGrid2IO();
-    procedure DelGrid3IO();
     { Private declarations }
   public
 
@@ -179,53 +122,24 @@ type
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_LabelPrint, U_PurClothEnterInput, U_TradeCardInPut;
+  U_DataLink, U_RTFun, U_LabelPrint, U_PurClothEnterInput,
+  U_ClothPurchaseQtyInPut;
 
 {$R *.dfm}
-procedure TfrmClothPurchaseEnterList.InitGridIO();
+procedure TfrmClothPurchaseEnterList.InitGrid2();
 var
   SqlStr: string;
 begin
 
-  case cxPageControl1.ActivePageIndex of
-    0:
-      begin
-        SqlStr := ' select A.*,Pieceint=CEILING(A.Piece)';
-        SqlStr := SqlStr + ' from BS_Cloth_IO A    ';
-        SqlStr := SqlStr + 'where A.FromPurSId =  ' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString));
-        SqlStr := SqlStr + 'and A.IOType =''采购入库'' and STKName=''贸易布匹'' ';
-
-        InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', '');
-      end;
-    1:
-      begin
-        SqlStr := ' select A.*,Pieceint=CEILING(A.Piece)';
-        SqlStr := SqlStr + 'from BS_Cloth_IO A    ';
-        SqlStr := SqlStr + 'where EXISTS( select X.Stkid  from BS_Cloth_IO X    ';
-        SqlStr := SqlStr + '  where  X.IOType =''采购入库'' and X.Stkid=A.Stkid and X.FromPurSId =' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString)) + ')';
-        SqlStr := SqlStr + 'and A.IOFlag =''出库'' and STKName=''贸易布匹'' ';
-//        ShowMessage(SqlStr);
-        InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', '');
-      end;
-  end;
-
-end;
-
-procedure TfrmClothPurchaseEnterList.InitImage();
-begin
-
-  ADOQueryImage.Close;
   if CDS_1.IsEmpty then
-    exit;
+    EXIT;
-  with ADOQueryImage do
+  SqlStr := 'select A.BCIONO,IOTime=convert(varchar(10),A.IOTime,120) ,Qty=sum(A.Qty) ,Piece=sum(A.Piece)   ';
-  begin
+  SqlStr := SqlStr + 'from BS_Cloth_IO A                                                              ';
-    close;
+  SqlStr := SqlStr + 'where A.IOType=''²É¹ºÈë¿â'' and A.FromPurSId=' + quotedstr(trim(CDS_1.fieldbyname('PurSId').asstring));
-    sql.Clear;
+  SqlStr := SqlStr + 'group by A.BCIONO,convert(varchar(10),A.IOTime,120)  ';
-    sql.Add('select * from TP_File A');
+
-    sql.Add('where WBID=' + quotedstr(trim(CDS_1.fieldbyname('SubId').AsString)));
+  InitAdoData(ADO_2, Tv2, SqlStr, '', '');
-    sql.Add('and TFType=' + quotedstr(trim('HX')));
+
-    open;
-  end;
 end;
 
 procedure TfrmClothPurchaseEnterList.N1Click(Sender: TObject);
@@ -338,7 +252,6 @@ begin
   fFlileFlag := UserDataFlag + 'HX';
   readCxGrid(trim(Self.Caption) + 'tv1', Tv1, '成品仓库管理');
   readCxGrid(trim(Self.Caption) + 'tv2', Tv2, '成品仓库管理');
-  readCxGrid(trim(Self.Caption) + 'tv3', Tv3, '成品仓库管理');
   SetStatus();
   InitGrid();
 end;
@@ -397,11 +310,6 @@ begin
   InitGrid();
 end;
 
-procedure TfrmClothPurchaseEnterList.cxPageControl1Change(Sender: TObject);
-begin
-  InitGridIO();
-end;
-
 procedure TfrmClothPurchaseEnterList.cxTabControl1Change(Sender: TObject);
 begin
   SetStatus();
@@ -409,79 +317,17 @@ begin
 end;
 
 procedure TfrmClothPurchaseEnterList.ToolButton1Click(Sender: TObject);
-var
-  Maxno: string;
 begin
 
-  PurNo.SetFocus;
+  if ADO_2.IsEmpty then
-  if CDS_1.IsEmpty then
     Exit;
-  if Application.MessageBox('确定要保存回仓数据吗？', '提示', 32 + 4) <> IDYES then
-    Exit;
-
   try
-    ADOQueryCmd.Connection.BeginTrans;
+    frmClothPurchaseQtyInPut := TfrmClothPurchaseQtyInPut.Create(Application);
-
+    with frmClothPurchaseQtyInPut do
-    CDS_1.DisableControls;
-    with CDS_1 do
     begin
-      First;
+      FBCIONO := Trim(ADO_2.fieldbyname('BCIONO').AsString);
-      while not eof do
+      FQtyUnit := Trim(CDS_1.fieldbyname('QtyUnit').AsString);
-      begin
+      FPurMId := Trim(CDS_1.fieldbyname('PurMId').AsString);
-        if CDS_1.fieldbyname('BCHCQty').AsFloat > 0 then
-        begin
-
-          if not GetLSNo(ADOQueryCmd, Maxno, 'YR', 'BS_Yarn_IO', 3, 1) then
-            raise Exception.Create('取入库编号失败！');
-
-          with ADOQueryCmd do
-          begin
-            Close;
-            Sql.Clear;
-            sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
-            sql.Add('values(''贸易采购入库''    ');
-            sql.Add(',' + quotedstr(Trim(CDS_1.fieldbyname('BYIOID').AsString)));
-            sql.Add(',''删除''   ');
-            sql.Add(',' + quotedstr(DName));
-            sql.Add(',' + quotedstr(trim(self.Caption)));
-            sql.Add(',' + quotedstr(Trim(CDS_1.fieldbyname('BYIOID').AsString)));
-            sql.Add(')  ');
-
-            Sql.Add('exec P_BS_Yarn_OutReturn ');
-
-            Sql.Add(' @BYIOID=' + quotedstr(CDS_1.fieldbyname('BYIOID').AsString));
-            Sql.Add(',@Piece=' + CDS_1.fieldbyname('BCHCPiece').AsString);
-            Sql.Add(',@Qty=' + CDS_1.fieldbyname('BCHCQty').AsString);
-            Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-            Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-            Sql.Add(',@Maxno=' + quotedstr(Trim(Maxno)));
-            Open;
-          end;
-          if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-            raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-
-        end;
-        Next;
-      end;
-    end;
-    CDS_1.EnableControls;
-
-    ADOQueryCmd.Connection.CommitTrans;
-    InitGrid();
-  except
-    ADOQueryCmd.Connection.RollbackTrans;
-    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
-  end;
-
-end;
-
-procedure TfrmClothPurchaseEnterList.ToolButton2Click(Sender: TObject);
-begin
-  try
-    frmPurClothEnterInput := TfrmPurClothEnterInput.Create(Application);
-    with frmPurClothEnterInput do
-    begin
-      FBCIOID := '';
       FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString);
       if ShowModal = 1 then
       begin
@@ -489,220 +335,29 @@ begin
       end;
     end;
   finally
-    frmPurClothEnterInput.Free;
+    frmClothPurchaseQtyInPut.Free;
-  end;
-end;
-
-procedure TfrmClothPurchaseEnterList.ToolButton3Click(Sender: TObject);
-begin
-  if cxPageControl1.ActivePageIndex <> 0 then
-    Exit;
-
-  with ADOQueryTemp do
-  begin
-    Close;
-    Sql.Clear;
-    Sql.Add('exec P_BS_Cloth_In_Edit ');
-    Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_2.fieldbyname('BCIOID').AsString)));
-    Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-    Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-    Open;
-  end;
-  if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
-  begin
-    Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
-    exit;
-  end;
-  try
-    frmPurClothEnterInput := TfrmPurClothEnterInput.Create(Application);
-    with frmPurClothEnterInput do
-    begin
-      FBCIOID := Trim(CDS_2.fieldbyname('BCIOID').AsString);
-      FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString);
-      if ShowModal = 1 then
-      begin
-        Self.InitGrid();
-      end;
-    end;
-  finally
-    frmPurClothEnterInput.Free;
-  end;
-end;
-
-procedure TfrmClothPurchaseEnterList.ToolButton4Click(Sender: TObject);
-begin
-
-  case cxPageControl1.ActivePageIndex of
-
-    0:
-      begin
-        DelGrid2IO()
-      end;
-
-    1:
-      begin
-        DelGrid3IO()
-      end;
-  end;
-
-end;
-
-procedure TfrmClothPurchaseEnterList.DelGrid2IO();
-var
-  MBCIOID, MBCIONO: string;
-begin
-  if CDS_2.IsEmpty then
-    Exit;
-  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
-    Exit;
-  MBCIOID := Trim(CDS_2.fieldbyname('BCIOID').AsString);
-  MBCIONO := Trim(CDS_2.fieldbyname('BCIONO').AsString);
-  with ADOQueryTemp do
-  begin
-    Close;
-    sql.Clear;
-    sql.Add('exec P_Fin_Flow_Judge ');
-    Sql.Add(' @FFIDS=' + quotedstr(MBCIONO));
-    Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-    Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-    Open;
-  end;
-  if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
-  begin
-    Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
-    exit;
-  end;
-  try
-    ADOQueryCmd.Connection.BeginTrans;
-    with ADOQueryCmd do
-    begin
-      Close;
-      Sql.Clear;
-      sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
-      sql.Add('values(''贸易布坯入库''    ');
-      sql.Add(',' + quotedstr(MBCIONO));
-      sql.Add(',''删除''   ');
-      sql.Add(',' + quotedstr(DName));
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(MBCIOID));
-      sql.Add(')  ');
-
-      Sql.Add('exec P_BS_Cloth_In_Del ');
-      Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
-      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-      Open;
-    end;
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-    ADOQueryCmd.Connection.CommitTrans;
-    InitGrid();
-  except
-    ADOQueryCmd.Connection.RollbackTrans;
-    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
-    InitGrid();
-  end;
-
-end;
-
-procedure TfrmClothPurchaseEnterList.DelGrid3IO();
-var
-  MBCIOID: string;
-begin
-  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
-    Exit;
-
-  MBCIOID := SelCDSKey(CDS_3, ['BCIOID'])[0];
-
-  with ADOQueryTemp do
-  begin
-    Close;
-    sql.Clear;
-    sql.Add('exec P_Fin_Flow_Judge ');
-    Sql.Add(' @FFIDS=' + quotedstr(MBCIOID));
-    Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-    Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-    Open;
-  end;
-
-  if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
-  begin
-    Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
-    exit;
-  end;
-
-  try
-    ADOQueryCmd.Connection.BeginTrans;
-    with ADOQueryCmd do
-    begin
-      Close;
-      Sql.Clear;
-      sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
-      sql.Add('values(''贸易坯布出库''    ');
-      sql.Add(',' + quotedstr(MBCIOID));
-      sql.Add(',''删除''   ');
-      sql.Add(',' + quotedstr(DName));
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(MBCIOID));
-      sql.Add(')  ');
-
-      Sql.Add('exec P_BS_Cloth_Out_Del ');
-      Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
-      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-//      ShowMessage(sql.Text);
-      Open;
-    end;
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-    ADOQueryCmd.Connection.CommitTrans;
-    InitGridIO();
-  except
-    ADOQueryCmd.Connection.RollbackTrans;
-    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
-    InitGridIO();
   end;
 
 end;
 
 procedure TfrmClothPurchaseEnterList.ToolButton5Click(Sender: TObject);
-var
-  MPurMIdS: string;
 begin
-  if CDS_1.IsEmpty then
-    exit;
-  MPurMIdS := trim(CDS_1.fieldbyname('PurMId').AsString);
-
   try
-    with ADOQueryCmd do
+    frmClothPurchaseQtyInPut := TfrmClothPurchaseQtyInPut.Create(Application);
+    with frmClothPurchaseQtyInPut do
     begin
-      Close;
+      FBCIONO := '';
-      sql.Clear;
+      FQtyUnit := Trim(CDS_1.fieldbyname('QtyUnit').AsString);
-      sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
+      FPurMId := Trim(CDS_1.fieldbyname('PurMId').AsString);
-      sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
+      FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString);
-      sql.Add(',@Operation=''完成'' ');
+      if ShowModal = 1 then
-      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      begin
-      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+        Self.InitGrid();
-
+      end;
-      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
-      sql.Add(' ' + quotedstr(trim(DName)));
-      sql.Add(',getdate() ');
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(trim('合同完成')));
-      sql.Add(',' + quotedstr(trim('采购计划ID：' + trim(MPurMIdS))));
-      sql.Add(',' + quotedstr(trim('成功')));
-      sql.Add(')');
-      open;
     end;
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+  finally
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    frmClothPurchaseQtyInPut.Free;
-    application.MessageBox('完成成功', '提示');
-    InitGrid();
-  except
-    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
-    InitGrid();
   end;
-
 end;
 
 procedure TfrmClothPurchaseEnterList.ToolButton6Click(Sender: TObject);
@@ -750,31 +405,11 @@ procedure TfrmClothPurchaseEnterList.ToolButton7Click(Sender: TObject);
 begin
   writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, '成品仓库管理');
   writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, '成品仓库管理');
-  writeCxGrid(trim(Self.Caption) + 'tv3', Tv3, '成品仓库管理');
-end;
-
-procedure TfrmClothPurchaseEnterList.ToolButton8Click(Sender: TObject);
-begin
-  try
-    frmTradeCardInPut := TfrmTradeCardInPut.Create(Application);
-    with frmTradeCardInPut do
-    begin
-      FPursId := Trim(Self.CDS_1.fieldbyname('PursId').AsString);
-      FMainId := '';
-      FSubId := '';
-      if ShowModal = 1 then
-      begin
-        InitGridIO();
-      end;
-    end;
-  finally
-    frmTradeCardInPut.Free;
-  end;
 end;
 
 procedure TfrmClothPurchaseEnterList.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
 begin
-  InitGridIO();
+  InitGrid2();
 end;
 
 end.

T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm

@@ -0,0 +1,314 @@
+inherited frmClothPurchaseQtyInPut: TfrmClothPurchaseQtyInPut
+  Left = 67
+  Top = 126
+  Caption = #26126#32454#20837#24211#30331#35760
+  ClientHeight = 499
+  ClientWidth = 917
+  Font.Charset = GB2312_CHARSET
+  Font.Height = -16
+  Position = poScreenCenter
+  OnClose = FormClose
+  ExplicitWidth = 933
+  ExplicitHeight = 538
+  PixelsPerInch = 96
+  TextHeight = 21
+  object pnl1: TPanel [0]
+    Left = 0
+    Top = 0
+    Width = 917
+    Height = 499
+    Align = alClient
+    Caption = 'pnl1'
+    TabOrder = 0
+    object cxGrid1: TcxGrid
+      Tag = 2
+      Left = 1
+      Top = 72
+      Width = 915
+      Height = 426
+      Align = alClient
+      TabOrder = 0
+      ExplicitLeft = 0
+      ExplicitTop = 69
+      object Tv1: TcxGridDBTableView
+        OnKeyDown = Tv1KeyDown
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DataSource3
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = Tv1Column2
+          end
+          item
+            Kind = skSum
+            Column = Tv1Column3
+          end
+          item
+            Kind = skSum
+            Column = Tv1Column4
+          end
+          item
+            Kind = skSum
+            Column = Tv1Column5
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsCustomize.ColumnSorting = False
+        OptionsSelection.MultiSelect = True
+        OptionsSelection.CellMultiSelect = True
+        OptionsSelection.InvertSelect = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.Indicator = True
+        object Tv1Column6: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'Piece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 91
+        end
+        object Tv1Column2: TcxGridDBColumn
+          Caption = #27611#37325
+          DataBinding.FieldName = 'GrossWeight'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 143
+        end
+        object Tv1Column3: TcxGridDBColumn
+          Caption = #20928#37325
+          DataBinding.FieldName = 'NetWeight'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 103
+        end
+        object Tv1Column4: TcxGridDBColumn
+          Caption = #31859#25968
+          DataBinding.FieldName = 'Meter'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 105
+        end
+        object Tv1Column5: TcxGridDBColumn
+          Caption = #30721#25968
+          DataBinding.FieldName = 'Yardage'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 107
+        end
+        object Tv1Column1: TcxGridDBColumn
+          Tag = 7
+          Caption = #26465#30721
+          DataBinding.FieldName = 'BCIOID'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 112
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv1
+      end
+    end
+    object tlb1: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 1
+      Width = 915
+      Height = 30
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 83
+      Caption = 'ToolBar1'
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      Images = DataLink_TradeTotalClothStk.cxImageList_bar
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object TBSave: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #20445#23384
+        ImageIndex = 16
+        OnClick = TBSaveClick
+      end
+      object btnAdd: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #26032#22686
+        ImageIndex = 2
+        OnClick = btnAddClick
+      end
+      object btndaoru: TToolButton
+        Left = 126
+        Top = 0
+        AutoSize = True
+        Caption = #23548#20837
+        ImageIndex = 28
+        OnClick = btndaoruClick
+      end
+      object btn3: TToolButton
+        Left = 189
+        Top = 0
+        AutoSize = True
+        Caption = #21024#38500
+        ImageIndex = 6
+        OnClick = TBDelClick
+      end
+      object btn4: TToolButton
+        Left = 252
+        Top = 0
+        AutoSize = True
+        Caption = #20445#23384#26684#24335
+        ImageIndex = 16
+      end
+      object ToolButton2: TToolButton
+        Left = 339
+        Top = 0
+        AutoSize = True
+        Caption = #25171#21360#26412#21333
+        ImageIndex = 21
+        OnClick = ToolButton2Click
+      end
+      object TBClose: TToolButton
+        Left = 426
+        Top = 0
+        AutoSize = True
+        Caption = #20851#38381
+        ImageIndex = 7
+        OnClick = ToolButton5Click
+      end
+    end
+    object pnl2: TPanel
+      Left = 1
+      Top = 31
+      Width = 915
+      Height = 41
+      Align = alTop
+      TabOrder = 2
+      object Label9: TLabel
+        Left = 33
+        Top = 7
+        Width = 32
+        Height = 21
+        Caption = #21305#25968
+      end
+      object Label13: TLabel
+        Left = 171
+        Top = 7
+        Width = 32
+        Height = 21
+        Caption = #25968#37327
+      end
+      object lbl5: TLabel
+        Left = 309
+        Top = 7
+        Width = 32
+        Height = 21
+        Caption = #26085#26399
+      end
+      object inPiece: TcxCurrencyEdit
+        Left = 69
+        Top = 3
+        Properties.AssignedValues.DisplayFormat = True
+        TabOrder = 0
+        Width = 98
+      end
+      object inQty: TcxCurrencyEdit
+        Left = 207
+        Top = 3
+        Properties.AssignedValues.DisplayFormat = True
+        TabOrder = 1
+        OnKeyPress = inQtyKeyPress
+        Width = 98
+      end
+      object IOTime: TcxDateEdit
+        Left = 345
+        Top = 3
+        Properties.ShowTime = False
+        TabOrder = 2
+        Width = 200
+      end
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Left = 407
+    Top = 402
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Left = 201
+    Top = 297
+  end
+  inherited ImageList_new32: TImageList
+    Left = 80
+    Top = 208
+  end
+  inherited cxImageList_bar: TcxImageList
+    FormatVersion = 1
+    Left = 586
+    Top = 129
+    DesignInfo = 8454730
+  end
+  object DataSource3: TDataSource
+    DataSet = CDS_Sub
+    Left = 749
+    Top = 250
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 645
+    Top = 224
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Parameters = <>
+    Left = 68
+    Top = 378
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 368
+    Top = 192
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 211
+    Top = 379
+  end
+  object GPM_1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 472
+    Top = 294
+  end
+  object CDS_LM: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 664
+    Top = 370
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 522
+    Top = 338
+  end
+end

T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas

@@ -0,0 +1,673 @@
+unit U_ClothPurchaseQtyInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  System.Types, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls,
+  ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
+  cxTextEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters,
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
+  Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
+  cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd;
+
+type
+  TfrmClothPurchaseQtyInPut = class(TfrmBaseInput)
+    DataSource3: TDataSource;
+    CDS_Sub: TClientDataSet;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    GPM_1: TcxGridPopupMenu;
+    CDS_LM: TClientDataSet;
+    OpenDialog1: TOpenDialog;
+    pnl1: TPanel;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    tlb1: TToolBar;
+    btnAdd: TToolButton;
+    btn3: TToolButton;
+    btn4: TToolButton;
+    pnl2: TPanel;
+    inPiece: TcxCurrencyEdit;
+    Label9: TLabel;
+    inQty: TcxCurrencyEdit;
+    Label13: TLabel;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    btndaoru: TToolButton;
+    ToolButton2: TToolButton;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    Tv1Column1: TcxGridDBColumn;
+    lbl5: TLabel;
+    IOTime: TcxDateEdit;
+    Tv1Column6: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormShow(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure FromCoNameDblClick(Sender: TObject);
+    procedure inQtyKeyPress(Sender: TObject; var Key: Char);
+    procedure btndaoruClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure btnAddClick(Sender: TObject);
+    procedure Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveData(): Boolean;
+    procedure NianTie();
+    function Split(const s: string; Separator: char): TStringDynArray;
+  public
+    { Public declarations }
+    FBCIONO, FPurMId, FPurSId, FQtyUnit: string;
+  end;
+
+var
+  frmClothPurchaseQtyInPut: TfrmClothPurchaseQtyInPut;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_RPFun;
+
+{$R *.dfm}
+
+// 分割字符串函数
+function TfrmClothPurchaseQtyInPut.Split(const s: string; Separator: char): TStringDynArray;
+var
+  i, ItemIndex: Integer;
+  len: Integer;
+  SeparatorCount: Integer;
+  Start: Integer;
+begin
+  len := Length(s);
+  if len = 0 then
+  begin
+    Result := nil;
+    Exit;
+  end;
+
+  // 计算分隔符数量
+  SeparatorCount := 0;
+  for i := 1 to len do
+    if s[i] = Separator then
+      Inc(SeparatorCount);
+
+  SetLength(Result, SeparatorCount + 1);
+  ItemIndex := 0;
+  Start := 1;
+
+  // 拆分字符串
+  for i := 1 to len do
+  begin
+    if s[i] = Separator then
+    begin
+      Result[ItemIndex] := Copy(s, Start, i - Start);
+      Inc(ItemIndex);
+      Start := i + 1;
+    end;
+  end;
+
+  Result[ItemIndex] := Copy(s, Start, len - Start + 1);
+end;
+
+procedure TfrmClothPurchaseQtyInPut.NianTie();
+var
+  hmem: THandle;
+  pstr: PChar;
+  ArrStr: TStringList;
+  i, x, h, Row, Z: Integer;
+  FColumn: string;
+begin
+  //检查剪贴板类容类型
+  if IsClipboardFormatAvailable(CF_TEXT) then
+  begin
+    OpenClipboard(0);
+    hmem := GetClipboardData(CF_TEXT);
+    pstr := GlobalLock(hmem);
+//    Memo1.Text := pstr;
+    pstr := PChar(StringReplace(pstr, #$A, #$A#$3F, [rfReplaceAll]));
+//    pstr := PAnsiChar(StringReplace(pstr, #$D#$A#$D, #$D#$A#$20#$D, [rfReplaceAll]));
+    ArrStr := TStringList.Create;
+    ArrStr.Clear;
+    ExtractStrings([#13], [], PChar(pstr), ArrStr);
+    GlobalUnlock(hmem);
+    CloseClipboard;
+  end;
+  ArrStr.Delete(ArrStr.Count - 1);
+
+  Row := Tv1.Controller.FocusedRowIndex;
+
+  CDS_Sub.Locate('xhno', Row + 1, []);
+
+  x := (Tv1.DataController.RowCount - (Row + 1));
+
+//  showmessage(ArrStr.Text);
+  //自动增行
+  if x < ArrStr.count then
+  begin
+    for i := x to ArrStr.count - 2 do
+    begin
+      if VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]) = True then
+      begin
+        h := 0;
+      end
+      else
+        h := Tv1.DataController.Summary.FooterSummaryValues[0];
+      h := h + 1;
+      with CDS_Sub do
+      begin
+        Append;
+        FieldByName('XHNO').Value := IntToStr(h);
+        Post;
+      end;
+    end;
+  end;
+
+  CDS_Sub.Locate('xhno', Row + 1, []);
+  i := 0;
+  Z := 0;
+
+  FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+
+  with CDS_Sub do
+  begin
+    DisableControls;
+    while not Eof do
+    begin
+      edit;
+      if ArrStr.Count > i then
+      begin
+        CDS_Sub.FieldByName(FColumn).Value := StringReplace(ArrStr[i], '?', '', [rfReplaceAll]);
+      end
+      else
+        Break;
+      i := i + 1;
+      Post;
+      Next;
+    end;
+    EnableControls;
+  end;
+end;
+
+procedure TfrmClothPurchaseQtyInPut.btnAddClick(Sender: TObject);
+begin
+//  if CDS_Sub.IsEmpty = False then
+//  begin
+//    CopyAddRowCDS(CDS_Sub);
+//    with CDS_Sub do
+//    begin
+//      Edit;
+//      FieldByName('Piece').Value := 1;
+//      FieldByName('BCIOID').Value := null;
+//      FieldByName('StkCoNo').Value := '本厂仓库';
+//      FieldByName('StkCoName').Value := '本厂仓库';
+//      post;
+//    end;
+//  end
+//  else
+//  begin
+  with CDS_Sub do
+  begin
+    Append;
+    FieldByName('Piece').Value := 1;
+//      FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
+    FieldByName('StkCoNo').Value := '本厂仓库';
+    FieldByName('StkCoName').Value := '本厂仓库';
+
+    Post;
+  end;
+//  end;
+end;
+
+procedure TfrmClothPurchaseQtyInPut.btndaoruClick(Sender: TObject);
+var
+  excelApp, WorkBook: Variant;
+  i, j, k, LX, ExcelRowCount: integer;
+  maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
+begin
+
+  try
+    excelApp := CreateOleObject('Excel.Application');
+    openDialog1.Filter := '*.CSV;*.xls';
+    if opendialog1.Execute then
+    begin
+      WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
+    end
+    else
+      exit;
+    excelApp.Visible := false;
+    ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
+  except
+    application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
+    exit;
+  end;
+
+  CDS_LM.EmptyDataSet;
+
+  for j := 0 to Tv1.ColumnCount - 1 do
+  begin
+    with CDS_LM do
+    begin
+      Append;
+      FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
+      FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
+      Post;
+    end;
+  end;
+
+  try
+    for i := 1 to 50 do
+    begin
+      if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
+        continue;
+      if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
+      begin
+        with CDS_LM do
+        begin
+          Edit;
+          FieldByName('LXH').Value := i;
+          Post;
+        end;
+      end;
+    end;
+  except
+    application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
+    exit;
+  end;
+
+  try
+    for i := 2 to ExcelRowCount do
+    begin
+      with CDS_Sub do
+      begin
+        Append;
+        CDS_LM.First;
+        while not CDS_LM.Eof do
+        begin
+          if CDS_LM.FieldByName('LXH').AsInteger > 0 then
+            CDS_Sub.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
+          CDS_LM.Next;
+        end;
+        FieldByName('Piece').Value := 1;
+        Post;
+      end;
+    end;
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+  except
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+    exit;
+  end;
+
+end;
+
+procedure TfrmClothPurchaseQtyInPut.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmClothPurchaseQtyInPut.FormCreate(Sender: TObject);
+begin
+  inherited;
+  IOTime.Date := SGetServerDate(ADOQueryTemp);
+end;
+
+function TfrmClothPurchaseQtyInPut.SaveData(): Boolean;
+var
+  Maxno, MBCIOID: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+
+    if FBCIONo = '' then
+      if not GetLSNo(ADOQueryCmd, FBCIONo, 'RK', 'BS_Cloth_IO', 4, 1) then
+        raise Exception.Create('取染色坯布入库编号失败！');
+
+    CDS_Sub.DisableControls;
+    with CDS_Sub do
+    begin
+      First;
+      while not eof do
+      begin
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
+          open;
+        end;
+        MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
+        if Trim(MBCIOID) = '' then
+        begin
+          if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then
+            raise Exception.Create('取染色坯布入库编号失败！');
+        end
+        else
+        begin
+          Maxno := Trim(MBCIOID);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(MBCIOID) = '' then
+          begin
+            Append;
+            FieldByName('Fillid').Value := Trim(Dcode);
+            FieldByName('Filler').Value := Trim(DName);
+            FieldByName('BCIOID').Value := Trim(Maxno);
+            FieldByName('STKID').Value := Trim(Maxno);
+            FieldByName('CIID').Value := Trim(Maxno);
+          end
+          else
+          begin
+            Edit;
+            FieldByName('Editid').Value := Trim(Dcode);
+            FieldByName('Editer').Value := Trim(DName);
+            FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
+          end;
+          FieldByName('IOTime').Value := IOTime.Date;
+          RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0);
+          FieldByName('STKName').Value := '贸易布匹';
+          FieldByName('IOFlag').Value := '入库';
+          FieldByName('IOQtyFlag').Value := 1;
+          FieldByName('Piece').Value := 1;
+          FieldByName('Qty').Value := CDS_Sub.FieldByName('Qty').Value;
+          FieldByName('FromPurMId').Value := FPurMId;
+          FieldByName('FromPurSId').Value := FPurSId;
+          FieldByName('QtyUnit').Value := FQtyUnit;
+          Post;
+        end;
+
+        Next;
+      end;
+    end;
+
+    CDS_Sub.EnableControls;
+    with ADOQueryCmd do
+    begin
+      Close;
+      Sql.Clear;
+      Sql.Add('exec P_BS_Cloth_UpdateByPurchase ');
+      Sql.Add(' @PurSId=' + quotedstr(Trim(FPurSId)));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      Open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+
+    ADOQueryCmd.Connection.CommitTrans;
+
+    Result := True;
+  except
+    Result := False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+
+end;
+
+procedure TfrmClothPurchaseQtyInPut.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid('码单登记', Tv1, '贸易汇总仓库');
+
+  with CDS_LM do
+  begin
+    FieldDefs.Clear;
+    FieldDefs.Add('LXH', ftInteger, 0);
+    FieldDefs.Add('lCode', ftString, 40);
+    FieldDefs.Add('LName', ftString, 40);
+    close;
+    CreateDataSet;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' select A.* ');
+    sql.Add(' from BS_Cloth_IO A');
+    sql.Add(' where ioflag=''入库'' and BCIONo=''' + Trim(FBCIONo) + '''');
+    sql.Add(' order by qty desc ');
+    Open;
+  end;
+  if not ADOQueryTemp.IsEmpty then
+    IOTime.Date := ADOQueryTemp.FieldByName('IOTime').AsDateTime;
+
+  SCreateCDS(ADOQueryTemp, CDS_Sub);
+  SInitCDSData(ADOQueryTemp, CDS_Sub);
+end;
+
+procedure TfrmClothPurchaseQtyInPut.FromCoNameDblClick(Sender: TObject);
+begin
+  TcxButtonEdit(Sender).Text := '';
+  TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
+end;
+
+procedure TfrmClothPurchaseQtyInPut.inQtyKeyPress(Sender: TObject; var Key: Char);
+var
+  i: Integer;
+begin
+  if Key = #13 then
+  begin
+    with CDS_Sub do
+    begin
+      DisableControls;
+      for i := 1 to StrToIntDef(inPiece.Text, 1) do
+      begin
+        Append;
+
+        if FQtyUnit = 'M' then
+        begin
+          FieldByName('Meter').Value := StrTofloatDef(inQty.Text, 0);
+        end
+        else if FQtyUnit = 'Y' then
+        begin
+          FieldByName('Yardage').Value := StrTofloatDef(inQty.Text, 0);
+        end
+        else
+        begin
+          FieldByName('NetWeight').Value := StrTofloatDef(inQty.Text, 0);
+        end;
+
+        Post;
+      end;
+      EnableControls;
+    end;
+    inPiece.Text := '1';
+    inQty.Text := '';
+  end;
+end;
+
+procedure TfrmClothPurchaseQtyInPut.TBDelClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then
+    Exit;
+  if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+      Exit;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('exec P_Fin_Flow_Judge ');
+      Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      Open;
+    end;
+    if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
+    begin
+      Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
+      exit;
+    end;
+    try
+      ADOQueryCmd.Connection.BeginTrans;
+      with ADOQueryCmd do
+      begin
+        Close;
+        Sql.Clear;
+        sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
+        sql.Add('values(''贸易样布入库''    ');
+        sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
+        sql.Add(',''删除''   ');
+        sql.Add(',' + quotedstr(DName));
+        sql.Add(',' + quotedstr(trim(self.Caption)));
+        sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
+        sql.Add(')  ');
+
+        Sql.Add('exec P_BS_Cloth_In_Del ');
+        Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
+        Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+        Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+        Open;
+      end;
+      if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+        raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+      ADOQueryCmd.Connection.CommitTrans;
+      CDS_Sub.Delete;
+    except
+      ADOQueryCmd.Connection.RollbackTrans;
+      application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    end;
+  end
+  else
+  begin
+    CDS_Sub.Delete;
+  end;
+
+end;
+
+procedure TfrmClothPurchaseQtyInPut.TBSaveClick(Sender: TObject);
+var
+  Maxno: string;
+begin
+  if CDS_Sub.IsEmpty then
+    Exit;
+  with CDS_Sub do
+  begin
+    DisableControls;
+    First;
+    while not Eof do
+    begin
+
+      Edit;
+      if FQtyUnit = 'M' then
+      begin
+        FieldByName('Qty').Value := FieldByName('Meter').Value;
+      end
+      else if FQtyUnit = 'Y' then
+      begin
+        FieldByName('Qty').Value := FieldByName('Yardage').Value;
+      end
+      else
+      begin
+        FieldByName('Qty').Value := FieldByName('NetWeight').Value;
+      end;
+
+      Post;
+      Next;
+    end;
+    EnableControls;
+  end;
+  if CDS_Sub.Locate('Qty', null, []) = True then
+  begin
+    Application.MessageBox('数量不能为空!', '提示', 0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('Qty', 0, []) = True then
+  begin
+    Application.MessageBox('数量不能为0!', '提示', 0);
+    Exit;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!', '提示', 0);
+    ModalResult := 1;
+
+  end;
+end;
+
+procedure TfrmClothPurchaseQtyInPut.ToolButton2Click(Sender: TObject);
+var
+  MFiltration: string;
+  MPrintJson: string;
+begin
+  if CDS_sub.IsEmpty then
+    Exit;
+
+  if CDS_Sub.Locate('BCIOID', '', []) = True then
+  begin
+    Application.MessageBox('有数据未保存请先保存!', '提示', 0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('BCIOID', null, []) = True then
+  begin
+    Application.MessageBox('有数据未保存请先保存!', '提示', 0);
+    Exit;
+  end;
+  MFiltration := '';
+  with CDS_sub do
+  begin
+    First;
+    while not eof do
+    begin
+      MFiltration := MFiltration + ',' + CDS_sub.FieldByName('BCIOID').AsString;
+      next;
+    end;
+  end;
+
+  MPrintJson := '              {"LMType": "TradeFinishClothInPrt1"    ';
+  MPrintJson := MPrintJson + ' ,"PreviewPrint": true      ';
+  MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
+  MPrintJson := MPrintJson + '               { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
+  MPrintJson := MPrintJson + '               { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
+  MPrintJson := MPrintJson + '               { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
+  MPrintJson := MPrintJson + '               { "IsSql": false, "Filtration":" ' + MFiltration + '"  } ] }    ';
+  FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
+end;
+
+procedure TfrmClothPurchaseQtyInPut.ToolButton5Click(Sender: TObject);
+begin
+  inherited;
+  Close;
+end;
+
+procedure TfrmClothPurchaseQtyInPut.Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+
+  // 检测是否按下 Ctrl+V
+  if (Key = Ord('V')) and (Shift = [ssCtrl]) then
+  begin
+    pasteDatatTocxGrid(Tv1);
+
+  end;
+
+end;
+
+end.
+

T02贸易汇总仓库/U_ClothScheduleList.dfm

@@ -2,13 +2,15 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   Left = 246
   Top = 116
   Caption = #24067#21305#21152#24037#35745#21010
-  ClientHeight = 725
+  ClientHeight = 617
   ClientWidth = 1520
   Color = clBtnFace
   Font.Height = -16
   FormStyle = fsMDIChild
+  Visible = True
+  ExplicitTop = -10
   ExplicitWidth = 1536
-  ExplicitHeight = 764
+  ExplicitHeight = 656
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -193,10 +195,11 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     Left = 0
     Top = 143
     Width = 1520
-    Height = 313
+    Height = 205
     Align = alClient
     BorderStyle = cxcbsNone
     TabOrder = 2
+    ExplicitHeight = 313
     object TV1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -448,7 +451,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   object ToolBar2: TToolBar [3]
     Tag = 1
     Left = 0
-    Top = 456
+    Top = 348
     Width = 1520
     Height = 30
     Align = alBottom
@@ -463,6 +466,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     ParentColor = False
     ShowCaptions = True
     TabOrder = 3
+    ExplicitTop = 456
     object ToolButton5: TToolButton
       Left = 0
       Top = 0
@@ -515,7 +519,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   end
   object cxPageControl1: TcxPageControl [4]
     Left = 0
-    Top = 486
+    Top = 378
     Width = 1520
     Height = 239
     Align = alBottom
@@ -524,15 +528,13 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 5
     OnChange = cxPageControl1Change
+    ExplicitTop = 486
     ClientRectBottom = 239
     ClientRectRight = 1520
     ClientRectTop = 32
     object cxTabSheet2: TcxTabSheet
       Caption = '  '#37197#24067#25968#25454'  '
       ImageIndex = 1
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       object cxGrid2: TcxGrid
         Left = 0
         Top = 0
@@ -893,9 +895,6 @@ 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
@@ -1111,9 +1110,6 @@ 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
@@ -1308,9 +1304,6 @@ 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_GetDllForm.pas

@@ -135,7 +135,7 @@ begin
   //µ÷ÓÃ×ÓÄ£¿é´°¿Ú
   case FormID of
 
-    911:  //꽃뭔쀼꾑
+    911: //꽃뭔쀼꾑
       begin
         with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -145,7 +145,7 @@ begin
         end;
       end;
 
-    912:  //충죕<EFBFBD>끓갛탤
+    912: //충죕<EFBFBD>끓갛탤
       begin
         with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -155,7 +155,7 @@ begin
         end;
       end;
 
-    920:  //쯤데되션
+    920: //쯤데되션
       begin
         with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin

T02贸易汇总仓库/U_ItemizedListInPut.dfm

@@ -3,11 +3,11 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
   Top = 4
   Caption = #35746#21333#24405#20837
   ClientHeight = 593
-  ClientWidth = 1040
+  ClientWidth = 1153
   Font.Charset = GB2312_CHARSET
   Font.Height = -16
   Position = poMainFormCenter
-  ExplicitWidth = 1056
+  ExplicitWidth = 1169
   ExplicitHeight = 632
   PixelsPerInch = 96
   TextHeight = 21
@@ -15,7 +15,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
     Tag = 1
     Left = 0
     Top = 0
-    Width = 1040
+    Width = 1153
     Height = 30
     AutoSize = True
     ButtonHeight = 30
@@ -27,6 +27,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
     List = True
     ShowCaptions = True
     TabOrder = 0
+    ExplicitWidth = 1040
     object TBSave: TToolButton
       Left = 0
       Top = 0
@@ -72,7 +73,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
     Tag = 1
     Left = 0
     Top = 193
-    Width = 1040
+    Width = 1153
     Height = 30
     ButtonHeight = 30
     ButtonWidth = 99
@@ -83,6 +84,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
     List = True
     ShowCaptions = True
     TabOrder = 1
+    ExplicitWidth = 1040
     object btnAdd: TToolButton
       Left = 0
       Top = 0
@@ -112,27 +114,30 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
   object Panel2: TPanel [2]
     Left = 0
     Top = 223
-    Width = 1040
+    Width = 1153
     Height = 370
     Align = alClient
     Caption = 'Panel2'
     TabOrder = 2
+    ExplicitWidth = 1040
     object Panel3: TPanel
       Left = 1
       Top = 1
-      Width = 1038
+      Width = 1151
       Height = 368
       Align = alClient
       Caption = 'Panel2'
       TabOrder = 0
+      ExplicitWidth = 1038
       object cxGrid1: TcxGrid
         Left = 1
         Top = 1
-        Width = 1036
+        Width = 1149
         Height = 366
         Align = alClient
         PopupMenu = PopupMenu2
         TabOrder = 0
+        ExplicitWidth = 1036
         object Tv1: TcxGridDBTableView
           OnDblClick = Tv1DblClick
           OnMouseDown = Tv1MouseDown
@@ -336,7 +341,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
   object ScrollBox1: TScrollBox [3]
     Left = 0
     Top = 30
-    Width = 1040
+    Width = 1153
     Height = 163
     Align = alTop
     BevelInner = bvNone
@@ -345,6 +350,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
     Ctl3D = False
     ParentCtl3D = False
     TabOrder = 3
+    ExplicitWidth = 1040
     object Label3: TLabel
       Left = 377
       Top = 11

T02贸易汇总仓库/U_ItemizedListList.dfm

@@ -1,13 +1,16 @@
 inherited frmItemizedListList: TfrmItemizedListList
   Left = 165
   Top = 13
-  Caption = #29983#20135#35745#21010#21333#31649#29702
+  Caption = #30721#21333#30331#35760
   ClientHeight = 736
   ClientWidth = 1773
   Color = clBtnFace
   Font.Height = -16
   FormStyle = fsMDIChild
   Position = poScreenCenter
+  Visible = True
+  ExplicitLeft = -320
+  ExplicitTop = -129
   ExplicitWidth = 1789
   ExplicitHeight = 775
   PixelsPerInch = 96
@@ -226,6 +229,9 @@ inherited frmItemizedListList: TfrmItemizedListList
     Height = 584
     Align = alClient
     TabOrder = 5
+    ExplicitLeft = -152
+    ExplicitTop = 158
+    ExplicitHeight = 576
     object TV1: TcxGridDBTableView
       OnDblClick = TV1DblClick
       Navigator.Buttons.CustomButtons = <>

T02贸易汇总仓库/U_PurClothEnterInput.dfm

@@ -2,7 +2,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
   Left = 261
   Top = 149
   Caption = #37319#36141#22238#20179
-  ClientHeight = 359
+  ClientHeight = 319
   ClientWidth = 878
   Color = clWhite
   Font.Charset = GB2312_CHARSET
@@ -11,7 +11,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
   Position = poScreenCenter
   OnClose = FormClose
   ExplicitWidth = 894
-  ExplicitHeight = 398
+  ExplicitHeight = 358
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -22,7 +22,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
     Height = 30
     AutoSize = True
     ButtonHeight = 30
-    ButtonWidth = 115
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clWhite
     DisabledImages = DataLink_TradeTotalClothStk.ImageList_new32
@@ -39,24 +39,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
       ImageIndex = 16
       OnClick = ToolButton3Click
     end
-    object ToolButton2: TToolButton
-      Left = 71
-      Top = 0
-      AutoSize = True
-      Caption = #20445#23384#24182#25220#30721
-      ImageIndex = 16
-      Visible = False
-      OnClick = ToolButton2Click
-    end
     object ToolButton1: TToolButton
-      Left = 190
+      Left = 71
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
       ImageIndex = 16
     end
     object TBClose: TToolButton
-      Left = 293
+      Left = 174
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -68,7 +59,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
     Left = 0
     Top = 30
     Width = 878
-    Height = 329
+    Height = 289
     Align = alClient
     BevelInner = bvNone
     BevelOuter = bvNone
@@ -78,58 +69,59 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
     ParentColor = False
     ParentCtl3D = False
     TabOrder = 1
+    ExplicitHeight = 329
     object Label2: TLabel
-      Left = 317
+      Left = 306
       Top = 48
       Width = 32
       Height = 21
       Caption = #32534#21495
     end
     object Label7: TLabel
-      Left = 29
+      Left = 16
-      Top = 238
+      Top = 195
       Width = 32
       Height = 21
       Caption = #22791#27880
     end
     object Label1: TLabel
-      Left = 29
+      Left = 16
       Top = 124
       Width = 32
       Height = 21
       Caption = #25209#21495
     end
     object Label8: TLabel
-      Left = 621
+      Left = 589
       Top = 85
       Width = 32
       Height = 21
       Caption = #24211#20301
     end
     object Label5: TLabel
-      Left = 301
+      Left = 306
       Top = 10
       Width = 48
       Height = 21
       Caption = #20379#24212#21830
     end
     object lbl5: TLabel
-      Left = 29
+      Left = 16
       Top = 10
       Width = 32
       Height = 21
       Caption = #26085#26399
     end
     object Label10: TLabel
-      Left = 317
+      Left = 306
-      Top = 124
+      Top = 162
       Width = 32
       Height = 21
       Caption = #21305#25968
     end
     object Label11: TLabel
-      Left = 317
+      Left = 589
-      Top = 163
+      Top = 162
       Width = 32
       Height = 21
       Caption = #25968#37327
@@ -142,28 +134,28 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
       Caption = #23384#25918#21333#20301
     end
     object Label6: TLabel
-      Left = 621
+      Left = 589
       Top = 48
       Width = 32
       Height = 21
       Caption = #21697#21517
     end
     object Label3: TLabel
-      Left = 29
+      Left = 16
       Top = 85
       Width = 32
       Height = 21
       Caption = #39068#33394
     end
     object Label9: TLabel
-      Left = 13
+      Left = 16
       Top = 48
       Width = 48
       Height = 21
       Caption = #37319#36141#21333
     end
     object Label12: TLabel
-      Left = 317
+      Left = 306
       Top = 85
       Width = 32
       Height = 21
@@ -178,29 +170,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
       Visible = False
     end
     object Label14: TLabel
-      Left = 29
+      Left = 16
-      Top = 166
+      Top = 162
       Width = 32
       Height = 21
       Caption = #32568#21495
     end
     object Label15: TLabel
-      Left = 589
+      Left = 306
-      Top = 205
+      Top = 124
-      Width = 64
-      Height = 21
-      Caption = #32467#26696#31867#22411
-    end
-    object Label16: TLabel
-      Left = 285
-      Top = 205
-      Width = 64
-      Height = 21
-      Caption = #38477#32423#21407#22240
-    end
-    object Label17: TLabel
-      Left = 29
-      Top = 205
       Width = 32
       Height = 21
       Caption = #31561#32423
@@ -251,7 +229,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
     end
     object Note: TcxMemo
       Left = 71
-      Top = 238
+      Top = 195
       TabOrder = 4
       Height = 77
       Width = 788
@@ -264,15 +242,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
       Width = 200
     end
     object Qty: TcxCurrencyEdit
-      Left = 359
+      Left = 659
-      Top = 159
+      Top = 158
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 6
       Width = 133
     end
     object Piece: TcxCurrencyEdit
       Left = 359
-      Top = 120
+      Top = 158
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 7
       Width = 200
@@ -300,8 +278,8 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
       Width = 200
     end
     object QtyUnit: TcxTextEdit
-      Left = 498
+      Left = 798
-      Top = 159
+      Top = 158
       Enabled = False
       TabOrder = 10
       Width = 61
@@ -314,8 +292,8 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
       Width = 200
     end
     object FromPurNo: TcxTextEdit
-      Left = 71
+      Left = 70
-      Top = 44
+      Top = 41
       Enabled = False
       TabOrder = 12
       Width = 200
@@ -340,7 +318,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
     end
     object C_Composition: TcxTextEdit
       Left = 359
-      Top = 81
+      Top = 79
       Enabled = False
       TabOrder = 15
       Width = 200
@@ -428,60 +406,22 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput
     end
     object FtyPCId: TcxTextEdit
       Left = 71
-      Top = 160
+      Top = 158
       TabOrder = 25
       Width = 200
     end
-    object SettlementType: TcxButtonEdit
+    object Grade: TComboBox
-      Tag = 4
-      Left = 659
-      Top = 199
-      Hint = 'SettlementType/'#32467#26696#31867#22411
-      Properties.Buttons = <
-        item
-          Default = True
-          Kind = bkEllipsis
-        end>
-      Properties.ReadOnly = True
-      Properties.OnButtonClick = BuyNamePropertiesButtonClick
-      Style.ButtonStyle = btsDefault
-      TabOrder = 26
-      OnDblClick = CoBusinessTypeDblClick
-      Width = 200
-    end
-    object Downgrade: TcxButtonEdit
-      Tag = 4
       Left = 359
-      Top = 199
+      Top = 120
-      Hint = 'Downgrade/'#38477#32423#21407#22240
-      Properties.Buttons = <
-        item
-          Default = True
-          Kind = bkEllipsis
-        end>
-      Properties.ReadOnly = True
-      Properties.OnButtonClick = BuyNamePropertiesButtonClick
-      Style.ButtonStyle = btsDefault
-      TabOrder = 27
-      OnDblClick = CoBusinessTypeDblClick
-      Width = 200
-    end
-    object Grade: TcxButtonEdit
-      Tag = 4
-      Left = 71
-      Top = 199
-      Hint = 'Grade/'#31561#32423
-      Properties.Buttons = <
-        item
-          Default = True
-          Kind = bkEllipsis
-        end>
-      Properties.ReadOnly = True
-      Properties.OnButtonClick = BuyNamePropertiesButtonClick
-      Style.ButtonStyle = btsDefault
-      TabOrder = 28
-      OnDblClick = CoBusinessTypeDblClick
       Width = 200
+      Height = 29
+      Style = csDropDownList
+      ItemIndex = 0
+      TabOrder = 26
+      Text = #27491#21697
+      Items.Strings = (
+        #27491#21697
+        #27425#21697)
     end
   end
   inherited ADOQueryBaseCmd: TADOQuery

T02贸易汇总仓库/U_PurClothEnterInput.pas

@@ -68,13 +68,8 @@ type
     FromConNo: TcxTextEdit;
     Label14: TLabel;
     FtyPCId: TcxTextEdit;
+    Grade: TComboBox;
     Label15: TLabel;
-    Label16: TLabel;
-    Label17: TLabel;
-    SettlementType: TcxButtonEdit;
-    Downgrade: TcxButtonEdit;
-    Grade: TcxButtonEdit;
-    ToolButton2: TToolButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -85,14 +80,13 @@ type
     procedure CoBusinessTypeDblClick(Sender: TObject);
     procedure StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure FormCreate(Sender: TObject);
-    procedure ToolButton2Click(Sender: TObject);
   private
     { Private declarations }
     procedure InitGrid();
     function SaveData(MSaveType: string): Boolean;
   public
     { Public declarations }
-    FBCIOID, FPurSId: string;
+    FBCIOID, FPurMId, FPurSId, FQtyUnit: string;
   end;
 
 var
@@ -232,56 +226,84 @@ end;
 
 function TfrmPurClothEnterInput.SaveData(MSaveType: string): Boolean;
 var
-  Maxno: string;
+  Maxno, MBCIOID, MBCIONo: string;
 begin
   try
     ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(FBCIOID) + '''');
+      open;
+    end;
+    MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
+
+    if Trim(MBCIOID) = '' then
+    begin
+      if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then
+        raise Exception.Create('取染色坯布入库编号失败！');
+
+      if not GetLSNo(ADOQueryCmd, MBCIONo, 'RZ', 'BS_Cloth_IO', 4, 1) then
+        raise Exception.Create('取染色坯布入库编号失败！');
+    end
+    else
+    begin
+      Maxno := Trim(MBCIOID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(MBCIOID) = '' then
+      begin
+        Append;
+        FieldByName('Fillid').Value := Trim(Dcode);
+        FieldByName('Filler').Value := Trim(DName);
+        FieldByName('BCIONo').Value := Trim(MBCIONo);
+        FieldByName('BCIOID').Value := Trim(Maxno);
+        FieldByName('STKID').Value := Trim(Maxno);
+        FieldByName('CIID').Value := Trim(Maxno);
+      end
+      else
+      begin
+        Edit;
+        FieldByName('Editid').Value := Trim(Dcode);
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
+      end;
+
+      RTSetsavedata(ADOQueryCmd, 'BS_Cloth_IO', ScrollBox1, 0);
+      FieldByName('STKName').Value := '贸易布匹';
+      FieldByName('IOFlag').Value := '入库';
+      FieldByName('IOType').Value := '采购入库';
+      FieldByName('IOQtyFlag').Value := 1;
+      FieldByName('Piece').Value := 1;
+      FieldByName('FromPurMId').Value := FPurMId;
+      FieldByName('FromPurSId').Value := FPurSId;
+      FieldByName('QtyUnit').Value := FQtyUnit;
+      Post;
+    end;
     with ADOQueryCmd do
     begin
       Close;
       Sql.Clear;
-
+      Sql.Add('exec P_BS_Cloth_UpdateByPurchase ');
-      Sql.Add('exec P_BS_Cloth_In_Del ');
+      Sql.Add(' @PurSId=' + quotedstr(Trim(FPurSId)));
-      Sql.Add(' @BCIOIDS=' + quotedstr(FBCIOID));
       Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
       Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-
-
-//      ShowMessage(SQL.Text);
       Open;
     end;
     if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
       raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-
-    with ADOQueryCmd do
-    begin
-      Close;
-      Sql.Clear;
-
-      Sql.Add('exec P_BS_Cloth_IOALL ');
-      Sql.Add('  @Operation=' + quotedstr(Trim(MSaveType)));
-      Sql.Add(' ,@PurSId=' + quotedstr(Trim(FPurSId)));
-      Sql.Add(' ,@IOTime=' + quotedstr(Trim(Trim(FormatDateTime('yyyy-MM-dd', IOTime.Date)))));
-      Sql.Add(' ,@StkPosition=' + quotedstr(Trim(StkPosition.Text)));
-      Sql.Add(' ,@FtyPCId=' + quotedstr(Trim(FtyPCId.Text)));
-      Sql.Add(' ,@BatchNo=' + quotedstr(Trim(BatchNo.Text)));
-      Sql.Add(' ,@SettlementType=' + quotedstr(Trim(SettlementType.Text)));
-      Sql.Add(' ,@Downgrade=' + quotedstr(Trim(Downgrade.Text)));
-      Sql.Add(' ,@Grade=' + quotedstr(Trim(Grade.Text)));
-      Sql.Add(' ,@StkCoNo=' + quotedstr(Trim(StkCoName.Properties.LookupItems.Text)));
-      Sql.Add(' ,@StkCoName=' + quotedstr(Trim(StkCoName.Text)));
-      Sql.Add(' ,@Piece=' + Trim(Piece.Text));
-      Sql.Add(' ,@Qty=' + Trim(Qty.Text));
-      Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
-      Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
-
-//      ShowMessage(SQL.Text);
-      Open;
-    end;
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-
     ADOQueryCmd.Connection.CommitTrans;
+
+    FBCIOID := Maxno;
     Result := True;
   except
     Result := false;
@@ -308,15 +330,6 @@ begin
   end;
 end;
 
-procedure TfrmPurClothEnterInput.ToolButton2Click(Sender: TObject);
-begin
-  if SaveData('采购入库并抄码') then
-  begin
-    Application.MessageBox('保存成功!', '提示', 0);
-    ModalResult := 1;
-  end;
-end;
-
 procedure TfrmPurClothEnterInput.ToolButton3Click(Sender: TObject);
 begin
 

T02贸易汇总仓库/U_TradeClothTotalStkList.dfm

@@ -8,6 +8,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
   Font.Height = -16
   FormStyle = fsMDIChild
   Position = poDefault
+  Visible = True
   ExplicitWidth = 1420
   ExplicitHeight = 554
   PixelsPerInch = 96
@@ -769,13 +770,13 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList
           end
           object Tv1Column39: TcxGridDBColumn
             Caption = #24211#20301
-            DataBinding.FieldName = 'IOPosition'
+            DataBinding.FieldName = 'stkPistion'
             DataBinding.IsNullValueType = True
             HeaderAlignmentHorz = taCenter
             Width = 55
           end
           object Tv1Column40: TcxGridDBColumn
-            Caption = #20179#20301
+            Caption = #23384#25918#21333#20301
             DataBinding.FieldName = 'StkCoName'
             DataBinding.IsNullValueType = True
             HeaderAlignmentHorz = taCenter

T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm

@@ -66,6 +66,8 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
     Height = 390
     Align = alClient
     TabOrder = 1
+    ExplicitLeft = 288
+    ExplicitTop = 97
     object Tv1: TcxGridDBTableView
       OnMouseDown = Tv1MouseDown
       Navigator.Buttons.CustomButtons = <>
@@ -325,22 +327,6 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput
         DataBinding.IsNullValueType = True
         Width = 66
       end
-      object Tv1Column15: TcxGridDBColumn
-        Caption = #21518#21152#24037#33521#25991
-        DataBinding.FieldName = 'CraftEName'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
-      object Tv1Column16: TcxGridDBColumn
-        Caption = #21518#21152#24037#20013#25991
-        DataBinding.FieldName = 'CraftEName'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

T02贸易汇总仓库/U_TradeTotallClothOutinput.pas

@@ -53,8 +53,6 @@ type
     Tv1Column12: TcxGridDBColumn;
     Tv1Column13: TcxGridDBColumn;
     Tv1Column14: TcxGridDBColumn;
-    Tv1Column15: TcxGridDBColumn;
-    Tv1Column16: TcxGridDBColumn;
     Tv1Column17: TcxGridDBColumn;
     Tv1Column18: TcxGridDBColumn;
     Panel1: TPanel;

T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm

@@ -759,13 +759,13 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel
           end
           object Tv1Column39: TcxGridDBColumn
             Caption = #24211#20301
-            DataBinding.FieldName = 'IOPosition'
+            DataBinding.FieldName = 'stkPistion'
             DataBinding.IsNullValueType = True
             HeaderAlignmentHorz = taCenter
             Width = 55
           end
           object Tv1Column40: TcxGridDBColumn
-            Caption = #20179#20301
+            Caption = #23384#25918#21333#20301
             DataBinding.FieldName = 'StkCoName'
             DataBinding.IsNullValueType = True
             HeaderAlignmentHorz = taCenter

T05贸易门市管理/U_TradeClothTotalPHList.dfm

@@ -0,0 +1,714 @@
+inherited frmTradeClothTotalPHList: TfrmTradeClothTotalPHList
+  Left = 65
+  Top = 98
+  Caption = #36152#26131#24067#21305#20986#24211#21015#34920
+  ClientHeight = 564
+  ClientWidth = 1597
+  Color = clBtnFace
+  Font.Height = -16
+  FormStyle = fsMDIChild
+  Position = poScreenCenter
+  Visible = True
+  ExplicitWidth = 1613
+  ExplicitHeight = 603
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1597
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 99
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Images = DataLink_TradeMarket.cxImageList_bar
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 3
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      Visible = False
+    end
+    object TBDel: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      OnClick = TBDelClick
+    end
+    object ToolButton4: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #26631#31614#25171#21360
+      ImageIndex = 21
+      OnClick = ToolButton4Click
+    end
+    object ToolButton2: TToolButton
+      Left = 316
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      OnClick = ToolButton2Click
+    end
+    object TBExport: TToolButton
+      Left = 387
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = TBExportClick
+    end
+    object ToolButton1: TToolButton
+      Left = 458
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 561
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid [1]
+    Left = 0
+    Top = 30
+    Width = 1597
+    Height = 534
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    ExplicitTop = 145
+    ExplicitHeight = 419
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column19
+        end
+        item
+          Kind = skSum
+          Column = v1Column19
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column19
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skCount
+          Column = Tv1Column35
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.IndicatorWidth = 40
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #36710#38388
+        DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #20986#24211#21333#21495
+        DataBinding.FieldName = 'BCIONO'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object v1Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #20986#24211#26102#38388
+        DataBinding.FieldName = 'IOTime'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column4: TcxGridDBColumn
+        Tag = 2
+        Caption = #20986#24211#31867#22411
+        DataBinding.FieldName = 'IOType'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          #21152#24037#20986#24211
+          #24179#31227#20986#24211
+          #36864#36135)
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column15: TcxGridDBColumn
+        Tag = 2
+        Caption = #25152#23646#31867#22411
+        DataBinding.FieldName = 'SSType'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          #33258#24049
+          #23458#25143)
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 44
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #37319#36141#21333#21495
+        DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 44
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #26469#33258#21333#20301
+        DataBinding.FieldName = 'FromCoName'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Alignment.Horz = taLeftJustify
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #21697#29260
+        DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 44
+      end
+      object v2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #21697#21517
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'SPCode'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 44
+      end
+      object v1Column8: TcxGridDBColumn
+        Tag = 2
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 44
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'FtyPCId'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #20986#21040#35745#21010#21333
+        DataBinding.FieldName = 'ToOrdNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'FromOrdNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column28: TcxGridDBColumn
+        Caption = #21512#24182#21333#21495
+        DataBinding.FieldName = 'fromMasterOrdNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column29: TcxGridDBColumn
+        Caption = #20986#21040#21512#24182#21333#21495
+        DataBinding.FieldName = 'ToMasterOrdNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column18: TcxGridDBColumn
+        Caption = #20986#21040#21333#20301
+        DataBinding.FieldName = 'ToCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column19: TcxGridDBColumn
+        Caption = #20179#20301
+        DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Pieceint'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column35: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'PieceNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #21305#37325
+        DataBinding.FieldName = 'PieceWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #33394#21035
+        DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column9: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column30: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'fromConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column31: TcxGridDBColumn
+        Caption = #20986#21040#21512#21516#21495
+        DataBinding.FieldName = 'ToConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #25104#20998
+        DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #27454#21495
+        DataBinding.FieldName = 'C_StyleNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column21: TcxGridDBColumn
+        Caption = #33521#25991#39068#33394
+        DataBinding.FieldName = 'C_EColor'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column22: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'C_Degree'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #38468#20214
+        DataBinding.FieldName = 'FJFlag'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #30331#35760#20154
+        DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #30331#35760#26102#38388
+        DataBinding.FieldName = 'Filltime'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column20: TcxGridDBColumn
+        Caption = #33521#25991#21697#21517
+        DataBinding.FieldName = 'C_EName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #20462#25913#20154
+        DataBinding.FieldName = 'Editer'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column17: TcxGridDBColumn
+        Caption = #20462#25913#26102#38388
+        DataBinding.FieldName = 'Edittime'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column23: TcxGridDBColumn
+        Caption = #22383#24067#20379#24212#21830
+        DataBinding.FieldName = 'GCFtyName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column32: TcxGridDBColumn
+        Caption = #35760#24405#21495
+        DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column24: TcxGridDBColumn
+        Caption = #21152#24037#21035
+        DataBinding.FieldName = 'CraftCode'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column25: TcxGridDBColumn
+        Caption = #24067#31181
+        DataBinding.FieldName = 'GC_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column26: TcxGridDBColumn
+        Caption = #21518#21152#24037#33521#25991
+        DataBinding.FieldName = 'CraftEName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column27: TcxGridDBColumn
+        Caption = #21518#21152#24037#20013#25991
+        DataBinding.FieldName = 'CraftName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column33: TcxGridDBColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'QtyKgGross'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+      object Tv1Column34: TcxGridDBColumn
+        Caption = #20928#37325
+        DataBinding.FieldName = 'QtyKgNet'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 44
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  inherited loadProcess: TPanel
+    Left = 888
+    Top = 296
+    ExplicitLeft = 888
+    ExplicitTop = 296
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 721
+    Top = 398
+    ExplicitLeft = 721
+    ExplicitTop = 398
+    ExplicitHeight = 29
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 260
+    Top = 246
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 92
+    Top = 230
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 560
+    Top = 300
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 821
+    Top = 329
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 707
+    Top = 306
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 792
+    Top = 234
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 425
+    Top = 254
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 626
+    Top = 237
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 524
+    Top = 412
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+    object N3: TMenuItem
+      Caption = #22797#21046
+      OnClick = N3Click
+    end
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 655
+    Top = 444
+  end
+end

T05贸易门市管理/U_TradeClothTotalPHList.pas

@@ -0,0 +1,393 @@
+unit U_TradeClothTotalPHList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Vcl.Printers, 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,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+  dxBarBuiltInMenu, U_BaseList, Clipbrd, dxScrollbarAnnotations, FrameDateSel,
+  cxContainer, cxMaskEdit, cxProgressBar, cxButtons, dxSkinsCore, U_BaseHelp,
+  dxSkinsDefaultPainters;
+
+type
+  TfrmTradeClothTotalPHList = class(TfrmBaseHelp)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBExport: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    GPM_1: TcxGridPopupMenu;
+    CDS_Main: TClientDataSet;
+    TBDel: TToolButton;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column6: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column20: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    v1Column19: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    N3: TMenuItem;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    Tv1Column16: TcxGridDBColumn;
+    Tv1Column17: TcxGridDBColumn;
+    Tv1Column18: TcxGridDBColumn;
+    Tv1Column19: TcxGridDBColumn;
+    Tv1Column20: TcxGridDBColumn;
+    Tv1Column21: TcxGridDBColumn;
+    Tv1Column22: TcxGridDBColumn;
+    Tv1Column24: TcxGridDBColumn;
+    Tv1Column25: TcxGridDBColumn;
+    Tv1Column26: TcxGridDBColumn;
+    Tv1Column27: TcxGridDBColumn;
+    Tv1Column23: TcxGridDBColumn;
+    Tv1Column28: TcxGridDBColumn;
+    Tv1Column29: TcxGridDBColumn;
+    Tv1Column30: TcxGridDBColumn;
+    Tv1Column31: TcxGridDBColumn;
+    Tv1Column32: TcxGridDBColumn;
+    Tv1Column33: TcxGridDBColumn;
+    Tv1Column34: TcxGridDBColumn;
+    ADOQueryPrint: TADOQuery;
+    Tv1Column35: TcxGridDBColumn;
+    ToolButton4: TToolButton;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure SPNameChange(Sender: TObject);
+    procedure BCIOIDChange(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure C_specChange(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure N3Click(Sender: TObject);
+    procedure BCIOIDPropertiesChange(Sender: TObject);
+    procedure BCIONOKeyPress(Sender: TObject; var Key: Char);
+    procedure IOTypePropertiesChange(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    canshu1, canshu2, canshu4: string;
+    procedure InitGrid();
+    { Private declarations }
+  public
+    FBCIONO: string;
+    { Public declarations }
+  end;
+
+var
+  frmTradeClothTotalPHList: TfrmTradeClothTotalPHList;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_AttachmentUpload, U_LabelPrint, U_printPdf;
+
+{$R *.dfm}
+
+procedure TfrmTradeClothTotalPHList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmTradeClothTotalPHList.FormCreate(Sender: TObject);
+begin
+  inherited;
+  canshu1 := Trim(DParameters1);
+  canshu2 := Trim(DParameters2);
+end;
+
+procedure TfrmTradeClothTotalPHList.InitGrid();
+var
+  SqlStr: string;
+begin
+
+  SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
+  SqlStr := SqlStr + ' from BS_Cloth_IO A';
+  SqlStr := SqlStr + ' where A.BCIONO =''' + Trim(FBCIONO) + '''';
+
+  InitCDSData(ADOQueryMain, CDS_Main, Tv1, SqlStr, '', 'BCIOID');
+end;
+
+procedure TfrmTradeClothTotalPHList.IOTypePropertiesChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmTradeClothTotalPHList.TBRafreshClick(Sender: TObject);
+begin
+  ToolBar1.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmTradeClothTotalPHList.ToolButton1Click(Sender: TObject);
+begin
+  WriteCxGrid(trim(Self.Caption), Tv1, '贸易汇总仓库');
+end;
+
+procedure TfrmTradeClothTotalPHList.ToolButton2Click(Sender: TObject);
+var
+  MBCIOID: string;
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  if CDS_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+
+  MBCIOID := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]);
+
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      FLMType := 'TradeFinishClothOutPrt1';
+      FFiltration1 := MBCIOID;
+      if ShowModal = 1 then
+      begin
+
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('update BS_Cloth_IO         ');
+          sql.Add(' set PRTer=' + quotedstr(DName));
+          sql.Add(', PRTCount=isnull(PRTCount,0)+1');
+          sql.Add(', PRTDate=getdate()');
+          sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(MBCIOID) + ','','') SP where SP.RTValue=BS_Cloth_IO.BCIOID )');
+          ExecSQL;
+        end;
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+end;
+
+procedure TfrmTradeClothTotalPHList.ToolButton4Click(Sender: TObject);
+begin
+  if CDS_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      FLMType := 'TradeLabVolume1';
+      FFiltration1 := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]);
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+end;
+
+procedure TfrmTradeClothTotalPHList.BCIOIDPropertiesChange(Sender: TObject);
+begin
+  if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
+    Exit;
+  TBFind.Click;
+end;
+
+procedure TfrmTradeClothTotalPHList.BCIONOKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+    InitGrid();
+end;
+
+procedure TfrmTradeClothTotalPHList.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmTradeClothTotalPHList.FormShow(Sender: TObject);
+begin
+  inherited;
+
+  ReadCxGrid(trim(Self.Caption), Tv1, '贸易汇总仓库');
+  InitGrid();
+end;
+
+procedure TfrmTradeClothTotalPHList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    exit;
+  TcxGridToExcel('出库列表', cxGrid1);
+end;
+
+procedure TfrmTradeClothTotalPHList.SPNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmTradeClothTotalPHList.BCIOIDChange(Sender: TObject);
+begin
+
+  TBFind.Click;
+end;
+
+procedure TfrmTradeClothTotalPHList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main, True);
+end;
+
+procedure TfrmTradeClothTotalPHList.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main, False);
+end;
+
+procedure TfrmTradeClothTotalPHList.N3Click(Sender: TObject);
+begin
+  Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeClothTotalPHList.TBDelClick(Sender: TObject);
+var
+  MBCIOID, MBCIONO: string;
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+
+  if CDS_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  MBCIOID := SelCDSKey(CDS_Main, ['BCIOID'])[0];
+  MBCIONO := SelCDSKey(CDS_Main, ['BCIONO'])[0];
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_Fin_Flow_Judge ');
+    Sql.Add(' @FFIDS=' + quotedstr(MBCIONO));
+    Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+    Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+    Open;
+  end;
+  if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
+  begin
+    Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
+    exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      Sql.Clear;
+      Sql.Add('exec P_Trade_BSCloth_Judge ');
+      Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      Open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      Sql.Clear;
+      sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
+      sql.Add('values(''贸易布坯出库''    ');
+      sql.Add(',' + quotedstr(MBCIONO));
+      sql.Add(',''删除''   ');
+      sql.Add(',' + quotedstr(DName));
+      sql.Add(',' + quotedstr(trim(self.Caption)));
+      sql.Add(',' + quotedstr(MBCIOID));
+      sql.Add(')  ');
+
+      Sql.Add('exec P_BS_Cloth_Out_Del ');
+      Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      Open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    ADOQueryCmd.Connection.CommitTrans;
+    InitGrid();
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+
+end;
+
+procedure TfrmTradeClothTotalPHList.C_specChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmTradeClothTotalPHList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+end.
+

T05贸易门市管理/U_TradeDispatchedList.dfm

@@ -2,14 +2,13 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
   Left = 165
   Top = 13
   Caption = #37197#36135#31649#29702
-  ClientHeight = 935
+  ClientHeight = 602
   ClientWidth = 1540
   Font.Height = -16
   FormStyle = fsMDIChild
   Position = poScreenCenter
-  Visible = True
   ExplicitWidth = 1556
-  ExplicitHeight = 974
+  ExplicitHeight = 641
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -20,12 +19,12 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
     Height = 30
     AutoSize = True
     ButtonHeight = 30
-    ButtonWidth = 115
+    ButtonWidth = 95
     Caption = 'ToolBar1'
     Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ShowCaptions = True
-    TabOrder = 5
+    TabOrder = 4
     object TBRafresh: TToolButton
       Left = 0
       Top = 0
@@ -34,17 +33,16 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       ImageIndex = 1
       OnClick = TBRafreshClick
     end
-    object ToolButton1: TToolButton
+    object ToolButton7: TToolButton
-      Left = 71
+      Left = 63
       Top = 0
       AutoSize = True
-      Caption = #25195#25551#37197#36135
+      Caption = #37197#36135#23436#25104
-      ImageIndex = 8
+      ImageIndex = 12
-      Visible = False
+      OnClick = ToolButton7Click
-      OnClick = ToolButton1Click
     end
     object TBPrint: TToolButton
-      Left = 174
+      Left = 150
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -52,7 +50,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBPrintClick
     end
     object TBPrint1: TToolButton
-      Left = 245
+      Left = 213
       Top = 0
       AutoSize = True
       Caption = #25171#21360#20986#24211#21333
@@ -60,7 +58,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBPrint1Click
     end
     object TBCK: TToolButton
-      Left = 364
+      Left = 312
       Top = 0
       AutoSize = True
       Caption = #26597#30475
@@ -68,7 +66,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBCKClick
     end
     object TBFJ: TToolButton
-      Left = 435
+      Left = 375
       Top = 0
       AutoSize = True
       Caption = #38468#20214
@@ -76,7 +74,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBFJClick
     end
     object ToolButton2: TToolButton
-      Left = 506
+      Left = 438
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -84,13 +82,22 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = ToolButton2Click
     end
     object TBClose: TToolButton
-      Left = 609
+      Left = 525
       Top = 0
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 7
       OnClick = TBCloseClick
     end
+    object ToolButton1: TToolButton
+      Left = 588
+      Top = 0
+      AutoSize = True
+      Caption = #25195#25551#37197#36135
+      ImageIndex = 8
+      Visible = False
+      OnClick = ToolButton1Click
+    end
   end
   object Panel1: TPanel [1]
     Left = 0
@@ -101,7 +108,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
     BevelInner = bvRaised
     BevelOuter = bvLowered
     ParentBackground = False
-    TabOrder = 6
+    TabOrder = 5
     object Label3: TLabel
       Left = 25
       Top = 48
@@ -172,11 +179,13 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
   object cxGrid1: TcxGrid [2]
     Left = 0
     Top = 141
-    Width = 1540
+    Width = 992
-    Height = 465
+    Height = 461
-    Align = alTop
+    Align = alClient
     PopupMenu = PM_1
     TabOrder = 2
+    ExplicitWidth = 1329
+    ExplicitHeight = 794
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -206,32 +215,24 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
-        Width = 50
+        Width = 62
       end
       object Tv1Column14: TcxGridDBColumn
         Caption = #22823#36135#21333#21495
         DataBinding.FieldName = 'TMMNO'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 122
+        Width = 106
       end
       object v1OrdDate: TcxGridDBColumn
         Caption = #21046#21333#26085#26399
-        DataBinding.FieldName = 'OrdDate'
+        DataBinding.FieldName = 'TMMDate'
         DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 122
+        Width = 137
-      end
-      object Tv1Column2: TcxGridDBColumn
-        Caption = #32463#33829#21333#20301
-        DataBinding.FieldName = 'OurCoName'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #23458#25143
@@ -249,13 +250,14 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 66
+        Width = 89
       end
       object Tv1Column9: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
+        Width = 81
       end
       object Tv1Column12: TcxGridDBColumn
         Caption = #21697#21517
@@ -264,10 +266,11 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column13: TcxGridDBColumn
-        Caption = #20013#25991#39068#33394
+        Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
+        Width = 87
       end
       object Tv1Column15: TcxGridDBColumn
         Caption = #33457#22411
@@ -297,11 +300,15 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         Caption = #37197#36135#21305#25968
         DataBinding.FieldName = 'PHRollNum'
         DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 95
       end
       object Tv1Column8: TcxGridDBColumn
         Caption = #37197#36135#25968#37327
         DataBinding.FieldName = 'PHQty'
         DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 94
       end
       object v1Column11: TcxGridDBColumn
         Caption = #21333#20301
@@ -347,22 +354,90 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       GridView = Tv1
     end
   end
-  object Panel2: TPanel [3]
+  object cxTabControl1: TcxTabControl [3]
     Left = 0
-    Top = 606
+    Top = 113
     Width = 1540
-    Height = 329
+    Height = 28
-    Align = alClient
+    Align = alTop
-    BevelOuter = bvNone
-    Caption = 'Panel2'
     TabOrder = 3
-    object cxGrid2: TcxGrid
+    Properties.CustomButtons.Buttons = <>
-      Left = 0
+    Properties.Style = 9
-      Top = 30
+    Properties.TabIndex = 0
-      Width = 1540
+    Properties.Tabs.Strings = (
-      Height = 299
+      #26410#37197#36135
-      Align = alClient
+      #24050#37197#36135
+      #24050#21457#36135
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectRight = 0
+    ClientRectTop = 0
+  end
+  inherited loadProcess: TPanel
+    Left = 1082
+    Top = 384
+    ExplicitLeft = 1082
+    ExplicitTop = 384
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 1082
+    Top = 336
+    ExplicitLeft = 1082
+    ExplicitTop = 336
+    ExplicitHeight = 29
+  end
+  object Panel3: TPanel [6]
+    Left = 1000
+    Top = 141
+    Width = 540
+    Height = 461
+    Align = alRight
+    Caption = 'Panel3'
+    TabOrder = 6
+    object ToolBar2: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 1
+      Width = 538
+      Height = 30
+      ButtonHeight = 30
+      ButtonWidth = 83
+      Caption = 'ToolBar1'
+      EdgeInner = esNone
+      EdgeOuter = esNone
+      Images = DataLink_TradeMarket.cxImageList_bar
+      List = True
+      ShowCaptions = True
       TabOrder = 0
+      Visible = False
+      ExplicitWidth = 826
+      object ToolButton9: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #25171#21360
+        ImageIndex = 21
+        OnClick = ToolButton9Click
+      end
+      object ToolButton3: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #26597#30475#35814#24773
+        ImageIndex = 22
+        OnClick = ToolButton3Click
+      end
+    end
+    object cxGrid2: TcxGrid
+      Left = 1
+      Top = 31
+      Width = 538
+      Height = 429
+      Align = alClient
+      TabOrder = 1
+      ExplicitLeft = 105
+      ExplicitTop = 37
+      ExplicitWidth = 826
       object TV2: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         ScrollbarAnnotations.CustomAnnotations = <>
@@ -372,7 +447,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
           item
             Kind = skSum
             Position = spFooter
-            Column = V2Column5
           end
           item
             Kind = skCount
@@ -388,7 +462,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
           end
           item
             Kind = skSum
-            Column = V2Column5
           end
           item
             Kind = skCount
@@ -409,16 +482,11 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         DataController.Summary.FooterSummaryItems = <
           item
             Kind = skSum
+            Column = TV2Column4
           end
           item
             Kind = skSum
-            Column = V2Column5
+            Column = TV2Column3
-          end
-          item
-            Kind = skSum
-          end
-          item
-            Kind = skSum
           end>
         DataController.Summary.SummaryGroups = <>
         OptionsCustomize.ColumnFiltering = False
@@ -427,324 +495,119 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OptionsView.Footer = True
         OptionsView.GroupByBox = False
         OptionsView.Indicator = True
-        object V2Column13: TcxGridDBColumn
+        object TV2Column1: TcxGridDBColumn
-          Caption = #36873#25321
+          Caption = #37197#36135#21333#21495
-          DataBinding.FieldName = 'ssel'
+          DataBinding.FieldName = 'BCIONO'
-          DataBinding.IsNullValueType = True
-          PropertiesClassName = 'TcxCheckBoxProperties'
-          Properties.ImmediatePost = True
-          Properties.NullStyle = nssUnchecked
-          HeaderAlignmentHorz = taCenter
-          Width = 99
-        end
-        object V2Column10: TcxGridDBColumn
-          Caption = #21367#26465#30721
-          DataBinding.FieldName = 'stkid'
           DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Options.Editing = False
+          Width = 84
-          Width = 99
-        end
-        object V2Column2: TcxGridDBColumn
-          Caption = #21697#21517
-          DataBinding.FieldName = 'C_Name'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
         end
         object TV2Column2: TcxGridDBColumn
-          Caption = #32534#21495
+          Caption = #37197#36135#26085#26399
-          DataBinding.FieldName = 'C_Code'
+          DataBinding.FieldName = 'IOTime'
           DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Width = 99
+          Width = 79
         end
-        object V2Column3: TcxGridDBColumn
+        object TV2Column3: TcxGridDBColumn
-          Caption = #35268#26684
+          Caption = #37197#36135#21305#25968
-          DataBinding.FieldName = 'C_Spec'
+          DataBinding.FieldName = 'Piece'
           DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Options.Editing = False
+          Width = 80
-          Width = 99
         end
-        object V2C_Color: TcxGridDBColumn
+        object TV2Column4: TcxGridDBColumn
-          Caption = #39068#33394
+          Caption = #37197#36135#25968#37327
-          DataBinding.FieldName = 'C_Color'
+          DataBinding.FieldName = 'Qty'
           DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Options.Editing = False
+          Width = 93
-          Width = 99
-        end
-        object TV2Column1: TcxGridDBColumn
-          Caption = #33457#22411
-          DataBinding.FieldName = 'C_Pattern'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Width = 99
-        end
-        object V2Column5: TcxGridDBColumn
-          Caption = #25968#37327
-          DataBinding.FieldName = 'stkqty'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
-        end
-        object V2Column6: TcxGridDBColumn
-          Caption = #25209#21495
-          DataBinding.FieldName = 'batchno'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
-        end
-        object V2Column11: TcxGridDBColumn
-          Caption = #26579#21378#32568#21495
-          DataBinding.FieldName = 'ftypcid'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
-        end
-        object V2Filler: TcxGridDBColumn
-          Caption = #37197#36135#20154#21592
-          DataBinding.FieldName = 'Filler'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
-        end
-        object V2Column12: TcxGridDBColumn
-          Caption = #37197#36135#26102#38388
-          DataBinding.FieldName = 'FillTime'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
-        end
-        object V2Column14: TcxGridDBColumn
-          Caption = #38376#24133
-          DataBinding.FieldName = 'C_Width'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
-        end
-        object V2Column15: TcxGridDBColumn
-          Caption = #20811#37325'(g/'#13217')'
-          DataBinding.FieldName = 'C_GramWeight'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
-        end
-        object V2Column16: TcxGridDBColumn
-          Caption = #21152#24037#21378
-          DataBinding.FieldName = 'factoryName'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Editing = False
-          Width = 99
         end
       end
       object cxGrid2Level1: TcxGridLevel
         GridView = TV2
       end
     end
-    object ToolBar2: TToolBar
-      Tag = 1
-      Left = 0
-      Top = 0
-      Width = 1540
-      Height = 30
-      ButtonHeight = 30
-      ButtonWidth = 99
-      Caption = 'ToolBar1'
-      EdgeInner = esNone
-      EdgeOuter = esNone
-      Images = DataLink_TradeMarket.cxImageList_bar
-      List = True
-      ShowCaptions = True
-      TabOrder = 1
-      Visible = False
-      object ToolButton4: TToolButton
-        Left = 0
-        Top = 0
-        AutoSize = True
-        Caption = #36873#25321#24211#23384
-        ImageIndex = 9
-        OnClick = ToolButton4Click
-      end
-      object phwc: TToolButton
-        Left = 103
-        Top = 0
-        AutoSize = True
-        Caption = #37197#36135#23436#25104
-        ImageIndex = 12
-        OnClick = phwcClick
-      end
-      object ToolButton6: TToolButton
-        Left = 206
-        Top = 0
-        AutoSize = True
-        Caption = #20462#25913#37197#36135
-        ImageIndex = 3
-        OnClick = ToolButton6Click
-      end
-      object phok: TToolButton
-        Left = 309
-        Top = 0
-        AutoSize = True
-        Caption = #37197#36135#30830#35748
-        ImageIndex = 12
-        OnClick = phokClick
-      end
-      object fh: TToolButton
-        Left = 412
-        Top = 0
-        AutoSize = True
-        Caption = #25104#21697#21457#36135
-        ImageIndex = 12
-        OnClick = fhClick
-      end
-      object ToolButton9: TToolButton
-        Left = 515
-        Top = 0
-        AutoSize = True
-        Caption = #25171#21360#26631#31614
-        ImageIndex = 21
-        OnClick = ToolButton9Click
-      end
-      object del: TToolButton
-        Left = 618
-        Top = 0
-        AutoSize = True
-        Caption = #21024#38500
-        ImageIndex = 5
-        OnClick = delClick
-      end
-      object ToolButton5: TToolButton
-        Left = 689
-        Top = 0
-        AutoSize = True
-        Caption = #25972#21333#25764#38144
-        ImageIndex = 11
-        OnClick = ToolButton5Click
-      end
-      object Tdbchexiao: TToolButton
-        Left = 792
-        Top = 0
-        AutoSize = True
-        Caption = #25972#31508#25764#38144
-        ImageIndex = 11
-        OnClick = TdbchexiaoClick
-      end
-      object ToolButton3: TToolButton
-        Left = 895
-        Top = 0
-        AutoSize = True
-        Caption = #25764#38144#21457#36135
-        ImageIndex = 11
-        OnClick = ToolButton3Click
-      end
-    end
   end
-  object cxTabControl1: TcxTabControl [4]
+  object cxSplitter1: TcxSplitter [7]
-    Left = 0
+    Left = 992
-    Top = 113
+    Top = 141
-    Width = 1540
+    Width = 8
-    Height = 28
+    Height = 461
-    Align = alTop
+    HotZoneClassName = 'TcxMediaPlayer9Style'
-    TabOrder = 4
+    Control = Panel3
-    Properties.CustomButtons.Buttons = <>
+    ExplicitLeft = 896
-    Properties.Style = 9
+    ExplicitTop = 133
-    Properties.TabIndex = 0
-    Properties.Tabs.Strings = (
-      #26410#37197#36135
-      #24050#37197#36135
-      #24050#21457#36135
-      #20840#37096)
-    OnChange = cxTabControl1Change
-    ClientRectRight = 0
-    ClientRectTop = 0
-  end
-  inherited cxProgressBar2: TcxProgressBar
-    Left = 626
-    Top = 344
-    ExplicitLeft = 626
-    ExplicitTop = 344
-    ExplicitHeight = 29
   end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
-    Left = 187
+    Left = 634
-    Top = 378
+    Top = 301
   end
   inherited ADOQueryBaseTemp: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
-    Left = 163
+    Left = 695
-    Top = 229
+    Top = 301
   end
   object cxgrdpmn1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>
-    Left = 700
+    Left = 817
-    Top = 236
+    Top = 423
   end
   object ADOQueryCmd: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
     Parameters = <>
-    Left = 568
+    Left = 756
-    Top = 240
+    Top = 301
   end
   object ADOQueryMain: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
     LockType = ltReadOnly
     Parameters = <>
-    Left = 446
+    Left = 878
-    Top = 230
+    Top = 301
   end
   object ADOQueryTemp: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
     LockType = ltReadOnly
     Parameters = <>
-    Left = 274
+    Left = 756
-    Top = 390
+    Top = 362
   end
   object DataSource1: TDataSource
     DataSet = Order_Main
-    Left = 812
+    Left = 695
-    Top = 440
+    Top = 484
   end
   object Order_Main: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 724
+    Left = 695
-    Top = 432
+    Top = 423
   end
   object ADOQuerySub: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
     Parameters = <>
-    Left = 348
+    Left = 695
-    Top = 296
+    Top = 362
   end
   object DataSource2: TDataSource
     DataSet = ORDER_SUB
-    Left = 616
+    Left = 756
-    Top = 420
+    Top = 484
   end
   object ADOQueryImage: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
     EnableBCD = False
     Parameters = <>
-    Left = 332
+    Left = 817
-    Top = 227
+    Top = 301
   end
   object DSImage: TDataSource
     DataSet = ADOQueryImage
-    Left = 440
+    Left = 817
-    Top = 294
+    Top = 484
   end
   object IdFTP1: TIdFTP
     ConnectTimeout = 0
@@ -754,18 +617,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
     ProxySettings.ProxyType = fpcmNone
     ProxySettings.Port = 0
     ReadTimeout = 0
-    Left = 92
+    Left = 634
-    Top = 258
+    Top = 545
   end
   object ORDER_SUB: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 248
+    Left = 756
-    Top = 276
+    Top = 423
   end
   object PopupMenu2: TPopupMenu
-    Left = 812
+    Left = 756
-    Top = 388
+    Top = 545
     object N3: TMenuItem
       Caption = #20840#36873
       OnClick = N3Click
@@ -781,18 +644,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
   end
   object cxgrdpmn2: TcxGridPopupMenu
     PopupMenus = <>
-    Left = 932
+    Left = 878
-    Top = 260
+    Top = 423
   end
   object CDS_WXTS: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 516
+    Left = 634
-    Top = 416
+    Top = 423
   end
   object PM_1: TPopupMenu
-    Left = 940
+    Left = 695
-    Top = 388
+    Top = 545
     object N1: TMenuItem
       Caption = #22797#21046
       OnClick = N1Click
@@ -800,38 +663,38 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
   end
   object GPM_3: TcxGridPopupMenu
     PopupMenus = <>
-    Left = 860
+    Left = 634
-    Top = 228
+    Top = 484
   end
   object ADO_PH: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
     Parameters = <>
-    Left = 296
+    Left = 817
-    Top = 476
+    Top = 362
   end
   object DS_PH: TDataSource
     DataSet = CDS_PH
-    Left = 360
+    Left = 878
-    Top = 444
+    Top = 484
   end
   object CDS_PH: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 396
+    Left = 878
-    Top = 486
+    Top = 362
   end
   object ADOQueryPrint: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink
     LockType = ltReadOnly
     Parameters = <>
-    Left = 1128
+    Left = 634
-    Top = 432
+    Top = 362
   end
   object RMDB_1: TRMDBDataSet
     Visible = True
     DataSet = ADOQueryPrint
-    Left = 1180
+    Left = 817
-    Top = 432
+    Top = 545
   end
   object RM1: TRMGridReport
     ThreadPrepareReport = True
@@ -850,8 +713,8 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
     CompressThread = False
     LaterBuildEvents = True
     OnlyOwnerDataSet = False
-    Left = 1228
+    Left = 878
-    Top = 432
+    Top = 545
     ReportData = {}
   end
 end

T05贸易门市管理/U_TradeDispatchedList.pas

@@ -42,7 +42,6 @@ type
     ADOQuerySub: TADOQuery;
     DataSource2: TDataSource;
     TBFJ: TToolButton;
-    Panel2: TPanel;
     ADOQueryImage: TADOQuery;
     DSImage: TDataSource;
     IdFTP1: TIdFTP;
@@ -56,7 +55,6 @@ type
     CustName: TcxTextEdit;
     Tv1Column6: TcxGridDBColumn;
     cxgrdpmn2: TcxGridPopupMenu;
-    Tv1Column2: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
     Tv1Column1: TcxGridDBColumn;
@@ -80,43 +78,27 @@ type
     Tv1Column9: TcxGridDBColumn;
     Tv1Column12: TcxGridDBColumn;
     Tv1Column13: TcxGridDBColumn;
-    cxGrid2: TcxGrid;
-    TV2: TcxGridDBTableView;
-    V2Column13: TcxGridDBColumn;
-    V2Column10: TcxGridDBColumn;
-    V2Column2: TcxGridDBColumn;
-    V2Column3: TcxGridDBColumn;
-    V2C_Color: TcxGridDBColumn;
-    V2Column5: TcxGridDBColumn;
-    V2Column6: TcxGridDBColumn;
-    V2Column11: TcxGridDBColumn;
-    V2Filler: TcxGridDBColumn;
-    V2Column12: TcxGridDBColumn;
-    V2Column14: TcxGridDBColumn;
-    V2Column15: TcxGridDBColumn;
-    V2Column16: TcxGridDBColumn;
-    cxGrid2Level1: TcxGridLevel;
     Tv1Column14: TcxGridDBColumn;
-    TV2Column1: TcxGridDBColumn;
     Tv1Column15: TcxGridDBColumn;
-    TV2Column2: TcxGridDBColumn;
     TBPrint1: TToolButton;
     ADOQueryPrint: TADOQuery;
     RMDB_1: TRMDBDataSet;
     RM1: TRMGridReport;
     ToolButton1: TToolButton;
     frmFrameDateSel1: TfrmFrameDateSel;
+    ToolButton7: TToolButton;
+    Panel3: TPanel;
     ToolBar2: TToolBar;
-    ToolButton4: TToolButton;
-    phwc: TToolButton;
-    ToolButton6: TToolButton;
-    phok: TToolButton;
-    fh: TToolButton;
     ToolButton9: TToolButton;
-    del: TToolButton;
+    cxGrid2: TcxGrid;
-    ToolButton5: TToolButton;
+    TV2: TcxGridDBTableView;
-    Tdbchexiao: TToolButton;
+    cxGrid2Level1: TcxGridLevel;
+    TV2Column1: TcxGridDBColumn;
+    TV2Column2: TcxGridDBColumn;
+    TV2Column3: TcxGridDBColumn;
+    TV2Column4: TcxGridDBColumn;
     ToolButton3: TToolButton;
+    cxSplitter1: TcxSplitter;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -136,21 +118,14 @@ type
     procedure N4Click(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
     procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
-    procedure ToolButton5Click(Sender: TObject);
     procedure JGTypeChange(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
     procedure N1Click(Sender: TObject);
     procedure N2Click(Sender: TObject);
-    procedure ToolButton4Click(Sender: TObject);
-    procedure phwcClick(Sender: TObject);
-    procedure ToolButton6Click(Sender: TObject);
-    procedure phokClick(Sender: TObject);
-    procedure fhClick(Sender: TObject);
     procedure TBPrint1Click(Sender: TObject);
-    procedure ToolButton9Click(Sender: TObject);
-    procedure delClick(Sender: TObject);
-    procedure TdbchexiaoClick(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton7Click(Sender: TObject);
+    procedure ToolButton9Click(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
   private
     DQdate: TDateTime;
@@ -164,7 +139,6 @@ type
     procedure SetStatus();
     procedure InitImage(fwbid: string);
     function SaveData(): Boolean;
-
     procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
     { Private declarations }
   public
@@ -179,7 +153,8 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
-  U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan;
+  U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan,
+  U_TradeClothTotalPHList;
 
 {$R *.dfm}
 
@@ -201,38 +176,31 @@ end;
 procedure TfrmTradeDispatchedList.SetStatus();
 begin
 
-  del.Visible := false;
+//
-  phwc.Visible := false;
+//  ToolButton3.Visible := false;
-  phok.Visible := false;
+//  case cxTabControl1.TabIndex of
-  fh.Visible := false;
+//    0:
-  ToolButton4.Visible := false;
+//      begin
-  ToolButton5.Visible := false;
+//        del.Visible := true;
-  TBPrint1.Visible := false;
+//        phwc.Visible := true;
-  ToolButton6.Visible := false;
+//        Panel2.Visible := true;
-  Tdbchexiao.Visible := false;
+//        ToolButton4.Visible := true;
-  ToolButton3.Visible := false;
+//      end;
-  case cxTabControl1.TabIndex of
+//    1:
-    0:
+//      begin
-      begin
+//        fh.Visible := true;
-        del.Visible := true;
+//        ToolButton5.Visible := true;
-        phwc.Visible := true;
+//
-        Panel2.Visible := true;
+//        Tdbchexiao.Visible := true;
-        ToolButton4.Visible := true;
+//      end;
-      end;
+//    2:
-    1:
+//      begin
-      begin
+//        TBPrint1.Visible := true;
-        fh.Visible := true;
+//        ToolButton3.Visible := True;
-        ToolButton5.Visible := true;
+//      end;
+//  end;
+//  application.ProcessMessages;
 
-        Tdbchexiao.Visible := true;
-      end;
-    2:
-      begin
-        TBPrint1.Visible := true;
-        ToolButton3.Visible := True;
-      end;
-  end;
-  application.ProcessMessages;
 end;
 
 procedure TfrmTradeDispatchedList.InitSub();
@@ -264,12 +232,10 @@ begin
 
   if Order_Main.IsEmpty then
     EXIT;
-  SqlStr := 'select A.*,B.*    ';
+  SqlStr := 'select A.BCIONO,IOTime=convert(varchar(10),A.IOTime,120) ,Qty=sum(A.Qty) ,Piece=sum(A.Piece)   ';
-  SqlStr := SqlStr + 'from Trade_Market_Distribution A                                                              ';
+  SqlStr := SqlStr + 'from BS_Cloth_IO A                                                              ';
-  SqlStr := SqlStr + 'INNER join BS_Cloth_IO B on B.STKID=A.STKID    and  B.IOFlag=''入库''';
+  SqlStr := SqlStr + 'where A.IOFlag=''出库'' and A.TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').asstring));
-  SqlStr := SqlStr + 'where A.TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').asstring));
+  SqlStr := SqlStr + 'group by A.BCIONO,convert(varchar(10),A.IOTime,120)  ';
-  SqlStr := SqlStr + 'and A.TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').asstring));
-  SqlStr := SqlStr + 'order by A.TMDID ';
 
   InitCDSData(ADO_PH, CDS_PH, Tv2, SqlStr, '', '');
 
@@ -599,270 +565,6 @@ begin
   end;
 end;
 
-procedure TfrmTradeDispatchedList.ToolButton6Click(Sender: TObject);
-begin
-  inherited;
-  if Order_Main.IsEmpty then
-    exit;
-  frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self);
-  with frmTradeMarketDisSel do
-  begin
-
-    fmainID := trim(self.Order_Main.FieldByName('mainID').AsString);
-    if showmodal = 1 then
-    begin
-
-    end;
-    free;
-  end;
-  TBRafresh.Click;
-end;
-
-procedure TfrmTradeDispatchedList.phokClick(Sender: TObject);
-begin
-  inherited;
-  if cds_ph.IsEmpty then
-    exit;
-  try
-    with ADOQueryCmd do
-    begin
-      close;
-      sql.Clear;
-      sql.Add('select * from Trade_Market_Sub ');
-      sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
-      sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
-      open;
-      edit;
-      fieldbyname('substatus').Value := '2';
-      post;
-    end;
-    application.MessageBox('配货确认成功！', '提示信息');
-    TBRafresh.Click;
-  except
-    application.MessageBox('配货确认失败！', '提示信息', 0);
-  end;
-end;
-
-procedure TfrmTradeDispatchedList.fhClick(Sender: TObject);
-var
-  MStkIds, maxno: string;
-  i, fRoll: integer;
-  fNum: double;
-begin
-  if cds_ph.IsEmpty then
-    exit;
-
-  if Order_Main.Locate('ssel', true, []) = false then
-  begin
-    Application.MessageBox('没有选择数据!', '提示', 0);
-    Exit;
-  end;
-  if Application.MessageBox('确定要成品发货吗？', '提示', 32 + 4) <> IDYES then
-    Exit;
-
-  if GetLSNo(ADOQueryCmd, maxno, 'CK', 'Trade_Cloth_IO', 3, 1) = False then
-  begin
-    Application.MessageBox('取出库单号失败!', '提示', 0);
-    Exit;
-  end;
-
-  ADOQueryCmd.Connection.BeginTrans;
-  try
-    Order_Main.First;
-    Order_Main.DisableControls;
-    CDS_ph.DisableControls;
-    MSubIds := '';
-    MStkIds := '';
-    while not Order_Main.eof do
-    begin
-
-      if Order_Main.FieldByName('ssel').AsBoolean then
-      begin
-        InitPH();
-
-        MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ',';
-        with cds_ph do
-        begin
-          while not eof do
-          begin
-            MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ',';
-            next;
-          end;
-        end;
-
-      end;
-      Order_Main.Next;
-    end;
-    MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1);
-    MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1);
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
-      sql.Add('values(''配货出库''    ');
-      sql.Add(',' + quotedstr(MSubIds));
-      sql.Add(',''出库''   ');
-      sql.Add(',' + quotedstr(DName));
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(MStkIds));
-      sql.Add(')  ');
-      execsql;
-    end;
-
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
-      sql.Add('values(''贸易成品出库''    ');
-      sql.Add(',' + quotedstr(maxno));
-      sql.Add(',''出库''   ');
-      sql.Add(',' + quotedstr(DName));
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(MStkIds));
-      sql.Add(')  ');
-      execsql;
-    end;
-
-    with ADOQueryCmd do
-    begin
-      Close;
-      Sql.Clear;
-      Sql.Add('exec P_BS_Cloth_Out_Multiple ');
-      Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
-      Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', Now())));
-      Sql.Add(',@IOType=' + Quotedstr('配货出库'));
-      Sql.Add(',@BCIONO=' + Quotedstr(maxno));
-      Sql.Add(',@ToCoNo=' + Quotedstr(Trim(Order_Main.FieldByName('CustNo').AsString)));
-      Sql.Add(',@ToCoName=' + Quotedstr(Trim(Order_Main.FieldByName('CustName').AsString)));
-      Sql.Add(',@Dcode=' + Quotedstr(DCode));
-      Sql.Add(',@DName=' + Quotedstr(DName));
-      ShowMessage(sql.text);
-      Open;
-    end;
-
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-    begin
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-    end;
-
-    with ADOQueryCmd do
-    begin
-      close;
-      sql.Clear;
-      sql.Add('update  Trade_Market_Sub  set substatus =3 ');
-      sql.add('where EXISTS(select X.RTValue from  [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','')  X where X.RTValue=Trade_Market_Sub.TMSID ) ');
-//      ShowMessage(sql.text);
-      execsql;
-    end;
-
-    CDS_ph.EnableControls;
-    Order_Main.EnableControls;
-    ADOQueryCmd.Connection.CommitTrans;
-    if Application.MessageBox('确定要打印出库单吗？', '提示', 32 + 4) = IDYES then
-    begin
-      TBPrint1.Click;
-    end;
-    TBRafresh.Click;
-
-  except
-    CDS_ph.EnableControls;
-    Order_Main.EnableControls;
-    ADOQueryCmd.Connection.RollbackTrans;
-    application.MessageBox('发货失败！', '提示信息');
-  end;
-end;
-
-procedure TfrmTradeDispatchedList.ToolButton9Click(Sender: TObject);
-var
-  fPrintFile, FLabVolume: string;
-begin
-  if CDS_PH.IsEmpty then
-    Exit;
-  if CDS_PH.Locate('SSel', True, []) = False then
-  begin
-    Application.MessageBox('没有选择数据!', '提示', 0);
-    Exit;
-  end;
-  CDS_PH.DisableControls;
-  with CDS_PH do
-  begin
-    First;
-    while not Eof do
-    begin
-      if CDS_PH.FieldByName('SSel').AsBoolean = True then
-      begin
-        with ADOQueryCmd do
-        begin
-          Close;
-          sql.Clear;
-          sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + '''');
-          sql.Add(' where BCIOID=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + '''');
-          ExecSQL;
-        end;
-
-        with ADOQueryPrint do
-        begin
-          Close;
-          SQL.Clear;
-          sql.Add(' EXEC P_BS_Cloth_Prt13 ');
-          SQL.Add(' @Filtration=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + '''');
-          Open;
-        end;
-        if ADOQueryPrint.IsEmpty then
-        begin
-          application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
-          CDS_PH.EnableControls;
-          exit;
-        end;
-
-        if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = '正品' then
-          FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
-        else
-          FLabVolume := '次品标签';
-
-        ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
-        fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
-
-        if FileExists(fPrintFile) then
-        begin
-          RM1.LoadFromFile(fPrintFile);
-          if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '次品标签' then
-            Rm1.DefaultCopies := 1
-          else
-            Rm1.DefaultCopies := 1;
-          RM1.PrintReport;
-        end
-        else
-        begin
-          Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
-        end;
-      end;
-      Next;
-    end;
-  end;
-  CDS_PH.EnableControls;
-
-  initPH();
-end;
-
-procedure TfrmTradeDispatchedList.delClick(Sender: TObject);
-begin
-  inherited;
-  if cds_ph.IsEmpty then
-    exit;
-  with ADOQueryCmd do
-  begin
-    close;
-    sql.Clear;
-    sql.Add('delete from Trade_Market_Distribution ');
-    sql.Add('where TMD=' + quotedstr(trim(cds_ph.fieldbyname('TMD').AsString)));
-    execsql;
-  end;
-  cds_ph.Delete;
-end;
-
 procedure TfrmTradeDispatchedList.TBPrint1Click(Sender: TObject);
 begin
   inherited;
@@ -942,180 +644,52 @@ begin
   end;
 end;
 
-procedure TfrmTradeDispatchedList.ToolButton5Click(Sender: TObject);
+procedure TfrmTradeDispatchedList.ToolButton7Click(Sender: TObject);
-begin
-  if cds_ph.IsEmpty then
-    exit;
-  if cxTabControl1.TabIndex = 1 then
-  begin
-    if Application.MessageBox('确定要执行操作吗？', '提示', 32 + 4) <> IDYES then
-      Exit;
-
-    try
-
-      ADOQueryCmd.Connection.BeginTrans;
-      with ADOQueryCmd do
-      begin
-        close;
-        sql.Clear;
-        sql.Add('select * from Trade_Market_Sub ');
-        sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
-        sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
-        open;
-        edit;
-        fieldbyname('substatus').Value := '0';
-        post;
-      end;
-      with ADOQueryCmd do
-      begin
-        close;
-        sql.Clear;
-        sql.Add('update BS_Cloth_IO SET disstatus=null  ');
-        sql.Add('from   Trade_Market_Distribution B where B.stkid=A.stkid ');
-        sql.Add('and TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
-        sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
-        execsql;
-      end;
-      with ADOQueryCmd do
-      begin
-        close;
-        sql.Clear;
-        sql.Add('delete  from Trade_Market_Distribution ');
-        sql.Add('where TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
-        execsql;
-      end;
-
-      with ADOQueryCmd do
-      begin
-        Close;
-        sql.Clear;
-        sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
-        sql.Add(' ' + quotedstr(trim(DName)));
-        sql.Add(',getdate() ');
-        sql.Add(',' + quotedstr(trim(self.Caption)));
-        sql.Add(',' + quotedstr(trim('撤销配货')));
-        sql.Add(',' + quotedstr(trim('订单号:' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' 编号:' + trim(Order_Main.FieldByName('C_Code').AsString) + ' 颜色:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' 花型:' + trim(Order_Main.FieldByName('C_Pattern').AsString))));
-        sql.Add(',' + quotedstr(trim('成功')));
-        sql.Add(')');
-        ExecSQL;
-      end;
-
-      ADOQueryCmd.Connection.CommitTrans;
-
-      application.MessageBox('撤销配货成功！', '提示信息');
-      TBRafresh.Click;
-    except
-      ADOQueryCmd.Connection.RollbackTrans;
-      application.MessageBox('撤销配货失败！', '提示信息', 0);
-    end;
-  end;
-end;
-
-procedure TfrmTradeDispatchedList.TdbchexiaoClick(Sender: TObject);
 begin
   inherited;
-  if CDS_PH.IsEmpty then
+  if cds_ph.IsEmpty then
     exit;
-  CDS_PH.first;
   try
-    if Application.MessageBox('确定要执行操作吗？', '提示', 32 + 4) <> IDYES then
+    with ADOQueryCmd do
-      Exit;
-    ADOQueryCmd.Connection.BeginTrans;
-    while not CDS_PH.eof do
-    begin
-      if CDS_PH.FieldByName('ssel').AsBoolean then
-      begin
-        with ADOQueryCmd do
-        begin
-          close;
-          sql.Clear;
-          sql.Add('update BS_Cloth_IO SET disstatus=null  ');
-          sql.Add('where stkid=' + quotedstr(trim(CDS_PH.fieldbyname('stkid').AsString)));
-          execsql;
-        end;
-        with ADOQueryCmd do
-        begin
-          close;
-          sql.Clear;
-          sql.Add('delete  from Trade_Market_Distribution ');
-          sql.Add('where TMDID=' + quotedstr(trim(CDS_PH.fieldbyname('TMDID').AsString)));
-          execsql;
-        end;
-      end;
-      CDS_PH.next;
-    end;
-    with ADOQueryTemp do
     begin
       close;
       sql.Clear;
-      sql.Add('select * from Trade_Market_Distribution ');
+      sql.Add('select * from Trade_Market_Sub ');
       sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
       sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
       open;
+      edit;
+      fieldbyname('substatus').Value := '2';
+      post;
     end;
-    if ADOQueryTemp.IsEmpty then
+    application.MessageBox('配货确认成功！', '提示信息');
-    begin
+    TBRafresh.Click;
-      with ADOQueryCmd do
-      begin
-        close;
-        sql.Clear;
-        sql.Add('select * from Trade_Market_Sub ');
-        sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString)));
-        sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString)));
-        open;
-        edit;
-        fieldbyname('substatus').Value := '0';
-        post;
-      end;
-    end;
-    CDS_PH.first;
-
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
-      sql.Add(' ' + quotedstr(trim(DName)));
-      sql.Add(',getdate() ');
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(trim('撤销配货')));
-      sql.Add(',' + quotedstr(trim('订单号:' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' 编号:' + trim(Order_Main.FieldByName('C_Code').AsString) + ' 颜色:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' 花型:' + trim(Order_Main.FieldByName('C_Pattern').AsString))));
-      sql.Add(',' + quotedstr(trim('成功')));
-      sql.Add(')');
-      ExecSQL;
-    end;
-    ADOQueryCmd.Connection.CommitTrans;
-
-    Application.MessageBox('操作成功!', '提示', 0);
-    initph();
   except
-    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox('配货确认失败！', '提示信息', 0);
-    Application.MessageBox('操作异常!', '提示', 0);
   end;
 end;
 
-procedure TfrmTradeDispatchedList.ToolButton4Click(Sender: TObject);
+procedure TfrmTradeDispatchedList.ToolButton9Click(Sender: TObject);
-var
-  fsubid: string;
 begin
   inherited;
-  if Order_Main.IsEmpty then
+  if CDS_PH.IsEmpty then
-    exit;
+    Exit;
-  fsubid := order_main.FieldByName('TMSID').AsString;
+  MSubIds := Trim(Self.CDS_PH.fieldbyname('BCIONO').AsString);
 
-  frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self);
+  try
-  with frmTradeMarketDisSel do
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
-  begin
+    with frmLabelPrint do
-    fmainID := trim(self.Order_Main.FieldByName('TMMID').AsString);
-    if showmodal = 1 then
     begin
-
+      FLMType := 'DistributionPrint11';
+      FFiltration1 := Trim(MSubIds);
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
     end;
-    free;
+  finally
+    frmLabelPrint.Free;
   end;
-
-  TBRafresh.Click;
-  Order_Main.Locate('Tmsid', fsubid, []);
 end;
 
 procedure TfrmTradeDispatchedList.ToolButton1Click(Sender: TObject);
@@ -1138,165 +712,19 @@ begin
 end;
 
 procedure TfrmTradeDispatchedList.ToolButton3Click(Sender: TObject);
-var
-  MStkIds: string;
 begin
-  if Order_Main.Locate('ssel', true, []) = false then
-  begin
-    Application.MessageBox('没有选择数据!', '提示', 0);
-    Exit;
-  end;
   try
-    ADOQueryCmd.Connection.BeginTrans;
+    frmTradeClothTotalPHList := TfrmTradeClothTotalPHList.Create(Application);
-    MSubIds := '';
+    with frmTradeClothTotalPHList do
-    MStkIds := '';
-    Order_Main.First;
-    while not Order_Main.eof do
     begin
-
+      FBCIONO := Trim(Self.CDS_PH.fieldbyname('BCIONO').AsString);
-      if Order_Main.FieldByName('ssel').AsBoolean then
+      if ShowModal = 1 then
       begin
-        InitPH();
-
-        MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ',';
-        with cds_ph do
-        begin
-          while not eof do
-          begin
-            MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ',';
-            next;
-          end;
-        end;
 
       end;
-      Order_Main.Next;
     end;
-    MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1);
+  finally
-    MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1);
+    frmTradeClothTotalPHList.Free;
-
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
-      sql.Add('values(''贸易成品出库''    ');
-      sql.Add(',' + quotedstr(MSubIDS));
-      sql.Add(',''撤销出库''   ');
-      sql.Add(',' + quotedstr(DName));
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(MStkIds));
-      sql.Add(')  ');
-      execsql;
-    end;
-
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
-      sql.Add('values(''贸易成品出库''    ');
-      sql.Add(',' + quotedstr(''));
-      sql.Add(',''撤销出库''   ');
-      sql.Add(',' + quotedstr(DName));
-      sql.Add(',' + quotedstr(trim(self.Caption)));
-      sql.Add(',' + quotedstr(MStkIds));
-      sql.Add(')  ');
-      execsql;
-    end;
-    with ADOQueryCmd do
-    begin
-      Close;
-      Sql.Clear;
-      Sql.Add('exec P_BS_Cloth_Out_TMMDel ');
-      Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
-      Sql.Add(',@DCode=' + Quotedstr(DCode));
-      Sql.Add(',@DName=' + Quotedstr(DName));
-//      ShowMessage(sql.Text);
-      Open;
-    end;
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-    begin
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-    end;
-
-    with ADOQueryCmd do
-    begin
-      close;
-      sql.Clear;
-      sql.Add('update  Trade_Market_Sub  set substatus =2 ');
-      sql.add('where EXISTS(select X.RTValue from  [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','')  X where X.RTValue=Trade_Market_Sub.TMSID ) ');
-//      ShowMessage(sql.text);
-      execsql;
-    end;
-
-//    PlayWav('正确');
-
-    Application.MessageBox('撤销成功!', '提示', 0);
-    ADOQueryCmd.Connection.CommitTrans;
-
-    TBRafresh.Click;
-  except
-    Application.MessageBox('撤销失败!', '提示', 0);
-    order_main.EnableControls;
-    ADOQueryCmd.Connection.RollbackTrans;
-  end;
-
-end;
-
-procedure TfrmTradeDispatchedList.phwcClick(Sender: TObject);
-var
-  phRollNum, phQty: double;
-begin
-  if cds_ph.IsEmpty then
-    exit;
-
-  with CDS_PH do
-  begin
-    DisableControls;
-    first;
-    while not eof do
-    begin
-      if (trim(fieldbyname('C_Code').AsString) <> trim(Order_Main.FieldByName('C_Code').AsString)) or (trim(fieldbyname('C_Color').AsString) <> trim(Order_Main.FieldByName('C_Color').AsString)) or (trim(fieldbyname('C_Pattern').AsString) <> trim(Order_Main.FieldByName('C_Pattern').AsString)) then
-      begin
-        application.MessageBox('产品编号，花型或者颜色不一致，不能配货！', '提示信息', 0);
-        EnableControls;
-        exit;
-      end;
-      next;
-    end;
-    first;
-    EnableControls;
-  end;
-  phRollNum := 0;
-  phQty := 0;
-  with CDS_PH do
-  begin
-    DisableControls;
-    first;
-    while not eof do
-    begin
-      phRollNum := phRollNum + 1;
-      phQty := phQty + CDS_PH.fieldbyname('stkmeter').AsFloat;
-      next;
-    end;
-    first;
-    EnableControls;
-  end;
-
-  if (phRollNum <> Order_Main.FieldByName('TMSPiece').AsFloat) or (phQty <> Order_Main.FieldByName('TMSQty').AsFloat) then
-  begin
-    if Application.MessageBox('你的配货未达到配货要求，你确认这样配货吗？', '提示信息', 32 + 4) <> IDYES then
-      Exit;
-  end;
-
-  if SaveData() then
-  begin
-    application.MessageBox('配货成功!', '提示信息');
-    TBRafresh.Click;
-  end
-  else
-  begin
-    application.MessageBox('配货失败!', '提示信息', 0);
   end;
 end;
 

T05贸易门市管理/U_TradeMarketDisScan.pas

@@ -16,7 +16,7 @@ uses
   System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
   IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
   IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, dxScrollbarAnnotations,
-  cxImageList;
+  cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
 
 type
   TfrmTradeMarketDisScan = class(TfrmBaseInput)

T05贸易门市管理/U_TradeMarketInPut.dfm

@@ -2,14 +2,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
   Left = 143
   Top = 4
   Caption = #35746#21333#24405#20837
-  ClientHeight = 823
+  ClientHeight = 652
   ClientWidth = 1360
   Font.Charset = GB2312_CHARSET
   Font.Height = -16
   Position = poMainFormCenter
   WindowState = wsMaximized
   ExplicitWidth = 1376
-  ExplicitHeight = 862
+  ExplicitHeight = 691
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -103,25 +103,28 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     Left = 0
     Top = 254
     Width = 1360
-    Height = 569
+    Height = 398
     Align = alClient
     Caption = 'Panel2'
     TabOrder = 2
+    ExplicitHeight = 569
     object Panel3: TPanel
       Left = 1
       Top = 1
       Width = 1072
-      Height = 567
+      Height = 396
       Align = alClient
       Caption = 'Panel2'
       TabOrder = 0
+      ExplicitHeight = 567
       object cxGrid1: TcxGrid
         Left = 1
         Top = 1
         Width = 1070
-        Height = 565
+        Height = 394
         Align = alClient
         TabOrder = 0
+        ExplicitHeight = 565
         object Tv1: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>
@@ -320,10 +323,11 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       Left = 1073
       Top = 1
       Width = 286
-      Height = 567
+      Height = 396
       Align = alRight
       Caption = 'Panel4'
       TabOrder = 1
+      ExplicitHeight = 567
       object Panel5: TPanel
         Left = 1
         Top = 1
@@ -357,17 +361,19 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
         Left = 1
         Top = 42
         Width = 284
-        Height = 524
+        Height = 353
         Align = alClient
         Caption = #21452#20987#21024#38500#26126#32454#20449#24687
         TabOrder = 1
+        ExplicitHeight = 524
         object cxGrid2: TcxGrid
           Left = 2
           Top = 23
           Width = 280
-          Height = 499
+          Height = 328
           Align = alClient
           TabOrder = 0
+          ExplicitHeight = 499
           object TvMX: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             Navigator.Buttons.Delete.Enabled = False
@@ -440,7 +446,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     ParentCtl3D = False
     TabOrder = 3
     OnClick = ScrollBox1Click
-    ExplicitTop = 24
     object Label3: TLabel
       Left = 722
       Top = 13

T05贸易门市管理/U_TradeMarketList.dfm

@@ -1,8 +1,8 @@
 inherited frmTradeMarketList: TfrmTradeMarketList
   Left = 165
   Top = 13
-  Caption = #29983#20135#35745#21010#21333#31649#29702
+  Caption = #22823#36135#21333
-  ClientHeight = 760
+  ClientHeight = 594
   ClientWidth = 1540
   Color = clBtnFace
   Font.Height = -16
@@ -10,7 +10,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
   Position = poScreenCenter
   Visible = True
   ExplicitWidth = 1556
-  ExplicitHeight = 799
+  ExplicitHeight = 633
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -252,10 +252,11 @@ inherited frmTradeMarketList: TfrmTradeMarketList
     Left = 0
     Top = 152
     Width = 1540
-    Height = 404
+    Height = 238
     Align = alClient
     PopupMenu = PM_1
     TabOrder = 3
+    ExplicitHeight = 404
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -297,7 +298,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 66
+        Width = 118
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #32463#33829#21333#20301
@@ -305,7 +306,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 66
+        Width = 103
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #23458#25143
@@ -313,7 +314,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 66
+        Width = 91
       end
       object v1DeliveryDate: TcxGridDBColumn
         Caption = #20132#36135#26085#26399
@@ -324,7 +325,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         OnCustomDrawCell = v1DeliveryDateCustomDrawCell
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 66
+        Width = 174
       end
       object Tv1Column11: TcxGridDBColumn
         Caption = #21305#25968
@@ -389,11 +390,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList
   end
   object cxSplitter1: TcxSplitter [3]
     Left = 0
-    Top = 556
+    Top = 390
     Width = 1540
     Height = 8
     HotZoneClassName = 'TcxMediaPlayer9Style'
     AlignSplitter = salBottom
+    ExplicitTop = 556
   end
   object cxTabControl1: TcxTabControl [4]
     Left = 0
@@ -418,13 +420,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList
   end
   object Panel2: TPanel [5]
     Left = 0
-    Top = 564
+    Top = 398
     Width = 1540
     Height = 196
     Align = alBottom
     BevelOuter = bvNone
     Caption = 'Panel2'
     TabOrder = 5
+    ExplicitTop = 564
     object cxGrid2: TcxGrid
       Left = 0
       Top = 0
@@ -495,14 +498,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList
           DataBinding.FieldName = 'C_Code'
           DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Width = 70
+          Width = 92
         end
         object TV2Column2: TcxGridDBColumn
           Caption = #33394#24067#21517#31216
           DataBinding.FieldName = 'C_Name'
           DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Width = 70
+          Width = 106
         end
         object v1PRTColor: TcxGridDBColumn
           Caption = #20013#25991#39068#33394
@@ -517,7 +520,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
           Properties.ReadOnly = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Width = 79
+          Width = 103
         end
         object VC_PRTPs: TcxGridDBColumn
           Caption = #21305#25968