0113

A00通用窗体/U_AttachmentUpload.dfm

@@ -101,6 +101,7 @@ inherited frmAttachmentUpload: TfrmAttachmentUpload
     Height = 463
     Align = alClient
     TabOrder = 3
+    ExplicitLeft = -6
     object Tv1: TcxGridDBTableView
       OnDblClick = Tv1DblClick
       Navigator.Buttons.CustomButtons = <>

A02基础产品管理/U_SLT.pas

@@ -6,7 +6,7 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, jpeg, cxControls, cxContainer, cxEdit, cxImage, IdFTP,
   ShellAPI, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
-  dxSkinsDefaultPainters;
+  dxSkinsDefaultPainters, dxSkinWXI;
 
 type
   TfrmSLT = class(TFrame)

A03基础价格管理/ProjectGroup1.groupproj.local

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Default.Personality>
-		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\MarketValue.dproj"/>
+		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\testDll.dproj"/>
 	</Default.Personality>
 </BorlandProject>

A09财务通用管理/U_CollectList.dfm

@@ -6,7 +6,6 @@ inherited frmCollectList: TfrmCollectList
   ClientWidth = 1540
   FormStyle = fsMDIChild
   Visible = True
-  ExplicitLeft = -16
   ExplicitWidth = 1556
   ExplicitHeight = 629
   PixelsPerInch = 96
@@ -84,16 +83,32 @@ inherited frmCollectList: TfrmCollectList
       ImageIndex = 11
       OnClick = btnReChkClick
     end
-    object ToolButton7: TToolButton
+    object ToolButton2: TToolButton
       Left = 521
       Top = 0
       AutoSize = True
+      Caption = #23436#25104#26680#38144
+      ImageIndex = 12
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 616
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23436#25104
+      ImageIndex = 11
+      OnClick = ToolButton3Click
+    end
+    object ToolButton7: TToolButton
+      Left = 711
+      Top = 0
+      AutoSize = True
       Caption = #26680#38144
       ImageIndex = 3
       OnClick = ToolButton7Click
     end
     object ToolButton8: TToolButton
-      Left = 592
+      Left = 782
       Top = 0
       AutoSize = True
       Caption = #26680#38144#26085#24535
@@ -101,7 +116,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton8Click
     end
     object ToolButton9: TToolButton
-      Left = 687
+      Left = 877
       Top = 0
       AutoSize = True
       Caption = #38468#20214#19978#20256
@@ -109,7 +124,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton9Click
     end
     object ToolButton4: TToolButton
-      Left = 782
+      Left = 972
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -117,7 +132,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton4Click
     end
     object ToolButton5: TToolButton
-      Left = 853
+      Left = 1043
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -125,13 +140,21 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton5Click
     end
     object TBClose: TToolButton
-      Left = 948
+      Left = 1138
       Top = 0
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 7
       OnClick = TBCloseClick
     end
+    object ToolButton6: TToolButton
+      Left = 1209
+      Top = 0
+      AutoSize = True
+      Caption = #25968#25454#34917#24405
+      ImageIndex = 9
+      OnClick = ToolButton6Click
+    end
   end
   object Panel1: TPanel [1]
     Left = 0
@@ -179,8 +202,8 @@ inherited frmCollectList: TfrmCollectList
       Caption = #21512' '#21516' '#21495
     end
     object Label11: TLabel
-      Left = 479
+      Left = 475
-      Top = 13
+      Top = 17
       Width = 48
       Height = 12
       Caption = #23458#25143#21333#21495
@@ -283,12 +306,12 @@ inherited frmCollectList: TfrmCollectList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 142
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
       Navigator.Buttons.Delete.Visible = False
       ScrollbarAnnotations.CustomAnnotations = <>
+      OnCustomDrawCell = Tv1CustomDrawCell
       DataController.DataSource = DS_1
       DataController.Filter.AutoDataSetFilter = True
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -477,6 +500,46 @@ inherited frmCollectList: TfrmCollectList
         HeaderAlignmentHorz = taCenter
         Width = 84
       end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #38468#20214
+        DataBinding.FieldName = 'ISFJ'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 46
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #26680#38144#29366#24577
+        DataBinding.FieldName = 'HXFlag'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #32467#27719#27719#29575
+        DataBinding.FieldName = 'JHExchangeRate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #25163#32493#36153
+        DataBinding.FieldName = 'SXFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #23454#25910#37329#39069
+        DataBinding.FieldName = 'SSAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #23454#25910#20154#27665#24065
+        DataBinding.FieldName = 'SSCNYAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 86
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv1
@@ -507,6 +570,84 @@ inherited frmCollectList: TfrmCollectList
     ClientRectRight = 1540
     ClientRectTop = 36
   end
+  object Panel2: TPanel [4]
+    Left = 800
+    Top = 248
+    Width = 209
+    Height = 113
+    TabOrder = 4
+    Visible = False
+    object Label1: TLabel
+      Left = 25
+      Top = 60
+      Width = 48
+      Height = 12
+      Caption = #25163' '#32493' '#36153
+    end
+    object Label5: TLabel
+      Left = 25
+      Top = 33
+      Width = 48
+      Height = 12
+      Caption = #32467#27719#27719#29575
+    end
+    object Panel3: TPanel
+      Left = 1
+      Top = 1
+      Width = 207
+      Height = 22
+      Align = alTop
+      Caption = #25968#25454#34917#24405
+      Color = clSkyBlue
+      ParentBackground = False
+      TabOrder = 0
+      object Button1: TButton
+        Left = 152
+        Top = -3
+        Width = 57
+        Height = 25
+        Caption = #20851#38381
+        TabOrder = 0
+        OnClick = Button1Click
+      end
+    end
+    object SXFAmount: TEdit
+      Tag = 2
+      Left = 106
+      Top = 56
+      Width = 87
+      Height = 20
+      TabOrder = 1
+      OnKeyPress = JHExchangeRateKeyPress
+    end
+    object JHExchangeRate: TEdit
+      Tag = 2
+      Left = 106
+      Top = 29
+      Width = 87
+      Height = 20
+      TabOrder = 2
+      OnKeyPress = JHExchangeRateKeyPress
+    end
+    object Button2: TButton
+      Left = 112
+      Top = 82
+      Width = 75
+      Height = 25
+      Caption = #20445#23384
+      TabOrder = 3
+      OnClick = Button2Click
+    end
+    object FFID: TEdit
+      Left = 1
+      Top = 82
+      Width = 105
+      Height = 20
+      TabOrder = 4
+      Text = 'FFID'
+      Visible = False
+    end
+  end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_Financial.ADOLink
     Left = 233

A09财务通用管理/U_CollectList.pas

@@ -84,6 +84,24 @@ type
     Tv1Column8: TcxGridDBColumn;
     Tv1Column9: TcxGridDBColumn;
     ToolButton1: TToolButton;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton6: TToolButton;
+    Panel2: TPanel;
+    Panel3: TPanel;
+    Label1: TLabel;
+    Label5: TLabel;
+    SXFAmount: TEdit;
+    JHExchangeRate: TEdit;
+    Button1: TButton;
+    Button2: TButton;
+    FFID: TEdit;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);
@@ -105,6 +123,13 @@ type
     procedure ToolButton9Click(Sender: TObject);
     procedure N3Click(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure Button1Click(Sender: TObject);
+    procedure JHExchangeRateKeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
   private
     procedure InitGrid();
     procedure SetStatus();
@@ -129,6 +154,8 @@ begin
   btnEdit.Enabled := false;     //修改
   btnDel.Enabled := false;           //删除
 
+  ToolButton2.Enabled := false;     //完成核销
+  ToolButton3.Enabled := false;     //撤销完成
 //  if Trim(FAuthority) = '管理' then
   begin
     btnAdd.Enabled := true;
@@ -142,6 +169,8 @@ begin
       1:
         begin
           btnReChk.Enabled := true;
+          ToolButton2.Enabled := true;
+          ToolButton3.Enabled := true;
         end;
       2:
         begin
@@ -168,8 +197,12 @@ begin
       Close;
       SQL.Clear;
       Filtered := False;
-      sql.Add(' select Amount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)');
+      sql.Add(' select IsFJ=cast((case when (select COUNT(T.WBID) from FJ_File T where T.TFType = ''SD'' and T.WBID=A.FFID)=0 then 0 else 1 end) as bit )');
-      SQL.Add(',A.*,Saleser=(select Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
+      sql.Add(',Amount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)');
+      sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)');
+      sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) ');
+      sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)');
+      SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
       sql.Add(' from Finance_Flow A where A.FFType=''收款登记''  ');
       case cxTabControl1.TabIndex of
         0:
@@ -187,6 +220,8 @@ begin
         sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
       end;
       sql.Add(WSql);
+      sql.Add('Order By A.HXFlag');
+//      showmessage(sql.text);
       Open;
     end;
     SCreateCDS(ADOQueryMain, CDS_1);
@@ -197,6 +232,22 @@ begin
   end;
 end;
 
+procedure TfrmCollectList.JHExchangeRateKeyPress(Sender: TObject; var Key: Char);
+begin
+  if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
+  begin
+    Key := #0;
+  end
+  else if (pos('.', TEdit(Sender).text) <> 0) then
+  begin
+    if Key = '.' then
+    begin
+      Key := #0;
+    end;
+  end;
+
+end;
+
 procedure TfrmCollectList.N1Click(Sender: TObject);
 begin
   SelOKNo(cds_1, true);
@@ -275,7 +326,7 @@ begin
   inherited;
   ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
-  begdate.DateTime := Enddate.DateTime - 30;
+  begdate.DateTime := Enddate.DateTime - 91;
   SetStatus();
   InitGrid();
 end;
@@ -462,6 +513,41 @@ begin
   end;
 end;
 
+procedure TfrmCollectList.Button1Click(Sender: TObject);
+begin
+  Panel2.Visible := False;
+  JHExchangeRate.text := '';
+  SXFAmount.text := '';
+end;
+
+procedure TfrmCollectList.Button2Click(Sender: TObject);
+begin
+  if FFID.Text <> '' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('UPdate Finance_Flow ');
+      sql.Add(' Set JHExchangeRate=''' + Trim(JHExchangeRate.Text) + '''');
+      sql.Add(',SXFAmount=''' + Trim(SXFAmount.Text) + '''');
+      SQL.Add(' where FFID=''' + Trim(FFID.Text) + '''');
+      sql.Add('UPdate Finance_WriteOff ');
+      sql.Add(' Set WoJHExchangeRate=''' + Trim(JHExchangeRate.Text) + '''');
+//      sql.Add(',SXFAmount=''' + Trim(SXFAmount.Text) + '''');
+      SQL.Add(' where FromId=''' + Trim(FFID.Text) + '''');
+
+//      ShowMessage(SQL.text);
+      execsql;
+    end;
+
+  end;
+
+  Application.MessageBox('保存成功!', '提示', 0);
+  Button1.Click;
+
+end;
+
 procedure TfrmCollectList.btnAddClick(Sender: TObject);
 begin
 
@@ -487,7 +573,7 @@ begin
     with frmCollectInput do
     begin
       FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
-      PState:='复制';
+      PState := '复制';
       if ShowModal = 1 then
       begin
         InitGrid();
@@ -499,6 +585,108 @@ begin
 
 end;
 
+procedure TfrmCollectList.ToolButton2Click(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_SetStatus_HX ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      sql.Add(',@Operation=''核销完成'' ');
+      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;
+    application.MessageBox('核销完成成功', '提示');
+    InitGrid();
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+
+end;
+
+procedure TfrmCollectList.ToolButton3Click(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_SetStatus_HX ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      sql.Add(',@Operation=''撤销核销'' ');
+      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;
+    application.MessageBox('撤销核销成功', '提示');
+    InitGrid();
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+
+end;
+
 procedure TfrmCollectList.ToolButton4Click(Sender: TObject);
 begin
   if ADOQueryMain.IsEmpty then
@@ -511,6 +699,15 @@ begin
   WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
 end;
 
+procedure TfrmCollectList.ToolButton6Click(Sender: TObject);
+begin
+  FFID.text := trim(CDS_1.fieldbyname('FFID').AsString);
+  Panel2.Left := (self.width - Panel2.width) div 2;
+  Panel2.Top := 330;
+  Panel2.Visible := True;
+
+end;
+
 procedure TfrmCollectList.btnEditClick(Sender: TObject);
 begin
   try
@@ -619,6 +816,13 @@ begin
 
 end;
 
+procedure TfrmCollectList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('HXFlag').Index] <> '已核销' then
+    ACanvas.Brush.Color := clWebOrange;
+
+end;
+
 procedure TfrmCollectList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then

A09财务通用管理/U_CollectWriteOff.dfm

@@ -66,6 +66,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
     TabOrder = 2
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_Ysk
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <>
@@ -96,6 +97,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column1: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'Ssel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         Properties.NullStyle = nssUnchecked
@@ -105,6 +107,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column9: TcxGridDBColumn
         Caption = #26085#26399
         DataBinding.FieldName = 'FFTime'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 80
@@ -112,6 +115,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column8: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Width = 73
@@ -119,6 +123,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object VC_ORDERNO: TcxGridDBColumn
         Caption = #25351#31034#21333#21495
         DataBinding.FieldName = 'OrderNO'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 79
@@ -126,6 +131,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column10: TcxGridDBColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 64
@@ -133,6 +139,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column11: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'F_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 62
@@ -140,6 +147,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column3: TcxGridDBColumn
         Caption = #25688#35201
         DataBinding.FieldName = 'CWType'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 74
@@ -147,6 +155,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column4: TcxGridDBColumn
         Caption = #24212#25910#37329#39069
         DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 98
@@ -154,6 +163,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column5: TcxGridDBColumn
         Caption = #24050#26680#38144#37329#39069
         DataBinding.FieldName = 'FFWoAmount'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 97
@@ -161,6 +171,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column6: TcxGridDBColumn
         Caption = #26410#26680#38144#37329#39069
         DataBinding.FieldName = 'NWoAmount'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 101
@@ -168,15 +179,31 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       object v1Column7: TcxGridDBColumn
         Caption = #26412#27425#26680#38144
         DataBinding.FieldName = 'CurWoAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.DisplayFormat = '0.##;-,0.##'
         Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged
         HeaderAlignmentHorz = taCenter
         Width = 81
       end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #26412#27425#25163#32493#36153
+        DataBinding.FieldName = 'CurSXFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #26412#27425#32467#27719#27719#29575
+        DataBinding.FieldName = 'CurJHExchangeRate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 91
+      end
       object v1PBNote: TcxGridDBColumn
         Caption = #20986#24211#22791#27880
         DataBinding.FieldName = 'PBNote'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 84
@@ -219,7 +246,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       Visible = False
     end
     object Label3: TLabel
-      Left = 256
+      Left = 334
       Top = 10
       Width = 130
       Height = 12
@@ -231,6 +258,13 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label7: TLabel
+      Left = 185
+      Top = 10
+      Width = 48
+      Height = 12
+      Caption = #23458#25143#21333#21495
+    end
     object F_Name: TEdit
       Tag = 2
       Left = 77
@@ -241,8 +275,8 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       OnKeyPress = KHConNoKeyPress
     end
     object Button1: TButton
-      Left = 584
+      Left = 616
-      Top = 4
+      Top = 8
       Width = 107
       Height = 25
       Caption = #20998#37197#26680#38144#37329#39069
@@ -273,7 +307,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
     end
     object curHsNum: TEdit
       Tag = 9
-      Left = 391
+      Left = 469
       Top = 6
       Width = 101
       Height = 20
@@ -285,6 +319,15 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       ParentFont = False
       TabOrder = 4
     end
+    object BuyConNo: TEdit
+      Tag = 2
+      Left = 239
+      Top = 6
+      Width = 89
+      Height = 20
+      TabOrder = 5
+      OnKeyPress = KHConNoKeyPress
+    end
   end
   object ScrollBox1: TScrollBox [3]
     Left = 0
@@ -334,6 +377,20 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       Height = 12
       Caption = #26410#26680#38144#37329#39069
     end
+    object Label10: TLabel
+      Left = 797
+      Top = 20
+      Width = 60
+      Height = 12
+      Caption = #32467#31639#25163#32493#36153
+    end
+    object Label11: TLabel
+      Left = 993
+      Top = 20
+      Width = 48
+      Height = 12
+      Caption = #32467#27719#27719#29575
+    end
     object OppCoName: TEdit
       Left = 84
       Top = 17
@@ -342,7 +399,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       TabOrder = 0
     end
     object Amount: TEdit
-      Left = 304
+      Left = 306
       Top = 17
       Width = 100
       Height = 18
@@ -362,6 +419,20 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff
       Height = 18
       TabOrder = 3
     end
+    object SXFAmount: TEdit
+      Left = 863
+      Top = 17
+      Width = 100
+      Height = 18
+      TabOrder = 4
+    end
+    object JHExchangeRate: TEdit
+      Left = 1047
+      Top = 17
+      Width = 100
+      Height = 18
+      TabOrder = 5
+    end
   end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_Financial.ADOLink

A09财务通用管理/U_CollectWriteOff.pas

@@ -10,7 +10,8 @@ uses
   ComCtrls, ToolWin, DBClient, ADODB, cxCurrencyEdit, cxCheckBox, ExtCtrls,
   cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
   dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxGridCustomPopupMenu,
-  cxGridPopupMenu, U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus;
+  cxGridPopupMenu, U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus,
+  dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmCollectWriteOff = class(TfrmBaseInput)
@@ -62,6 +63,14 @@ type
     PM_1: TPopupMenu;
     N1: TMenuItem;
     N2: TMenuItem;
+    Label7: TLabel;
+    BuyConNo: TEdit;
+    Label10: TLabel;
+    SXFAmount: TEdit;
+    Tv1Column1: TcxGridDBColumn;
+    Label11: TLabel;
+    JHExchangeRate: TEdit;
+    Tv1Column2: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -145,7 +154,7 @@ begin
       Close;
       SQL.Clear;
       Filtered := False;
-      sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00 ');
+      sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00,CurSXFAmount=0.00,CurJHExchangeRate=0.0 ');
       sql.Add('from Finance_Flow A ');
       sql.Add(' where Amount-isnull(FFWoAmount,0)<>0');
       sql.Add(' and FFType=' + quotedstr(trim('Ó¦ÊÕ¿îµÇ¼Ç')));
@@ -172,7 +181,8 @@ begin
       Close;
       SQL.Clear;
       Filtered := False;
-      sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0) from Finance_Flow A ');
+      sql.Add('select ISNULL(A.SXFAMount,0) SXFAMount,ISNULL(A.JHExchangeRate,1) JHExchangeRate,*,');
+      sql.Add('NWoAmount=Amount-isnull(FFWoAmount,0) from Finance_Flow A ');
       sql.Add('where FFID=' + quotedstr(trim(FFFID)));
       sql.Add(' and A.status=''9'' ');
       Open;
@@ -264,17 +274,22 @@ begin
           edit;
           if (tmpSum - StrToFloatDef(curHsNum.Text, 0)) > 0 then
           begin
-            FieldByName('CurWoAmount').value := FieldByName('NWoAmount').asFloat - (tmpSum - StrToFloatDef(curHsNum.Text, 0))
+            FieldByName('CurWoAmount').value := FieldByName('NWoAmount').asFloat - (tmpSum - StrToFloatDef(curHsNum.Text, 0));
+            FieldByName('CurSXFAmount').value := (FieldByName('NWoAmount').asFloat - (tmpSum - StrToFloatDef(curHsNum.Text, 0))) / StrtoFloat(Amount.text) * StrtoFloat(SXFAmount.text);
+            FieldByName('CurJHExchangeRate').value := JHExchangeRate.text;
           end
           else
           begin
             FieldByName('CurWoAmount').value := FieldByName('NWoAmount').asFloat;
+            FieldByName('CurSXFAmount').value := FieldByName('NWoAmount').asFloat / StrtoFloat(Amount.text) * StrtoFloat(SXFAmount.text);
+            FieldByName('CurJHExchangeRate').value := JHExchangeRate.text;
           end;
         end
         else
         begin
           edit;
           FieldByName('CurWoAmount').value := 0;
+          FieldByName('CurSXFAmount').value := 0;
         end;
         post;
         if FieldByName('ssel').AsBoolean and ((tmpSum - StrToFloatDef(curHsNum.Text, 0)) > 0) then
@@ -322,6 +337,8 @@ begin
           SQL.Add(' @ToID = ' + QuotedStr(Trim(CDS_Ysk.FieldByName('FFID').AsString)));
           SQL.Add(',@FromID = ' + QuotedStr(Trim(FFFID)));
           SQL.Add(',@CurWoAmount = ' + FloatToStr(CDS_Ysk.FieldByName('CurWoAmount').AsFloat));
+          SQL.Add(',@CurWoSXFAmount = ' + FloatToStr(CDS_Ysk.FieldByName('CurSXFAmount').AsFloat));
+          SQL.Add(',@CurJHExchangeRate = ' + FloatToStr(CDS_Ysk.FieldByName('CurJHExchangeRate').AsFloat));
           SQL.Add(',@DName = ' + QuotedStr(Trim(DName)));
           Open;
 
@@ -353,13 +370,14 @@ end;
 
 procedure TfrmCollectWriteOff.N1Click(Sender: TObject);
 begin
-  SellRec(1);
+//  SellRec(1);
-
+  SelOKNo(CDS_Ysk, True);
 end;
 
 procedure TfrmCollectWriteOff.N2Click(Sender: TObject);
 begin
-  SellRec(0);
+//  SellRec(0);
+  SelOKNo(CDS_Ysk, False);
 end;
 
 procedure TfrmCollectWriteOff.EnddateChange(Sender: TObject);

A09财务通用管理/U_CollectWriteOffList.dfm

@@ -167,8 +167,6 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       Width = 71
       Height = 17
       Caption = #26680#38144#26085#26399
-      Checked = True
-      State = cbChecked
       TabOrder = 5
     end
   end
@@ -179,12 +177,12 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
     Height = 499
     Align = alClient
     TabOrder = 2
-    ExplicitLeft = 6
+    ExplicitTop = 119
-    ExplicitTop = 111
     object Tv2: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
       Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_HZ
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <>
@@ -207,6 +205,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Ssel: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'Ssel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         Properties.NullStyle = nssUnchecked
@@ -216,13 +215,22 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column2: TcxGridDBColumn
         Caption = #26680#38144#26085#26399
         DataBinding.FieldName = 'FillTIME'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
       end
+      object Tv2Column4: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 75
+      end
       object v2Column1: TcxGridDBColumn
         Caption = #23545#26041#21333#20301
         DataBinding.FieldName = 'OppCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -230,6 +238,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column9: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BUYConno'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -237,6 +246,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column10: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -244,6 +254,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column7: TcxGridDBColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -251,6 +262,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column8: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'F_color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -258,6 +270,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column11: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'F_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -265,6 +278,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column3: TcxGridDBColumn
         Caption = #24212#25910'ID'
         DataBinding.FieldName = 'ToId'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.ReadOnly = True
         HeaderAlignmentHorz = taCenter
@@ -274,6 +288,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column5: TcxGridDBColumn
         Caption = #25910#27454'ID'
         DataBinding.FieldName = 'FromId'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.ReadOnly = True
         HeaderAlignmentHorz = taCenter
@@ -283,6 +298,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column4: TcxGridDBColumn
         Caption = #26680#38144#37329#39069
         DataBinding.FieldName = 'WoAmount'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Content = DataLink_Financial.FontBlue
@@ -293,6 +309,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object v2Column6: TcxGridDBColumn
         Caption = #25805#20316#21592
         DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -300,6 +317,21 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList
       object Tv2Column1: TcxGridDBColumn
         Caption = 'WoID2'
         DataBinding.FieldName = 'WoID'
+        DataBinding.IsNullValueType = True
+      end
+      object Tv2Column2: TcxGridDBColumn
+        Caption = #25163#32493#36153
+        DataBinding.FieldName = 'WoSXFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 75
+      end
+      object Tv2Column3: TcxGridDBColumn
+        Caption = #32467#27719#27719#29575
+        DataBinding.FieldName = 'WoJHExchangeRate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 82
       end
     end
     object cxGridLevel1: TcxGridLevel

A09财务通用管理/U_CollectWriteOffList.pas

@@ -13,7 +13,8 @@ uses
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
-  dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu;
+  dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinWXI,
+  dxScrollbarAnnotations;
 
 type
   TfrmCollectWriteOffList = class(TForm)
@@ -58,6 +59,9 @@ type
     CheckBox1: TCheckBox;
     ToolButton2: TToolButton;
     Tv2Column1: TcxGridDBColumn;
+    Tv2Column2: TcxGridDBColumn;
+    Tv2Column3: TcxGridDBColumn;
+    Tv2Column4: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -105,7 +109,7 @@ begin
       Filtered := False;
       sql.Add(' select WoID2 AS WoID,AA.*  from(  ');
       sql.Add(' select WoID2=cast (A.WoID AS Varchar),A.*,C.F_Code,C.F_Name,C.F_Color,C.F_ColorNo  ');
-      sql.Add(' from Finance_WriteOff A ');
+      sql.Add(' ,C.BuyConNo,C.OrderNo,C.oppCoName from Finance_WriteOff A ');
       sql.Add(' inner join Finance_Flow B on A.FromId=B.FFID   ');
       sql.Add(' inner join Finance_Flow C on A.ToId=C.FFID  ');
       sql.Add(' where 1=1  ');

A09财务通用管理/U_CustStatement.pas

@@ -113,7 +113,7 @@ begin
 //            sql.Add(' ,@Currency=''€'' ');
 //          end;
       end;
-
+//      ShowMessage(sql.text);
       Open;
     end;
     SCreateCDS(ADOQueryMain, CDS_HZ);
@@ -149,7 +149,8 @@ begin
   inherited;
   ReadCxGrid(trim(self.Caption), Tv2, '财务管理');
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
-  begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
+//  begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
+  begdate.DateTime := EndDate.DateTime - 365;
   InitGrid();
 end;
 
@@ -184,25 +185,53 @@ procedure TfrmCustStatement.ToolButton3Click(Sender: TObject);
 begin
   if CDS_HZ.IsEmpty then
     exit;
-  frmSingleCustStatement := TfrmSingleCustStatement.Create(self);
+//  frmSingleCustStatement := TfrmSingleCustStatement.Create(Application);
-  with frmSingleCustStatement do
+//  with frmSingleCustStatement do
-  begin
+//  begin
-    begdate.DateTime := self.begdate.DateTime;
+//    begdate.DateTime := self.begdate.DateTime;
-    enddate.DateTime := self.Enddate.DateTime;
+//    enddate.DateTime := self.Enddate.DateTime;
-    OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
+//    OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
-    FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
+//    FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
-    FZKType := Self.FZKType;
+//    FZKType := Self.FZKType;
-    case cxTabControl1.TabIndex of
+//    case cxTabControl1.TabIndex of
-      0:
+//      0:
-        begin
+//        begin
-          FCurrency := 'USD';
+//          FCurrency := 'USD';
-        end;
+//        end;
-      1:
+//      1:
-        begin
+//        begin
-          FCurrency := 'CNY';
+//          FCurrency := 'CNY';
-        end;
+//        end;
+//    end;
+//    show;
+//  end;
+
+  try
+    frmSingleCustStatement := TfrmSingleCustStatement.Create(Application);
+    with frmSingleCustStatement do
+    begin
+      begdate.DateTime := self.begdate.DateTime;
+      enddate.DateTime := self.Enddate.DateTime;
+      OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
+      FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
+      FZKType := Self.FZKType;
+      case cxTabControl1.TabIndex of
+        0:
+          begin
+            FCurrency := 'USD';
+          end;
+        1:
+          begin
+            FCurrency := 'CNY';
+          end;
+      end;
+      if ShowModal = 1 then
+      begin
+//        InitGrid();
+      end;
     end;
-    show;
+  finally
+    frmSingleCustStatement.Free;
   end;
 end;
 

A09财务通用管理/U_ExpenseList.dfm

@@ -3,10 +3,10 @@ inherited frmExpenseList: TfrmExpenseList
   Top = 101
   Caption = #36153#29992#31649#29702
   ClientHeight = 590
-  ClientWidth = 1625
+  ClientWidth = 1540
   FormStyle = fsMDIChild
   Visible = True
-  ExplicitWidth = 1641
+  ExplicitWidth = 1556
   ExplicitHeight = 629
   PixelsPerInch = 96
   TextHeight = 12
@@ -14,7 +14,7 @@ inherited frmExpenseList: TfrmExpenseList
     Tag = 1
     Left = 0
     Top = 0
-    Width = 1625
+    Width = 1540
     Height = 38
     AutoSize = True
     ButtonHeight = 38
@@ -111,7 +111,7 @@ inherited frmExpenseList: TfrmExpenseList
   object Panel1: TPanel [1]
     Left = 0
     Top = 38
-    Width = 1625
+    Width = 1540
     Height = 65
     Align = alTop
     BevelInner = bvRaised
@@ -253,7 +253,7 @@ inherited frmExpenseList: TfrmExpenseList
   object cxGrid1: TcxGrid [2]
     Left = 0
     Top = 136
-    Width = 1625
+    Width = 1540
     Height = 454
     Align = alClient
     PopupMenu = PopupMenu1
@@ -262,6 +262,7 @@ inherited frmExpenseList: TfrmExpenseList
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
       Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_1
       DataController.Filter.AutoDataSetFilter = True
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -301,6 +302,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column22: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 44
       end
@@ -308,6 +310,7 @@ inherited frmExpenseList: TfrmExpenseList
         Tag = 7
         Caption = #26085#26399
         DataBinding.FieldName = 'FFTime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.SaveTime = False
         Properties.ShowTime = False
@@ -318,6 +321,7 @@ inherited frmExpenseList: TfrmExpenseList
       object v2Column2: TcxGridDBColumn
         Caption = #25105#26041#21333#20301
         DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 78
@@ -325,6 +329,7 @@ inherited frmExpenseList: TfrmExpenseList
       object v2FactoryName: TcxGridDBColumn
         Caption = #23545#26041#21333#20301
         DataBinding.FieldName = 'OppCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -333,6 +338,7 @@ inherited frmExpenseList: TfrmExpenseList
         Tag = 7
         Caption = #19978#32423#21333#20301
         DataBinding.FieldName = 'OppParentCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 82
@@ -340,6 +346,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column1: TcxGridDBColumn
         Caption = #25105#26041#36134#25143
         DataBinding.FieldName = 'OurBankName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -347,6 +354,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column2: TcxGridDBColumn
         Caption = #23545#26041#36134#25143
         DataBinding.FieldName = 'OppBankName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 74
@@ -354,6 +362,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column3: TcxGridDBColumn
         Caption = #20184#27454#26041#24335
         DataBinding.FieldName = 'PayMent'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 69
@@ -361,6 +370,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column19: TcxGridDBColumn
         Caption = #21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -368,6 +378,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column20: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 75
@@ -375,12 +386,14 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column21: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 74
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #25688#35201
         DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 72
@@ -388,6 +401,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column17: TcxGridDBColumn
         Caption = #37329#39069
         DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -395,6 +409,7 @@ inherited frmExpenseList: TfrmExpenseList
       object Tv1Column18: TcxGridDBColumn
         Caption = #24065#31181
         DataBinding.FieldName = 'Currency'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -407,7 +422,7 @@ inherited frmExpenseList: TfrmExpenseList
   object cxTabControl1: TcxTabControl [3]
     Left = 0
     Top = 103
-    Width = 1625
+    Width = 1540
     Height = 33
     Align = alTop
     Font.Charset = ANSI_CHARSET
@@ -426,7 +441,7 @@ inherited frmExpenseList: TfrmExpenseList
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 36
-    ClientRectRight = 1625
+    ClientRectRight = 1540
     ClientRectTop = 36
   end
   inherited ADOQueryBaseCmd: TADOQuery

A09财务通用管理/U_ExpenseList.pas

@@ -14,7 +14,8 @@ uses
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
   cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
-  dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd;
+  dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI,
+  dxScrollbarAnnotations;
 
 type
   TfrmExpenseList = class(TfrmBaseList)

A09财务通用管理/U_FtyStatement.pas

@@ -149,8 +149,10 @@ begin
   inherited;
   ReadCxGrid(trim(self.Caption), Tv2, '财务管理');
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
-  begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
+//  begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
+  begdate.DateTime := EndDate.DateTime - 365;
   InitGrid();
+
 end;
 
 procedure TfrmFtyStatement.TBRafreshClick(Sender: TObject);
@@ -184,27 +186,54 @@ procedure TfrmFtyStatement.ToolButton3Click(Sender: TObject);
 begin
   if CDS_HZ.IsEmpty then
     exit;
-  frmSingleFtyStatement := TfrmSingleFtyStatement.Create(self);
+  try
-  with frmSingleFtyStatement do
+    frmSingleFtyStatement := TfrmSingleFtyStatement.Create(Application);
-  begin
+    with frmSingleFtyStatement do
-    begdate.DateTime := self.begdate.DateTime;
+    begin
-    enddate.DateTime := self.Enddate.DateTime;
+      begdate.DateTime := self.begdate.DateTime;
-    OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
+      enddate.DateTime := self.Enddate.DateTime;
-    FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
+      OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
-    FZKType := Self.FZKType;
+      FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
-    case cxTabControl1.TabIndex of
+      FZKType := Self.FZKType;
-      0:
+      case cxTabControl1.TabIndex of
-        begin
+        0:
-          FCurrency := 'USD';
+          begin
-        end;
+            FCurrency := 'USD';
-      1:
+          end;
-        begin
+        1:
-          FCurrency := 'CNY';
+          begin
-        end;
+            FCurrency := 'CNY';
-      
+          end;
+      end;
+      if ShowModal = 1 then
+      begin
+//        InitGrid();
+      end;
     end;
-    show;
+  finally
+    frmSingleFtyStatement.Free;
   end;
+//  frmSingleFtyStatement := TfrmSingleFtyStatement.Create(Application);
+//  with frmSingleFtyStatement do
+//  begin
+//    begdate.DateTime := self.begdate.DateTime;
+//    enddate.DateTime := self.Enddate.DateTime;
+//    OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
+//    FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
+//    FZKType := Self.FZKType;
+//    case cxTabControl1.TabIndex of
+//      0:
+//        begin
+//          FCurrency := 'USD';
+//        end;
+//      1:
+//        begin
+//          FCurrency := 'CNY';
+//        end;
+//
+//    end;
+//    show;
+//  end;
 end;
 
 procedure TfrmFtyStatement.ToolButton4Click(Sender: TObject);

A09财务通用管理/U_GetDllForm.pas

@@ -78,7 +78,7 @@ begin
     pswd := 'rightsoft@5740';
 
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-    DParameters1 := '¼Èë';
+    DParameters1 := '管理';
   end
   else
   begin

A09财务通用管理/U_HandPayableInPut.dfm

@@ -79,6 +79,7 @@ object frmHandPayableInPut: TfrmHandPayableInPut
     Height = 466
     Align = alClient
     TabOrder = 1
+    ExplicitTop = 44
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -239,6 +240,7 @@ object frmHandPayableInPut: TfrmHandPayableInPut
             Default = True
             Kind = bkEllipsis
           end>
+        Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
         HeaderAlignmentHorz = taCenter
         Width = 54
       end

A09财务通用管理/U_HandPayableInPut.pas

@@ -58,6 +58,8 @@ type
     procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure v1Column5PropertiesButtonClick(Sender: TObject;
       AButtonIndex: Integer);
+    procedure Tv1Column8PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
   private
     procedure initGrid();
     procedure SaveDate();
@@ -152,7 +154,7 @@ begin
     begin
       sql.Add('select * from Finance_Flow where FFID=''' + trim(FFID) + '''');
     end;
-    sql.add(' and isnull(status,''0'')=''0''');
+//    sql.add(' and isnull(status,''0'')=''0''');
 //    showmessage(sql.text);
     open;
   end;
