11

A05基础资料管理/BaseInfo.dproj.local

@@ -4,8 +4,8 @@
     <Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
@@ -19,14 +19,14 @@
     <Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
   </Transactions>
 </BorlandProject>

B03基础物料仓库/U_BSPrtInEdit.dfm

@@ -21,7 +21,6 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
     Height = 512
     Align = alClient
     TabOrder = 0
-    ExplicitTop = 36
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

B03基础物料仓库/U_BSPrtInEdit.pas

@@ -426,8 +426,11 @@ begin
 end;
 
 procedure TfrmBSPrtInEdit.TbAdd2Click(Sender: TObject);
+//var
+//  i: Integer;
 begin
   inherited;
+//  i := CDS_Sub.RecordCount + 1;
   try
     frmGKManageSel := TfrmGKManageSel.Create(Application);
     with frmGKManageSel do
@@ -435,7 +438,14 @@ begin
       FSTKName := Self.FSTKName;
       if ShowModal = 1 then
       begin
-        with Self.CDS_Sub do
+        with CDS_HZ do
+        begin
+          First;
+          while not Eof do
+          begin
+            if CDS_HZ.FieldByName('SSel').AsBoolean then
+            begin
+              with CDS_Sub do
               begin
                 append;
                 FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
@@ -445,8 +455,14 @@ begin
                 FieldByName('P_Code').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKBH').value;
                 FieldByName('P_Name').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKKH').value;
                 FieldByName('P_Spec').Value := frmGKManageSel.CDS_HZ.fieldbyname('GKLength').value;
+//                FieldByName('Qty').Value := frmGKManageSel.CDS_HZ.fieldbyname('kcqty').value;
                 FieldByName('Style').Value := '¸ÖóØ';
               end;
+
+            end;
+            next;
+          end;
+        end;
       end;
     end;
   finally

B03基础物料仓库/U_GKManageSel.dfm

@@ -25,13 +25,13 @@ inherited frmGKManageSel: TfrmGKManageSel
     ParentColor = False
     ShowCaptions = True
     TabOrder = 3
-    ExplicitTop = 1
     object TBRafresh: TToolButton
       Left = 0
       Top = 0
       AutoSize = True
       Caption = #21047#26032
       ImageIndex = 1
+      Visible = False
       OnClick = TBRafreshClick
     end
     object TbFilter: TToolButton
@@ -42,10 +42,18 @@ inherited frmGKManageSel: TfrmGKManageSel
       ImageIndex = 0
       Visible = False
     end
-    object TBClose: TToolButton
+    object Select: TToolButton
       Left = 142
       Top = 0
       AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 12
+      OnClick = SelectClick
+    end
+    object TBClose: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
       Caption = #20851#38381
       ImageIndex = 7
       OnClick = TBCloseClick
@@ -60,7 +68,6 @@ inherited frmGKManageSel: TfrmGKManageSel
     PopupMenu = PopupMenu1
     TabOrder = 2
     ExplicitTop = 76
-    ExplicitHeight = 442
     object Tv2: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -95,9 +102,15 @@ inherited frmGKManageSel: TfrmGKManageSel
       OptionsCustomize.ColumnFiltering = False
       OptionsData.Deleting = False
       OptionsData.DeletingConfirmation = False
-      OptionsData.Editing = False
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
+      object Tv2SSel: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 50
+      end
       object Tv2Column4: TcxGridDBColumn
         Caption = #38050#31576#32534#21495
         DataBinding.FieldName = 'GKBH'
@@ -111,6 +124,7 @@ inherited frmGKManageSel: TfrmGKManageSel
         DataBinding.FieldName = 'JZBH'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Width = 100
       end
       object Tv2Column3: TcxGridDBColumn
@@ -118,6 +132,7 @@ inherited frmGKManageSel: TfrmGKManageSel
         DataBinding.FieldName = 'JZCH'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Width = 100
       end
       object Tv2Column5: TcxGridDBColumn
@@ -125,6 +140,7 @@ inherited frmGKManageSel: TfrmGKManageSel
         DataBinding.FieldName = 'GKKH'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Width = 124
       end
       object Tv2Column6: TcxGridDBColumn
@@ -132,6 +148,7 @@ inherited frmGKManageSel: TfrmGKManageSel
         DataBinding.FieldName = 'GKLength'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Width = 100
       end
       object Tv2Column10: TcxGridDBColumn
@@ -144,8 +161,10 @@ inherited frmGKManageSel: TfrmGKManageSel
       end
       object Tv2Column7: TcxGridDBColumn
         Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'kcqty'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
+        Options.Editing = False
         Width = 100
       end
     end
@@ -164,6 +183,7 @@ inherited frmGKManageSel: TfrmGKManageSel
     Color = clWhite
     ParentBackground = False
     TabOrder = 4
