供应商品名

T02贸易汇总仓库/U_ItemizedListInPut.dfm

@@ -125,6 +125,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
         Align = alClient
         PopupMenu = PopupMenu2
         TabOrder = 0
+        ExplicitTop = 2
         object Tv1: TcxGridDBTableView
           OnDblClick = Tv1DblClick
           OnMouseDown = Tv1MouseDown
@@ -223,6 +224,22 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
             HeaderAlignmentHorz = taCenter
             Width = 145
           end
+          object Tv1Column6: TcxGridDBColumn
+            Caption = #26579#21378#21697#21517
+            DataBinding.FieldName = 'C_GYSNAME'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxLookupComboBoxProperties'
+            Properties.KeyFieldNames = 'C_GYSNAME'
+            Properties.ListColumns = <
+              item
+                Caption = #26579#21378#21697#21517
+                FieldName = 'C_GYSNAME'
+              end>
+            Properties.ListSource = DS_RCPM
+            Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged
+            HeaderAlignmentHorz = taCenter
+            Width = 98
+          end
           object Tv1Column5: TcxGridDBColumn
             Caption = #33394#21495
             DataBinding.FieldName = 'C_ColorNo'
@@ -373,7 +390,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
     end
     object OopCoName: TcxButtonEdit
       Left = 114
-      Top = 45
+      Top = 46
       Properties.Buttons = <
         item
           Default = True
@@ -570,4 +587,16 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
     Left = 755
     Top = 340
   end
+  object DS_RCPM: TDataSource
+    DataSet = ADO_RCPM
+    Left = 744
+    Top = 427
+  end
+  object ADO_RCPM: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 722
+    Top = 270
+  end
 end

T02贸易汇总仓库/U_ItemizedListInPut.pas

@@ -80,6 +80,9 @@ type
     ADO_YS: TADOQuery;
     DS_YS: TDataSource;
     ToolButton5: TToolButton;
+    Tv1Column6: TcxGridDBColumn;
+    DS_RCPM: TDataSource;
+    ADO_RCPM: TADOQuery;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -106,6 +109,7 @@ type
     procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     procedure Tv1Column5PropertiesEditValueChanged(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
+    procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
   private
     FSCXDH: string;
     FShowKeyid: integer;
@@ -361,6 +365,14 @@ begin
     Open;
   end;
 
+  with ADO_RCPM do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('  SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP');
+    Open;
+  end;
+
   FShowKeyid := GlobalAddAtom('mykey_show');
 
 //  RegisterHotKey(handle, FShowKeyid, 0, VK_LEFT); //×ó
@@ -1017,6 +1029,26 @@ begin
   finally
     frmClothInfoSel.Free;
   end;
+  with ADOTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid   ');
+    sql.Add('where c_code=' + QuotedStr(CDS_1.FieldByName('C_Code').AsString));
+    sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
+
+    open;
+  end;
+  if ADOTemp.IsEmpty = false then
+  begin
+    with Self.CDS_1 do
+    begin
+      edit;
+      Fieldbyname('C_Name').AsString := trim(ADOTemp.Fieldbyname('C_GYSNAME').AsString);
+      Post;
+    end;
+
+  end;
 
 end;
 
@@ -1039,6 +1071,47 @@ begin
   end;
 end;
 
+procedure TfrmItemizedListInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+  mvalue := TcxTextEdit(Sender).EditingText;
+
+  with CDS_1 do
+  begin
+
+    Edit;
+    FieldByName(FFieldName).Value := Trim(mvalue);
+    Post;
+    ADO_rcPM.Locate('C_gysName', mvalue, []);
+    Edit;
+
+    Post;
+  end;
+
+  with ADOTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid   ');
+    sql.Add('where C_gysName=' + QuotedStr(CDS_1.FieldByName('C_gysName').AsString));
+    sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
+
+    open;
+  end;
+  if ADOTemp.IsEmpty = false then
+  begin
+    with Self.CDS_1 do
+    begin
+      edit;
+      Fieldbyname('C_Name').AsString := trim(ADOTemp.Fieldbyname('C_Name').AsString);
+      Post;
+    end;
+
+  end;
+end;
+
 procedure TfrmItemizedListInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject);
 var
   mvalue, FFieldName: string;
@@ -1059,6 +1132,27 @@ begin
     Post;
   end;
 
+  with ADOTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add(' select * from bs_cloth_info a inner join BS_Cloth_Info_GYSCP b on a.bciid=b.bciid   ');
+    sql.Add('where c_name=' + QuotedStr(CDS_1.FieldByName('C_name').AsString));
+    sql.Add('and factoryname=' + QuotedStr(OopCoName.Text));
+
+    open;
+  end;
+  if ADOTemp.IsEmpty = false then
+  begin
+    with Self.CDS_1 do
+    begin
+      edit;
+      Fieldbyname('C_GYSNAME').AsString := trim(ADOTemp.Fieldbyname('C_GYSNAME').AsString);
+      Post;
+    end;
+
+  end;
+
 end;
 
 procedure TfrmItemizedListInPut.Tv1DblClick(Sender: TObject);