@@ -230,13 +232,9 @@ begin
     frmUserSel := TfrmUserSel.Create(Application);
     with frmUserSel do
     begin
-//      FCoType := '客户';
+
-//      if Self.FAuthority = '录入' then
-//        FAuthority := '理单业务';
       if ShowModal = 1 then
       begin
-//        self.BuyName.TxtCode := Trim(frmUserSel.CDS_1.fieldbyname('CoCode').AsString);
-//        self.BuyName.Text := Trim(frmUserSel.CDS_1.fieldbyname('CoAbbrName').AsString);
         Self.CDS_Invoice.Edit;
         Self.CDS_Invoice.FieldByName('Certifier').Value := Trim(CDS_1.fieldbyname('UserName').AsString);
       end;
@@ -415,6 +413,26 @@ begin
   end;
 end;
 
+procedure TfrmHandPayableInPut.Tv1Column8PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+   try
+    frmUserSel := TfrmUserSel.Create(Application);
+    with frmUserSel do
+    begin
+
+      if ShowModal = 1 then
+      begin
+        Self.CDS_Invoice.Edit;
+        Self.CDS_Invoice.FieldByName('handler').Value := Trim(CDS_1.fieldbyname('UserName').AsString);
+      end;
+    end;
+
+  finally
+    frmUserSel.Free;
+  end;
+end;
+
 procedure TfrmHandPayableInPut.ToolButton1Click(Sender: TObject);
 begin
   if CDS_Invoice.IsEmpty = False then

A09财务通用管理/U_OtherPayableInput.dfm

@@ -2,8 +2,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
   Left = 261
   Top = 149
   Caption = #20854#20182#24212#20184#27454#30331#35760
-  ClientHeight = 362
+  ClientHeight = 410
-  ClientWidth = 919
+  ClientWidth = 939
   Color = clWhite
   Font.Charset = GB2312_CHARSET
   Font.Color = clWindowText
@@ -21,7 +21,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     Tag = 1
     Left = 0
     Top = 0
-    Width = 919
+    Width = 939
     Height = 38
     AutoSize = True
     ButtonHeight = 38
@@ -54,8 +54,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
   object ScrollBox1: TScrollBox
     Left = 0
     Top = 38
-    Width = 919
+    Width = 939
-    Height = 324
+    Height = 372
     Align = alClient
     BevelInner = bvNone
     BevelOuter = bvNone
@@ -100,7 +100,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label7: TLabel
       Left = 28
-      Top = 204
+      Top = 260
       Width = 50
       Height = 15
       Caption = #22791'        '#27880
@@ -165,7 +165,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label3: TLabel
       Left = 245
-      Top = 172
+      Top = 228
       Width = 50
       Height = 15
       Caption = #37329'        '#39069
@@ -178,7 +178,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label10: TLabel
       Left = 28
-      Top = 136
+      Top = 192
       Width = 50
       Height = 15
       Caption = #21305'        '#25968
@@ -191,7 +191,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label11: TLabel
       Left = 245
-      Top = 136
+      Top = 192
       Width = 50
       Height = 15
       Caption = #25968'        '#37327
@@ -204,7 +204,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label12: TLabel
       Left = 455
-      Top = 136
+      Top = 192
       Width = 50
       Height = 15
       Caption = #21333'        '#20215
@@ -216,8 +216,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
       ParentFont = False
     end
     object Label13: TLabel
-      Left = 28
+      Left = 954
-      Top = 105
+      Top = 49
       Width = 50
       Height = 15
       Caption = #38376'        '#24133
@@ -230,8 +230,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
       Visible = False
     end
     object Label14: TLabel
-      Left = 245
+      Left = 1171
-      Top = 105
+      Top = 49
       Width = 50
       Height = 15
       Caption = #20811'        '#37325
@@ -244,8 +244,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
       Visible = False
     end
     object Label15: TLabel
-      Left = 455
+      Left = 951
-      Top = 79
+      Top = 18
       Width = 50
       Height = 15
       Caption = #33457'        '#22411
@@ -258,8 +258,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
       Visible = False
     end
     object Label16: TLabel
-      Left = 674
+      Left = 1170
-      Top = 79
+      Top = 18
       Width = 50
       Height = 15
       Caption = #39068'        '#33394
@@ -272,8 +272,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
       Visible = False
     end
     object Label17: TLabel
-      Left = 455
+      Left = 1381
-      Top = 105
+      Top = 49
       Width = 50
       Height = 15
       Caption = #33394'        '#21495
@@ -287,7 +287,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label4: TLabel
       Left = 674
-      Top = 136
+      Top = 192
       Width = 51
       Height = 15
       Caption = #20854'  '#20182'  '#36153
@@ -313,7 +313,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label21: TLabel
       Left = 28
-      Top = 172
+      Top = 228
       Width = 50
       Height = 15
       Caption = #20943'        '#20813
@@ -365,7 +365,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Label18: TLabel
       Left = 455
-      Top = 172
+      Top = 228
       Width = 52
       Height = 15
       Caption = #26159#21542#21547#31246
@@ -376,6 +376,97 @@ object frmOtherPayableInput: TfrmOtherPayableInput
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label19: TLabel
+      Left = 26
+      Top = 107
+      Width = 52
+      Height = 15
+      Caption = #24555#36882#31181#31867
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label25: TLabel
+      Left = 456
+      Top = 77
+      Width = 52
+      Height = 15
+      Caption = #20215#26684#26415#35821
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label26: TLabel
+      Left = 243
+      Top = 107
+      Width = 52
+      Height = 15
+      Caption = #24555#36882#21333#21495
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label27: TLabel
+      Left = 28
+      Top = 160
+      Width = 50
+      Height = 15
+      Caption = #32654'        '#37329
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label28: TLabel
+      Left = 245
+      Top = 160
+      Width = 50
+      Height = 15
+      Caption = #27719'        '#29575
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label29: TLabel
+      Left = 455
+      Top = 160
+      Width = 51
+      Height = 15
+      Caption = #20154'  '#27665'  '#24065
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label30: TLabel
+      Left = 674
+      Top = 160
+      Width = 79
+      Height = 15
+      Caption = #38134#34892#25163#32493#36153'('#165')'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object F_Code: TEdit
       Left = 82
       Top = 77
@@ -385,7 +476,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Note: TMemo
       Left = 82
-      Top = 204
+      Top = 260
       Width = 797
       Height = 57
       ScrollBars = ssVertical
@@ -400,7 +491,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Currency: TComboBox
       Left = 402
-      Top = 169
+      Top = 225
       Width = 37
       Height = 20
       Style = csDropDownList
@@ -483,7 +574,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Amount: TcxCurrencyEdit
       Left = 299
-      Top = 170
+      Top = 226
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 8
       OnExit = QtyExit
@@ -491,30 +582,30 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Price: TcxCurrencyEdit
       Left = 512
-      Top = 133
+      Top = 189
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 9
       OnExit = QtyExit
       Width = 140
     end
     object Qty: TcxCurrencyEdit
-      Left = 299
+      Left = 301
-      Top = 133
+      Top = 189
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 10
       OnExit = QtyExit
       Width = 101
     end
     object Piece: TcxCurrencyEdit
-      Left = 82
+      Left = 84
-      Top = 133
+      Top = 190
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 11
       Width = 140
     end
     object QtyUnit: TComboBox
       Left = 400
-      Top = 133
+      Top = 189
       Width = 37
       Height = 20
       Style = csDropDownList
@@ -529,40 +620,40 @@ object frmOtherPayableInput: TfrmOtherPayableInput
         #20214)
     end
     object F_Width: TEdit
-      Left = 82
+      Left = 1008
-      Top = 103
+      Top = 47
       Width = 140
       Height = 18
       TabOrder = 13
       Visible = False
     end
     object F_GramWeight: TEdit
-      Left = 299
+      Left = 1225
-      Top = 103
+      Top = 47
       Width = 140
       Height = 18
       TabOrder = 14
       Visible = False
     end
     object F_Pattern: TEdit
-      Left = 512
+      Left = 1008
-      Top = 78
+      Top = 17
       Width = 140
       Height = 18
       TabOrder = 15
       Visible = False
     end
     object F_Color: TEdit
-      Left = 728
+      Left = 1224
-      Top = 77
+      Top = 16
       Width = 140
       Height = 18
       TabOrder = 16
       Visible = False
     end
     object F_ColorNo: TEdit
-      Left = 512
+      Left = 1438
-      Top = 103
+      Top = 47
       Width = 140
       Height = 18
       TabOrder = 17
@@ -570,7 +661,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object OtherFee: TcxCurrencyEdit
       Left = 728
-      Top = 133
+      Top = 189
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 18
       OnExit = QtyExit
@@ -589,7 +680,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object Deduction: TcxCurrencyEdit
       Left = 82
-      Top = 169
+      Top = 225
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 20
       OnExit = QtyExit
@@ -642,7 +733,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object IsInvoice: TComboBox
       Left = 512
-      Top = 169
+      Top = 225
       Width = 137
       Height = 20
       Style = csDropDownList
@@ -659,13 +750,75 @@ object frmOtherPayableInput: TfrmOtherPayableInput
     end
     object FZFlag: TcxCurrencyEdit
       Left = 690
-      Top = 275
+      Top = 331
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 25
       Visible = False
       OnExit = QtyExit
       Width = 140
     end
+    object ExpressType: TBtnEditC
+      Left = 84
+      Top = 104
+      Width = 140
+      Height = 20
+      Hint = 'ExpressType/'#24555#36882#31181#31867
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 26
+      OnBtnUpClick = ExpressTypeBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object jiagesy: TEdit
+      Left = 514
+      Top = 77
+      Width = 140
+      Height = 18
+      TabOrder = 27
+    end
+    object TrackNo: TEdit
+      Left = 301
+      Top = 105
+      Width = 140
+      Height = 18
+      TabOrder = 28
+    end
+    object CNYAMount: TcxCurrencyEdit
+      Left = 512
+      Top = 158
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 29
+      OnExit = QtyExit
+      Width = 140
+    end
+    object ExchangeRate: TcxCurrencyEdit
+      Left = 301
+      Top = 158
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 30
+      OnExit = QtyExit
+      Width = 138
+    end
+    object USDAMount: TcxCurrencyEdit
+      Left = 84
+      Top = 158
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 31
+      OnExit = QtyExit
+      Width = 140
+    end
+    object SXFAmount: TcxCurrencyEdit
+      Left = 768
+      Top = 158
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 32
+      OnExit = QtyExit
+      Width = 100
+    end
   end
   object ADOQueryTemp: TADOQuery
     Connection = DataLink_Financial.ADOLink

A09财务通用管理/U_OtherPayableInput.pas

@@ -74,6 +74,20 @@ type
     Label18: TLabel;
     IsInvoice: TComboBox;
     FZFlag: TcxCurrencyEdit;
+    Label19: TLabel;
+    ExpressType: TBtnEditC;
+    Label25: TLabel;
+    jiagesy: TEdit;
+    Label26: TLabel;
+    TrackNo: TEdit;
+    Label27: TLabel;
+    Label28: TLabel;
+    Label29: TLabel;
+    Label30: TLabel;
+    CNYAMount: TcxCurrencyEdit;
+    ExchangeRate: TcxCurrencyEdit;
+    USDAMount: TcxCurrencyEdit;
+    SXFAmount: TcxCurrencyEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -88,6 +102,7 @@ type
     procedure QtyExit(Sender: TObject);
     procedure ScrollBox1Click(Sender: TObject);
     procedure OrderNoBtnUpClick(Sender: TObject);
+    procedure ExpressTypeBtnUpClick(Sender: TObject);
   private
     { Private declarations }
     procedure InitGrid();
@@ -111,17 +126,22 @@ uses
 procedure TfrmOtherPayableInput.HJJE();
 var
   MPrice, MQty, MOtherFee, MDeduction, MAmount: double;
+  MUSDAmount, Mhuilv, MCNYAmount, MSXFAmount: double;
 begin
   MPrice := Strtofloatdef(Price.Text, 0);
   MQty := Strtofloatdef(Qty.Text, 0);
   MOtherFee := Strtofloatdef(OtherFee.Text, 0);
   MDeduction := Strtofloatdef(Deduction.Text, 0);
   MAmount := Strtofloatdef(Amount.Text, 0);
+  Mhuilv := Strtofloatdef(ExchangeRate.Text, 0);
+  MUSDAmount := Strtofloatdef(USDAmount.Text, 0);
+  MCNYAmount := Strtofloatdef(CNYAmount.Text, 0);
+  MSXFAmount := Strtofloatdef(SXFAmount.Text, 0);
 
 //  if MQty * MPrice <> 0 then
 //  begin
 
-    MAmount := RoundFloat((MQty * MPrice + MOtherFee - MDeduction), 2);
+    MAmount := RoundFloat((MQty * MPrice + MOtherFee +MUSDAmount*Mhuilv + MCNYAmount + MSXFAmount - MDeduction), 2);
 //  end;
 //  Price.Text := FloatToStr(MPrice);
 //  Qty.Text := FloatToStr(MQty);
@@ -233,6 +253,7 @@ begin
         Self.F_Width.text := Trim(CDS_1.fieldbyname('C_Width').AsString);
         Self.F_GramWeight.text := Trim(CDS_1.fieldbyname('C_GramWeight').AsString);
         Self.BuyConNo.text := Trim(CDS_1.fieldbyname('BuyConNo').AsString);
+        Self.jiagesy.text := Trim(CDS_1.fieldbyname('jiagesy').AsString);
       end;
     end;
   finally
@@ -300,6 +321,32 @@ begin
   HJJE();
 end;
 
+procedure TfrmOtherPayableInput.ExpressTypeBtnUpClick(Sender: TObject);
+var
+  fsj: string;
+  FWZ: Integer;
+begin
+  fsj := Trim(TEdit(Sender).Hint);
+  FWZ := Pos('/', fsj);
+
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      MainType := 'ÆäËûÓ¦¸¶¿î';
+      flag := Copy(fsj, 1, FWZ - 1);
+      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+      if ShowModal = 1 then
+      begin
+        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+//        TEdit(Sender).TextHint := Trim(ClientDataSet1.fieldbyname('Note2').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
 procedure TfrmOtherPayableInput.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
 

A09财务通用管理/U_OtherPayableList.dfm

@@ -545,6 +545,55 @@ inherited frmOtherPayableList: TfrmOtherPayableList
         HeaderAlignmentHorz = taCenter
         Width = 80
       end
+      object Tv1Column27: TcxGridDBColumn
+        Caption = #20215#26684#26415#35821
+        DataBinding.FieldName = 'jiagesy'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object Tv1Column28: TcxGridDBColumn
+        Caption = #24555#36882#31181#31867
+        DataBinding.FieldName = 'ExpressType'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object Tv1Column29: TcxGridDBColumn
+        Caption = #24555#36882#21333#21495
+        DataBinding.FieldName = 'TrackNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object Tv1Column30: TcxGridDBColumn
+        Caption = #32654#37329
+        DataBinding.FieldName = 'USDAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object Tv1Column31: TcxGridDBColumn
+        Caption = #27719#29575
+        DataBinding.FieldName = 'ExchangeRate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 52
+      end
+      object Tv1Column32: TcxGridDBColumn
+        Caption = #20154#27665#24065
+        DataBinding.FieldName = 'CNYAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object Tv1Column33: TcxGridDBColumn
+        Caption = #25163#32493#36153
+        DataBinding.FieldName = 'SXFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv1

A09财务通用管理/U_OtherPayableList.pas

@@ -92,6 +92,13 @@ type
     ToolButton1: TToolButton;
     Tv1Column25: TcxGridDBColumn;
     Tv1Column26: TcxGridDBColumn;
+    Tv1Column27: TcxGridDBColumn;
+    Tv1Column28: TcxGridDBColumn;
+    Tv1Column29: TcxGridDBColumn;
+    Tv1Column30: TcxGridDBColumn;
+    Tv1Column31: TcxGridDBColumn;
+    Tv1Column32: TcxGridDBColumn;
+    Tv1Column33: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);
@@ -280,7 +287,7 @@ begin
   inherited;
   ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
-  begdate.DateTime := Enddate.DateTime - 30;
+  begdate.DateTime := Enddate.DateTime - 365;
   SetStatus();
   InitGrid();
 end;

A09财务通用管理/U_PayInput.dfm

@@ -87,7 +87,6 @@ object frmPayInput: TfrmPayInput
     ParentCtl3D = False
     ParentFont = False
     TabOrder = 1
-    ExplicitTop = 44
     object Label2: TLabel
       Left = 32
       Top = 102

A09财务通用管理/U_PayInput.pas

@@ -499,6 +499,11 @@ begin
   begin
     Application.MessageBox('我方单位不能为空!', '提示', 0);
     Exit;
+  end;
+   if Trim(RegType.Text) = '' then
+  begin
+    Application.MessageBox('登记类型不能为空!', '提示', 0);
+    Exit;
   end;
   if Trim(OurBankName.Text) = '' then
   begin

A09财务通用管理/U_PayList.pas

@@ -354,7 +354,7 @@ begin
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
   SetDate1.DateTime := SGetServerDate(ADOQueryTemp);
   SetDate2.DateTime := SGetServerDate(ADOQueryTemp);
-  begdate.DateTime := Enddate.DateTime - 30;
+  begdate.DateTime := Enddate.DateTime - 91;
   FAuthority := self.fParameters1;
   SetStatus();
   InitGrid();

A09财务通用管理/U_PayableInput.dfm

@@ -34,7 +34,6 @@ object frmPayableInput: TfrmPayableInput
     ParentColor = False
     ShowCaptions = True
     TabOrder = 0
-    ExplicitWidth = 919
     object ToolButton3: TToolButton
       Left = 0
       Top = 0
@@ -73,8 +72,6 @@ object frmPayableInput: TfrmPayableInput
     ParentFont = False
     TabOrder = 1
     OnClick = ScrollBox1Click
-    ExplicitWidth = 919
-    ExplicitHeight = 324
     object Label2: TLabel
       Left = 245
       Top = 20
@@ -423,7 +420,7 @@ object frmPayableInput: TfrmPayableInput
       Top = 168
       Width = 39
       Height = 15
-      Caption = #24191#21578#36153
+      Caption = #21333#35777#36153
       Font.Charset = ANSI_CHARSET
       Font.Color = clWindowText
       Font.Height = -12
@@ -695,7 +692,7 @@ object frmPayableInput: TfrmPayableInput
       OnBtnUpClick = PayMentBtnUpClick
       OnBtnDnClick = PayMentBtnDnClick
     end
-    object IsInvoice: TComboBox
+    object ISTax: TComboBox
       Left = 512
       Top = 200
       Width = 137

A09财务通用管理/U_PayableInput.pas

@@ -72,7 +72,7 @@ type
     Label24: TLabel;
     FFAbstract: TBtnEditC;
     Label18: TLabel;
-    IsInvoice: TComboBox;
+    ISTax: TComboBox;
     FZFlag: TcxCurrencyEdit;
     Label19: TLabel;
     DBFS: TBtnEditC;

A09财务通用管理/U_PayableList.dfm

@@ -534,7 +534,7 @@ inherited frmPayableList: TfrmPayableList
         Width = 58
       end
       object Tv1Column30: TcxGridDBColumn
-        Caption = #24191#21578#36153
+        Caption = #21333#35777#36153
         DataBinding.FieldName = 'AdvFee'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
@@ -550,7 +550,7 @@ inherited frmPayableList: TfrmPayableList
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #26159#21542#21547#31246
-        DataBinding.FieldName = 'IsInvoice'
+        DataBinding.FieldName = 'IsTax'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False

A09财务通用管理/U_PayableList.pas

@@ -296,7 +296,7 @@ begin
   inherited;
   ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
-  begdate.DateTime := Enddate.DateTime - 30;
+  begdate.DateTime := Enddate.DateTime - 365;
   SetStatus();
   InitGrid();
 end;

A09财务通用管理/U_ReceivableInput.dfm

@@ -418,6 +418,7 @@ object frmReceivableInput: TfrmReceivableInput
       TabOrder = 0
     end
     object Note: TMemo
+      Tag = 1
       Left = 83
       Top = 221
       Width = 797
@@ -433,6 +434,7 @@ object frmReceivableInput: TfrmReceivableInput
       TabOrder = 1
     end
     object Currency: TComboBox
+      Tag = 1
       Left = 616
       Top = 158
       Width = 37
@@ -516,6 +518,7 @@ object frmReceivableInput: TfrmReceivableInput
       OnBtnDnClick = PayMentBtnDnClick
     end
     object Amount: TcxCurrencyEdit
+      Tag = 1
       Left = 514
       Top = 158
       Properties.AssignedValues.DisplayFormat = True
@@ -524,7 +527,8 @@ object frmReceivableInput: TfrmReceivableInput
       Width = 101
     end
     object Price: TcxCurrencyEdit
-      Left = 513
+      Tag = 1
+      Left = 511
       Top = 132
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 9
@@ -532,6 +536,7 @@ object frmReceivableInput: TfrmReceivableInput
       Width = 140
     end
     object Qty: TcxCurrencyEdit
+      Tag = 1
       Left = 299
       Top = 133
       Properties.AssignedValues.DisplayFormat = True
@@ -540,6 +545,7 @@ object frmReceivableInput: TfrmReceivableInput
       Width = 101
     end
     object Piece: TcxCurrencyEdit
+      Tag = 1
       Left = 82
       Top = 133
       Properties.AssignedValues.DisplayFormat = True
@@ -547,6 +553,7 @@ object frmReceivableInput: TfrmReceivableInput
       Width = 140
     end
     object QtyUnit: TComboBox
+      Tag = 1
       Left = 401
       Top = 133
       Width = 37
@@ -598,7 +605,8 @@ object frmReceivableInput: TfrmReceivableInput
       TabOrder = 17
     end
     object OtherFee: TcxCurrencyEdit
-      Left = 728
+      Tag = 1
+      Left = 731
       Top = 132
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 18
@@ -617,8 +625,9 @@ object frmReceivableInput: TfrmReceivableInput
       TabOrder = 19
     end
     object Deduction: TcxCurrencyEdit
-      Left = 298
+      Tag = 1
-      Top = 158
+      Left = 299
+      Top = 157
       Properties.AssignedValues.DisplayFormat = True
       TabOrder = 20
       OnExit = QtyExit
@@ -678,6 +687,7 @@ object frmReceivableInput: TfrmReceivableInput
       Width = 140
     end
     object YSDate: TDateTimePicker
+      Tag = 1
       Left = 728
       Top = 158
       Width = 140
@@ -689,6 +699,7 @@ object frmReceivableInput: TfrmReceivableInput
       TabOrder = 25
     end
     object SailingSchedule: TDateTimePicker
+      Tag = 1
       Left = 730
       Top = 195
       Width = 140
@@ -700,6 +711,7 @@ object frmReceivableInput: TfrmReceivableInput
       TabOrder = 26
     end
     object PacketNum: TcxCurrencyEdit
+      Tag = 1
       Left = 83
       Top = 159
       Properties.AssignedValues.DisplayFormat = True

A09财务通用管理/U_ReceivableInput.pas

@@ -97,10 +97,11 @@ type
     { Private declarations }
     procedure InitGrid();
     procedure HJJE();
+    procedure FZSet();
     function SaveData(): Boolean;
   public
     { Public declarations }
-    FFFID: string;
+    FFFID, PState: string;
   end;
 
 var
@@ -115,7 +116,7 @@ uses
 
 procedure TfrmReceivableInput.HJJE();
 var
-  MPrice, MQty, MOtherFee, MDeduction, MAmount,MYJ: double;
+  MPrice, MQty, MOtherFee, MDeduction, MAmount, MYJ: double;
 begin
   MPrice := Strtofloatdef(Price.Text, 0);
   MQty := Strtofloatdef(Qty.Text, 0);
@@ -126,7 +127,7 @@ begin
 
   if MQty * MPrice <> 0 then
   begin
-    MAmount := RoundFloat((MQty * MPrice * ((100-MYJ)/100) + MOtherFee - MDeduction), 2);
+    MAmount := RoundFloat((MQty * MPrice * ((100 - MYJ) / 100) + MOtherFee - MDeduction), 2);
   end;
 //  Price.Text := FloatToStr(MPrice);
 //  Qty.Text := FloatToStr(MQty);
@@ -151,13 +152,26 @@ begin
     if not ADOQueryMain.IsEmpty then
     begin
       SCSHData(ADOQueryMain, ScrollBox1, 0);
+
+      if PState <> '¸´ÖÆ' then
+      begin
+        SCSHData(ADOQueryMain, ScrollBox1, 1);
+      end
+      else
+      begin
+        FFTime.DateTime := SGetServerDateTime(ADOQueryTemp);
+        YSDate.DateTime := FFTime.DateTime + 183;
+        SailingSchedule.DateTime := FFTime.DateTime;
+      end;
+
       OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
       OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString);
       OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString);
-      if ADOQueryMain.FieldByName('SailingSchedule').ASString='' then
+      if (ADOQueryMain.FieldByName('SailingSchedule').ASString = '') and (PState <> '¸´ÖÆ') then
       begin
-         SailingSchedule.DateTime :=  SGetServerDateTime(ADOQueryTemp);
+        SailingSchedule.DateTime := SGetServerDateTime(ADOQueryTemp);
       end;
+
     end
     else
     begin
@@ -171,6 +185,18 @@ begin
   end;
 end;
 
+procedure TfrmReceivableInput.FZSet();
+begin
+  if PState = '¸´ÖÆ' then
+  begin
+    SailingSchedule.DateTime := NULL;
+    FFTime.DateTime := NULL;
+    YSDate.DateTime := null;
+
+  end;
+
+end;
+
 procedure TfrmReceivableInput.OppCoNameBtnUpClick(Sender: TObject);
 begin
   try
@@ -333,6 +359,11 @@ begin
     OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString);
   end;
   InitGrid();
+  if PState = '¸´ÖÆ' then
+  begin
+    FFFID := '';
+  end;
+
 end;
 
 procedure TfrmReceivableInput.TBRafreshClick(Sender: TObject);
@@ -388,6 +419,7 @@ begin
       FieldByName('FFID').Value := Trim(MaxId);
       FieldByName('ReconciliationDate').Value := FFTime.DateTime;
       RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
+      RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 1);
       Post;
     end;
 

A09财务通用管理/U_ReceivableList.dfm

@@ -51,16 +51,24 @@ inherited frmReceivableList: TfrmReceivableList
       ImageIndex = 3
       OnClick = btnEditClick
     end