+    ExplicitTop = 32
     object Label1: TLabel
       Left = 13
       Top = 11

B03基础物料仓库/U_GKManageSel.pas

@@ -45,6 +45,8 @@ type
     Tv2Column5: TcxGridDBColumn;
     Tv2Column6: TcxGridDBColumn;
     Tv2Column7: TcxGridDBColumn;
+    Tv2SSel: TcxGridDBColumn;
+    Select: TToolButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -56,6 +58,7 @@ type
     procedure CustomerChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure MCNOPropertiesChange(Sender: TObject);
+    procedure SelectClick(Sender: TObject);
 
   private
     { Private declarations }
@@ -85,7 +88,9 @@ begin
     begin
       Close;
       SQL.Clear;
-      sql.Add(' select A.* from  BS_GK A  ');
+      sql.Add(' select A.* ');
+      sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname=''物料'')');
+      SQL.Add(' from  BS_GK A');
 //      showmessage(Sql.text);
       Open;
     end;
@@ -131,7 +136,7 @@ end;
 procedure TfrmGKManageSel.FormShow(Sender: TObject);
 begin
   inherited;
-  ReadCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
+//  ReadCxGrid(Trim(Self.Caption), Tv2, '钢筘信息选择');
   InitGrid();
 end;
 
@@ -140,8 +145,6 @@ begin
   InitGrid();
 end;
 
-
-
 procedure TfrmGKManageSel.cxTabControl1Change(Sender: TObject);
 begin
   InitGrid;
@@ -161,6 +164,17 @@ begin
   SelOKNo(CDS_HZ, False);
 end;
 
+procedure TfrmGKManageSel.SelectClick(Sender: TObject);
+begin
+  inherited;
+  if CDS_HZ.Locate('ssel', True, []) = False then
+  begin
+    Application.MessageBox('请选择数据！', '提示信息', MB_OK);
+    exit;
+  end;
+  ModalResult := 1;
+end;
+
 procedure TfrmGKManageSel.CustomerChange(Sender: TObject);
 begin
   TbFilter.Click;

B04采购计划管理/PurchasePlan.dproj.local

@@ -29,10 +29,10 @@
     <Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
@@ -42,20 +42,20 @@
     <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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.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.135,=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.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
-    <Transaction>2025/07/10 16:46:39.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
+    <Transaction>2025/07/10 16:46:39.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="..\..\D10SZKaiXiYa"/>

B04采购计划管理/U_GKManageSel.dfm

@@ -25,7 +25,6 @@ inherited frmGKManageSel: TfrmGKManageSel
     ParentColor = False
     ShowCaptions = True
     TabOrder = 3
-    ExplicitTop = 1
     object TBRafresh: TToolButton
       Left = 0
       Top = 0
@@ -67,7 +66,6 @@ inherited frmGKManageSel: TfrmGKManageSel
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 76
     object Tv2: TcxGridDBTableView
       OnDblClick = Tv2DblClick
       Navigator.Buttons.CustomButtons = <>
@@ -159,6 +157,7 @@ inherited frmGKManageSel: TfrmGKManageSel
       end
       object Tv2Column7: TcxGridDBColumn
         Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'kcqty'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 100
@@ -179,7 +178,6 @@ inherited frmGKManageSel: TfrmGKManageSel
     Color = clWhite
     ParentBackground = False
     TabOrder = 4
-    ExplicitTop = 23
     object Label1: TLabel
       Left = 13
       Top = 11

B04采购计划管理/U_GKManageSel.pas

@@ -89,7 +89,9 @@ begin
     begin
       Close;
       SQL.Clear;
-      sql.Add(' select A.* from  BS_GK A  ');
+      sql.Add(' select A.* ');
+      sql.Add(' ,kcqty=( select sum(e.IOQtyFlag*e.qty) from Bs_Product_IO e JOIN BS_GK a on e.p_code=a.GKBH where e.stkname=''ÎïÁÏ'')');
+      SQL.Add(' from  BS_GK A');
 //      showmessage(Sql.text);
       Open;
     end;

B04采购计划管理/U_YarnPurchasePlanPut.dfm

@@ -10,6 +10,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
   OldCreateOrder = True
   Position = poScreenCenter
   WindowState = wsMaximized
+  ExplicitLeft = -598
   ExplicitWidth = 1540
   ExplicitHeight = 690
   PixelsPerInch = 96

B04采购计划管理/U_YarnPurchasePlanPut.pas

@@ -1053,7 +1053,6 @@ begin
     frmGKManageSel := TfrmGKManageSel.Create(Application);
     with frmGKManageSel do
     begin
-
 //      FSTKName := Self.FSTKName;
       if ShowModal = 1 then
       begin