-    object ToolButton1: TToolButton
+    object ToolButton2: TToolButton
       Left = 213
       Top = 0
       AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 9
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
       Caption = #21333#20215#20462#25913
       ImageIndex = 3
       OnClick = ToolButton1Click
     end
     object btnDel: TToolButton
-      Left = 308
+      Left = 379
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -68,7 +76,7 @@ inherited frmReceivableList: TfrmReceivableList
       OnClick = btnDelClick
     end
     object btnChk: TToolButton
-      Left = 379
+      Left = 450
       Top = 0
       AutoSize = True
       Caption = #23457#26680
@@ -76,7 +84,7 @@ inherited frmReceivableList: TfrmReceivableList
       OnClick = btnChkClick
     end
     object btnReChk: TToolButton
-      Left = 450
+      Left = 521
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680
@@ -84,7 +92,7 @@ inherited frmReceivableList: TfrmReceivableList
       OnClick = btnReChkClick
     end
     object ToolButton4: TToolButton
-      Left = 545
+      Left = 616
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -92,7 +100,7 @@ inherited frmReceivableList: TfrmReceivableList
       OnClick = ToolButton4Click
     end
     object ToolButton5: TToolButton
-      Left = 616
+      Left = 687
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -100,7 +108,7 @@ inherited frmReceivableList: TfrmReceivableList
       OnClick = ToolButton5Click
     end
     object TBClose: TToolButton
-      Left = 711
+      Left = 782
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -119,6 +127,7 @@ inherited frmReceivableList: TfrmReceivableList
     Color = clWhite
     ParentBackground = False
     TabOrder = 1
+    ExplicitTop = 32
     object Label3: TLabel
       Left = 172
       Top = 13
@@ -595,6 +604,27 @@ inherited frmReceivableList: TfrmReceivableList
         HeaderAlignmentHorz = taCenter
         Width = 69
       end
+      object Tv1Column31: TcxGridDBColumn
+        Caption = #25163#32493#36153
+        DataBinding.FieldName = 'JHSXF'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object Tv1Column32: TcxGridDBColumn
+        Caption = #23454#25910#37329#39069
+        DataBinding.FieldName = 'SSAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 90
+      end
+      object Tv1Column33: TcxGridDBColumn
+        Caption = #23454#25910#20154#27665#24065
+        DataBinding.FieldName = 'SSCNYAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv1

A09财务通用管理/U_ReceivableList.pas

@@ -98,6 +98,10 @@ type
     Tv1Column28: TcxGridDBColumn;
     Tv1Column29: TcxGridDBColumn;
     Tv1Column30: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    Tv1Column31: TcxGridDBColumn;
+    Tv1Column32: TcxGridDBColumn;
+    Tv1Column33: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);
@@ -116,6 +120,7 @@ type
     procedure btnEditClick(Sender: TObject);
     procedure N3Click(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
   private
     procedure InitGrid();
     procedure SetStatus();
@@ -179,6 +184,9 @@ begin
       SQL.Clear;
       Filtered := False;
       sql.Add(' select CONVERT(varchar,A.SailingSchedule,23) SailingSchedule,A.*,Saleser=(select Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)  ');
+      Sql.Add(',JHSXF=ISNULL((select SUM(X.WoSXFAmount) from Finance_WriteOff X where X.ToId=A.FFID ), 0)');
+      Sql.Add(',SSAmount=ISNULL((select SUM(X.WoAmount)-SUM(X.WoSXFAmount) from Finance_WriteOff X where X.ToId=A.FFID ), 0)');
+      Sql.Add(',SSCNYAmount=ISNULL((select SUM(X.WoAmount*X.WoJHExchangeRate)-SUM(X.WoSXFAmount*X.WoJHExchangeRate) from Finance_WriteOff X where X.ToId=A.FFID ), 0)');
       sql.Add(' from Finance_Flow A where A.FFType=''Ó¦ÊÕ¿îµÇ¼Ç''  ');
       case cxTabControl1.TabIndex of
         0:
@@ -285,7 +293,7 @@ begin
   inherited;
   ReadCxGrid(trim(Self.Caption), Tv1, '²ÆÎñ¹ÜÀí');
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
-  begdate.DateTime := Enddate.DateTime - 30;
+  begdate.DateTime := Enddate.DateTime - 91;
   SetStatus();
   InitGrid();
 end;
@@ -531,6 +539,42 @@ begin
   end;
 end;
 
+procedure TfrmReceivableList.ToolButton2Click(Sender: TObject);
+begin
+  try
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_Judge ');
+      sql.Add(' @FFIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FFID').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)));
+  except
+    application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
+    Exit;
+  end;
+  try
+    frmReceivableInput := TfrmReceivableInput.Create(Application);
+    with frmReceivableInput do
+    begin
+      FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
+      PState := '¸´ÖÆ';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmReceivableInput.Free;
+  end;
+
+end;
+
 procedure TfrmReceivableList.ToolButton4Click(Sender: TObject);
 begin
   if ADOQueryMain.IsEmpty then

A09财务通用管理/U_SingleCustStatement.dfm

@@ -198,6 +198,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
     Height = 542
     Align = alClient
     TabOrder = 2
+    Visible = False
     object TV1: TcxGridDBBandedTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -602,6 +603,274 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       GridView = TV1
     end
   end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 76
+    Width = 1540
+    Height = 542
+    Align = alClient
+    TabOrder = 3
+    object TV11: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_HZ
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn5
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column20
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn2
+        end
+        item
+          Kind = skSum
+          Column = v2OrderNo
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.IncSearch = DataLink_Financial.SHuangSe
+      Styles.Footer = DataLink_Financial.Default
+      Styles.Header = DataLink_Financial.Default
+      Styles.Inactive = DataLink_Financial.SHuangSe
+      Styles.Selection = DataLink_Financial.SHuangSe
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #24207#21495
+        DataBinding.FieldName = 'keyNO'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 57
+      end
+      object v2CRTime: TcxGridDBColumn
+        Tag = 7
+        Caption = #21457#29983#26085#26399
+        DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 82
+      end
+      object Tv1Column27: TcxGridDBColumn
+        Caption = #24212#25910#26085#26399
+        DataBinding.FieldName = 'YSDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object Tv1Column23: TcxGridDBColumn
+        Caption = #23545#36134#26085#26399
+        DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v2FactoryName: TcxGridDBColumn
+        Caption = #23458#25143#21333#21495
+        DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object v2OrderNo: TcxGridDBColumn
+        Tag = 7
+        Caption = #24212#25910#37329#39069
+        DataBinding.FieldName = 'BQYSAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #25910#27454#37329#39069
+        DataBinding.FieldName = 'BQSKAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column19: TcxGridDBColumn
+        Caption = #32047#35745#20313#39069
+        DataBinding.FieldName = 'BQJYAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1Column24: TcxGridDBColumn
+        Caption = #31080#21495
+        DataBinding.FieldName = 'IVNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object Tv1Column20: TcxGridDBColumn
+        Caption = #24320#31080#37329#39069
+        DataBinding.FieldName = 'BQKPAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column21: TcxGridDBColumn
+        Caption = #32047#35745#27424#31080
+        DataBinding.FieldName = 'BQWKPAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #25688#35201
+        DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column9: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'F_Spec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'P_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column28: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 92
+      end
+      object TV11Column1: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 52
+      end
+      object TV11Column2: TcxGridDBColumn
+        Caption = #20854#20182#36153
+        DataBinding.FieldName = 'OtherFee'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+      object TV11Column3: TcxGridDBColumn
+        Caption = #20943#20813#37329#39069
+        DataBinding.FieldName = 'Deduction'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+    end
+    object cxGridLevel2: TcxGridLevel
+      GridView = TV11
+    end
+  end
   object ADOQueryTemp: TADOQuery
     Connection = DataLink_Financial.ADOLink
     LockType = ltReadOnly
@@ -624,7 +893,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
     Top = 209
   end
   object cxGridPopupMenu2: TcxGridPopupMenu
-    Grid = cxGrid2
+    Grid = cxGrid1
     PopupMenus = <>
     Left = 352
     Top = 208

A09财务通用管理/U_SingleCustStatement.pas

@@ -80,6 +80,34 @@ type
     cxStyleRepository1: TcxStyleRepository;
     cxStyle1: TcxStyle;
     TV1Column5: TcxGridDBBandedColumn;
+    cxGrid1: TcxGrid;
+    TV11: TcxGridDBTableView;
+    v2CRTime: TcxGridDBColumn;
+    Tv1Column27: TcxGridDBColumn;
+    Tv1Column23: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2FactoryName: TcxGridDBColumn;
+    cxGridDBColumn1: TcxGridDBColumn;
+    v2OrderNo: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    Tv1Column19: TcxGridDBColumn;
+    Tv1Column24: TcxGridDBColumn;
+    Tv1Column20: TcxGridDBColumn;
+    Tv1Column21: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    Tv1Column28: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    TV11Column1: TcxGridDBColumn;
+    TV11Column2: TcxGridDBColumn;
+    TV11Column3: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -147,7 +175,9 @@ end;
 
 procedure TfrmSingleCustStatement.FormShow(Sender: TObject);
 begin
-  readCxBandedGrid(trim(self.Caption), Tv1, '应收款对账单');
+//  readCxBandedGrid(trim(self.Caption), Tv11, '应收款对账单');
+  ReadCxGrid(trim(Self.Caption), Tv11, '应收款对账单');
+
   InitGrid();
 end;
 
@@ -171,7 +201,8 @@ end;
 
 procedure TfrmSingleCustStatement.ToolButton2Click(Sender: TObject);
 begin
-  WriteCxBandedGrid(trim(self.Caption), Tv1, '应收款对账单');
+//  WriteCxBandedGrid(trim(self.Caption), Tv11, '应收款对账单');
+  WriteCxGrid(trim(Self.Caption), Tv11, '应收款对账单');
 end;
 
 procedure TfrmSingleCustStatement.FormCreate(Sender: TObject);

A09财务通用管理/U_SingleFtyStatement.dfm

@@ -198,10 +198,12 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
     Height = 542
     Align = alClient
     TabOrder = 2
-    ExplicitLeft = 1
+    ExplicitLeft = -6
-    ExplicitTop = 75
+    ExplicitTop = 73
+    ExplicitWidth = 712
     object TV1: TcxGridDBBandedTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_HZ
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <
@@ -262,6 +264,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column2: TcxGridDBBandedColumn
         Caption = #21457#29983#26085#26399
         DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -275,6 +278,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column4: TcxGridDBBandedColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -288,6 +292,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column5: TcxGridDBBandedColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -301,6 +306,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column6: TcxGridDBBandedColumn
         Caption = #35268#26684
         DataBinding.FieldName = 'F_Spec'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -314,6 +320,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column7: TcxGridDBBandedColumn
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -327,6 +334,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column8: TcxGridDBBandedColumn
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -340,6 +348,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column9: TcxGridDBBandedColumn
         Caption = #24212#20184#37329#39069
         DataBinding.FieldName = 'BQYFAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -353,6 +362,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column12: TcxGridDBBandedColumn
         Caption = #20184#27454#37329#39069
         DataBinding.FieldName = 'BQFKAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -366,6 +376,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column15: TcxGridDBBandedColumn
         Caption = #32047#35745#20313#39069
         DataBinding.FieldName = 'BQJYAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -381,6 +392,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column3: TcxGridDBBandedColumn
         Caption = #25688#35201
         DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -393,6 +405,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       end
       object V1Column10: TcxGridDBBandedColumn
         DataBinding.FieldName = 'CWID'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         Visible = False
@@ -408,6 +421,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column14: TcxGridDBBandedColumn
         Caption = #24207#21495
         DataBinding.FieldName = 'keyNO'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -421,6 +435,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column16: TcxGridDBBandedColumn
         Caption = #24320#31080#37329#39069
         DataBinding.FieldName = 'BQKPAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -434,6 +449,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column17: TcxGridDBBandedColumn
         Caption = #32047#35745#27424#31080
         DataBinding.FieldName = 'BQWKPAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -448,6 +464,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column20: TcxGridDBBandedColumn
         Caption = #31080#21495
         DataBinding.FieldName = 'IVNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -461,6 +478,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column21: TcxGridDBBandedColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -474,6 +492,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column22: TcxGridDBBandedColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -487,6 +506,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column23: TcxGridDBBandedColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'P_Color'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -500,6 +520,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column25: TcxGridDBBandedColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'MxNote'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -512,6 +533,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column26: TcxGridDBBandedColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'YMxNote'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -525,6 +547,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column33: TcxGridDBBandedColumn
         Caption = #20854#20182#36153
         DataBinding.FieldName = 'OtherFee'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Moving = False
@@ -536,6 +559,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object V1Column34: TcxGridDBBandedColumn
         Caption = #36135#27454
         DataBinding.FieldName = 'HKMONEY'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Moving = False
@@ -547,6 +571,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object TV1Column1: TcxGridDBBandedColumn
         Caption = #20943#20813#37329#39069
         DataBinding.FieldName = 'Deduction'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Moving = False
@@ -558,6 +583,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       object TV1Column2: TcxGridDBBandedColumn
         Caption = #26159#21542#21547#31246
         DataBinding.FieldName = 'IsInvoice'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 72
         Position.BandIndex = 1
@@ -569,6 +595,264 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
       GridView = TV1
     end
   end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 76
+    Width = 1540
+    Height = 542
+    Align = alClient
+    TabOrder = 3
+    ExplicitTop = 73
+    object TV11: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_HZ
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = Tv1Column12
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column15
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column17
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column11
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column2
+        end
+        item
+          Kind = skSum
+          Column = v2FactoryName
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column28
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.IncSearch = DataLink_Financial.SHuangSe
+      Styles.Footer = DataLink_Financial.Default
+      Styles.Header = DataLink_Financial.Default
+      Styles.Inactive = DataLink_Financial.SHuangSe
+      Styles.Selection = DataLink_Financial.SHuangSe
+      object Tv1Column23: TcxGridDBColumn
+        Caption = #24207#21495
+        DataBinding.FieldName = 'keyNO'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 50
+      end
+      object v2CRTime: TcxGridDBColumn
+        Tag = 7
+        Caption = #21457#29983#26085#26399
+        DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 82
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #24212#20184#37329#39069
+        DataBinding.FieldName = 'BQYFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v2FactoryName: TcxGridDBColumn
+        Caption = #20184#27454#37329#39069
+        DataBinding.FieldName = 'BQFKAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object v2OrderNo: TcxGridDBColumn
+        Tag = 7
+        Caption = #32047#35745#20313#39069
+        DataBinding.FieldName = 'BQJYAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #26159#21542#21547#31246
+        DataBinding.FieldName = 'IsInvoice'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column19: TcxGridDBColumn
+        Caption = #31080#21495
+        DataBinding.FieldName = 'IVNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 62
+      end
+      object Tv1Column28: TcxGridDBColumn
+        Caption = #24320#31080#37329#39069
+        DataBinding.FieldName = 'BQKPAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 75
+      end
+      object Tv1Column21: TcxGridDBColumn
+        Caption = #32047#35745#27424#31080
+        DataBinding.FieldName = 'BQWKPAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object Tv1Column24: TcxGridDBColumn
+        Caption = #25688#35201
+        DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object Tv1Column20: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'F_Spec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'YMxNote'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #20854#20182#36153
+        DataBinding.FieldName = 'OtherFee'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column17: TcxGridDBColumn
+        Caption = #20943#20813#37329#39069
+        DataBinding.FieldName = 'Deduction'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'P_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column25: TcxGridDBColumn
+        DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
+        Visible = False
+      end
+      object Tv1Column26: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object Tv1Column27: TcxGridDBColumn
+        Caption = #25171#21253#26041#24335
+        DataBinding.FieldName = 'DBFS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+    end
+    object cxGridLevel2: TcxGridLevel
+      GridView = TV11
+    end
+  end
   object ADOQueryTemp: TADOQuery
     Connection = DataLink_Financial.ADOLink
     LockType = ltReadOnly

A09财务通用管理/U_SingleFtyStatement.pas

@@ -15,7 +15,7 @@ uses
   cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
   cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
   cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
-  dxBarBuiltInMenu;
+  dxBarBuiltInMenu, dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmSingleFtyStatement = class(TForm)
@@ -81,6 +81,33 @@ type
     cxStyle2: TcxStyle;
     cxStyleRepository3: TcxStyleRepository;
     cxStyle3: TcxStyle;
+    cxGrid1: TcxGrid;
+    TV11: TcxGridDBTableView;
+    v2CRTime: TcxGridDBColumn;
+    Tv1Column23: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2FactoryName: TcxGridDBColumn;
+    v2OrderNo: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column19: TcxGridDBColumn;
+    Tv1Column24: TcxGridDBColumn;
+    Tv1Column20: TcxGridDBColumn;
+    Tv1Column21: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    Tv1Column28: TcxGridDBColumn;
+    Tv1Column17: TcxGridDBColumn;
+    Tv1Column25: TcxGridDBColumn;
+    Tv1Column26: TcxGridDBColumn;
+    Tv1Column27: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -147,7 +174,8 @@ end;
 
 procedure TfrmSingleFtyStatement.FormShow(Sender: TObject);
 begin
-  readCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
+//  readCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
+  readCxGrid(trim(self.Caption), Tv11, '应付款对账单');
   InitGrid();
 end;
 
@@ -171,7 +199,8 @@ end;
 
 procedure TfrmSingleFtyStatement.ToolButton2Click(Sender: TObject);
 begin
-  WriteCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
+//  WriteCxBandedGrid(trim(self.Caption), Tv1, '财务管理');
+  WriteCxGrid(trim(Self.Caption), Tv11, '应付款对账单');
 end;
 
 procedure TfrmSingleFtyStatement.FormCreate(Sender: TObject);

A09财务通用管理/U_handPayableList.dfm

@@ -152,6 +152,7 @@ inherited frmhandPayableList: TfrmhandPayableList
     Color = clWhite
     ParentBackground = False
     TabOrder = 1
+    ExplicitTop = 44
     object Label2: TLabel
       Left = 40
       Top = 13
@@ -173,32 +174,43 @@ inherited frmhandPayableList: TfrmhandPayableList
       Caption = '-----'
     end
     object Label5: TLabel
-      Left = 214
+      Left = 212
-      Top = 14
+      Top = 13
       Width = 52
       Height = 12
-      Caption = #23545#26041#21333#20301
+      Caption = #35745#21010#21333#21495
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -12
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      Visible = False
     end
     object Label1: TLabel
-      Left = 210
+      Left = 212
       Top = 40
       Width = 52
       Height = 12
-      Caption = #25105#26041#21333#20301
+      Caption = #25903#20986#20107#30001
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 388
+      Top = 12
+      Width = 26
+      Height = 12
+      Caption = #37329#39069
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -12
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      Visible = False
     end
     object begdate: TDateTimePicker
       Left = 94
@@ -218,26 +230,33 @@ inherited frmhandPayableList: TfrmhandPayableList
       Time = 0.918237847232376200
       TabOrder = 2
     end
-    object FactoryName: TEdit
+    object OrderNo: TEdit
       Tag = 2
       Left = 266
-      Top = 10
+      Top = 9
       Width = 89
       Height = 20
       TabOrder = 1
-      Visible = False
       OnChange = IVNoChange
     end
-    object SYRName: TEdit
+    object SubExpend: TEdit
       Tag = 2
       Left = 266
       Top = 36
       Width = 89
       Height = 20
       TabOrder = 3
-      Visible = False
       OnChange = IVNoChange
     end
+    object Amount: TEdit
+      Tag = 2
+      Left = 426
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnKeyPress = AmountKeyPress
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0

A09财务通用管理/U_handPayableList.pas

@@ -46,7 +46,7 @@ type
     v1InvoiceDate: TcxGridDBColumn;
     v1note: TcxGridDBColumn;
     Label5: TLabel;
-    FactoryName: TEdit;
+    OrderNo: TEdit;
     TCHK: TToolButton;
     TNOCHK: TToolButton;
     cxTabControl1: TcxTabControl;
@@ -60,7 +60,7 @@ type
     v1Column3: TcxGridDBColumn;
     ADOQueryPrint: TADOQuery;
     Label1: TLabel;
-    SYRName: TEdit;
+    SubExpend: TEdit;
     v1Column12: TcxGridDBColumn;
     v1Column13: TcxGridDBColumn;
     v1Column14: TcxGridDBColumn;
@@ -74,6 +74,8 @@ type
     Tv1Column1: TcxGridDBColumn;
     ToolButton6: TToolButton;
     Tv1Column2: TcxGridDBColumn;
+    Label3: TLabel;
+    Amount: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -98,6 +100,7 @@ type
     procedure N3Click(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
     procedure ToolButton6Click(Sender: TObject);
+    procedure AmountKeyPress(Sender: TObject; var Key: Char);
   private
     { Private declarations }
 
@@ -114,7 +117,8 @@ type
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_HandPayableInPut,U_HandPayableImport;
+  U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_HandPayableInPut,
+  U_HandPayableImport;
 
 {$R *.dfm}
 
@@ -188,7 +192,10 @@ begin
             sql.add(' and A.Status=''9''');
           end;
       end;
-
+      if Amount.text <> '' then
+      begin
+        sql.Add(' and A.Amount=''' + Trim(Amount.Text) + '''');
+      end;
       Open;
     end;
     SCreateCDS(ADOQueryMain, CDS_Invoice);
@@ -326,6 +333,15 @@ begin
 
 end;
 
+procedure TfrmhandPayableList.AmountKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    initGrid();
+  end;
+
+end;
+
 procedure TfrmhandPayableList.cxTabControl1Change(Sender: TObject);
 begin
   SetStatus();
@@ -333,8 +349,8 @@ begin
 end;
 
 procedure TfrmhandPayableList.TCHKClick(Sender: TObject);
-Var
+var
-   MFFIDS:String;
+  MFFIDS: string;
 begin
   if CDS_Invoice.IsEmpty then
     exit;
@@ -378,7 +394,7 @@ end;
 
 procedure TfrmhandPayableList.TNOCHKClick(Sender: TObject);
 var
-  MFFIDS:string;
+  MFFIDS: string;
 begin
   if CDS_Invoice.IsEmpty then
     exit;
@@ -535,7 +551,7 @@ begin
   begin
 //    IvNo.Enabled := False;
     FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring);
-    PState:='¸´ÖÆ';
+    PState := '¸´ÖÆ';
     if showmodal = 1 then
     begin
       Self.initGrid();
@@ -547,7 +563,7 @@ end;
 
 procedure TfrmhandPayableList.ToolButton6Click(Sender: TObject);
 begin
-   try
+  try
     frmHandPayableImport := TfrmHandPayableImport.Create(Application);
     with frmHandPayableImport do
     begin

B01基础合同管理/Contract.dpr

@@ -31,8 +31,9 @@ uses
   U_BaoguanInPut in 'U_BaoguanInPut.pas' {frmBaoguanInPut},
   U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
   U_ZDYHelp_Img in 'U_ZDYHelp_Img.pas' {frmZDYHelp_Img},
-  U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
+  U_ZDYHelp_KH in 'U_ZDYHelp_KH.pas' {frmZDYHelp_KH},
-  U_QMFileUp in 'U_QMFileUp.pas' {frmQMFileUp};
+  U_QMFileUp in 'U_QMFileUp.pas' {frmQMFileUp},
+  U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp};
 
 {$R *.res}
 

B01基础合同管理/Contract.dproj

@@ -206,14 +206,18 @@
             <Form>frmZDYHelp_Img</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
+        <DCCReference Include="U_ZDYHelp_KH.pas">
-            <Form>frmZDYHelp</Form>
+            <Form>frmZDYHelp_KH</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="U_QMFileUp.pas">
             <Form>frmQMFileUp</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
+            <Form>frmZDYHelp</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

B01基础合同管理/Contract.dproj.local

@@ -1,78 +1,87 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.114,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_ContractList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.063,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.289,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -156,5 +165,7 @@
     <File Path="U_ZDYHelp_Img.dfm"/>
     <File Path="U_QMFileUp.pas"/>
     <File Path="U_QMFileUp.dfm"/>
+    <File Path="U_ZDYHelp_KH.pas"/>
+    <File Path="U_ZDYHelp_KH.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

B01基础合同管理/U_BaoguanInPut.dfm

@@ -11,8 +11,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
   OldCreateOrder = True
   Position = poScreenCenter
   WindowState = wsMaximized
-  ExplicitLeft = -49
-  ExplicitTop = -92
   ExplicitWidth = 1300
   ExplicitHeight = 706
   PixelsPerInch = 96
@@ -64,7 +62,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     Top = 38
     Width = 1284
     Height = 339
-    HorzScrollBar.Position = 61
     Align = alTop
     BevelInner = bvNone
     BevelOuter = bvNone
@@ -80,9 +77,8 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     ParentCtl3D = False
     ParentFont = False
     TabOrder = 1
-    ExplicitWidth = 1511
     object Label10: TLabel
-      Left = 435
+      Left = 496
       Top = 95
       Width = 66
       Height = 12
@@ -95,7 +91,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label14: TLabel
-      Left = -25
+      Left = 36
       Top = 30
       Width = 66
       Height = 12
@@ -108,7 +104,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label1: TLabel
-      Left = -25
+      Left = 36
       Top = 95
       Width = 66
       Height = 12
@@ -121,7 +117,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label2: TLabel
-      Left = 216
+      Left = 277
       Top = 95
       Width = 65
       Height = 12
@@ -134,7 +130,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label4: TLabel
-      Left = 435
+      Left = 496
       Top = 193
       Width = 65
       Height = 12
@@ -147,7 +143,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label3: TLabel
-      Left = 435
+      Left = 496
       Top = 63
       Width = 65
       Height = 12
@@ -160,7 +156,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label5: TLabel
-      Left = 435
+      Left = 496
       Top = 30
       Width = 67
       Height = 12
@@ -173,7 +169,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label6: TLabel
-      Left = 870
+      Left = 931
       Top = 30
       Width = 65
       Height = 12
@@ -186,7 +182,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label7: TLabel
-      Left = 641
+      Left = 702
       Top = 95
       Width = 65
       Height = 12
@@ -199,7 +195,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label8: TLabel
-      Left = 641
+      Left = 702
       Top = 158
       Width = 65
       Height = 12
@@ -212,7 +208,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label11: TLabel
-      Left = -25
+      Left = 36
       Top = 158
       Width = 66
       Height = 12
@@ -225,7 +221,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label15: TLabel
-      Left = 870
+      Left = 931
       Top = 63
       Width = 65
       Height = 12
@@ -238,7 +234,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label17: TLabel
-      Left = 216
+      Left = 277
       Top = 126
       Width = 66
       Height = 12
@@ -251,7 +247,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label20: TLabel
-      Left = 870
+      Left = 931
       Top = 193
       Width = 65
       Height = 12
@@ -264,7 +260,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label21: TLabel
-      Left = 216
+      Left = 277
       Top = 227
       Width = 67
       Height = 12
@@ -277,7 +273,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label22: TLabel
-      Left = -25
+      Left = 36
       Top = 193
       Width = 65
       Height = 12
@@ -290,7 +286,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label24: TLabel
-      Left = 1098
+      Left = 1159
       Top = 30
       Width = 65
       Height = 12
@@ -303,7 +299,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label25: TLabel
-      Left = -25
+      Left = 36
       Top = 227
       Width = 65
       Height = 12
@@ -316,7 +312,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label26: TLabel
-      Left = 641
+      Left = 702
       Top = 227
       Width = 66
       Height = 12
@@ -329,7 +325,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label27: TLabel
-      Left = -25
+      Left = 36
       Top = 262
       Width = 65
       Height = 12
@@ -342,7 +338,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label28: TLabel
-      Left = 435
+      Left = 496
       Top = 227
       Width = 67
       Height = 12
@@ -355,7 +351,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label30: TLabel
-      Left = 650
+      Left = 711
       Top = 262
       Width = 66
       Height = 12
@@ -368,7 +364,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label32: TLabel
-      Left = -25
+      Left = 36
       Top = 63
       Width = 65
       Height = 12
@@ -381,7 +377,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label33: TLabel
-      Left = -26
+      Left = 35
       Top = 295
       Width = 67
       Height = 12
@@ -394,7 +390,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label35: TLabel
-      Left = 1090
+      Left = 1151
       Top = 126
       Width = 78
       Height = 12
@@ -407,7 +403,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label12: TLabel
-      Left = 435
+      Left = 496
       Top = 158
       Width = 65
       Height = 12
@@ -420,7 +416,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label13: TLabel
-      Left = 870
+      Left = 931
       Top = 158
       Width = 65
       Height = 12
@@ -433,7 +429,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label9: TLabel
-      Left = 1098
+      Left = 1159
       Top = 158
       Width = 67
       Height = 12
@@ -446,7 +442,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label16: TLabel
-      Left = 641
+      Left = 702
       Top = 193
       Width = 65
       Height = 12
@@ -459,7 +455,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label19: TLabel
-      Left = 641
+      Left = 702
       Top = 126
       Width = 66
       Height = 12
@@ -472,7 +468,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label18: TLabel
-      Left = 435
+      Left = 496
       Top = 126
       Width = 66
       Height = 12
@@ -485,7 +481,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label36: TLabel
-      Left = 869
+      Left = 930
       Top = 126
       Width = 66
       Height = 12
@@ -498,7 +494,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label23: TLabel
-      Left = 1098
+      Left = 1159
       Top = 193
       Width = 65
       Height = 12
@@ -511,7 +507,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label29: TLabel
-      Left = 641
+      Left = 702
       Top = 63
       Width = 66
       Height = 12
@@ -524,7 +520,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label31: TLabel
-      Left = 216
+      Left = 277
       Top = 262
       Width = 78
       Height = 12
@@ -537,7 +533,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       ParentFont = False
     end
     object Label34: TLabel
-      Left = -25
+      Left = 36
       Top = 126
       Width = 66
       Height = 12
@@ -551,7 +547,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object ConNo: TEdit
       Tag = 2
-      Left = 503
+      Left = 564
       Top = 92
       Width = 110
       Height = 18
@@ -559,7 +555,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object CKS: TBtnEditC
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 26
       Width = 350
       Height = 20
@@ -570,7 +566,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object FPNO: TEdit
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 92
       Width = 110
       Height = 18
@@ -578,7 +574,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object FPDate: TDateTimePicker
       Tag = 2
-      Left = 287
+      Left = 348
       Top = 91
       Width = 110
       Height = 20
@@ -590,7 +586,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object ZMXZ: TBtnEditC
       Tag = 2
-      Left = 503
+      Left = 564
       Top = 189
       Width = 110
       Height = 20
@@ -601,7 +597,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object PONO: TEdit
       Tag = 2
-      Left = 503
+      Left = 564
       Top = 60
       Width = 110
       Height = 18
@@ -609,7 +605,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object HTDate: TDateTimePicker
       Tag = 2
-      Left = 712
+      Left = 773
       Top = 91
       Width = 110
       Height = 20
@@ -621,7 +617,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object HB: TBtnEditC
       Tag = 2
-      Left = 712
+      Left = 773
       Top = 154
       Width = 110
       Height = 20
@@ -632,7 +628,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object LJKA: TBtnEditC
       Tag = 2
-      Left = 932
+      Left = 993
       Top = 59
       Width = 110
       Height = 20
@@ -643,7 +639,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object ChuyunG: TBtnEditC
       Tag = 2
-      Left = 287
+      Left = 348
       Top = 122
       Width = 110
       Height = 20
@@ -654,7 +650,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object BZType: TBtnEditC
       Tag = 2
-      Left = 932
+      Left = 993
       Top = 189
       Width = 110
       Height = 20
@@ -665,7 +661,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object MYType: TBtnEditC
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 189
       Width = 350
       Height = 20
@@ -676,7 +672,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object SBDate: TDateTimePicker
       Tag = 2
-      Left = 1174
+      Left = 1235
       Top = 26
       Width = 110
       Height = 20
@@ -688,7 +684,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object BGTK: TBtnEditC
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 223
       Width = 110
       Height = 20
@@ -699,7 +695,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object HYDL: TBtnEditC
       Tag = 2
-      Left = 287
+      Left = 348
       Top = 258
       Width = 326
       Height = 20
@@ -711,7 +707,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object CGS: TBtnEditC
       Tag = 2
-      Left = 716
+      Left = 777
       Top = 258
       Width = 326
       Height = 20
@@ -722,7 +718,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object CustName: TBtnEditC
       Tag = 2
-      Left = 47
+      Left = 107
       Top = 59
       Width = 350
       Height = 20
@@ -733,7 +729,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object ZZMDG: TBtnEditC
       Tag = 2
-      Left = 1174
+      Left = 1235
       Top = 122
       Width = 110
       Height = 20
@@ -744,7 +740,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object DPNo: TEdit
       Tag = 2
-      Left = 503
+      Left = 564
       Top = 27
       Width = 317
       Height = 18
@@ -752,7 +748,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object HGCode: TBtnEditC
       Tag = 2
-      Left = 932
+      Left = 993
       Top = 26
       Width = 110
       Height = 20
@@ -763,7 +759,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object YunFee: TEdit
       Tag = 2
-      Left = 287
+      Left = 348
       Top = 224
       Width = 110
       Height = 18
@@ -772,7 +768,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object BANo: TEdit
       Tag = 2
-      Left = 712
+      Left = 773
       Top = 224
       Width = 110
       Height = 18
@@ -780,7 +776,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object BaoFee: TEdit
       Tag = 2
-      Left = 503
+      Left = 564
       Top = 224
       Width = 110
       Height = 18
@@ -789,7 +785,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object Note: TEdit
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 293
       Width = 995
       Height = 18
@@ -797,7 +793,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object TDNo: TEdit
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 155
       Width = 350
       Height = 18
@@ -805,7 +801,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object KHDate: TDateTimePicker
       Tag = 2
-      Left = 503
+      Left = 564
       Top = 154
       Width = 110
       Height = 20
@@ -817,7 +813,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object batchNo: TEdit
       Tag = 2
-      Left = 932
+      Left = 993
       Top = 155
       Width = 110
       Height = 18
@@ -825,7 +821,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object HG: TBtnEditC
       Tag = 2
-      Left = 1174
+      Left = 1235
       Top = 154
       Width = 110
       Height = 20
@@ -836,7 +832,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object YSType: TBtnEditC
       Tag = 2
-      Left = 712
+      Left = 773
       Top = 189
       Width = 110
       Height = 20
@@ -847,7 +843,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object DYG: TBtnEditC
       Tag = 2
-      Left = 712
+      Left = 773
       Top = 122
       Width = 110
       Height = 20
@@ -858,7 +854,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object MYG: TBtnEditC
       Tag = 2
-      Left = 503
+      Left = 564
       Top = 122
       Width = 110
       Height = 20
@@ -869,7 +865,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object DaohuoG: TBtnEditC
       Tag = 2
-      Left = 932
+      Left = 993
       Top = 122
       Width = 110
       Height = 20
@@ -880,7 +876,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object JHType: TBtnEditC
       Tag = 2
-      Left = 1174
+      Left = 1235
       Top = 189
       Width = 110
       Height = 20
@@ -891,7 +887,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object notifier: TBtnEditC
       Tag = 2
-      Left = 712
+      Left = 773
       Top = 59
       Width = 110
       Height = 20
@@ -902,7 +898,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object MDGDL: TBtnEditC
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 258
       Width = 110
       Height = 20
@@ -913,7 +909,7 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     end
     object chukouG: TBtnEditC
       Tag = 2
-      Left = 47
+      Left = 108
       Top = 122
       Width = 110
       Height = 20
@@ -931,9 +927,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
     Align = alClient
     Caption = 'Panel1'
     TabOrder = 2
-    ExplicitTop = 353
-    ExplicitWidth = 1517
-    ExplicitHeight = 342
     object ToolBar3: TToolBar
       Tag = 1
       Left = 1
@@ -984,8 +977,6 @@ inherited frmBaoguanInPut: TfrmBaoguanInPut
       Align = alClient
       BorderStyle = cxcbsNone
       TabOrder = 1
-      ExplicitWidth = 1515
-      ExplicitHeight = 302
       object TV2: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         ScrollbarAnnotations.CustomAnnotations = <>

B01基础合同管理/U_BaoguanInPut.pas

@@ -219,7 +219,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_PictureUpload,
-  U_ZDYHelp_Img;
+  U_ZDYHelp_Img,U_ZDYHelp_KH;
 
 {$R *.dfm}
 function TfrmBaoguanInPut.GetLSNo1(ADOQueryTmp: TADOQuery; var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean;
@@ -1733,27 +1733,51 @@ begin
 end;
 
 procedure TfrmBaoguanInPut.CustNameBtnUpClick(Sender: TObject);
+var
+  fsj: string;
+  FWZ: Integer;
 begin
+  fsj := Trim(TEdit(Sender).Hint);
+  FWZ := Pos('/', fsj);
   try
-    frmCompanySel := TfrmCompanySel.Create(Application);
+    frmZDYHelp_KH := TfrmZDYHelp_KH.Create(Application);
-    with frmCompanySel do
+    with frmZDYHelp_KH do
     begin
-      FCoType := '客户';
+      flag := Copy(fsj, 1, FWZ - 1);
-//      if Self.FAuthority = '录入' then
+      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
-//        FAuthority := '理单业务';
+      MainType := '报关管理';
+      fnote1:=True;
       if ShowModal = 1 then
       begin
-
+        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
-        self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
+        PONO.Text := Trim(ClientDataSet1.fieldbyname('Note1').AsString);
-        self.PoNO.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
       end;
     end;
-
   finally
-    frmCompanySel.Free;
+    frmZDYHelp_KH.Free;
   end;
-
 end;
+//begin
+//  try
+//    frmCompanySel := TfrmCompanySel.Create(Application);
+//    with frmCompanySel do
+//    begin
+//      FCoType := '客户';
+////      if Self.FAuthority = '录入' then
+////        FAuthority := '理单业务';
+//      if ShowModal = 1 then
+//      begin
+//
+//        self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
+//        self.PoNO.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+//      end;
+//    end;
+//
+//  finally
+//    frmCompanySel.Free;
+//  end;
+
+//end;
 
 procedure TfrmBaoguanInPut.v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin

B01基础合同管理/U_BaoguanList.dfm

@@ -211,7 +211,6 @@ inherited frmBaoguanList: TfrmBaoguanList
     Align = alClient
     PopupMenu = pm1
     TabOrder = 3
-    ExplicitTop = 161
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

B01基础合同管理/U_SalesContractList.dfm

@@ -263,7 +263,6 @@ inherited frmSalesContractList: TfrmSalesContractList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Options.Focusing = False
         Styles.Header = DataLink_Contract.Default
         Width = 82
       end

B01基础合同管理/U_SalesContractList.pas

@@ -490,7 +490,7 @@ begin
       if Trim(FAuthority) = '理单' then
       begin
 
-        sql.Add('and AA.TallyId=' + quotedstr(trim(DCode)));
+        sql.Add('and (AA.TallyId=' + quotedstr(trim(DCode))+ ' or AA.Filler =' + quotedstr(trim(DCode))+')');
       end;
 
       case cxTabControl1.TabIndex of

B01基础合同管理/U_ZDYHelp_KH.pas

@@ -0,0 +1,679 @@
+unit U_ZDYHelp_KH;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseInput, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
+  cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
+  cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
+  cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
+  dxDateRanges, dxBarBuiltInMenu, System.ImageList, cxContainer, cxImageList,
+  dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
+  dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
+  dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
+  dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
+  dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
+  dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
+  dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
+  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
+
+type
+  TfrmZDYHelp_KH = class(TfrmBaseInput)
+    TV1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    V1Code: TcxGridDBColumn;
+    V1Name: TcxGridDBColumn;
+    ToolBar1: TToolBar;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    DataSource1: TDataSource;
+    ClientDataSet1: TClientDataSet;
+    TBAdd: TToolButton;
+    TBSave: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    ToolButton1: TToolButton;
+    TBEdit: TToolButton;
+    V1Note: TcxGridDBColumn;
+    V1OrderNo: TcxGridDBColumn;
+    ADOConnection1: TADOConnection;
+    Panel1: TPanel;
+    Label1: TLabel;
+    ZDYName: TcxTextEdit;
+    ThreeImgList: TImageList;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    V1ZdyFlag: TcxGridDBColumn;
+    V1HelpType: TcxGridDBColumn;
+    V1note1: TcxGridDBColumn;
+    ImageList1: TImageList;
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+    procedure V1NamePropertiesEditValueChanged(Sender: TObject);
+    procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
+    procedure V1NotePropertiesEditValueChanged(Sender: TObject);
+    procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure ZDYNamePropertiesChange(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    flag, flagname, snote, MainType: string;
+    fnote, forderno, fZdyFlag, ViewFlag, fnote1, FHelpType: Boolean;
+    PPSTE: integer;
+    { Public declarations }
+  end;
+
+var
+  frmZDYHelp_KH: TfrmZDYHelp_KH;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmZDYHelp_KH.FormCreate(Sender: TObject);
+begin
+  inherited;
+
+  with ADOConnection1 do
+  begin
+    Connected := false;
+    ConnectionString := DConString;
+    Connected := true;
+  end;
+  ADOQueryBaseCmd.Connection := ADOConnection1;
+  ADOQueryBaseTemp.Connection := ADOConnection1;
+
+end;
+
+procedure TfrmZDYHelp_KH.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+
+  ZDYName.SetFocus;
+
+  Action := cahide;
+end;
+
+procedure TfrmZDYHelp_KH.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''' + flag + '''');
+      if Trim(MainType) <> '' then
+      begin
+        sql.Add(' and A.MainType=''' + Trim(MainType) + '''');
+      end;
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, ClientDataSet1);
+    SInitCDSData(ADOQueryMain, ClientDataSet1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.TBAddClick(Sender: TObject);
+var
+  i: Integer;
+begin
+  ZDYName.SetFocus;
+  TV1.OptionsData.Editing := True;
+  TV1.OptionsSelection.CellSelect := True;
+  for i := 0 to 5 do
+  begin
+    with ClientDataSet1 do
+    begin
+      Append;
+      Post;
+    end;
+  end;
+
+end;
+
+procedure TfrmZDYHelp_KH.TBSaveClick(Sender: TObject);
+var
+  maxno: string;
+begin
+  if ClientDataSet1.IsEmpty then
+    Exit;
+  ZDYName.SetFocus;
+
+  if ClientDataSet1.Locate('ZDYName', null, []) then
+  begin
+    Application.MessageBox('名称不能为空！', '提示', 0);
+    Exit;
+  end;
+  if ClientDataSet1.Locate('ZDYName', '', []) then
+  begin
+    Application.MessageBox('名称不能为空！', '提示', 0);
+    Exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
+      open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('select * from KH_ZDY where 1=2');
+        open;
+        ADOQueryCmd.Append;
+        ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
+        ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
+        ADOQueryCmd.FieldByName('Type').Value := 'Main';
+        ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
+        ADOQueryCmd.Post;
+       { sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
+        Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
+        Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
+        Parameters.ParamByName('Type').Value:='Main';
+        Parameters.ParamByName('MainType').Value:=Trim(MainType);
+        ExecSQL;  }
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      ClientDataSet1.DisableControls;
+      with ClientDataSet1 do
+      begin
+        First;
+        while not eof do
+        begin
+          if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
+          begin
+            if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              ClientDataSet1.EnableControls;
+              Application.MessageBox('取最大编号失败！', '提示', 0);
+              Exit;
+            end;
+          end
+          else
+          begin
+            maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+          end;
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
+            if Trim(MainType) <> '' then
+              SQL.Add(' and MainType=''' + Trim(MainType) + '''');
+            sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
+            Open;
+          end;
+          if ADOQueryTemp.IsEmpty = False then
+          begin
+            if ADOQueryTemp.RecordCount > 1 then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！', '提示', 0);
+              Exit;
+            end;
+            if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！', '提示', 0);
+              Exit;
+            end
+            else
+            begin
+              if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
+              begin
+                ADOQueryCmd.Connection.RollbackTrans;
+                ClientDataSet1.EnableControls;
+                Application.MessageBox('名称重复！', '提示', 0);
+                Exit;
+              end;
+            end;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
+            ExecSQL;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from KH_ZDY where 1<>1');
+            Open;
+          end;
+          ADOQueryCmd.Append;
+          ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
+          ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').Value;
+          ADOQueryCmd.FieldByName('note').Value := Trim(snote);
+          //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
+          ADOQueryCmd.FieldByName('Type').Value := flag;
+          ADOQueryCmd.FieldByName('valid').Value := 'Y';
+          if Trim(MainType) <> '' then
+            ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
+          //ADOQueryCmd.FieldByName('sel').Value:=0;
+          ADOQueryCmd.Post;
+          ClientDataSet1.Edit;
+          ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
+          ClientDataSet1.Post;
+          Next;
+        end;
+      end;
+      ClientDataSet1.EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功！', '提示', 0);
+    TV1.OptionsData.Editing := False;
+    TV1.OptionsSelection.CellSelect := False;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end;
+
+end;
+
+procedure TfrmZDYHelp_KH.TBDelClick(Sender: TObject);
+begin
+  if ClientDataSet1.IsEmpty then
+    Exit;
+  if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString) <> '') or (Trim(ClientDataSet1.FieldByName('ZDYname').AsString) <> '') then
+  begin
+    if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
+      exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete KH_ZDY where ZDYNo=''' + Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString) + '''');
+      SQL.Add(' and Type=''' + Trim(flag) + '''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet1.Delete;
+end;
+
+procedure TfrmZDYHelp_KH.TBCloseClick(Sender: TObject);
+begin
+  ModalResult := 2;
+  ZDYName.SetFocus;
+
+  Close;
+end;
+
+procedure TfrmZDYHelp_KH.FormShow(Sender: TObject);
+var
+  fsj, fsj1: string;
+begin
+//  inherited;
+
+  InitGrid();
+  fsj := Trim(flag) + '01';
+  fsj1 := Trim(flagname) + '01';
+
+  ReadCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
+  frmZDYHelp_KH.Caption := Trim(flagname);
+  V1Note.Visible := fnote;
+  V1ZdyFlag.Visible := fZdyFlag;
+  V1OrderNo.Visible := forderno;
+  v1note1.Visible := fnote1;
+  V1HelpType.Visible := fhelpType;
+  if ViewFlag = True then
+  begin
+    TBAdd.Visible := False;
+    TBSave.Visible := False;
+    TBDel.Visible := False;
+    TBEdit.Visible := False;
+    Label2.Visible := False;
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.ToolButton1Click(Sender: TObject);
+begin
+  ZDYName.SetFocus;
+ // WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
+  ModalResult := 1;
+end;
+
+procedure TfrmZDYHelp_KH.TBEditClick(Sender: TObject);
+begin
+  TV1.OptionsData.Editing := True;
+  TV1.OptionsSelection.CellSelect := True;
+end;
+
+procedure TfrmZDYHelp_KH.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+  if TV1.OptionsData.Editing = False then
+  begin
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.ZDYNamePropertiesChange(Sender: TObject);
+var
+  fsj: string;
+begin
+  if Trim(ZDYName.Text) <> '' then
+  begin
+    fsj := ' zdyname like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or Note like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or ZJM like ''' + '%' + Trim(ZDYName.Text) + '%' + '''';
+  end;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, fsj);
+    SCreateCDS(ADOQueryMain, ClientDataSet1);
+    SInitCDSData(ADOQueryMain, ClientDataSet1);
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.V1NamePropertiesEditValueChanged(Sender: TObject);
+var
+  maxno, mvalue: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue) = '' then
+  begin
+    //Application.MessageBox('名称不能为空！','提示',0);
+    Exit;
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('ZdyName').Value := Trim(mvalue);
+    //Post;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + '''');
+      open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('select * from KH_ZDY where 1=2');
+        open;
+        ADOQueryCmd.Append;
+        ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag);
+        ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname);
+        ADOQueryCmd.FieldByName('Type').Value := 'Main';
+        ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
+        ADOQueryCmd.Post;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      //ClientDataSet1.DisableControls;
+      //with ClientDataSet1 do
+      //begin
+        //First;
+        //while not eof do
+        //begin
+      if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then
+      begin
+        if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+              //ClientDataSet1.EnableControls;
+          Application.MessageBox('取最大编号失败！', '提示', 0);
+          Exit;
+        end;
+      end
+      else
+      begin
+        maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+      end;
+      with ADOQueryTemp do
+      begin
+        Close;
+        sql.Clear;
+        sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + '''');
+        if Trim(MainType) <> '' then
+          SQL.Add(' and MainType=''' + Trim(MainType) + '''');
+        sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
+        sql.Add(' and note=''' + Trim(ClientDataSet1.fieldbyname('note').AsString) + '''');
+        Open;
+      end;
+      if ADOQueryTemp.IsEmpty = False then
+      begin
+        if ADOQueryTemp.RecordCount > 1 then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+
+              //ClientDataSet1.EnableControls;
+          Application.MessageBox('名称重复！', '提示', 0);
+          Exit;
+        end;
+        if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+              //ClientDataSet1.EnableControls;
+          Application.MessageBox('名称重复！', '提示', 0);
+          Exit;
+        end
+        else
+        begin
+          if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+                //ClientDataSet1.EnableControls;
+            Application.MessageBox('名称重复！', '提示', 0);
+            Exit;
+          end;
+        end;
+      end;
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + '''');
+        ExecSQL;
+      end;
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('select * from KH_ZDY where 1<>1');
+        Open;
+      end;
+      ADOQueryCmd.Append;
+      ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno);
+      ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').AsString;
+      ADOQueryCmd.FieldByName('note').Value := Trim(snote);
+          //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
+      ADOQueryCmd.FieldByName('Type').Value := flag;
+      ADOQueryCmd.FieldByName('valid').Value := 'Y';
+      if Trim(MainType) <> '' then
+        ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType);
+          //ADOQueryCmd.FieldByName('sel').Value:=0;
+      ADOQueryCmd.Post;
+      ClientDataSet1.Edit;
+      ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno);
+          //ClientDataSet1.Post;
+         // Next;
+        //end;
+      //end;
+     // ClientDataSet1.EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    //Application.MessageBox('保存成功！','提示',0);
+    //TV1.OptionsData.Editing:=False;
+    //TV1.OptionsSelection.CellSelect:=False;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.V1OrderNoPropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
+  begin
+    Application.MessageBox('名称不能为空!', '提示', 0);
+    Exit;
+  end;
+  mvalue := TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue) = '' then
+  begin
+    mvalue := '0';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('OrderNo').Value := mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set OrderNo=' + mvalue);
+    sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.V1NotePropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
+  begin
+    Application.MessageBox('名称不能为空!', '提示', 0);
+    Exit;
+  end;
+  mvalue := TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue) = '' then
+  begin
+    mvalue := '';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('Note').Value := mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set Note=''' + Trim(mvalue) + '''');
+    sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.V1Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+  fieldname: string;
+begin
+  fieldname := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
+  begin
+    Application.MessageBox('名称不能为空!', '提示', 0);
+    Exit;
+  end;
+  mvalue := TcxTextEdit(Sender).EditingText;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName(fieldname).Value := mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set ' + fieldname + '=''' + Trim(mvalue) + ''' ');
+    sql.Add('where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.V1HelpTypePropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue: string;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) = '' then
+  begin
+    Application.MessageBox('名称不能为空!', '提示', 0);
+    Exit;
+  end;
+  mvalue := TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue) = '' then
+  begin
+    mvalue := '0';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('HelpType').Value := mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set HelpType=''' + Trim(mvalue) + '''');
+    sql.Add(' where ZdyNo=''' + Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) + '''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp_KH.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  WriteCxGrid('自定义' + Trim(flag), TV1, '自定义数据');
+  frmZDYHelp_KH := nil;
+
+end;
+
+end.
+

B04采购计划管理/U_ClothHJGPlanPut.dfm

@@ -512,7 +512,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
       Date = 40916.000000000000000000
       Format = 'yyyy-MM-dd'
       Time = 0.670856296288548000
-      TabOrder = 0
+      TabOrder = 1
     end
     object PurNo: TEdit
       Tag = 2
@@ -520,7 +520,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
       Top = 17
       Width = 125
       Height = 18
-      TabOrder = 1
+      TabOrder = 2
       Text = #33258#21160#29983#25104
     end
     object BuyName: TBtnEditC
@@ -530,7 +530,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
       Width = 125
       Height = 20
       ReadOnly = True
-      TabOrder = 2
+      TabOrder = 3
       OnBtnUpClick = BuyNameBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
@@ -541,7 +541,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
       Width = 125
       Height = 20
       Hint = 'QtyNoteZW/'#28322#30701#35013
-      TabOrder = 3
+      TabOrder = 4
       OnBtnUpClick = SalesmanBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
@@ -552,7 +552,7 @@ inherited frmClothHJGPlanPut: TfrmClothHJGPlanPut
       Width = 125
       Height = 20
       Hint = 'SellName/'#20379#24212#21830
-      TabOrder = 4
+      TabOrder = 0
       OnBtnUpClick = SellNameBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end

B04采购计划管理/U_ClothPurchasePlanPut.dfm

@@ -499,7 +499,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
       Date = 40916.000000000000000000
       Format = 'yyyy-MM-dd'
       Time = 0.670856296288548000
-      TabOrder = 0
+      TabOrder = 1
     end
     object PurNo: TEdit
       Tag = 2
@@ -507,7 +507,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
       Top = 17
       Width = 125
       Height = 18
-      TabOrder = 1
+      TabOrder = 2
       Text = #33258#21160#29983#25104
     end
     object BuyName: TBtnEditC
@@ -517,7 +517,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
       Width = 125
       Height = 20
       ReadOnly = True
-      TabOrder = 2
+      TabOrder = 3
       OnBtnUpClick = BuyNameBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
@@ -528,7 +528,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
       Width = 125
       Height = 20
       Hint = 'QtyNoteZW/'#28322#30701#35013
-      TabOrder = 3
+      TabOrder = 4
       OnBtnUpClick = SalesmanBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
@@ -539,7 +539,7 @@ inherited frmClothPurchasePlanPut: TfrmClothPurchasePlanPut
       Width = 125
       Height = 20
       Hint = 'SellName/'#20379#24212#21830
-      TabOrder = 4
+      TabOrder = 0
       OnBtnUpClick = SellNameBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end

B04采购计划管理/U_ClothRSPlanPut.dfm

@@ -526,7 +526,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
       Date = 40916.000000000000000000
       Format = 'yyyy-MM-dd'
       Time = 0.670856296288548000
-      TabOrder = 0
+      TabOrder = 1
     end
     object PurNo: TEdit
       Tag = 2
@@ -534,7 +534,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
       Top = 17
       Width = 125
       Height = 18
-      TabOrder = 1
+      TabOrder = 2
       Text = #33258#21160#29983#25104
     end
     object BuyName: TBtnEditC
@@ -544,7 +544,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
       Width = 125
       Height = 20
       ReadOnly = True
-      TabOrder = 2
+      TabOrder = 3
       OnBtnUpClick = BuyNameBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
@@ -555,7 +555,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
       Width = 125
       Height = 20
       Hint = 'QtyNoteZW/'#28322#30701#35013
-      TabOrder = 3
+      TabOrder = 4
       OnBtnUpClick = SalesmanBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
@@ -566,7 +566,7 @@ inherited frmClothRSPlanPut: TfrmClothRSPlanPut
       Width = 125
       Height = 20
       Hint = 'SellName/'#20379#24212#21830
-      TabOrder = 4
+      TabOrder = 0
       OnBtnUpClick = SellNameBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end

T01贸易生产计划/TradePlan.dpr

@@ -23,7 +23,6 @@ uses
   U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
   U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
   U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
-  U_PlanTecList in 'U_PlanTecList.pas' {frmPlanTecList},
   U_TradeInspSet in 'U_TradeInspSet.pas' {frmTradeInspSet},
   U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
   U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
@@ -31,8 +30,10 @@ uses
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
   U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
   U_TradePlanSchedule in 'U_TradePlanSchedule.pas' {frmTradePlanSchedule},
+  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
+  U_PlanProfit in 'U_PlanProfit.pas' {frmPlanProfit},
   U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail},
-  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
+  U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails};
 
 {$R *.res}
 

T01贸易生产计划/TradePlan.dproj

@@ -173,10 +173,6 @@
             <Form>frmEmployeeSel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="U_PlanTecList.pas">
-            <Form>frmPlanTecList</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
         <DCCReference Include="U_TradeInspSet.pas">
             <Form>frmTradeInspSet</Form>
             <FormType>dfm</FormType>
@@ -205,15 +201,23 @@
             <Form>frmTradePlanSchedule</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="U_TradePlanScheduleDetail.pas">
-            <Form>frmTradePlanScheduleDetail</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
         <DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
             <Form>BaseDataLink</Form>
             <FormType>dfm</FormType>
             <DesignClass>TDataModule</DesignClass>
         </DCCReference>
+        <DCCReference Include="U_PlanProfit.pas">
+            <Form>frmPlanProfit</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_TradePlanScheduleDetail.pas">
+            <Form>frmTradePlanScheduleDetail</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_PlanProfitDetails.pas">
+            <Form>frmPlanProfitDetails</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

T01贸易生产计划/TradePlan.dproj.local

@@ -1,49 +1,52 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -126,7 +129,9 @@
     <File Path="U_TradePlanSchedule.dfm"/>
     <File Path="U_TradePlanScheduleDetail.pas"/>
     <File Path="U_TradePlanScheduleDetail.dfm"/>
-    <File Path="U_PlanTecList.pas"/>
+    <File Path="U_PlanProfit.pas"/>
-    <File Path="U_PlanTecList.dfm"/>
+    <File Path="U_PlanProfit.dfm"/>
+    <File Path="U_PlanProfitDetails.pas"/>
+    <File Path="U_PlanProfitDetails.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

T01贸易生产计划/U_DataLink.dfm

@@ -1,4 +1,5 @@
 inherited DataLink_TradePlan: TDataLink_TradePlan
+  OldCreateOrder = True
   OnDestroy = DataModuleDestroy
   inherited cxImageList_bar: TcxImageList
     FormatVersion = 1
@@ -10505,7 +10506,7 @@ inherited DataLink_TradePlan: TDataLink_TradePlan
       Font.Height = -12
       Font.Name = #23435#20307
       Font.Style = [fsBold]
-      TextColor = clPurple
+      TextColor = clBlack
     end
     object FoneClMaroon: TcxStyle
       AssignedValues = [svFont, svTextColor]
@@ -10556,6 +10557,8 @@ inherited DataLink_TradePlan: TDataLink_TradePlan
       Font.Style = [fsBold]
       TextColor = clRed
     end
+    object cxStyle1: TcxStyle
+    end
   end
   object Timer_link: TTimer
     Interval = 15000

T01贸易生产计划/U_DataLink.pas

@@ -60,6 +60,7 @@ type
     SHuangSeCu: TcxStyle;
     Timer_link: TTimer;
     ImageList_new32: TImageList;
+    cxStyle1: TcxStyle;
     procedure DataModuleDestroy(Sender: TObject);
     procedure Timer_linkTimer(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);

T01贸易生产计划/U_GetDllForm.pas

@@ -16,7 +16,7 @@ implementation
 
 uses
   U_DataLink, U_iniParam, U_TradePlanList, U_TradePlanMulFtyList,
-  U_TradePlanSchedule, U_PlanTecList;
+  U_TradePlanSchedule, U_PlanTecList, U_PlanProfit;
 
        /////////////////////////////////////////////////////////////////
       //         功能说明:取Dll中得窗体                              //
@@ -176,6 +176,18 @@ begin
         end;
       end;
 
+    311:  //ÀûÈó±í²éѯ
+      begin
+        with TfrmPlanProfit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
 
     10000:
       begin

T01贸易生产计划/U_PlanProfit.dfm

@@ -0,0 +1,727 @@
+inherited frmPlanProfit: TfrmPlanProfit
+  Left = 165
+  Top = 13
+  Caption = #21033#28070#26597#35810#34920
+  ClientHeight = 760
+  ClientWidth = 1540
+  FormStyle = fsMDIChild
+  Position = poScreenCenter
+  Visible = True
+  ExplicitWidth = 1556
+  ExplicitHeight = 799
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradePlan.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton3: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      OnClick = ToolButton3Click
+    end
+    object TBAdd: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 9
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object btnCopy: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 13
+      Visible = False
+      OnClick = btnCopyClick
+    end
+    object TBEdit: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      Visible = False
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object ToolButton1: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21367#35774#32622
+      ImageIndex = 3
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object TBPrint: TToolButton
+      Left = 521
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      Visible = False
+      OnClick = TBPrintClick
+    end
+    object TBCK: TToolButton
+      Left = 592
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475#26126#32454
+      ImageIndex = 8
+      OnClick = TBCKClick
+    end
+    object ToolButton4: TToolButton
+      Left = 687
+      Top = 0
+      AutoSize = True
+      Caption = #38468#20214
+      ImageIndex = 22
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object TBTJ: TToolButton
+      Left = 758
+      Top = 0
+      AutoSize = True
+      Caption = #25552#20132
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBTJClick
+    end
+    object TBTJCX: TToolButton
+      Left = 829
+      Top = 0
+      AutoSize = True
+      Caption = #25552#20132#25764#38144
+      ImageIndex = 11
+      Visible = False
+      OnClick = TBTJCXClick
+    end
+    object Tchk: TToolButton
+      Left = 924
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 12
+      Visible = False
+      OnClick = TchkClick
+    end
+    object Tnochk: TToolButton
+      Left = 995
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 11
+      Visible = False
+      OnClick = TnochkClick
+    end
+    object TWC: TToolButton
+      Left = 1090
+      Top = 0
+      AutoSize = True
+      Caption = #23436#25104
+      ImageIndex = 12
+      Visible = False
+      OnClick = TWCClick
+    end
+    object TNowc: TToolButton
+      Left = 1161
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23436#25104
+      ImageIndex = 11
+      Visible = False
+      OnClick = TNowcClick
+    end
+    object ToolButton2: TToolButton
+      Left = 1256
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 1351
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 38
+    Width = 1540
+    Height = 51
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = 16242829
+    ParentBackground = False
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 345
+      Top = 20
+      Width = 52
+      Height = 12
+      Caption = #35745#21010#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 613
+      Top = 119
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 513
+      Top = 20
+      Width = 26
+      Height = 12
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 978
+      Top = 20
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label4: TLabel
+      Left = 828
+      Top = 20
+      Width = 39
+      Height = 12
+      Caption = #21512#21516#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 128
+      Top = 16
+      Width = 85
+      Height = 20
+      Date = 40675.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.464742650459811600
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 219
+      Top = 16
+      Width = 86
+      Height = 20
+      Date = 40675.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.464761099538009100
+      TabOrder = 2
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 403
+      Top = 16
+      Width = 77
+      Height = 20
+      TabOrder = 1
+      OnKeyPress = OrderNoKeyPress
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 654
+      Top = 99
+      Width = 56
+      Height = 20
+      TabOrder = 3
+      OnChange = OrderNoMChange
+    end
+    object ComboBox1: TComboBox
+      Left = 49
+      Top = 16
+      Width = 71
+      Height = 20
+      TabOrder = 4
+      Text = #21046#21333#26085#26399
+      OnChange = ComboBox1Change
+      Items.Strings = (
+        #21046#21333#26085#26399
+        #20132#36135#26085#26399)
+    end
+    object CustName: TEdit
+      Tag = 2
+      Left = 545
+      Top = 16
+      Width = 80
+      Height = 20
+      TabOrder = 5
+      OnKeyPress = OrderNoKeyPress
+    end
+    object C_Name: TEdit
+      Tag = 2
+      Left = 1036
+      Top = 16
+      Width = 77
+      Height = 20
+      TabOrder = 6
+      Visible = False
+      OnChange = OrderNoChange
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 873
+      Top = 16
+      Width = 80
+      Height = 20
+      TabOrder = 7
+      Visible = False
+      OnChange = OrderNoChange
+    end
+    object CheckBox1: TCheckBox
+      Left = 28
+      Top = 18
+      Width = 19
+      Height = 17
+      Checked = True
+      State = cbChecked
+      TabOrder = 8
+    end
+  end
+  object cxGrid1: TcxGrid [2]
+    Left = 0
+    Top = 107
+    Width = 1540
+    Height = 653
+    Align = alClient
+    PopupMenu = PM_1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = Tv1Column11
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column10
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.IndicatorWidth = 30
+      Styles.Content = DataLink_TradePlan.Default
+      Styles.IncSearch = DataLink_TradePlan.SHuangSe
+      Styles.Footer = DataLink_TradePlan.Default
+      Styles.Header = DataLink_TradePlan.Default
+      Styles.Inactive = DataLink_TradePlan.SHuangSe
+      Styles.Selection = DataLink_TradePlan.SHuangSe
+      object v1Column16: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 38
+      end
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradePlan.Default
+        Width = 80
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradePlan.FoneClMaroon
+        Width = 88
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #32463#33829#21333#20301
+        DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradePlan.FontBlue
+        Width = 151
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object Tv1Column22: TcxGridDBColumn
+        Caption = #29702#21333
+        DataBinding.FieldName = 'Tallyer'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 89
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #21046#21333#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradePlan.Default
+        Width = 80
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #24212#20184#37329#39069
+        DataBinding.FieldName = 'YFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #23454#20184#37329#39069
+        DataBinding.FieldName = 'FKAmount'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 68
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #26410#20184#37329#39069
+        DataBinding.FieldName = 'WFKAmount'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #24212#25910#37329#39069
+        DataBinding.FieldName = 'XSAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #23454#25910#37329#39069
+        DataBinding.FieldName = 'HXAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #26410#25910#37329#39069
+        DataBinding.FieldName = 'WSKAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #36716#21333#20986#24211#37329#39069
+        DataBinding.FieldName = 'ZDCKFee'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 96
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #36716#21333#20837#24211#37329#39069
+        DataBinding.FieldName = 'ZDRKFee'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 111
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #21033#28070
+        DataBinding.FieldName = 'SJLRAMount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #20854#20182#24212#20184
+        DataBinding.FieldName = 'OtherYFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #36153#29992#37329#39069
+        DataBinding.FieldName = 'HandYFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #23454#25910#20154#27665#24065
+        DataBinding.FieldName = 'SSCNYAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 86
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #25163#32493#36153
+        DataBinding.FieldName = 'SXFAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl [3]
+    Left = 0
+    Top = 89
+    Width = 1540
+    Height = 18
+    Align = alTop
+    TabOrder = 3
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      #26410#23436#25104
+      #24050#23436#25104
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectRight = 0
+    ClientRectTop = 0
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Left = 257
+    Top = 152
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Left = 121
+    Top = 153
+  end
+  object cxgrdpmn1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 660
+    Top = 428
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Parameters = <>
+    Left = 568
+    Top = 240
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 420
+    Top = 216
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 320
+    Top = 224
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 812
+    Top = 440
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 724
+    Top = 432
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Parameters = <>
+    Left = 312
+    Top = 600
+  end
+  object DataSource2: TDataSource
+    DataSet = ORDER_SUB
+    Left = 408
+    Top = 604
+  end
+  object ADOQueryImage: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    EnableBCD = False
+    Parameters = <>
+    Left = 316
+    Top = 283
+  end
+  object DSImage: TDataSource
+    DataSet = ADOQueryImage
+    Left = 416
+    Top = 288
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 92
+    Top = 258
+  end
+  object ORDER_SUB: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 212
+    Top = 608
+  end
+  object PopupMenu2: TPopupMenu
+    Left = 532
+    Top = 636
+    object N3: TMenuItem
+      Caption = #20840#36873
+      OnClick = N3Click
+    end
+    object N4: TMenuItem
+      Caption = #20840#24323
+      OnClick = N4Click
+    end
+    object N2: TMenuItem
+      Caption = #22797#21046
+    end
+  end
+  object cxgrdpmn2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 660
+    Top = 636
+  end
+  object CDS_WXTS: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 412
+    Top = 424
+  end
+  object PM_1: TPopupMenu
+    Left = 988
+    Top = 356
+    object N1: TMenuItem
+      Caption = #22797#21046
+      OnClick = N1Click
+    end
+  end
+  object GPM_3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 860
+    Top = 228
+  end
+  object DS_3: TDataSource
+    DataSet = CDS_3
+    Left = 1096
+    Top = 404
+  end
+  object CDS_3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1092
+    Top = 304
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 216
+    Top = 232
+  end
+end

T01贸易生产计划/U_PlanProfitDetails.dfm

@@ -0,0 +1,937 @@
+inherited frmPlanProfitDetails: TfrmPlanProfitDetails
+  Left = 300
+  Top = 189
+  Caption = #26126#32454#26597#35810
+  ClientHeight = 572
+  ClientWidth = 981
+  ExplicitWidth = 997
+  ExplicitHeight = 611
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 981
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clWhite
+    DisabledImages = DataLink_TradePlan.ImageList_new32
+    Images = DataLink_TradePlan.ImageList_new32
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 237
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 38
+    Width = 981
+    Height = 46
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 22
+      Top = 16
+      Width = 48
+      Height = 13
+      Caption = #35745#21010#21333#21495
+    end
+    object Label2: TLabel
+      Left = 246
+      Top = 16
+      Width = 48
+      Height = 13
+      Caption = #26597#35810#26085#26399
+      Visible = False
+    end
+    object Label6: TLabel
+      Left = 388
+      Top = 16
+      Width = 20
+      Height = 13
+      Caption = '-----'
+      Visible = False
+    end
+    object Label1: TLabel
+      Left = 890
+      Top = 113
+      Width = 48
+      Height = 13
+      Caption = #25903#20184#21488#22836
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 76
+      Top = 12
+      Width = 155
+      Height = 21
+      TabOrder = 2
+      OnChange = OrderNoChange
+    end
+    object begdate: TDateTimePicker
+      Left = 300
+      Top = 12
+      Width = 97
+      Height = 20
+      Date = 41256.000000000000000000
+      Time = 0.918237847232376200
+      TabOrder = 0
+      Visible = False
+    end
+    object Enddate: TDateTimePicker
+      Left = 406
+      Top = 12
+      Width = 97
+      Height = 20
+      Date = 41256.000000000000000000
+      Time = 0.918237847232376200
+      TabOrder = 1
+      Visible = False
+    end
+    object ComTaiTou: TEdit
+      Tag = 2
+      Left = 938
+      Top = 109
+      Width = 89
+      Height = 21
+      TabOrder = 3
+      OnChange = OrderNoChange
+    end
+  end
+  object cxGrid1: TcxGrid [2]
+    Left = 0
+    Top = 84
+    Width = 981
+    Height = 292
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_HZ
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = Tv1Column12
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column15
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column16
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column17
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column11
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column25
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column30
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.IncSearch = DataLink_TradePlan.SHuangSe
+      Styles.Footer = DataLink_TradePlan.Default
+      Styles.Header = DataLink_TradePlan.Default
+      Styles.Inactive = DataLink_TradePlan.SHuangSe
+      Styles.Selection = DataLink_TradePlan.SHuangSe
+      object v2CRTime: TcxGridDBColumn
+        Tag = 7
+        Caption = #21457#29983#26085#26399
+        DataBinding.FieldName = 'FFTime'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 82
+      end
+      object Tv1Column27: TcxGridDBColumn
+        Caption = #24212#25910#26085#26399
+        DataBinding.FieldName = 'YSDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object Tv1Column23: TcxGridDBColumn
+        Caption = #23545#36134#26085#26399
+        DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object Tv1Column19: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'FFType'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #25105#26041#21333#20301
+        DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v2FactoryName: TcxGridDBColumn
+        Caption = #23545#26041#21333#20301
+        DataBinding.FieldName = 'OppCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 57
+      end
+      object v2OrderNo: TcxGridDBColumn
+        Tag = 7
+        Caption = #19978#32423#21333#20301
+        DataBinding.FieldName = 'OppParentCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #20215#26684#26415#35821
+        DataBinding.FieldName = 'PayMent'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column24: TcxGridDBColumn
+        Caption = #25688#35201
+        DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object Tv1Column20: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column21: TcxGridDBColumn
+        Caption = #23458#25143#21333#21495
+        DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'F_Pattern'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'F_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'F_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'F_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'F_ColorNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column30: TcxGridDBColumn
+        Caption = #21253#25968
+        DataBinding.FieldName = 'PacketNum'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 58
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #20854#20182#36153
+        DataBinding.FieldName = 'OtherFee'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #20943#20813
+        DataBinding.FieldName = 'Deduction'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column26: TcxGridDBColumn
+        Caption = #20323#37329
+        DataBinding.FieldName = 'YJ'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 58
+      end
+      object Tv1Column17: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column18: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'Currency'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column25: TcxGridDBColumn
+        Caption = #26680#38144#37329#39069
+        DataBinding.FieldName = 'FFWoAmount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #26469#28304
+        DataBinding.FieldName = 'FromID1'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object Tv1Column28: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 92
+      end
+      object Tv1Column29: TcxGridDBColumn
+        Caption = #33337#26399
+        DataBinding.FieldName = 'SailingSchedule'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel2: TPanel [3]
+    Left = 0
+    Top = 376
+    Width = 981
+    Height = 196
+    Align = alBottom
+    Caption = 'Panel2'
+    Color = clBtnHighlight
+    ParentBackground = False
+    TabOrder = 3
+    object cxGrid2: TcxGrid
+      Left = 1
+      Top = 1
+      Width = 544
+      Height = 194
+      Align = alLeft
+      TabOrder = 0
+      object TV2: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        Navigator.Buttons.Delete.Enabled = False
+        Navigator.Buttons.Delete.Visible = False
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DS_2
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn12
+          end
+          item
+            Kind = skSum
+            Column = TV2Column2
+          end
+          item
+            Kind = skSum
+            Column = TV2Column1
+          end
+          item
+            Kind = skSum
+            Column = TV2Column3
+          end
+          item
+            Kind = skSum
+            Column = TV2Column4
+          end
+          item
+            Kind = skSum
+            Column = TV2Column6
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.IncSearch = DataLink_TradePlan.SHuangSe
+        Styles.Footer = DataLink_TradePlan.Default
+        Styles.Header = DataLink_TradePlan.Default
+        Styles.Inactive = DataLink_TradePlan.SHuangSe
+        Styles.Selection = DataLink_TradePlan.SHuangSe
+        object cxGridDBColumn10: TcxGridDBColumn
+          Caption = #35745#21010#21333#21495
+          DataBinding.FieldName = 'OrderNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 79
+        end
+        object TV2Column7: TcxGridDBColumn
+          Caption = #20986#21040#35745#21010#21333
+          DataBinding.FieldName = 'ToOrdNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 81
+        end
+        object cxGridDBColumn14: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'C_Pattern'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn15: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn13: TcxGridDBColumn
+          Caption = #33394#21495
+          DataBinding.FieldName = 'C_ColorNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn12: TcxGridDBColumn
+          Caption = #36716#20986#21305#25968
+          DataBinding.FieldName = 'Piece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV2Column1: TcxGridDBColumn
+          Caption = #36716#20986#20928#37325
+          DataBinding.FieldName = 'NetWeight'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 64
+        end
+        object TV2Column2: TcxGridDBColumn
+          Caption = #36716#20986#27611#37325
+          DataBinding.FieldName = 'GrossWeight'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 66
+        end
+        object TV2Column3: TcxGridDBColumn
+          Caption = #36716#20986#31859#25968
+          DataBinding.FieldName = 'Meter'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 66
+        end
+        object TV2Column4: TcxGridDBColumn
+          Caption = #36716#20986#30721#25968
+          DataBinding.FieldName = 'Yardage'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 71
+        end
+        object TV2Column5: TcxGridDBColumn
+          Caption = #21333#20215
+          DataBinding.FieldName = 'ZDPrice'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 56
+        end
+        object TV2Column6: TcxGridDBColumn
+          Caption = #37329#39069
+          DataBinding.FieldName = 'ZDAmount'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 69
+        end
+      end
+      object cxGridLevel2: TcxGridLevel
+        GridView = TV2
+      end
+    end
+    object cxGrid3: TcxGrid
+      Left = 553
+      Top = 1
+      Width = 427
+      Height = 194
+      Align = alClient
+      TabOrder = 1
+      ExplicitLeft = 551
+      ExplicitTop = 6
+      object TV3: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        Navigator.Buttons.Delete.Enabled = False
+        Navigator.Buttons.Delete.Visible = False
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DS_3
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = cxGridDBColumn53
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn56
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn57
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn52
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = TV3Column2
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn55
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.IncSearch = DataLink_TradePlan.SHuangSe
+        Styles.Footer = DataLink_TradePlan.Default
+        Styles.Header = DataLink_TradePlan.Default
+        Styles.Inactive = DataLink_TradePlan.SHuangSe
+        Styles.Selection = DataLink_TradePlan.SHuangSe
+        object cxGridDBColumn42: TcxGridDBColumn
+          Caption = #35745#21010#21333#21495
+          DataBinding.FieldName = 'OrderNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 83
+        end
+        object TV3Column3: TcxGridDBColumn
+          Caption = #26469#33258#35745#21010#21333
+          DataBinding.FieldName = 'FromOrdNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 72
+        end
+        object cxGridDBColumn46: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'C_Pattern'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn47: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn50: TcxGridDBColumn
+          Caption = #33394#21495
+          DataBinding.FieldName = 'C_ColorNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn52: TcxGridDBColumn
+          Caption = #36716#20837#21305#25968
+          DataBinding.FieldName = 'Piece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn53: TcxGridDBColumn
+          Caption = #36716#20837#20928#37325
+          DataBinding.FieldName = 'NetWeight'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn55: TcxGridDBColumn
+          Caption = #36716#20837#27611#37325
+          DataBinding.FieldName = 'GrossWeight'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn56: TcxGridDBColumn
+          Caption = #36716#20837#31859#25968
+          DataBinding.FieldName = 'Meter'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn57: TcxGridDBColumn
+          Caption = #36716#20837#30721#25968
+          DataBinding.FieldName = 'Yardage'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column1: TcxGridDBColumn
+          Caption = #21333#20215
+          DataBinding.FieldName = 'ZDPrice'
+          DataBinding.IsNullValueType = True
+          Width = 48
+        end
+        object TV3Column2: TcxGridDBColumn
+          Caption = #37329#39069
+          DataBinding.FieldName = 'ZDAmount'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 62
+        end
+      end
+      object cxGridLevel3: TcxGridLevel
+        GridView = TV3
+      end
+    end
+    object cxSplitter1: TcxSplitter
+      Left = 545
+      Top = 1
+      Width = 8
+      Height = 194
+      HotZoneClassName = 'TcxMediaPlayer9Style'
+      ExplicitLeft = 495
+      ExplicitTop = 6
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Left = 81
+    Top = 232
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Left = 81
+    Top = 177
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 253
+    Top = 177
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Parameters = <>
+    Left = 341
+    Top = 169
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 430
+    Top = 172
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 386
+    Top = 321
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_HZ
+    Left = 261
+    Top = 334
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 193
+    Top = 265
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 372
+    Top = 233
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 304
+    Top = 240
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 77
+    Top = 313
+  end
+  object PM_1: TPopupMenu
+    Left = 568
+    Top = 336
+    object N1: TMenuItem
+      Caption = #22797#21046
+      OnClick = N1Click
+    end
+  end
+  object ADOQuery3: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 662
+    Top = 428
+  end
+  object ADOQuery2: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 230
+    Top = 412
+  end
+  object CDS_2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 88
+    Top = 424
+  end
+  object DS_2: TDataSource
+    DataSet = CDS_2
+    Left = 164
+    Top = 417
+  end
+  object DS_3: TDataSource
+    DataSet = CDS_3
+    Left = 604
+    Top = 425
+  end
+  object CDS_3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 592
+    Top = 400
+  end
+end

T01贸易生产计划/U_PlanProfitDetails.pas

@@ -0,0 +1,354 @@
+unit U_PlanProfitDetails;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+  dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
+  U_BaseHelp, Vcl.Menus, Vcl.Clipbrd, DateUtils, dxSkinWXI,
+  dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList;
+
+type
+  TfrmPlanProfitDetails = class(TfrmBasehelp)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    Label3: TLabel;
+    OrderNo: TEdit;
+    Label2: TLabel;
+    Label6: TLabel;
+    begdate: TDateTimePicker;
+    Enddate: TDateTimePicker;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    Label1: TLabel;
+    ComTaiTou: TEdit;
+    ADOQueryPrint: TADOQuery;
+    ToolButton1: TToolButton;
+    PM_1: TPopupMenu;
+    N1: TMenuItem;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v2CRTime: TcxGridDBColumn;
+    Tv1Column27: TcxGridDBColumn;
+    Tv1Column23: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2FactoryName: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    v2OrderNo: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column24: TcxGridDBColumn;
+    Tv1Column20: TcxGridDBColumn;
+    Tv1Column21: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column30: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    Tv1Column16: TcxGridDBColumn;
+    Tv1Column26: TcxGridDBColumn;
+    Tv1Column17: TcxGridDBColumn;
+    Tv1Column18: TcxGridDBColumn;
+    Tv1Column25: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column28: TcxGridDBColumn;
+    Tv1Column29: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    Panel2: TPanel;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    cxGrid3: TcxGrid;
+    TV3: TcxGridDBTableView;
+    cxGridDBColumn42: TcxGridDBColumn;
+    cxGridDBColumn46: TcxGridDBColumn;
+    cxGridDBColumn47: TcxGridDBColumn;
+    cxGridDBColumn50: TcxGridDBColumn;
+    cxGridDBColumn52: TcxGridDBColumn;
+    cxGridDBColumn53: TcxGridDBColumn;
+    cxGridDBColumn55: TcxGridDBColumn;
+    cxGridDBColumn56: TcxGridDBColumn;
+    cxGridDBColumn57: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    ADOQuery3: TADOQuery;
+    ADOQuery2: TADOQuery;
+    CDS_2: TClientDataSet;
+    DS_2: TDataSource;
+    DS_3: TDataSource;
+    CDS_3: TClientDataSet;
+    TV2Column1: TcxGridDBColumn;
+    TV2Column2: TcxGridDBColumn;
+    TV2Column3: TcxGridDBColumn;
+    TV2Column4: TcxGridDBColumn;
+    Tv1Column19: TcxGridDBColumn;
+    TV2Column5: TcxGridDBColumn;
+    TV2Column6: TcxGridDBColumn;
+    TV3Column1: TcxGridDBColumn;
+    TV3Column2: TcxGridDBColumn;
+    cxSplitter1: TcxSplitter;
+    TV2Column7: TcxGridDBColumn;
+    TV3Column3: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure OrderNoChange(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    procedure InitZD();
+  public
+    fmanage, FZKType, FOrderNo, FMainID: string;
+    { Public declarations }
+    RKFlag, FCYID, FUnit: string;
+  end;
+
+var
+  frmPlanProfitDetails: TfrmPlanProfitDetails;
+
+implementation
+
+uses
+  U_DataLink, U_RtFun, U_ZDYHelp;
+
+
+{$R *.dfm}
+
+procedure TfrmPlanProfitDetails.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add('Select Amount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)');
+//      sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)');
+//      sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) ');
+//      sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)');
+      SQL.Add(',BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))');
+      SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)');
+      sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo)));
+//      sql.Add(' and ISNULL(A.FFTime,A.SQDate)>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
+//      sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
+//      ShowMessage(sql.text);
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_HZ);
+    SInitCDSData(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+    TV1.DataController.Filter.Clear;
+  end;
+//  ToolButton2.Click;
+end;
+
+procedure TfrmPlanProfitDetails.InitZD();
+begin
+
+  with ADOQuery2 do
+  begin
+    Filtered := False;
+    Close;
+    SQL.Clear;
+    sql.Add('select A.OrderNo,C.OrderNo TOOrdNO,A.C_Pattern,A.C_Color,A.C_ColorNo,ISNULL(A.ZDPrice,0) ZDPrice');
+    if FUnit = 'M' then
+    begin
+      sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))')
+    end
+    else if FUnit = 'Y' then
+    begin
+      sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))')
+    end
+    else if FUnit = 'Kg' then
+    begin
+      sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkGrossWeight))')
+    end;
+    SQL.Add(',COUNT(CIID) Piece,SUM(StkGrossWeight) GrossWeight');
+    sql.Add(',SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage');
+    SQL.Add('from Trade_Cloth_Stock_ZD  A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID');
+    sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId');
+    sql.Add(' where A.MainID= ' + QuotedStr(Trim(FMainID)));
+    Sql.Add('GROUP BY A.OrderNo,C.OrderNo,A.C_Pattern,A.C_Color,A.C_ColorNo,A.ZDPrice');
+//      ShowMessage(sql.text);
+    Open;
+  end;
+  SCreateCDS(ADOQuery2, CDS_2);
+  SInitCDSData(ADOQuery2, CDS_2);
+
+  with ADOQuery3 do
+  begin
+    Filtered := False;
+    Close;
+    SQL.Clear;
+    sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice');
+      if FUnit = 'M' then
+    begin
+      sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))')
+    end
+    else if FUnit = 'Y' then
+    begin
+      sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))')
+    end
+    else if FUnit = 'Kg' then
+    begin
+      sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkGrossWeight))')
+    end;
+    SQL.Add(',SUM(StkGrossWeight) GrossWeight,SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage');
+    SQL.Add('from Trade_Cloth_Stock_ZD  A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID');
+    sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId where A.ZDMainID= ' + QuotedStr(Trim(FMainID)));
+    Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice');
+//      ShowMessage(sql.text);
+    Open;
+  end;
+  SCreateCDS(ADOQuery3, CDS_3);
+  SInitCDSData(ADOQuery3, CDS_3);
+
+//  ToolButton2.Click;
+end;
+
+procedure TfrmPlanProfitDetails.N1Click(Sender: TObject);
+begin
+
+  Clipboard.SetTextBuf(PChar(Trim(CDS_HZ.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+
+end;
+
+procedure TfrmPlanProfitDetails.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmPlanProfitDetails.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmPlanProfitDetails.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid(trim(self.Caption), Tv1, '利润明细');
+//  Enddate.DateTime := SGetServerDate(ADOQueryTemp);
+////  begdate.DateTime := StartOfTheMonth(Enddate.DateTime);
+//  begdate.DateTime := EndDate.DateTime - 365;
+  InitGrid();
+  InItZD();
+end;
+
+procedure TfrmPlanProfitDetails.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+  InitZD();
+end;
+
+procedure TfrmPlanProfitDetails.ToolButton1Click(Sender: TObject);
+begin
+  WriteCxGrid(trim(self.Caption), Tv1, '利润明细');
+end;
+
+procedure TfrmPlanProfitDetails.ToolButton2Click(Sender: TObject);
+var
+  fsj: string;
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+
+  SDofilter(ADOQueryMain, Trim(SGetFilters(Panel1, 1, 2)));
+  SCreateCDS(ADOQueryMain, CDS_HZ);
+  SInitCDSData(ADOQueryMain, CDS_HZ);
+end;
+
+procedure TfrmPlanProfitDetails.OrderNoChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmPlanProfitDetails.ToolButton4Click(Sender: TObject);
+var
+  filepath: string;
+  mBegdate, mEnddate: string;
+begin
+  mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
+  mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
+  if CDS_HZ.IsEmpty then
+    exit;
+
+  with ADOQueryPrint do
+  begin
+    Close;
+    SQL.Clear;
+    with ADOQueryPrint do
+    begin
+      Close;
+      SQL.Clear;
+      Filtered := False;
+      sql.Add(' exec P_YSSK_List @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))) + ',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))) + ',@flag=''已审核''');
+      Open;
+    end;
+    Open;
+  end;
+
+  try
+    filepath := ExtractFilePath(Application.ExeName) + 'report\应收账款.rmf';
+    if not FileExists(Pchar(filepath)) then
+    begin
+      application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
+      exit;
+    end;
+
+    RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date);
+    RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date);
+    RMVariables['ZDR'] := trim(DName);
+    RM1.LoadFromFile(filepath);
+    RM1.ShowReport;
+  finally
+
+  end;
+
+end;
+
+procedure TfrmPlanProfitDetails.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+end.
+

T01贸易生产计划/U_TradePlanList.dfm

@@ -7,6 +7,7 @@ inherited frmTradePlanList: TfrmTradePlanList
   FormStyle = fsMDIChild
   Position = poScreenCenter
   Visible = True
+  ExplicitTop = -214
   ExplicitWidth = 1556
   ExplicitHeight = 799
   PixelsPerInch = 96
@@ -646,6 +647,27 @@ inherited frmTradePlanList: TfrmTradePlanList
         HeaderAlignmentHorz = taCenter
         Width = 87
       end
+      object Tv1Column23: TcxGridDBColumn
+        Caption = #25253#20851#21697#21517
+        DataBinding.FieldName = 'BGName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object Tv1Column24: TcxGridDBColumn
+        Caption = #19994#21153
+        DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 54
+      end
+      object Tv1Column25: TcxGridDBColumn
+        Caption = #29702#21333
+        DataBinding.FieldName = 'Tallyer'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 56
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1
@@ -668,7 +690,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     TabOrder = 2
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
-    Properties.TabIndex = 0
+    Properties.TabIndex = 1
     Properties.Tabs.Strings = (
       '  '#24453#25552#20132'      '
       '  '#24453#23457#26680'  '
@@ -886,8 +908,8 @@ inherited frmTradePlanList: TfrmTradePlanList
     end
   end
   object Panel3: TPanel [6]
-    Left = -216
+    Left = -259
-    Top = 353
+    Top = 271
     Width = 1177
     Height = 634
     Color = clBtnHighlight
@@ -1000,8 +1022,21 @@ inherited frmTradePlanList: TfrmTradePlanList
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label21: TLabel
+      Left = 344
+      Top = 599
+      Width = 52
+      Height = 15
+      Caption = #23458#25143#21333#21495
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object MainId: TEdit
-      Left = 679
+      Left = 782
       Top = 599
       Width = 121
       Height = 20
@@ -1064,7 +1099,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object cm: TMemo
       Tag = 2
       Left = 408
-      Top = 360
+      Top = 356
       Width = 440
       Height = 130
       ScrollBars = ssVertical
@@ -1080,8 +1115,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       TabOrder = 7
     end
     object Button1: TButton
-      Left = 412
+      Left = 623
-      Top = 598
+      Top = 594
       Width = 92
       Height = 25
       Caption = #20445#23384
@@ -1089,8 +1124,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       OnClick = Button1Click
     end
     object Button2: TButton
-      Left = 531
+      Left = 738
-      Top = 597
+      Top = 594
       Width = 92
       Height = 25
       Caption = #20851#38381
@@ -1249,12 +1284,23 @@ inherited frmTradePlanList: TfrmTradePlanList
       OnBtnUpClick = PZNoteBtnUpClick
       OnBtnDnClick = PZNoteBtnDnClick
     end
+    object MBuyConNo: TBtnEditC
+      Tag = 2
+      Left = 408
+      Top = 594
+      Width = 194
+      Height = 20
+      Hint = 'MBuyConNo/'#23458#25143#21333#21495
+      TabOrder = 13
+      OnBtnUpClick = PZNoteBtnUpClick
+      OnBtnDnClick = PZNoteBtnDnClick
+    end
   end
   object Panel4: TPanel [7]
-    Left = 869
+    Left = 190
-    Top = 363
+    Top = 294
-    Width = 663
+    Width = 995
-    Height = 634
+    Height = 489
     Hint = 'BGName/'#25253#20851#21697#21517
     TabOrder = 7
     Visible = False
@@ -1337,8 +1383,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       ParentFont = False
     end
     object Label14: TLabel
-      Left = 385
+      Left = 681
-      Top = 302
+      Top = 136
       Width = 52
       Height = 12
       Caption = #25253#20851#31859#25968
@@ -1350,8 +1396,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       ParentFont = False
     end
     object Label15: TLabel
-      Left = 385
+      Left = 681
-      Top = 203
+      Top = 37
       Width = 52
       Height = 12
       Caption = #25253#20851#31435#26041
@@ -1363,8 +1409,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       ParentFont = False
     end
     object Label16: TLabel
-      Left = 385
+      Left = 681
-      Top = 235
+      Top = 69
       Width = 52
       Height = 12
       Caption = #25253#20851#27611#37325
@@ -1376,8 +1422,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       ParentFont = False
     end
     object Label17: TLabel
-      Left = 385
+      Left = 681
-      Top = 266
+      Top = 100
       Width = 52
       Height = 12
       Caption = #25253#20851#20928#37325
@@ -1389,8 +1435,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       ParentFont = False
     end
     object Label18: TLabel
-      Left = 385
+      Left = 681
-      Top = 336
+      Top = 170
       Width = 39
       Height = 12
       Caption = #25910#36135#20154
@@ -1402,8 +1448,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       ParentFont = False
     end
     object Label19: TLabel
-      Left = 391
+      Left = 396
-      Top = 367
+      Top = 201
       Width = 13
       Height = 30
       Caption = #33337#13#10#21787
@@ -1417,7 +1463,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object Label20: TLabel
       Tag = 2
       Left = 391
-      Top = 507
+      Top = 342
       Width = 13
       Height = 30
       Caption = #21367#13#10#21787
@@ -1428,11 +1474,37 @@ inherited frmTradePlanList: TfrmTradePlanList
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label22: TLabel
+      Left = 681
+      Top = 7
+      Width = 52
+      Height = 12
+      Caption = #25253#20851#20214#25968
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label24: TLabel
+      Left = 681
+      Top = 201
+      Width = 52
+      Height = 15
+      Caption = #25253#20851#22791#27880
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object ADO_BG: TRichEdit
       Left = 1
       Top = 1
       Width = 356
-      Height = 632
+      Height = 487
       Align = alLeft
       Color = clInfoBk
       Font.Charset = GB2312_CHARSET
@@ -1445,6 +1517,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       ParentFont = False
       TabOrder = 0
       Zoom = 100
+      ExplicitHeight = 663
     end
     object BGComposition: TEdit
       Tag = 2
@@ -1488,47 +1561,47 @@ inherited frmTradePlanList: TfrmTradePlanList
     end
     object BGMeter: TEdit
       Tag = 2
-      Left = 447
+      Left = 743
-      Top = 298
+      Top = 132
       Width = 188
       Height = 20
       TabOrder = 6
     end
     object BGLF: TEdit
       Tag = 2
-      Left = 447
+      Left = 743
-      Top = 200
+      Top = 34
       Width = 188
       Height = 20
       TabOrder = 7
     end
     object BGGrossWeight: TEdit
       Tag = 2
-      Left = 447
+      Left = 743
-      Top = 231
+      Top = 65
       Width = 188
       Height = 20
       TabOrder = 8
     end
     object BGNetWeight: TEdit
       Tag = 2
-      Left = 447
+      Left = 743
-      Top = 263
+      Top = 97
       Width = 188
       Height = 20
       TabOrder = 9
     end
     object consignee: TEdit
       Tag = 2
-      Left = 447
+      Left = 743
-      Top = 333
+      Top = 167
       Width = 188
       Height = 20
       TabOrder = 10
     end
     object Button3: TButton
-      Left = 395
+      Left = 560
-      Top = 600
+      Top = 444
       Width = 97
       Height = 25
       Caption = #20445#23384
@@ -1536,8 +1609,8 @@ inherited frmTradePlanList: TfrmTradePlanList
       OnClick = Button3Click
     end
     object Button4: TButton
-      Left = 530
+      Left = 695
-      Top = 600
+      Top = 444
       Width = 97
       Height = 25
       Caption = #20851#38381
@@ -1566,7 +1639,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object BGCM: TMemo
       Tag = 1
       Left = 447
-      Top = 366
+      Top = 201
       Width = 188
       Height = 130
       ScrollBars = ssVertical
@@ -1575,12 +1648,29 @@ inherited frmTradePlanList: TfrmTradePlanList
     object BGJM: TMemo
       Tag = 1
       Left = 447
-      Top = 507
+      Top = 342
       Width = 188
       Height = 80
       ScrollBars = ssVertical
       TabOrder = 16
     end
+    object BGPiece: TEdit
+      Tag = 2
+      Left = 743
+      Top = 4
+      Width = 188
+      Height = 20
+      TabOrder = 17
+    end
+    object BGNote: TMemo
+      Tag = 1
+      Left = 743
+      Top = 201
+      Width = 188
+      Height = 130
+      ScrollBars = ssVertical
+      TabOrder = 18
+    end
   end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradePlan.ADOLink

T01贸易生产计划/U_TradePlanList.pas

@@ -195,6 +195,15 @@ type
     Label20: TLabel;
     BGCM: TMemo;
     BGJM: TMemo;
+    Label21: TLabel;
+    MBuyConNo: TBtnEditC;
+    Label22: TLabel;
+    BGPiece: TEdit;
+    Tv1Column23: TcxGridDBColumn;
+    Tv1Column24: TcxGridDBColumn;
+    Tv1Column25: TcxGridDBColumn;
+    BGNote: TMemo;
+    Label24: TLabel;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -541,9 +550,9 @@ begin
   begin
     Close;
     sql.Clear;
-    SQL.Add('select * from Trade_Plan_Main');
+    SQL.Add('select MBuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.MainID),A.* from Trade_Plan_Main A');
 //    SQL.Add('from Trade_Plan_Main A left join Trade_plan_Sub B on B.MainId=A.MainId');
-    sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+    sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
 //    Sql.Add('GROUP BY A.OrderNo,A.CustName,B.ConNo,B.BuyConNo,B.C_Code,B.C_Name,A.HXYS,A.CPMC,A.KZPZ,B.OrdUnit');
     //    ShowMessage(sql.Text);
     Open;
@@ -615,6 +624,8 @@ begin
   BGName.text:=ADOQueryTemp.FieldByName('BGName').AsString;
   BGCM.text:=ADOQueryTemp.FieldByName('CM').AsString;
   BGJM.text:=ADOQueryTemp.FieldByName('JM').AsString;
+  BGPrice.text:=ADOQueryTemp.FieldByName('BGPrice').AsString;
+  BGPiece.text:=ADOQueryTemp.FieldByName('BGPiece').AsString;
 end;
 
 procedure TfrmTradePlanList.InitGrid();
@@ -1143,6 +1154,9 @@ begin
       SQL.Add(',EditId=''' + Trim(DCode) + '''');
 //      SQL.Add(',Edittime=''' + Trim(DCode) + '''');
       SQL.Add(' where MainId=''' + Trim(MainId.Text) + '''');
+      sql.Add('UPdate Trade_Plan_sub ');
+      sql.Add(' Set BuyConNo=''' + Trim(MBuyConNO.Text) + '''');
+      SQL.Add(' where MainId=''' + Trim(MainId.Text) + '''');
 //      ShowMessage(SQL.text);
       execsql;
     end;
@@ -1191,10 +1205,11 @@ begin
       sql.Add(',SJPrice=''' + Trim(SJPrice.Text) + '''');
       SQL.Add(',BGWidth=''' + Trim(BGWidth.Text) + '''');
       sql.Add(',BGGramWeight=''' + Trim(BGGramWeight.Text) + '''');
-      sql.Add(',BGGrossWeight=''' + Trim(BGGrossWeight.Text) + '''');
+      sql.Add(',BGPiece=''' + Trim(BGPiece.Text) + '''');
-      sql.Add(',BGNetWeight=''' + Trim(BGNetWeight.Text) + '''');
+      sql.Add(',BGGrossWeight=''' + FloatToStr(strtofloatdef(Trim(BGGrossWeight.Text),0)) + '''');
+      sql.Add(',BGNetWeight=''' + FloatToStr(strtofloatdef(Trim(BGNetWeight.Text),0)) + '''');
       sql.Add(',BGLF=''' + Trim(BGLF.Text) + '''');
-      sql.Add(',BGMeter=''' + Trim(BGMeter.Text) + '''');
+      sql.Add(',BGMeter=''' + FloatToStr(strtofloatdef(Trim(BGMeter.Text),0)) + '''');
       sql.Add(',consignee=''' + Trim(consignee.Text) + '''');
       sql.Add(',cm=''' + Trim(BGcm.Text) + '''');
       sql.Add(',jm=''' + Trim(BGjm.Text) + '''');

T01贸易生产计划/U_TradePlanProfit.dfm

@@ -0,0 +1,698 @@
+inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
+  Left = 65
+  Top = 98
+  Caption = #20986#24211#21015#34920
+  ClientHeight = 544
+  ClientWidth = 1193
+  Position = poScreenCenter
+  ExplicitWidth = 1209
+  ExplicitHeight = 583
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1193
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    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
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #20986#24211
+      ImageIndex = 9
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      Visible = False
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object ToolButton2: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object TBExport: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = TBExportClick
+    end
+    object ToolButton1: TToolButton
+      Left = 497
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 592
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 38
+    Width = 1193
+    Height = 61
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 28
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+    end
+    object Label2: TLabel
+      Left = 64
+      Top = 39
+      Width = 12
+      Height = 12
+      Caption = #33267
+    end
+    object Label3: TLabel
+      Left = 321
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #21697#21517
+    end
+    object Label4: TLabel
+      Left = 443
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #20379#24212#21830
+    end
+    object Label5: TLabel
+      Left = 178
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20986#24211#21333#21495
+    end
+    object Label8: TLabel
+      Left = 321
+      Top = 39
+      Width = 24
+      Height = 12
+      Caption = #35268#26684
+    end
+    object Label12: TLabel
+      Left = 179
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #20986#24211#31867#22411
+    end
+    object Label9: TLabel
+      Left = 443
+      Top = 39
+      Width = 36
+      Height = 12
+      Caption = #36710'  '#38388
+    end
+    object Label6: TLabel
+      Left = 587
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #35745#21010#21333#21495
+    end
+    object Label7: TLabel
+      Left = 587
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #23458#25143#21333#21495
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 8
+      Width = 87
+      Height = 20
+      Date = 40768.000000000000000000
+      Time = 0.458268587972270300
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 77
+      Top = 35
+      Width = 87
+      Height = 20
+      Date = 40768.000000000000000000
+      Time = 0.458268587972270300
+      TabOrder = 1
+    end
+    object C_NAME: TEdit
+      Tag = 2
+      Left = 348
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 2
+      OnChange = TBFindClick
+    end
+    object FromCoName: TEdit
+      Tag = 2
+      Left = 483
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 3
+      OnChange = C_specChange
+    end
+    object BCIOID: TEdit
+      Tag = 2
+      Left = 228
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 4
+      OnChange = BCIOIDChange
+    end
+    object C_spec: TEdit
+      Tag = 2
+      Left = 348
+      Top = 35
+      Width = 80
+      Height = 20
+      TabOrder = 5
+      OnChange = C_specChange
+    end
+    object IOType: TComboBox
+      Tag = 2
+      Left = 228
+      Top = 35
+      Width = 80
+      Height = 20
+      Style = csDropDownList
+      DropDownCount = 20
+      TabOrder = 6
+      OnChange = TBFindClick
+      Items.Strings = (
+        ''
+        #21152#24037#20986#24211
+        #38144#21806#20986#24211
+        #36864#36135#20986#24211
+        #35843#25320#20986#24211
+        #30424#20111#20986#24211)
+    end
+    object Workshop: TEdit
+      Tag = 2
+      Left = 485
+      Top = 35
+      Width = 80
+      Height = 20
+      TabOrder = 7
+      OnChange = C_specChange
+    end
+    object FromOrdNo: TEdit
+      Tag = 2
+      Left = 636
+      Top = 35
+      Width = 80
+      Height = 20
+      TabOrder = 8
+      OnChange = C_specChange
+    end
+    object BuyConNo: TEdit
+      Tag = 2
+      Left = 636
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 9
+      OnChange = C_specChange
+    end
+  end
+  object cxGrid1: TcxGrid [2]
+    Left = 0
+    Top = 99
+    Width = 1193
+    Height = 445
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DataSource1
+      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>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
+      Styles.Header = DataLink_TradeTotalClothStk.Default
+      Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
+      Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSEL'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        HeaderAlignmentHorz = taCenter
+        Width = 45
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #20986#24211#21333#21495
+        DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      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
+        Width = 100
+      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
+        Width = 81
+      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 = 75
+      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 = 85
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #20379#24212#21830
+        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 = 89
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #26579#21378
+        DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 91
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #21697#29260
+        DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 98
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      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 = 100
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'SPCode'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 92
+      end
+      object v1Column8: TcxGridDBColumn
+        Tag = 2
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        VisibleForCustomization = False
+        Width = 74
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #27969#31243#21495
+        DataBinding.FieldName = 'ToPCId'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 68
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 82
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #36710#38388
+        DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 51
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 58
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #21305#37325
+        DataBinding.FieldName = 'PieceWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 78
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #33394#21035
+        DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #21046#21333#20154
+        DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #26469#33258#25351#31034#21333
+        DataBinding.FieldName = 'FromOrdNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 90
+      end
+      object Tv1Column9: TcxGridDBColumn
+        Caption = #20986#21040#25351#31034#21333
+        DataBinding.FieldName = 'ToOrdNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 93
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #23458#25143#21333#21495
+        DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #22797#21333#21495
+        DataBinding.FieldName = 'FOrdNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Left = 265
+    Top = 176
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Left = 169
+    Top = 177
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Parameters = <>
+    Left = 984
+    Top = 152
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1048
+    Top = 168
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1016
+    Top = 160
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 920
+    Top = 152
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 1104
+    Top = 168
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 952
+    Top = 152
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 144
+    Top = 232
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

T01贸易生产计划/U_TradePlanSchedule.dfm

@@ -130,8 +130,59 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
       Caption = #20135#21697#21517#31216'/'#24037#33402
     end
     object Label1: TLabel
-      Left = 627
+      Left = 603
-      Top = 19
+      Top = 6
+      Width = 11
+      Height = 19
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 1078
+      Top = 6
+      Width = 137
+      Height = 14
+      Caption = #21152#24037#20132#26399#21097#20313'5-10'#22825
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 1240
+      Top = 6
+      Width = 129
+      Height = 14
+      Caption = #21152#24037#20132#26399#21097#20313'1-4'#22825
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 1395
+      Top = 6
+      Width = 121
+      Height = 14
+      Caption = #21152#24037#20132#26399#21097#20313'<1'#22825
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 603
+      Top = 34
       Width = 11
       Height = 19
       Font.Charset = GB2312_CHARSET
@@ -163,8 +214,8 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
     end
     object CustName: TEdit
       Tag = 2
-      Left = 217
+      Left = 218
-      Top = 5
+      Top = 6
       Width = 135
       Height = 20
       TabOrder = 2
@@ -197,6 +248,33 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
       TabOrder = 5
       OnChange = OrderNoChange
     end
+    object Panel2: TPanel
+      Left = 1112
+      Top = 26
+      Width = 68
+      Height = 29
+      Color = clYellow
+      ParentBackground = False
+      TabOrder = 6
+    end
+    object Panel3: TPanel
+      Left = 1268
+      Top = 24
+      Width = 74
+      Height = 29
+      Color = 36095
+      ParentBackground = False
+      TabOrder = 7
+    end
+    object Panel4: TPanel
+      Left = 1420
+      Top = 24
+      Width = 71
+      Height = 29
+      Color = 4678655
+      ParentBackground = False
+      TabOrder = 8
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
@@ -308,6 +386,22 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         item
           Kind = skSum
           Column = TV1Column8
+        end
+        item
+          Kind = skSum
+          Column = TV1Column42
+        end
+        item
+          Kind = skSum
+          Column = TV1Column43
+        end
+        item
+          Kind = skCount
+          Column = TV1Column27
+        end
+        item
+          Kind = skCount
+          Column = TV1Column44
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
@@ -357,7 +451,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 70
+        Width = 40
         Position.BandIndex = 0
         Position.ColIndex = 0
         Position.RowIndex = 0
@@ -368,7 +462,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 79
+        Width = 47
         Position.BandIndex = 0
         Position.ColIndex = 1
         Position.RowIndex = 0
@@ -455,9 +549,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 189
+        Width = 110
         Position.BandIndex = 0
-        Position.ColIndex = 15
+        Position.ColIndex = 19
         Position.RowIndex = 0
       end
       object TV1Column14: TcxGridDBBandedColumn
@@ -524,7 +618,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         Options.Editing = False
         Width = 67
         Position.BandIndex = 0
-        Position.ColIndex = 17
+        Position.ColIndex = 21
         Position.RowIndex = 0
       end
       object TV1Column30: TcxGridDBBandedColumn
@@ -558,7 +652,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         Options.Editing = False
         Width = 69
         Position.BandIndex = 0
-        Position.ColIndex = 18
+        Position.ColIndex = 22
         Position.RowIndex = 0
       end
       object TV1Column27: TcxGridDBBandedColumn
@@ -567,7 +661,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Width = 115
+        Width = 67
         Position.BandIndex = 0
         Position.ColIndex = 2
         Position.RowIndex = 0
@@ -599,7 +693,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'C_Code'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 180
+        Width = 105
         Position.BandIndex = 0
         Position.ColIndex = 3
         Position.RowIndex = 0
@@ -697,7 +791,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'OurCoName'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 67
+        Width = 40
         Position.BandIndex = 0
         Position.ColIndex = 4
         Position.RowIndex = 0
@@ -707,9 +801,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'OrdQty'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 61
+        Width = 35
         Position.BandIndex = 0
-        Position.ColIndex = 12
+        Position.ColIndex = 14
         Position.RowIndex = 0
       end
       object TV1Column24: TcxGridDBBandedColumn
@@ -717,9 +811,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'FZR'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 76
+        Width = 43
         Position.BandIndex = 0
-        Position.ColIndex = 14
+        Position.ColIndex = 18
         Position.RowIndex = 0
       end
       object TV1Column25: TcxGridDBBandedColumn
@@ -727,9 +821,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'OrdDate'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 69
+        Width = 41
         Position.BandIndex = 0
-        Position.ColIndex = 5
+        Position.ColIndex = 6
         Position.RowIndex = 0
       end
       object TV1Column29: TcxGridDBBandedColumn
@@ -737,9 +831,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'MFKZ'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 94
+        Width = 55
         Position.BandIndex = 0
-        Position.ColIndex = 13
+        Position.ColIndex = 17
         Position.RowIndex = 0
       end
       object TV1Column31: TcxGridDBBandedColumn
@@ -747,9 +841,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'Saleser'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 61
+        Width = 35
         Position.BandIndex = 0
-        Position.ColIndex = 7
+        Position.ColIndex = 9
         Position.RowIndex = 0
       end
       object TV1Column34: TcxGridDBBandedColumn
@@ -757,9 +851,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'Filler'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 51
+        Width = 30
         Position.BandIndex = 0
-        Position.ColIndex = 8
+        Position.ColIndex = 10
         Position.RowIndex = 0
       end
       object TV1Column35: TcxGridDBBandedColumn
@@ -767,9 +861,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'BuyConNo'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 67
+        Width = 39
         Position.BandIndex = 0
-        Position.ColIndex = 11
+        Position.ColIndex = 13
         Position.RowIndex = 0
       end
       object TV1Column36: TcxGridDBBandedColumn
@@ -777,9 +871,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'OrdUnit'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 44
+        Width = 24
         Position.BandIndex = 0
-        Position.ColIndex = 9
+        Position.ColIndex = 11
         Position.RowIndex = 0
       end
       object TV1Column37: TcxGridDBBandedColumn
@@ -808,8 +902,9 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         Caption = #21152#24037#20132#26399
         DataBinding.FieldName = 'DlyDate'
         DataBinding.IsNullValueType = True
+        Width = 37
         Position.BandIndex = 0
-        Position.ColIndex = 6
+        Position.ColIndex = 7
         Position.RowIndex = 0
       end
       object TV1Column38: TcxGridDBBandedColumn
@@ -827,7 +922,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.IsNullValueType = True
         Visible = False
         Position.BandIndex = 0
-        Position.ColIndex = 16
+        Position.ColIndex = 20
         Position.RowIndex = 0
       end
       object TV1Column40: TcxGridDBBandedColumn
@@ -835,9 +930,49 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
         DataBinding.FieldName = 'FOrdNo'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Width = 58
+        Width = 36
         Position.BandIndex = 0
-        Position.ColIndex = 10
+        Position.ColIndex = 12
+        Position.RowIndex = 0
+      end
+      object TV1Column41: TcxGridDBBandedColumn
+        Caption = #36229#20132#22825#25968
+        DataBinding.FieldName = 'CQTS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 50
+        Position.BandIndex = 0
+        Position.ColIndex = 8
+        Position.RowIndex = 0
+      end
+      object TV1Column42: TcxGridDBBandedColumn
+        Caption = #19979#21333#37325#37327
+        DataBinding.FieldName = 'Weight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 54
+        Position.BandIndex = 0
+        Position.ColIndex = 15
+        Position.RowIndex = 0
+      end
+      object TV1Column43: TcxGridDBBandedColumn
+        Caption = #19979#21333#31859#25968
+        DataBinding.FieldName = 'Length'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 56
+        Position.BandIndex = 0
+        Position.ColIndex = 16
+        Position.RowIndex = 0
+      end
+      object TV1Column44: TcxGridDBBandedColumn
+        Caption = #29702#21333
+        DataBinding.FieldName = 'Tallyer'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 46
+        Position.BandIndex = 0
+        Position.ColIndex = 5
         Position.RowIndex = 0
       end
     end
@@ -885,7 +1020,6 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
       '   '#24050#23436#25104'   '
       '   '#20840'    '#37096'   ')
     OnChange = cxTabControl1Change
-    ExplicitTop = 96
     ClientRectBottom = 35
     ClientRectRight = 1540
     ClientRectTop = 35

T01贸易生产计划/U_TradePlanSchedule.pas

@@ -107,6 +107,17 @@ type
     TV1Column38: TcxGridDBBandedColumn;
     TV1Column39: TcxGridDBBandedColumn;
     TV1Column40: TcxGridDBBandedColumn;
+    TV1Column41: TcxGridDBBandedColumn;
+    TV1Column42: TcxGridDBBandedColumn;
+    TV1Column43: TcxGridDBBandedColumn;
+    Label3: TLabel;
+    Panel2: TPanel;
+    Label4: TLabel;
+    Panel3: TPanel;
+    Label10: TLabel;
+    Panel4: TPanel;
+    Label11: TLabel;
+    TV1Column44: TcxGridDBBandedColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -147,7 +158,7 @@ uses
 
 procedure TfrmTradePlanSchedule.InitGrid();
 var
-  MCG, MDH, MTP, MFH: Double;
+  MCG, MDH, MTP, MFH, MLen, MWeight: Double;
 begin
 
   screen.Cursor := crsqlwait;
@@ -205,7 +216,11 @@ begin
     MDH := tv1.DataController.Summary.FooterSummaryValues[0];
     MTP := tv1.DataController.Summary.FooterSummaryValues[3];
     MFH := tv1.DataController.Summary.FooterSummaryValues[15];
-    Label1.Caption := '未到货：' + FloattoStr(MCG - MDH) + '    待投坯：' + FloattoStr(MDH - MTP) + '    生产中：' + FloattoStr(MTP - MFH)
+    Label1.Caption := '未到货：' + FloattoStr(MCG - MDH) + '    待投坯：' + FloattoStr(MDH - MTP) + '    生产中：' + FloattoStr(MTP - MFH);
+
+    MLen:= tv1.DataController.Summary.FooterSummaryValues[17];
+    MWeight:=tv1.DataController.Summary.FooterSummaryValues[16];
+    Label11.Caption := '下单米数：' + FloattoStr(MLen) + '    下单重量：' + FloattoStr(MWeight);
   end;
 end;
 

T02贸易汇总仓库/TradeTotalClothStk.dpr

@@ -28,7 +28,9 @@ uses
   U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
   U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
   U_TPUp in 'U_TPUp.pas' {frmTPUp},
-  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
+  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
+  U_SLT in '..\A02基础产品管理\U_SLT.pas' {frmSLT: TFrame},
+  U_ClothTotalFileUp in 'U_ClothTotalFileUp.pas' {frmClothTotalFileUp};
 
 {$R *.res}
 

T02贸易汇总仓库/TradeTotalClothStk.dproj

@@ -198,6 +198,15 @@
             <FormType>dfm</FormType>
             <DesignClass>TDataModule</DesignClass>
         </DCCReference>
+        <DCCReference Include="..\A02基础产品管理\U_SLT.pas">
+            <Form>frmSLT</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TFrame</DesignClass>
+        </DCCReference>
+        <DCCReference Include="U_ClothTotalFileUp.pas">
+            <Form>frmClothTotalFileUp</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

T02贸易汇总仓库/TradeTotalClothStk.dproj.local

@@ -1,41 +1,45 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.475,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.147,D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.974,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\D10myBiaoqi\A02基础产品管理\U_SLT.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -80,6 +84,9 @@
     <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
     <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
     <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
+    <File Path="..\A02基础产品管理"/>
+    <File Path="..\A02基础产品管理\U_SLT.pas"/>
+    <File Path="..\A02基础产品管理\U_SLT.dfm"/>
     <File Path="..\T00贸易通用窗体"/>
     <File Path="..\T00贸易通用窗体\U_TradePlanSel.pas"/>
     <File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/>
@@ -112,5 +119,7 @@
     <File Path="U_iniParam.pas"/>
     <File Path="U_TPUp.pas"/>
     <File Path="U_TPUp.dfm"/>
+    <File Path="U_ClothTotalFileUp.pas"/>
+    <File Path="U_ClothTotalFileUp.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

T02贸易汇总仓库/U_ClothTotalFileUp.dfm

@@ -0,0 +1,264 @@
+object frmClothTotalFileUp: TfrmClothTotalFileUp
+  Left = 612
+  Top = 236
+  Caption = #19978#20256#25991#20214
+  ClientHeight = 595
+  ClientWidth = 929
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid7: TcxGrid
+    Left = 0
+    Top = 41
+    Width = 858
+    Height = 554
+    Align = alClient
+    TabOrder = 0
+    ExplicitLeft = -6
+    object TV7: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      object FileName: TcxGridDBColumn
+        Tag = 1
+        Caption = #25991#20214#21517#31216
+        DataBinding.FieldName = 'FileName'
+        DataBinding.IsNullValueType = True
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 121
+      end
+      object FileDate: TcxGridDBColumn
+        Tag = 1
+        Caption = #19978#20256#26085#26399
+        DataBinding.FieldName = 'TFDate'
+        DataBinding.IsNullValueType = True
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 104
+      end
+    end
+    object cxGridLevel6: TcxGridLevel
+      GridView = TV7
+    end
+  end
+  object Panel16: TPanel
+    Left = 190
+    Top = 126
+    Width = 138
+    Height = 30
+    BevelInner = bvRaised
+    Caption = #27491#22312#19978#20256#12290#12290#12290
+    Color = clSkyBlue
+    TabOrder = 1
+    Visible = False
+  end
+  object ToolBar6: TToolBar
+    Left = 858
+    Top = 41
+    Width = 71
+    Height = 554
+    Align = alRight
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 75
+    Caption = 'ToolBar1'
+    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    List = True
+    ShowCaptions = True
+    TabOrder = 2
+    object FileUp: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #19978#20256
+      ImageIndex = 2
+      Wrap = True
+      OnClick = FileUpClick
+    end
+    object FileDel: TToolButton
+      Left = 0
+      Top = 38
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      Wrap = True
+      OnClick = FileDelClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 929
+    Height = 41
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 3
+    object Label1: TLabel
+      Left = 8
+      Top = 14
+      Width = 72
+      Height = 17
+      Caption = #20837#24211#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -17
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Image2: TImage
+      Left = 773
+      Top = 7
+      Width = 60
+      Height = 28
+      Visible = False
+    end
+    object Image1: TImage
+      Left = 861
+      Top = 6
+      Width = 60
+      Height = 28
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 336
+      Top = 14
+      Width = 36
+      Height = 17
+      Caption = #33457#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -17
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object BCIOID: TEdit
+      Left = 78
+      Top = 10
+      Width = 211
+      Height = 25
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -17
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 0
+    end
+    object HXName: TBtnEditC
+      Tag = 2
+      Left = 378
+      Top = 6
+      Width = 168
+      Height = 29
+      Hint = 'CYKZ/'#20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 1
+      Visible = False
+      OnBtnUpClick = HXNameBtnUpClick
+      OnBtnDnClick = HXNameBtnDnClick
+    end
+  end
+  object ODPat: TOpenDialog
+    Filter = 
+      'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
+      'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
+      'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
+      ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
+      '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
+      'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
+      'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
+      'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
+      ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
+      '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
+      '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
+      'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
+      'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
+    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
+    Left = 380
+    Top = 333
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 261
+    Top = 244
+  end
+  object SaveDialog1: TSaveDialog
+    Filter = 
+      'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
+      'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
+      'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
+      ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
+      '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
+      'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
+      'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
+      'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
+      ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
+      '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
+      '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
+      'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
+      'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
+    Left = 305
+    Top = 333
+  end
+  object ADOQueryFile: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 488
+    Top = 144
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryFile
+    Left = 376
+    Top = 136
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Parameters = <>
+    Left = 584
+    Top = 256
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 432
+    Top = 224
+  end
+end

T02贸易汇总仓库/U_ClothTotalFileUp.pas

@@ -0,0 +1,400 @@
+unit U_ClothTotalFileUp;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid, IdBaseComponent, IdComponent,
+  IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles,
+  strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
+  dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase,
+  Vcl.ExtDlgs, dxSkinWXI, dxScrollbarAnnotations;
+
+type
+  TfrmClothTotalFileUp = class(TForm)
+    cxGrid7: TcxGrid;
+    TV7: TcxGridDBTableView;
+    FileName: TcxGridDBColumn;
+    FileDate: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    Panel16: TPanel;
+    ToolBar6: TToolBar;
+    FileUp: TToolButton;
+    FileDel: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    BCIOID: TEdit;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    ADOQueryFile: TADOQuery;
+    DataSource1: TDataSource;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    Image2: TImage;
+    Image1: TImage;
+    Label2: TLabel;
+    HXName: TBtnEditC;
+    procedure FileUpClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FileDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure HXNameBtnUpClick(Sender: TObject);
+    procedure HXNameBtnDnClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+  private
+    lstPat: TStringList;
+    AJpeg: TJPEGImage;
+    procedure CreThumb(Image1, Image2: TImage; Width, Height: Integer);
+    procedure SaveImageOther(FTFID: string);
+    procedure ReadINIFile10();
+    procedure InitTP();
+    { Private declarations }
+  public
+    FBCIID: string;
+    FWidth, FHeight:Integer
+    { Public declarations }
+  end;
+
+var
+  frmClothTotalFileUp: TfrmClothTotalFileUp;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp;
+
+{$R *.dfm} procedure TfrmClothTotalFileUp.InitTP();
+begin
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,HXName from TP_File where WBID=''' + Trim(FBCIID) + '''');
+    SQL.Add(' and FileType=''YPCK''');
+    Open;
+  end;
+end;
+
+procedure TfrmClothTotalFileUp.ReadINIFile10();
+var
+  programIni: Tinifile;  //配置文件名
+  FileName: string;
+begin
+  FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
+  programIni := Tinifile.create(FileName);
+  server := programIni.ReadString('SERVER', '服务器地址', '127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmClothTotalFileUp.FileUpClick(Sender: TObject);
+var
+  i, j, ii: Integer;
+  PatFile: string;
+  FTPPath, FConNo, MaxNo: string;
+  AJpeg: TJPEGImage;
+  myStream: TADOBlobStream;
+  f: file of Byte;
+  size: Longint;
+  S: Double;
+begin
+  if Trim(BCIOID.Text) = '' then
+  begin
+    Application.MessageBox('入库单号不能为空！', '提示', 0);
+    Exit;
+  end;
+//  if Trim(HXName.Text) = '' then
+//  begin
+//    if Application.MessageBox('花型确认为空吗？', '提示', 32 + 4) <> IDYES then
+//      Exit;
+//  end;
+
+  lstPat.Clear;
+  if ODPat.Execute then
+  begin
+    lstPat.AddStrings(ODPat.Files);
+  end;
+  if lstPat.Count > 0 then
+  begin
+    try
+      IdFTP1.Host := PicSvr;
+      IdFTP1.Username := 'three';
+      IdFTP1.Password := '641010';
+      IdFTP1.Connect();
+    except
+      IdFTP1.Quit;
+      Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+      Exit;
+    end;
+  end;
+
+  Panel16.Visible := True;
+  Panel16.Refresh;
+
+  try
+    AJpeg := TJpegImage.Create();
+    ADOQueryCmd.Connection.BeginTrans;
+    ii := 0;
+    for i := 0 to lstPat.Count - 1 do
+    begin
+      with ADOQueryTemp do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from TP_File');
+        sql.Add('where FileType =''YPCK'' and WBID=''' + trim(FBCIID) + ''' ');
+        open;
+      end;
+      PatFile := trim(FBCIID) + '-' + inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger) + '.' + Copy(ExtractFileName(lstPat[i]), (Pos('.', ExtractFileName(lstPat[i])) + 1), (Length(ExtractFileName(lstPat[i])) - Pos('.', ExtractFileName(lstPat[i]))));
+      image1.Picture.LoadFromFile((lstPat[i]));
+      CreThumb(Image1, Image2, FWidth, FHeight);
+
+      AssignFile(f, lstPat[i]);
+      Reset(f);
+      size := FileSize(f);
+      S := size / 1024;
+
+      CloseFile(f);
+
+      if S > 2048 then
+      begin
+        ii := ii + 1;
+        Continue;
+      end;
+
+      if IdFTP1.Connected then
+      begin
+        try
+          IdFTP1.Put(lstPat[i], Trim(UserDataFlag + 'YP' + '\' + Trim(PatFile)));
+
+          if GetLSNo(ADOQueryCmd, MaxNo, 'YP', 'XD_File', 4, 1) = False then
+            raise Exception.Create('取图片最大号失败！');
+
+          with ADOQueryCmd do
+          begin
+            close;
+            sql.Clear;
+            sql.Add(' select *  from TP_File where TFID=''' + Trim(MaxNo) + '''');
+            open;
+          end;
+          with ADOQueryCmd do
+          begin
+            if ADOQueryCmd.IsEmpty then
+            begin
+              Append;
+              FieldByName('Filler').Value := Trim(DName);
+              FieldByName('TFDate').Value := SGetServerDateTime(ADOQueryTemp);
+            end
+            else
+            begin
+              Edit;
+              FieldByName('Editer').Value := Trim(DName);
+              FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
+            end;
+            FieldByName('TFID').Value := Trim(MaxNo);
+            FieldByName('WBID').Value := Trim(FBCIID);
+            FieldByName('TFType').Value := '样品仓库';
+            FieldByName('FileType').Value := 'YPCK';
+            FieldByName('HXName').Value := trim(HXName.Text);
+            FieldByName('filename').Value := Trim(PatFile);
+            myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
+            AJpeg.Assign(Image2.Picture.Graphic);
+            AJpeg.SaveToStream(myStream);
+
+            myStream.Free;
+            Post;
+          end;
+          image1.Picture := nil;
+
+        except
+          raise Exception.Create('上传图片失败！');
+        end;
+      end;
+    end;
+    AJpeg.Free;
+    ADOQueryCmd.Connection.CommitTrans;
+
+  except
+    AJpeg.Free;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('图片上传失败！', '提示', 0);
+  end;
+  if IdFTP1.Connected then
+    IdFTP1.Quit;
+  InitTP();
+  Panel16.Visible := False;
+
+  if ii > 0 then
+    Application.MessageBox(PChar(inttostr(ii) + '个文件大于2MB，上传失败！'), '提示', 0);
+  if i > 0 then
+    Application.MessageBox(PChar(inttostr(i - ii) + '个文件上传成功！'), '提示', 0);
+
+  ModalResult := 1;
+end;
+
+procedure TfrmClothTotalFileUp.CreThumb(Image1, Image2: TImage; Width, Height: Integer);
+var
+  Bitmap: TBitmap;
+  Ratio: Double;
+  ARect: TRect;
+  AHeight, AHeightOffset: Integer;
+  AWidth, AWidthOffset: Integer;
+begin
+  Bitmap := TBitmap.Create;
+  try
+    Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height;
+    if Ratio > 1.333 then
+    begin
+      AHeight := Round(Width / Ratio);
+      AHeightOffset := (Height - AHeight) div 2;
+      AWidth := Width;
+      AWidthOffset := 0;
+    end
+    else
+    begin
+      AWidth := Round(Height * Ratio);
+      AWidthOffset := (Width - AWidth) div 2;
+      AHeight := Height;
+      AHeightOffset := 0;
+    end;
+    Bitmap.Width := Width;
+    Bitmap.Height := Height;
+    Bitmap.Canvas.Brush.Color := clBtnFace;
+    Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
+    ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset);
+    Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic);
+    Image2.Picture.Assign(Bitmap);
+  finally
+    Bitmap.Free;
+  end;
+end;
+
+procedure TfrmClothTotalFileUp.SaveImageOther(FTFID: string);
+var
+  AJpeg: TJPEGImage;
+  myStream: TADOBlobStream;
+  ImgMaxNo: string;
+  i, j: Integer;
+  PatFile: string;
+  FConNo, MaxNo: string;
+begin
+  if Image2.Picture = nil then
+    Exit;
+  AJpeg := TJpegImage.Create();
+  with ADOQueryCmd do
+  begin
+    close;
+    sql.Clear;
+    sql.Add(' select *  from TP_File where TFID=''' + Trim(FTFID) + '''');
+    open;
+  end;
+  with ADOQueryCmd do
+  begin
+    if Trim(FTFID) = '' then
+    begin
+      Append;
+      FieldByName('Filler').Value := Trim(DName);
+    end
+    else
+    begin
+      Edit;
+      FieldByName('Editer').Value := Trim(DName);
+      FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
+    end;
+    FieldByName('TFID').Value := Trim(FTFID);
+    FieldByName('WBID').Value := Trim(FBCIID);
+    FieldByName('TFType').Value := '样品仓库';
+    AJpeg.Assign(Image2.Picture.Graphic);
+    myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
+    AJpeg.Assign(Image2.Picture.Graphic);
+    AJpeg.SaveToStream(myStream);
+    myStream.Free;
+    Post;
+  end;
+end;
+
+procedure TfrmClothTotalFileUp.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := cafree;
+end;
+
+procedure TfrmClothTotalFileUp.FormCreate(Sender: TObject);
+begin
+  lstPat := TStringList.Create;
+  if FWidth = 0 then
+    FWidth := 160;
+  if FHeight = 0 then
+    FHeight := 120;
+end;
+
+procedure TfrmClothTotalFileUp.FileDelClick(Sender: TObject);
+begin
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('TFID').AsString) + '''');
+    ExecSQL;
+  end;
+
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
+    SQL.Add(' and FileType=''YPCK''');
+    Open;
+  end;
+//  if ADOQueryFile.IsEmpty then
+//  begin
+//    with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add('Update CP_YDang Set TPFlag=0 where FBCIID=''' + Trim(FBCIID) + '''');
+//      ExecSQL;
+//    end;
+//  end;
+end;
+
+procedure TfrmClothTotalFileUp.FormShow(Sender: TObject);
+begin
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
+    SQL.Add(' and FileType=''YPCK''');
+    Open;
+  end;
+end;
+
+procedure TfrmClothTotalFileUp.HXNameBtnDnClick(Sender: TObject);
+begin
+  TBtnEditC(Sender).Text := '';
+  TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmClothTotalFileUp.HXNameBtnUpClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'HX' + Trim(BCIOID.Text);
+      flagname := '花型';
+      if ShowModal = 1 then
+      begin
+        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.
+

T02贸易汇总仓库/U_TradeFinishClothStkList.dfm

@@ -5,7 +5,6 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
   ClientHeight = 472
   ClientWidth = 1400
   Position = poDefault
-  ExplicitLeft = -149
   ExplicitWidth = 1416
   ExplicitHeight = 511
   PixelsPerInch = 96
@@ -105,6 +104,19 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       Height = 12
       Caption = #25209'  '#21495
     end
+    object Label1: TLabel
+      Left = 880
+      Top = 6
+      Width = 116
+      Height = 20
+      Caption = #24211#40836#36229'6'#20010#26376
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object C_name: TEdit
       Tag = 2
       Left = 254
@@ -141,6 +153,15 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       TabOrder = 3
       OnChange = FromCoNameChange
     end
+    object Panel2: TPanel
+      Left = 1002
+      Top = 4
+      Width = 71
+      Height = 24
+      Color = 7504122
+      ParentBackground = False
+      TabOrder = 4
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
@@ -150,9 +171,10 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 75
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnCustomDrawCell = Tv1CustomDrawCell
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <
         item
@@ -222,6 +244,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object v1Column6: TcxGridDBColumn
         Caption = #20837#24211#26102#38388
         DataBinding.FieldName = 'IOTime'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 87
@@ -230,6 +253,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
         Tag = 2
         Caption = #26469#33258#21333#20301
         DataBinding.FieldName = 'FromCoName'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Alignment.Horz = taLeftJustify
         Properties.Buttons = <
@@ -245,6 +269,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object Tv1Column7: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'FromOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 73
       end
@@ -252,6 +277,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -265,6 +291,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object Tv1Column3: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 60
@@ -273,6 +300,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -281,6 +309,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object v1Column4: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -288,6 +317,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object v1Column5: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 70
@@ -295,6 +325,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object v1Column10: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 124
@@ -302,24 +333,28 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object v1Column11: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 68
       end
       object v1Column7: TcxGridDBColumn
         Caption = #20837#24211#21305#25968
         DataBinding.FieldName = 'piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 62
       end
       object v1Column9: TcxGridDBColumn
         Caption = #20837#24211#25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 63
       end
       object v1Column1: TcxGridDBColumn
         Caption = #24211#23384#21305#25968
         DataBinding.FieldName = 'stkpiece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 69
@@ -328,6 +363,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
         Tag = 2
         Caption = #24211#23384#25968#37327
         DataBinding.FieldName = 'stkqty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -337,6 +373,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -350,6 +387,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object Tv1Column2: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 69
@@ -357,6 +395,7 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object Tv1Column1: TcxGridDBColumn
         Caption = #33394#21035
         DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 72
@@ -364,29 +403,40 @@ inherited frmTradeFinishClothStkList: TfrmTradeFinishClothStkList
       object Tv1Column4: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object Tv1Column5: TcxGridDBColumn
         Caption = #25104#20998
         DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object Tv1Column6: TcxGridDBColumn
         Caption = #27454#21495
         DataBinding.FieldName = 'C_StyleNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object Tv1Column8: TcxGridDBColumn
         Caption = #19994#21153#21592
         DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column9: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #24211#40836
+        DataBinding.FieldName = 'KL'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
     end

T02贸易汇总仓库/U_TradeFinishClothStkList.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
-  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
+  dxScrollbarAnnotations;
 
 type
   TfrmTradeFinishClothStkList = class(TfrmBaseList)
@@ -64,6 +65,9 @@ type
     Tv1Column8: TcxGridDBColumn;
     Tv1Column9: TcxGridDBColumn;
     cxGridPopupMenu2: TcxGridPopupMenu;
+    Label1: TLabel;
+    Panel2: TPanel;
+    Tv1Column10: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);
@@ -78,6 +82,9 @@ type
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure FormCreate(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
   private
     procedure InitGrid();
     { Private declarations }
@@ -124,7 +131,7 @@ begin
       Close;
       sql.Clear;
       sql.Add(' select A.*,B.SalesId,B.Saleser,BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainID=B.MainId) ');
-      sql.Add(' from BS_Cloth_IO A  left join Trade_Plan_Main B on B.MainId=A.FromMainId  ');
+      sql.Add(' ,DATEDIFF(Day, A.IOTime, GETDATE()) KL from BS_Cloth_IO A  left join Trade_Plan_Main B on B.MainId=A.FromMainId  ');
       SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
       sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
       Open;
@@ -209,5 +216,14 @@ begin
   ModalResult := 1;
 end;
 
+procedure TfrmTradeFinishClothStkList.Tv1CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('KL').Index] > 183 then
+    ACanvas.Brush.Color := $7280FA;
+
+end;
+
 end.
 

T02贸易汇总仓库/U_TradeFtyClothStkList.dfm

@@ -104,6 +104,19 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
       Height = 12
       Caption = #25209'  '#21495
     end
+    object Label1: TLabel
+      Left = 880
+      Top = 6
+      Width = 116
+      Height = 20
+      Caption = #24211#40836#36229'6'#20010#26376
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object C_name: TEdit
       Tag = 2
       Left = 254
@@ -140,6 +153,15 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
       TabOrder = 3
       OnChange = FromCoNameChange
     end
+    object Panel2: TPanel
+      Left = 1002
+      Top = 4
+      Width = 71
+      Height = 24
+      Color = 7504122
+      ParentBackground = False
+      TabOrder = 4
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
@@ -152,6 +174,7 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
+      OnCustomDrawCell = Tv1CustomDrawCell
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <
         item
@@ -416,6 +439,12 @@ inherited frmTradeFtyClothStkList: TfrmTradeFtyClothStkList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #24211#40836
+        DataBinding.FieldName = 'KL'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

T02贸易汇总仓库/U_TradeFtyClothStkList.pas

@@ -65,6 +65,9 @@ type
     Tv1Column8: TcxGridDBColumn;
     Tv1Column9: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    Label1: TLabel;
+    Panel2: TPanel;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);
@@ -79,6 +82,9 @@ type
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure FormCreate(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
   private
     procedure InitGrid();
     { Private declarations }
@@ -124,7 +130,7 @@ begin
       Filtered := False;
       Close;
       sql.Clear;
-      sql.Add(' select A.* ');
+      sql.Add(' select A.*,DATEDIFF(Day, A.IOTime, GETDATE()) KL ');
       sql.Add(' from BS_Cloth_IO A    ');
       SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
       sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@@ -210,5 +216,14 @@ begin
   ModalResult := 1;
 end;
 
+procedure TfrmTradeFtyClothStkList.Tv1CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('KL').Index] > 183 then
+    ACanvas.Brush.Color := $7280FA;
+
+end;
+
 end.
 

T02贸易汇总仓库/U_TradeGreyClothStkList.dfm

@@ -111,6 +111,19 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
       Height = 12
       Caption = #19994#21153#21592
     end
+    object Label1: TLabel
+      Left = 880
+      Top = 6
+      Width = 116
+      Height = 20
+      Caption = #24211#40836#36229'6'#20010#26376
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object C_name: TEdit
       Tag = 2
       Left = 254
@@ -156,6 +169,15 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
       TabOrder = 4
       OnChange = FromCoNameChange
     end
+    object Panel2: TPanel
+      Left = 1002
+      Top = 4
+      Width = 71
+      Height = 24
+      Color = 7504122
+      ParentBackground = False
+      TabOrder = 5
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
@@ -168,6 +190,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
+      OnCustomDrawCell = Tv1CustomDrawCell
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <
         item
@@ -428,6 +451,12 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList
         HeaderAlignmentHorz = taCenter
         Width = 82
       end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #24211#40836
+        DataBinding.FieldName = 'KL'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

T02贸易汇总仓库/U_TradeGreyClothStkList.pas

@@ -66,6 +66,9 @@ type
     Tv1Column5: TcxGridDBColumn;
     Tv1Column6: TcxGridDBColumn;
     Tv1Column7: TcxGridDBColumn;
+    Label1: TLabel;
+    Panel2: TPanel;
+    Tv1Column8: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);
@@ -80,6 +83,9 @@ type
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure FormCreate(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
   private
     procedure InitGrid();
     { Private declarations }
@@ -125,7 +131,7 @@ begin
       Filtered := False;
       Close;
       sql.Clear;
-      sql.Add(' select A.* ');
+      sql.Add(' select A.*,DATEDIFF(Day, A.IOTime, GETDATE()) KL ');
       sql.Add(' from BS_Cloth_IO A    ');
       SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
       sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@@ -211,5 +217,14 @@ begin
   ModalResult := 1;
 end;
 
+procedure TfrmTradeGreyClothStkList.Tv1CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('KL').Index] > 183 then
+    ACanvas.Brush.Color := $7280FA;
+
+end;
+
 end.
 

T02贸易汇总仓库/U_TradeSampleClothInEdit.dfm

@@ -10,7 +10,6 @@ inherited frmTradeSampleClothInEdit: TfrmTradeSampleClothInEdit
   Font.Name = #23435#20307
   Position = poScreenCenter
   OnClose = FormClose
-  ExplicitLeft = -381
   ExplicitWidth = 1556
   ExplicitHeight = 497
   PixelsPerInch = 96
@@ -143,6 +142,7 @@ inherited frmTradeSampleClothInEdit: TfrmTradeSampleClothInEdit
             Default = True
             Kind = bkEllipsis
           end>
+        Properties.ReadOnly = True
         Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
         HeaderAlignmentHorz = taCenter
       end

T02贸易汇总仓库/U_TradeSampleClothInEdit.pas

@@ -83,7 +83,7 @@ type
     function SaveCKData(): Boolean;
   public
     { Public declarations }
-    FBCId, canshu3, FSTKName, FKHName: string;
+    FBCId, canshu3, FSTKName, FKHName, PState: string;
   end;
 
 var
@@ -303,6 +303,23 @@ begin
   end;
   SCreateCDS(ADOQueryTemp, CDS_Sub);
   SInitCDSData(ADOQueryTemp, CDS_Sub);
+  if PState = '¸´ÖÆ' then
+  begin
+    FBCId := '';
+    with CDS_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('BCIOID').Value := '';
+        FieldByName('IOTime').Value := SGetServerDateTime(ADOQueryTemp);
+        Post;
+        Next;
+      end;
+    end;
+  end;
+
 end;
 
 procedure TfrmTradeSampleClothInEdit.TBDelClick(Sender: TObject);
@@ -400,8 +417,7 @@ begin
 
 end;
 
-procedure TfrmTradeSampleClothInEdit.Tv1Column12PropertiesEditValueChanged(
+procedure TfrmTradeSampleClothInEdit.Tv1Column12PropertiesEditValueChanged(Sender: TObject);
-  Sender: TObject);
 var
   mvalue, FFieldName: string;
   FQty, FCBPrice, FCBMoney: Double;        //个数，单价，金额, 预估成本
@@ -432,8 +448,6 @@ begin
     Post;
   end;
 
-
-
   tv1.Controller.EditingController.ShowEdit();
 end;
 

T02贸易汇总仓库/U_TradeSampleClothInList.dfm

@@ -63,16 +63,24 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
       ImageIndex = 3
       OnClick = TBEditClick
     end
-    object TBDel: TToolButton
+    object ToolButton3: TToolButton
       Left = 284
       Top = 0
       AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 9
+      OnClick = ToolButton3Click
+    end
+    object TBDel: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
       Caption = #21024#38500
       ImageIndex = 5
       OnClick = TBDelClick
     end
     object ToolButton2: TToolButton
-      Left = 355
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -80,7 +88,7 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
       OnClick = ToolButton2Click
     end
     object TBExport: TToolButton
-      Left = 426
+      Left = 497
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -88,7 +96,7 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
       OnClick = TBExportClick
     end
     object ToolButton1: TToolButton
-      Left = 497
+      Left = 568
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -96,13 +104,21 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
       OnClick = ToolButton1Click
     end
     object TBClose: TToolButton
-      Left = 592
+      Left = 663
       Top = 0
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 7
       OnClick = TBCloseClick
     end
+    object ToolButton4: TToolButton
+      Left = 734
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#19978#20256
+      ImageIndex = 19
+      OnClick = ToolButton4Click
+    end
   end
   object Panel1: TPanel [1]
     Left = 0
@@ -256,12 +272,15 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
   object cxGrid1: TcxGrid [2]
     Left = 0
     Top = 96
-    Width = 1540
+    Width = 1222
     Height = 382
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
+    ExplicitLeft = -2
+    ExplicitTop = 97
     object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
@@ -363,6 +382,13 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
         HeaderAlignmentHorz = taCenter
         Width = 116
       end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #23384#25918#21333#20301
+        DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 118
+      end
       object v2Column1: TcxGridDBColumn
         Tag = 2
         Caption = #21697#21517
@@ -377,6 +403,13 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
         HeaderAlignmentHorz = taCenter
         Width = 99
       end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #22270#29255
+        DataBinding.FieldName = 'IsImg'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 53
+      end
       object v1Column8: TcxGridDBColumn
         Tag = 2
         Caption = #35268#26684
@@ -544,6 +577,44 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
       GridView = Tv1
     end
   end
+  object Panel9: TPanel [3]
+    Left = 1222
+    Top = 96
+    Width = 318
+    Height = 382
+    Align = alRight
+    Caption = 'Panel9'
+    TabOrder = 3
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 316
+      Height = 380
+      Align = alClient
+      Caption = 'Panel9'
+      TabOrder = 0
+      object GroupBox1: TGroupBox
+        Left = 1
+        Top = 1
+        Width = 314
+        Height = 378
+        Align = alClient
+        Caption = #26679#21697#32553#30053#22270
+        TabOrder = 0
+        object ScrollBox1: TScrollBox
+          Left = 2
+          Top = 14
+          Width = 310
+          Height = 362
+          Align = alClient
+          BevelInner = bvLowered
+          BorderStyle = bsNone
+          TabOrder = 0
+          ExplicitLeft = 1
+        end
+      end
+    end
+  end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradeTotalClothStk.ADOLink
     Left = 113
@@ -603,4 +674,11 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList
       OnClick = N2Click
     end
   end
+  object adoqueryPicture: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 233
+    Top = 233
+  end
 end

T02贸易汇总仓库/U_TradeSampleClothInList.pas

@@ -13,7 +13,7 @@ uses
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
   cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
-  dxScrollbarAnnotations;
+  dxScrollbarAnnotations, jpeg, Math,U_SLT;
 
 type
   TfrmTradeSampleClothInList = class(TfrmBaseList)
@@ -81,6 +81,15 @@ type
     Tv1Column3: TcxGridDBColumn;
     Tv1Column5: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
+    Panel9: TPanel;
+    Panel10: TPanel;
+    GroupBox1: TGroupBox;
+    ScrollBox1: TScrollBox;
+    Tv1Column12: TcxGridDBColumn;
+    adoqueryPicture: TADOQuery;
+    Tv1Column13: TcxGridDBColumn;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -100,9 +109,14 @@ type
     procedure cxTabControl1Change(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
   private
     canshu1, canshu2, canshu3: string;
     procedure InitGrid();
+    procedure InitImage();
     procedure setStatus();
     { Private declarations }
   public
@@ -110,10 +124,13 @@ type
     { Public declarations }
   end;
 
+  var
+  Mach: array of TfrmSlt;
+
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_LabelPrint, U_TradeSampleClothInEdit;
+  U_DataLink, U_RTFun, U_LabelPrint, U_TradeSampleClothInEdit,U_ClothTotalFileUp;
 
 {$R *.dfm}
 procedure TfrmTradeSampleClothInList.setStatus();
@@ -146,13 +163,15 @@ begin
       Filtered := False;
       Close;
       sql.Clear;
-      sql.Add(' select A.* ');
+      sql.Add(' select A.*,IsImg=cast((case when (select COUNT(T.WBID) from TP_File T where T.FileType = ''YPCK'' and T.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) ');
       sql.Add(' from BS_Cloth_IO A');
+//      left join BS_Cloth_Info B on A.C_Code=B.C_Code');
       sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
       sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
       sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''');
       SQL.Add(' and IOFlag=''Èë¿â''  ');
       SQL.Add(' order by IOTime desc');
+//      ShowMessage(sql.text);
       Open;
     end;
     SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@@ -163,10 +182,67 @@ begin
   end;
 end;
 
+procedure TfrmTradeSampleClothInList.InitImage();
+var
+  i, j: integer;
+  jpg: TJpegImage;
+  myStream: TADOBlobStream;
+begin
+
+  j := length(Mach);
+  if j > 0 then
+  begin
+    for i := 0 to j - 1 do
+    begin
+      Mach[i].free;
+    end;
+  end;
+  SetLength(Mach, 0);
+  if CDS_Main.IsEmpty then
+    exit;
+  try
+    with adoqueryPicture do
+    begin
+      close;
+      sql.Clear;
+      sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A  ');
+      sql.add('where  A.WBID=' + quotedstr(trim(CDS_Main.fieldbyname('BCIOID').AsString)));
+      open;
+    end;
+    j := adoqueryPicture.RecordCount;
+    if j < 1 then
+      exit;
+    adoqueryPicture.DisableControls;
+    adoqueryPicture.First;
+    SetLength(Mach, j);
+    jpg := TJpegImage.Create();
+    for i := 0 to j - 1 do
+    begin
+      if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
+      begin
+        myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
+        jpg.LoadFromStream(myStream);
+        Mach[i] := TfrmSlt.Create(Self);
+        Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
+        Mach[i].Parent := ScrollBox1;
+//        Mach[i].Left := 0;
+        Mach[i].Top := 0 + i * 180;
+        Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
+      end;
+      adoqueryPicture.Next;
+    end;
+    adoqueryPicture.EnableControls;
+  finally
+    jpg.free;
+    application.ProcessMessages;
+  end;
+end;
+
 procedure TfrmTradeSampleClothInList.TBRafreshClick(Sender: TObject);
 begin
   BegDate.SetFocus;
   InitGrid();
+  InitImage();
 end;
 
 procedure TfrmTradeSampleClothInList.ToolButton1Click(Sender: TObject);
@@ -219,6 +295,58 @@ begin
   end;
 end;
 
+procedure TfrmTradeSampleClothInList.ToolButton3Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+
+  try
+    frmTradeSampleClothInEdit := TfrmTradeSampleClothInEdit.Create(Application);
+    with frmTradeSampleClothInEdit do
+    begin
+      FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString);
+      TBDel.Visible := False;
+      TBAdd.Visible := False;
+      FSTKName := Self.FSTKName;
+      PState := '¸´ÖÆ';
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmTradeSampleClothInEdit.Free;
+  end;
+
+end;
+
+procedure TfrmTradeSampleClothInList.ToolButton4Click(Sender: TObject);
+begin
+  try
+    frmClothTotalFileUp := TfrmClothTotalFileUp.Create(Application);
+    with frmClothTotalFileUp do
+    begin
+      BCIOID.Text := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
+      FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+//        Self.CDS_1.Locate('BCIID', BCIID, []);
+      end;
+    end;
+  finally
+    frmClothTotalFileUp.Free;
+  end;
+  InitImage();
+end;
+
+procedure TfrmTradeSampleClothInList.Tv1MouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  InitImage();
+end;
+
 procedure TfrmTradeSampleClothInList.ConNoMChange(Sender: TObject);
 begin
   if ADOQueryMain.Active then
@@ -239,6 +367,7 @@ begin
   ReadCxGrid(Self.Caption, Tv1, 'óÒ×»ã×ֿܲâ');
   setStatus();
   InitGrid();
+  InitImage();
 end;
 
 procedure TfrmTradeSampleClothInList.TBExportClick(Sender: TObject);

T02贸易汇总仓库/U_TradeSampleClothOutList.dfm

@@ -5,7 +5,6 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
   ClientHeight = 537
   ClientWidth = 1540
   Position = poScreenCenter
-  ExplicitLeft = -381
   ExplicitWidth = 1556
   ExplicitHeight = 576
   PixelsPerInch = 96
@@ -440,6 +439,13 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
         Options.Editing = False
         Width = 89
       end
+      object Tv1Column17: TcxGridDBColumn
+        Caption = #23384#25918#21333#20301
+        DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 90
+      end
       object v1Column13: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
@@ -465,6 +471,13 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
         VisibleForCustomization = False
         Width = 98
       end
+      object Tv1Column18: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
       object v2Column1: TcxGridDBColumn
         Tag = 2
         Caption = #21697#21517
@@ -574,18 +587,12 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList
         Options.Editing = False
         Width = 58
       end
-      object Tv1Column8: TcxGridDBColumn
-        Caption = #32534#21495
-        DataBinding.FieldName = 'C_Code'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Width = 52
-      end
       object v1Column12: TcxGridDBColumn
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
         DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 79
       end

T02贸易汇总仓库/U_TradeSampleClothOutList.pas

@@ -83,7 +83,6 @@ type
     Tv1Column6: TcxGridDBColumn;
     Tv1Column1: TcxGridDBColumn;
     Tv1Column7: TcxGridDBColumn;
-    Tv1Column8: TcxGridDBColumn;
     Tv1Column9: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
@@ -94,6 +93,8 @@ type
     Tv1Column14: TcxGridDBColumn;
     Tv1Column15: TcxGridDBColumn;
     Tv1Column16: TcxGridDBColumn;
+    Tv1Column17: TcxGridDBColumn;
+    Tv1Column18: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);

T02贸易汇总仓库/U_TradeSampleClothStkList.dfm

@@ -5,7 +5,6 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
   ClientHeight = 472
   ClientWidth = 1400
   Position = poDefault
-  ExplicitLeft = -241
   ExplicitWidth = 1416
   ExplicitHeight = 511
   PixelsPerInch = 96
@@ -77,6 +76,8 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
     Color = clWhite
     ParentBackground = False
     TabOrder = 1
+    ExplicitLeft = -1
+    ExplicitTop = 34
     object Label3: TLabel
       Left = 227
       Top = 11
@@ -99,16 +100,23 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
       Caption = #35268#26684
     end
     object Label2: TLabel
-      Left = 510
+      Left = 507
       Top = 11
       Width = 36
       Height = 12
       Caption = #25209'  '#21495
     end
+    object Label1: TLabel
+      Left = 646
+      Top = 10
+      Width = 36
+      Height = 12
+      Caption = #25195'  '#25551
+    end
     object C_name: TEdit
       Tag = 2
-      Left = 254
+      Left = 257
-      Top = 7
+      Top = 6
       Width = 100
       Height = 20
       TabOrder = 0
@@ -117,7 +125,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
     object FromCoName: TEdit
       Tag = 2
       Left = 113
-      Top = 6
+      Top = 7
       Width = 78
       Height = 20
       TabOrder = 1
@@ -141,17 +149,25 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
       TabOrder = 3
       OnChange = FromCoNameChange
     end
+    object BCIID: TEdit
+      Left = 688
+      Top = 6
+      Width = 106
+      Height = 20
+      TabOrder = 4
+      OnKeyPress = BCIIDKeyPress
+    end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
     Top = 74
-    Width = 1400
+    Width = 1082
     Height = 398
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 71
     object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
@@ -243,6 +259,13 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
         Options.Editing = False
         Width = 108
       end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #23384#25918#21333#20301
+        DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 95
+      end
       object v2Column1: TcxGridDBColumn
         Tag = 2
         Caption = #21697#21517
@@ -405,11 +428,60 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #22270#29255
+        DataBinding.FieldName = 'ISImg'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 54
+      end
+      object Tv1Column13: TcxGridDBColumn
+        DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
+        Visible = False
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1
     end
   end
+  object Panel9: TPanel [3]
+    Left = 1082
+    Top = 74
+    Width = 318
+    Height = 398
+    Align = alRight
+    Caption = 'Panel9'
+    TabOrder = 3
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 316
+      Height = 396
+      Align = alClient
+      Caption = 'Panel9'
+      TabOrder = 0
+      object GroupBox1: TGroupBox
+        Left = 1
+        Top = 1
+        Width = 314
+        Height = 394
+        Align = alClient
+        Caption = #26679#21697#32553#30053#22270
+        TabOrder = 0
+        object ScrollBox1: TScrollBox
+          Left = 2
+          Top = 14
+          Width = 310
+          Height = 378
+          Align = alClient
+          BevelInner = bvLowered
+          BorderStyle = bsNone
+          TabOrder = 0
+        end
+      end
+    end
+  end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradeTotalClothStk.ADOLink
     Left = 305
@@ -475,4 +547,25 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
       TextColor = clBlue
     end
   end
+  object ADOQuery1: TADOQuery
+    ConnectionString = 'BS_Cloth_IO'
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 536
+    Top = 184
+  end
+  object adoqueryPicture: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 648
+    Top = 192
+  end
+  object ADOQuery2: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 792
+    Top = 224
+  end
 end

T02贸易汇总仓库/U_TradeSampleClothStkList.pas

@@ -13,7 +13,7 @@ uses
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
   cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
-  dxScrollbarAnnotations;
+  dxScrollbarAnnotations, jpeg, Math, U_SLT;
 
 type
   TfrmTradeSampleClothStkList = class(TfrmBaseList)
@@ -65,6 +65,18 @@ type
     Tv1Column8: TcxGridDBColumn;
     Tv1Column9: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    BCIID: TEdit;
+    Label1: TLabel;
+    ADOQuery1: TADOQuery;
+    Panel9: TPanel;
+    Panel10: TPanel;
+    GroupBox1: TGroupBox;
+    ScrollBox1: TScrollBox;
+    Tv1Column12: TcxGridDBColumn;
+    adoqueryPicture: TADOQuery;
+    Tv1Column13: TcxGridDBColumn;
+    ADOQuery2: TADOQuery;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);
@@ -79,8 +91,11 @@ type
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure FormCreate(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure BCIIDKeyPress(Sender: TObject; var Key: Char);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   private
     procedure InitGrid();
+    procedure InitImage();
     { Private declarations }
   public
     FstkName: string;
@@ -89,6 +104,7 @@ type
 
 var
   frmTradeSampleClothStkList: TfrmTradeSampleClothStkList;
+  Mach: array of TfrmSlt;
 
 implementation
 
@@ -125,6 +141,7 @@ begin
       Close;
       sql.Clear;
       sql.Add(' select CBMoney=ISNULL(A.CBPrice,0)*ISNULL(A.stkqty,0),A.* ');
+      sql.Add(',IsImg=cast((case when (select COUNT(T.WBID) from TP_File T where T.FileType = ''YPCK'' and T.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) ');
       sql.Add(' from BS_Cloth_IO A    ');
       SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) ');
       sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@@ -138,9 +155,84 @@ begin
   end;
 end;
 
+procedure TfrmTradeSampleClothStkList.InitImage();
+var
+  i, j: integer;
+  jpg: TJpegImage;
+  myStream: TADOBlobStream;
+begin
+
+  j := length(Mach);
+  if j > 0 then
+  begin
+    for i := 0 to j - 1 do
+    begin
+      Mach[i].free;
+    end;
+  end;
+  SetLength(Mach, 0);
+  if CDS_Main.IsEmpty then
+    exit;
+  try
+    with adoqueryPicture do
+    begin
+      close;
+      sql.Clear;
+      sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A  ');
+      sql.add('where  A.WBID=' + quotedstr(trim(CDS_Main.fieldbyname('BCIOID').AsString)));
+      open;
+    end;
+    j := adoqueryPicture.RecordCount;
+    if j < 1 then
+      exit;
+    adoqueryPicture.DisableControls;
+    adoqueryPicture.First;
+    SetLength(Mach, j);
+    jpg := TJpegImage.Create();
+    for i := 0 to j - 1 do
+    begin
+      if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
+      begin
+        myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
+        jpg.LoadFromStream(myStream);
+        Mach[i] := TfrmSlt.Create(Self);
+        Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
+        Mach[i].Parent := ScrollBox1;
+//        Mach[i].Left := 0;
+        Mach[i].Top := 0 + i * 180;
+        Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
+      end;
+      adoqueryPicture.Next;
+    end;
+    adoqueryPicture.EnableControls;
+  finally
+    jpg.free;
+    application.ProcessMessages;
+  end;
+end;
+
 procedure TfrmTradeSampleClothStkList.TBRafreshClick(Sender: TObject);
 begin
   InitGrid();
+  InitImage();
+end;
+
+procedure TfrmTradeSampleClothStkList.BCIIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    with ADOQuery2 do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('select * from BS_Cloth_Info A where A.BCIID=''' + trim(BCIID.Text) + ''' ');
+//      showmessage(sql.text);
+      open;
+    end;
+
+    C_name.text := ADOQuery2.FieldByName('C_Name').ASString;
+  end;
+
 end;
 
 procedure TfrmTradeSampleClothStkList.ConNoMChange(Sender: TObject);
@@ -162,6 +254,7 @@ begin
   inherited;
   ReadCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
   InitGrid();
+  InitImage();
 end;
 
 procedure TfrmTradeSampleClothStkList.TBFindClick(Sender: TObject);
@@ -172,6 +265,7 @@ begin
     SCreateCDS(ADOQueryMain, CDS_Main);
     SInitCDSData(ADOQueryMain, CDS_Main);
   end;
+//  TBFind.Click
 end;
 
 procedure TfrmTradeSampleClothStkList.MPRTCodeNameChange(Sender: TObject);
@@ -211,5 +305,11 @@ begin
   ModalResult := 1;
 end;
 
+procedure TfrmTradeSampleClothStkList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+   InitImage();
+end;
+
 end.
 

T02贸易汇总仓库/U_TradeSampleClothStkSel.dfm

@@ -97,7 +97,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
       Caption = #21697#21517
     end
     object Label4: TLabel
-      Left = 51
+      Left = 27
       Top = 10
       Width = 48
       Height = 12
@@ -124,10 +124,23 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
       Height = 12
       Caption = #35745#21010#21333#21495
     end
+    object Label1: TLabel
+      Left = 729
+      Top = 10
+      Width = 26
+      Height = 12
+      Caption = #25195#25551
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object C_name: TEdit
       Tag = 2
       Left = 204
-      Top = 4
+      Top = 6
       Width = 100
       Height = 20
       TabOrder = 0
@@ -136,7 +149,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
     object FromCoName: TEdit
       Tag = 2
       Left = 81
-      Top = 4
+      Top = 6
       Width = 78
       Height = 20
       TabOrder = 1
@@ -169,17 +182,27 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
       TabOrder = 4
       OnChange = FromCoNameChange
     end
+    object BCIID: TEdit
+      Left = 761
+      Top = 6
+      Width = 106
+      Height = 20
+      TabOrder = 5
+      OnKeyPress = BCIIDKeyPress
+    end
   end
   object cxGrid2: TcxGrid [2]
     Left = 0
     Top = 74
-    Width = 1165
+    Width = 847
     Height = 398
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 70
+    ExplicitLeft = -2
+    ExplicitTop = 80
     object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
@@ -291,6 +314,13 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
         Options.Editing = False
         Width = 108
       end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
       object v2Column1: TcxGridDBColumn
         Tag = 2
         Caption = #21697#21517
@@ -440,11 +470,60 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
         HeaderAlignmentHorz = taCenter
         Width = 55
       end
+      object Tv1Column9: TcxGridDBColumn
+        DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #22270#29255
+        DataBinding.FieldName = 'IsImg'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
     end
     object cxGrid2Level1: TcxGridLevel
       GridView = Tv1
     end
   end
+  object Panel9: TPanel [3]
+    Left = 847
+    Top = 74
+    Width = 318
+    Height = 398
+    Align = alRight
+    Caption = 'Panel9'
+    TabOrder = 3
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 316
+      Height = 396
+      Align = alClient
+      Caption = 'Panel9'
+      TabOrder = 0
+      object GroupBox1: TGroupBox
+        Left = 1
+        Top = 1
+        Width = 314
+        Height = 394
+        Align = alClient
+        Caption = #26679#21697#32553#30053#22270
+        TabOrder = 0
+        object ScrollBox1: TScrollBox
+          Left = 2
+          Top = 14
+          Width = 310
+          Height = 378
+          Align = alClient
+          BevelInner = bvLowered
+          BorderStyle = bsNone
+          TabOrder = 0
+        end
+      end
+    end
+  end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradeTotalClothStk.ADOLink
     Left = 265
@@ -477,7 +556,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
   end
   object DataSource1: TDataSource
     DataSet = CDS_Main
-    Left = 552
+    Left = 576
     Top = 232
   end
   object cxGridPopupMenu1: TcxGridPopupMenu
@@ -488,7 +567,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
   object CDS_Main: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 584
+    Left = 632
     Top = 232
   end
   object CDS_HZ: TClientDataSet
@@ -521,4 +600,11 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
     object cxStyle2: TcxStyle
     end
   end
+  object adoqueryPicture: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 312
+    Top = 240
+  end
 end

T02贸易汇总仓库/U_TradeSampleClothStkSel.pas

@@ -13,7 +13,7 @@ uses
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
   cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
-  Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations;
+  Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations, jpeg, Math, U_SLT;
 
 type
   TfrmTradeSampleClothStkSel = class(TfrmBaseHelp)
@@ -72,6 +72,16 @@ type
     cxStyle2: TcxStyle;
     Tv1Column6: TcxGridDBColumn;
     Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Label1: TLabel;
+    BCIID: TEdit;
+    Tv1Column9: TcxGridDBColumn;
+    adoqueryPicture: TADOQuery;
+    Panel9: TPanel;
+    Panel10: TPanel;
+    GroupBox1: TGroupBox;
+    ScrollBox1: TScrollBox;
+    Tv1Column10: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);
@@ -87,8 +97,11 @@ type
     procedure ToolButton1Click(Sender: TObject);
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure ToolButton2Click(Sender: TObject);
+    procedure BCIIDKeyPress(Sender: TObject; var Key: Char);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   private
     procedure InitGrid();
+    procedure InitImage();
     { Private declarations }
   public
     FstkName: string;
@@ -97,6 +110,7 @@ type
 
 var
   frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel;
+  Mach: array of TfrmSlt;
 
 implementation
 
@@ -127,6 +141,7 @@ begin
       Close;
       sql.Clear;
       sql.Add(' select CBMoney=ISNULL(A.CBPrice,0)*ISNULL(A.stkqty,0),A.* ');
+       sql.Add(',IsImg=cast((case when (select COUNT(T.WBID) from TP_File T where T.FileType = ''YPCK'' and T.WBID=A.BCIOID)=0 then 0 else 1 end) as bit ) ');
       sql.Add(' from BS_Cloth_IO A    ');
       SQL.Add(' where A.IOFlag=''Èë¿â'' and (isnull(STkQty,0)>0 or isnull(StkPiece,0)>0) ');
       sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
@@ -139,9 +154,84 @@ begin
   end;
 end;
 
+procedure TfrmTradeSampleClothStkSel.InitImage();
+var
+  i, j: integer;
+  jpg: TJpegImage;
+  myStream: TADOBlobStream;
+begin
+
+  j := length(Mach);
+  if j > 0 then
+  begin
+    for i := 0 to j - 1 do
+    begin
+      Mach[i].free;
+    end;
+  end;
+  SetLength(Mach, 0);
+  if CDS_Main.IsEmpty then
+    exit;
+  try
+    with adoqueryPicture do
+    begin
+      close;
+      sql.Clear;
+      sql.Add(' select A.TFID,A.WBID,A.FilesOther,A.FileName from TP_File A  ');
+      sql.add('where  A.WBID=' + quotedstr(trim(CDS_Main.fieldbyname('BCIOID').AsString)));
+      open;
+    end;
+    j := adoqueryPicture.RecordCount;
+    if j < 1 then
+      exit;
+    adoqueryPicture.DisableControls;
+    adoqueryPicture.First;
+    SetLength(Mach, j);
+    jpg := TJpegImage.Create();
+    for i := 0 to j - 1 do
+    begin
+      if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
+      begin
+        myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
+        jpg.LoadFromStream(myStream);
+        Mach[i] := TfrmSlt.Create(Self);
+        Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
+        Mach[i].Parent := ScrollBox1;
+//        Mach[i].Left := 0;
+        Mach[i].Top := 0 + i * 180;
+        Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
+      end;
+      adoqueryPicture.Next;
+    end;
+    adoqueryPicture.EnableControls;
+  finally
+    jpg.free;
+    application.ProcessMessages;
+  end;
+end;
+
 procedure TfrmTradeSampleClothStkSel.TBRafreshClick(Sender: TObject);
 begin
   InitGrid();
+  InitImage();
+end;
+
+procedure TfrmTradeSampleClothStkSel.BCIIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    with ADOQueryTemp do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('select * from BS_Cloth_Info A where A.BCIID=''' + trim(BCIID.Text) + ''' ');
+//      showmessage(sql.text);
+      open;
+    end;
+
+    C_name.text := ADOQueryTemp.FieldByName('C_Name').ASString;
+  end;
+
 end;
 
 procedure TfrmTradeSampleClothStkSel.ConNoMChange(Sender: TObject);
@@ -163,6 +253,7 @@ begin
   inherited;
   ReadCxGrid(trim(self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
   InitGrid();
+  InitImage();
 end;
 
 procedure TfrmTradeSampleClothStkSel.TBFindClick(Sender: TObject);
@@ -222,5 +313,11 @@ begin
   ModalResult := 1;
 end;
 
+procedure TfrmTradeSampleClothStkSel.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  InitImage();
+end;
+
 end.
 

T04贸易明细仓库/U_DeliTradePlanSel.dfm

@@ -236,6 +236,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       PopupMenu = PopupMenu1
       OnDblClick = TV1DblClick
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_1
       DataController.Filter.AutoDataSetFilter = True
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -251,6 +252,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1Column7: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'Ssel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
@@ -259,6 +261,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object Tv1Column11: TcxGridDBColumn
         Caption = #23458#25143
         DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 80
@@ -266,6 +269,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1OrderNo: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -274,6 +278,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1ConNo: TcxGridDBColumn
         Caption = #21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -282,6 +287,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1DeliveryDate: TcxGridDBColumn
         Caption = #20132#36135#26085#26399
         DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
@@ -292,6 +298,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object Tv1Column4: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 80
@@ -299,17 +306,20 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object Tv1Column5: TcxGridDBColumn
         Caption = #24037#33402
         DataBinding.FieldName = 'Technics'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #21152#24037#21378
         DataBinding.FieldName = 'FtyName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 138
       end
       object v1OrdDefStr1: TcxGridDBColumn
         Caption = #20135#21697#32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -318,6 +328,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1MPRTCodeName: TcxGridDBColumn
         Caption = #20135#21697#21517#31216
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -326,6 +337,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1MPRTSpec: TcxGridDBColumn
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -334,6 +346,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object Tv1Column1: TcxGridDBColumn
         Caption = #25104#20998
         DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -341,6 +354,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1MPRTMF: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -349,6 +363,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1MPRTKZ: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -357,6 +372,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1PRTColor: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -365,6 +381,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1Column1: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -373,6 +390,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1Column6: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -381,28 +399,33 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1Column4: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'OrdPiece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 87
       end
       object Tv1Column10: TcxGridDBColumn
         Caption = #24037#24207#25968
         DataBinding.FieldName = 'GXS'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 53
       end
       object Tv1Column6: TcxGridDBColumn
         Caption = #23433#25490#25968#37327
         DataBinding.FieldName = 'PQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column7: TcxGridDBColumn
         Caption = #24453#23433#25490#25968
         DataBinding.FieldName = 'WPQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object v1PRTOrderQty: TcxGridDBColumn
         Caption = #35746#21333#25968#37327
         DataBinding.FieldName = 'OrdQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -411,6 +434,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1Column5: TcxGridDBColumn
         Caption = #25968#37327#21333#20301
         DataBinding.FieldName = 'OrdUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Focusing = False
@@ -419,6 +443,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object v1Column3: TcxGridDBColumn
         Caption = #20844#26020#25968
         DataBinding.FieldName = 'PRTOrderKgQty'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -427,6 +452,7 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object Tv1Column3: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'OrdSNote'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -434,24 +460,28 @@ inherited frmDeliTradePlanSel: TfrmDeliTradePlanSel
       object Tv1Column8: TcxGridDBColumn
         Caption = #24320#21305
         DataBinding.FieldName = 'KP'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 46
       end
       object Tv1Column9: TcxGridDBColumn
         Caption = #24320#21305#21333#20301
         DataBinding.FieldName = 'KPUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
       object Tv1Column12: TcxGridDBColumn
         Caption = #19994#21153#21592
         DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 59
       end
       object Tv1Column13: TcxGridDBColumn
         Caption = #21046#21333#20154
         DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 59
       end

T04贸易明细仓库/U_DeliTradePlanSel.pas

@@ -11,7 +11,7 @@ uses
   cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
   cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
   dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
-  cxCalendar, Vcl.Menus;
+  cxCalendar, Vcl.Menus, dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmDeliTradePlanSel = class(TfrmBaseHelp)

T04贸易明细仓库/U_GetDllForm.pas

@@ -80,7 +80,7 @@ begin
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
     Parameters1 := '管理';
     Parameters4 := '调整';
-    Parameters5 := '땐데';
+    Parameters5 := '¿â´æ';
     DName:='ADMIN';
   end
   else

T04贸易明细仓库/U_TradeClothOutEdit.dfm

@@ -2,6 +2,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
   Caption = #25104#21697#20986#24211#25195#25551
   ClientHeight = 632
   ClientWidth = 1350
+  ExplicitTop = -62
   ExplicitWidth = 1366
   ExplicitHeight = 671
   PixelsPerInch = 96
@@ -147,6 +148,12 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
           HeaderAlignmentHorz = taCenter
           Width = 52
         end
+        object Tv1Column5: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'Grade'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+        end
       end
       object cxGrid1Level1: TcxGridLevel
         GridView = Tv1
@@ -411,7 +418,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
         Caption = #22791#27880
       end
       object CRTime: TDateTimePicker
-        Left = 246
+        Left = 253
         Top = 51
         Width = 100
         Height = 20
@@ -422,13 +429,13 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit
       end
       object OutNo: TEdit
         Left = 72
-        Top = 50
+        Top = 51
         Width = 100
         Height = 20
         TabOrder = 1
       end
       object CRType: TComboBox
-        Left = 422
+        Left = 428
         Top = 51
         Width = 100
         Height = 20

T04贸易明细仓库/U_TradeClothOutEdit.pas

@@ -101,6 +101,7 @@ type
     Tv3Column4: TcxGridDBColumn;
     ToolButton5: TToolButton;
     IOPosition: TBtnEditC;
+    Tv1Column5: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -175,7 +176,7 @@ begin
   begin
     Close;
     sql.Clear;
-    sql.Add('select A.IOFlag,A.IONo,A.IOID,B.* from Trade_Cloth_IO A    ');
+    sql.Add('select A.IOFlag,A.IONo,A.IOID,A.StkType,B.* from Trade_Cloth_IO A    ');
     sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles   ');
     sql.Add('where A.IOFlag=''Èë¿â'' and B.StkExists=1 ');
     if TRIm(FSubIds) <> '' then

T04贸易明细仓库/U_TradeClothStkListNew.dfm

@@ -7,6 +7,8 @@
   FormStyle = fsMDIChild
   Position = poScreenCenter
   Visible = True
+  ExplicitLeft = -348
+  ExplicitTop = -5
   ExplicitWidth = 1556
   ExplicitHeight = 631
   PixelsPerInch = 96
@@ -167,6 +169,7 @@
         Color = clWhite
         ParentBackground = False
         TabOrder = 0
+        ExplicitTop = 2
         object Label4: TLabel
           Left = 195
           Top = 10
@@ -306,6 +309,45 @@
           Font.Style = [fsBold]
           ParentFont = False
         end
+        object Label15: TLabel
+          Left = 1054
+          Top = 24
+          Width = 106
+          Height = 20
+          Caption = #24211#40836#36229'90'#22825
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -20
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label16: TLabel
+          Left = 1216
+          Top = 24
+          Width = 106
+          Height = 20
+          Caption = #24211#40836#36229'12'#26376
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -20
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label17: TLabel
+          Left = 1379
+          Top = 24
+          Width = 106
+          Height = 20
+          Caption = #24211#40836#36229'18'#26376
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -20
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
         object DateTimePicker3: TDateTimePicker
           Left = 137
           Top = 132
@@ -513,6 +555,33 @@
           ParentFont = False
           TabOrder = 13
         end
+        object Panel3: TPanel
+          Left = 1158
+          Top = 13
+          Width = 49
+          Height = 41
+          Color = 11788021
+          ParentBackground = False
+          TabOrder = 14
+        end
+        object Panel4: TPanel
+          Left = 1324
+          Top = 14
+          Width = 49
+          Height = 41
+          Color = 42495
+          ParentBackground = False
+          TabOrder = 15
+        end
+        object Panel5: TPanel
+          Left = 1483
+          Top = 13
+          Width = 49
+          Height = 41
+          Color = clRed
+          ParentBackground = False
+          TabOrder = 16
+        end
       end
       object cxGrid2: TcxGrid
         Left = 0

T04贸易明细仓库/U_TradeClothStkListNew.pas

@@ -187,6 +187,12 @@ type
     StkType: TComboBox;
     TV2Column14: TcxGridDBColumn;
     Tv1Column17: TcxGridDBColumn;
+    Label15: TLabel;
+    Panel3: TPanel;
+    Label16: TLabel;
+    Panel4: TPanel;
+    Label17: TLabel;
+    Panel5: TPanel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -290,17 +296,17 @@ end;
 procedure TfrmTradeClothStkListNew.SetStatus();
 begin
   if cxPageControl1.ActivePageIndex = 1 then
-    begin
+  begin
 
-      ToolButton1.Visible := True;
+    ToolButton1.Visible := True;
-      ToolButton9.Visible := True;
+    ToolButton9.Visible := True;
-    end
+  end
-    else
+  else
-    begin
+  begin
 
-      ToolButton1.Visible := False;
+    ToolButton1.Visible := False;
-      ToolButton9.Visible := False;
+    ToolButton9.Visible := False;
-    end;
+  end;
 
 
 //     if canshu1 then
@@ -318,16 +324,17 @@ begin
       ToolButton8.Visible := False;
 
     end;
-  end else
+  end
+  else
   begin
-    TV2Column12.visible:=False;
+    TV2Column12.visible := False;
-    TV2Column12.VisibleForCustomization:=False;
+    TV2Column12.VisibleForCustomization := False;
-    TV2Column11.visible:=False;
+    TV2Column11.visible := False;
-    TV2Column11.VisibleForCustomization:=False;
+    TV2Column11.VisibleForCustomization := False;
-    TV1Column13.visible:=False;
+    TV1Column13.visible := False;
-    TV1Column14.visible:=False;
+    TV1Column14.visible := False;
-    TV1Column13.VisibleForCustomization:=False;
+    TV1Column13.VisibleForCustomization := False;
-    TV1Column14.VisibleForCustomization:=False;
+    TV1Column14.VisibleForCustomization := False;
   end;
 end;
 
@@ -369,6 +376,7 @@ begin
           Close;
           sql.Clear;
           sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()),  IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType');
+//          sql.Add(',Y_kl= DATEDIFF(YY,IOTime, GETDATE()),M_kl= DATEDIFF(MM,IOTime, GETDATE())');
           Sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price');
           sql.Add(',C_Code,Saleser,dbo.getNum(C_ColorNo) SHNO,C_ColorNo,ConNo,BuyConNo,FOrdNo');
           sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
@@ -479,6 +487,17 @@ begin
   canshu4 := Trim(Self.fParameters4);
 
   canshu5 := Trim(Self.fParameters5);
+  if Canshu5='订单' then
+  begin
+      Label15.Caption:='库龄超90天';
+      Label16.Caption:='库龄超12月';
+      Label17.Caption:='库龄超18月';
+  end else if Canshu5='库存' then
+  begin
+      Label15.Caption:='库龄超2年';
+      Label16.Caption:='库龄超3年';
+      Label17.Caption:='库龄超5年';
+  end;
   SetStatus();
   InitPage();
 end;
@@ -488,9 +507,9 @@ begin
   if ADOQueryMain.IsEmpty then
     exit;
   if cxPageControl1.ActivePageIndex = 1 then
-  TcxGridToExcel(Self.Caption, cxGrid1);
+    TcxGridToExcel(Self.Caption, cxGrid1);
   if cxPageControl1.ActivePageIndex = 0 then
-  TcxGridToExcel(Self.Caption, cxGrid2);
+    TcxGridToExcel(Self.Caption, cxGrid2);
 end;
 
 procedure TfrmTradeClothStkListNew.orderNoKeyPress(Sender: TObject; var Key: Char);
@@ -554,8 +573,23 @@ end;
 
 procedure TfrmTradeClothStkListNew.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
 begin
-  if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
+  if canshu5 = '订单' then
-    ACanvas.Brush.Color := $B3DEF5;
+  begin
+    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
+      ACanvas.Brush.Color := $B3DEF5;
+    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 365 then
+      ACanvas.Brush.Color := $00A5FF;
+    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 548 then
+      ACanvas.Brush.Color := $0000FF;
+  end else  if canshu5 = '库存' then
+  begin
+    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 730 then
+      ACanvas.Brush.Color := $B3DEF5;
+    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 1095 then
+      ACanvas.Brush.Color := $00A5FF;
+    if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 1825 then
+      ACanvas.Brush.Color := $0000FF;
+  end
 end;
 
 procedure TfrmTradeClothStkListNew.BTNPClick(Sender: TObject);

T04贸易明细仓库/U_TradeDeliveryRequest.dfm

@@ -8,7 +8,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
   FormStyle = fsMDIChild
   Position = poScreenCenter
   Visible = True
-  ExplicitLeft = -219
+  ExplicitTop = -220
   ExplicitWidth = 1469
   ExplicitHeight = 805
   PixelsPerInch = 96
@@ -156,9 +156,9 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
     Height = 434
     Align = alClient
     TabOrder = 3
-    ExplicitWidth = 1142
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       OnFocusedRecordChanged = Tv1FocusedRecordChanged
       DataController.DataSource = DataSource1
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -222,6 +222,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object v1Column4: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         Properties.MultiLine = True
@@ -232,18 +233,21 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object v1Column8: TcxGridDBColumn
         Caption = #30003#35831#21333#21495
         DataBinding.FieldName = 'DRMID'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 93
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #20986#24211#31867#22411
         DataBinding.FieldName = 'OutType'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 72
       end
       object v1OrdDate: TcxGridDBColumn
         Caption = #30331#35760#26085#26399
         DataBinding.FieldName = 'Filltime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
@@ -253,36 +257,42 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object v1Column27: TcxGridDBColumn
         Caption = #21457#36135#26085#26399
         DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 69
       end
       object v1Column10: TcxGridDBColumn
         Caption = #25910#36135#21333#20301
         DataBinding.FieldName = 'ToCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 124
       end
       object v1Column1: TcxGridDBColumn
         Caption = #30003#35831#20154
         DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object v1Column13: TcxGridDBColumn
         Caption = #23457#26680#20154
         DataBinding.FieldName = 'Chker'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 65
       end
       object v1Column17: TcxGridDBColumn
         Caption = #23457#26680#26085#26399
         DataBinding.FieldName = 'ChkTime'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object v1Column7: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged
         HeaderAlignmentHorz = taCenter
@@ -291,6 +301,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object Tv1Column2: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 82
@@ -298,6 +309,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object Tv1Column3: TcxGridDBColumn
         Caption = #30003#35831#21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 69
@@ -305,6 +317,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object Tv1Column4: TcxGridDBColumn
         Caption = #30003#35831#25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 75
@@ -312,6 +325,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object Tv1Column5: TcxGridDBColumn
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 42
@@ -319,6 +333,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object Tv1Column6: TcxGridDBColumn
         Caption = #21457#36135#21305#25968
         DataBinding.FieldName = 'DlyPiece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 72
@@ -326,6 +341,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object Tv1Column7: TcxGridDBColumn
         Caption = #21457#36135#25968#37327
         DataBinding.FieldName = 'DlyQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 86
@@ -346,7 +362,6 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
     Color = clWhite
     ParentBackground = False
     TabOrder = 1
-    ExplicitTop = 39
     object Label4: TLabel
       Left = 464
       Top = 15
@@ -543,7 +558,6 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
     Height = 8
     HotZoneClassName = 'TcxMediaPlayer9Style'
     AlignSplitter = salBottom
-    ExplicitTop = 307
   end
   object cxGrid2: TcxGrid [5]
     Left = 0
@@ -552,10 +566,9 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
     Height = 222
     Align = alBottom
     TabOrder = 5
-    ExplicitLeft = -1
-    ExplicitTop = 543
     object TV2: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_2
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -596,6 +609,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object cxGridDBColumn1: TcxGridDBColumn
         Caption = #21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -603,29 +617,34 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object TV2Column4: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object cxGridDBColumn2: TcxGridDBColumn
         Caption = #23458#25143#35746#21333#21495
-        DataBinding.FieldName = 'KHConno'
+        DataBinding.FieldName = 'BuyConNO'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 94
       end
       object cxGridDBColumn3: TcxGridDBColumn
         Caption = #20135#21697#32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 88
       end
       object v1Column6: TcxGridDBColumn
         Caption = #20135#21697#21517#31216
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 71
       end
       object cxGridDBColumn4: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -633,18 +652,21 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object cxGridDBColumn5: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
       object cxGridDBColumn6: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 71
       end
       object TV2Column5: TcxGridDBColumn
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
     end
@@ -659,9 +681,9 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
     Height = 434
     Align = alRight
     TabOrder = 6
-    ExplicitTop = 101
     object TV3: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_3
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -722,24 +744,28 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object cxGridDBColumn8: TcxGridDBColumn
         Caption = #21407#35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 87
       end
       object cxGridDBColumn10: TcxGridDBColumn
         Caption = #21407#20135#21697#32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 88
       end
       object cxGridDBColumn11: TcxGridDBColumn
         Caption = #21407#20135#21697#21517#31216
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 71
       end
       object cxGridDBColumn12: TcxGridDBColumn
         Caption = #21407#39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -747,36 +773,42 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest
       object cxGridDBColumn13: TcxGridDBColumn
         Caption = #21407#33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
       object cxGridDBColumn14: TcxGridDBColumn
         Caption = #21407#33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 71
       end
       object TV3Column1: TcxGridDBColumn
         Caption = #31859#25968
         DataBinding.FieldName = 'meter'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 47
       end
       object TV3Column2: TcxGridDBColumn
         Caption = #30721#25968
         DataBinding.FieldName = 'Yardage'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 47
       end
       object TV3Column3: TcxGridDBColumn
         Caption = #20928#37325
         DataBinding.FieldName = 'NetWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 47
       end
       object TV3Column4: TcxGridDBColumn
         Caption = #27611#37325
         DataBinding.FieldName = 'GrossWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 47
       end

T04贸易明细仓库/U_TradeDeliveryRequest.pas

@@ -12,7 +12,7 @@ uses
   RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
   cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
   dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList,
-  dxDateRanges;
+  dxDateRanges, dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmTradeDeliveryRequest = class(TfrmBaseList)
@@ -259,6 +259,7 @@ begin
 //        sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
 //      end;
       sql.Add(' order by  Filltime desc ');
+//      ShowMessage(sql.text);
       Open;
     end;
     SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));