From 2a8919f3aa73dd7cd9e6938ffdc78af215441dd0 Mon Sep 17 00:00:00 2001 From: funa <1559646174@qq.com> Date: Tue, 27 Oct 2026 17:27:33 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BA=A7=E5=93=81=20=E5=9D=AF=E5=B8=83?= =?UTF-8?q?=E4=BB=93=E5=BA=93?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- A02基础产品管理/U_CraftInfoInput.dfm | 6 +++-- A02基础产品管理/U_CraftInfoInput.pas | 28 ++++++++++---------- A02基础产品管理/U_TatClothInfoInput.dfm | 34 +++++++++++++++++++++++-- A02基础产品管理/U_TatClothInfoInput.pas | 28 ++++++++++---------- E04梭织坯布仓库/TatClothStk.dproj | 3 +++ E04梭织坯布仓库/U_TatClothCKHZList.dfm | 6 ++++- E04梭织坯布仓库/U_TatClothCKHZList.pas | 2 +- E04梭织坯布仓库/U_TatClothOutList.dfm | 10 +++++++- E04梭织坯布仓库/U_TatClothOutList.pas | 1 + E04梭织坯布仓库/U_TatClothRKHZList.dfm | 22 ++++++++++++++++ E04梭织坯布仓库/U_TatClothRKHZList.pas | 8 +++--- 11 files changed, 112 insertions(+), 36 deletions(-) diff --git a/A02基础产品管理/U_CraftInfoInput.dfm b/A02基础产品管理/U_CraftInfoInput.dfm index 9dfdfc2..4c39442 100644 --- a/A02基础产品管理/U_CraftInfoInput.dfm +++ b/A02基础产品管理/U_CraftInfoInput.dfm @@ -681,7 +681,6 @@ object frmCraftInfoInput: TfrmCraftInfoInput DataBinding.FieldName = 'Y_Ratio' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = TV1YRatioPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 116 end @@ -689,6 +688,8 @@ object frmCraftInfoInput: TfrmCraftInfoInput Caption = #29992#37327 DataBinding.FieldName = 'Y_Qty' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1YQtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 66 end @@ -918,7 +919,6 @@ object frmCraftInfoInput: TfrmCraftInfoInput DataBinding.FieldName = 'Y_Ratio' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = Tv2YRatioPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Header = DataLink_ClothInfo.Default Width = 116 @@ -935,6 +935,8 @@ object frmCraftInfoInput: TfrmCraftInfoInput Caption = #29992#37327 DataBinding.FieldName = 'Y_Qty' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2YQtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 75 end diff --git a/A02基础产品管理/U_CraftInfoInput.pas b/A02基础产品管理/U_CraftInfoInput.pas index da3ba35..53b30dc 100644 --- a/A02基础产品管理/U_CraftInfoInput.pas +++ b/A02基础产品管理/U_CraftInfoInput.pas @@ -231,8 +231,8 @@ type procedure ToolButton5Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject); - procedure TV1YRatioPropertiesEditValueChanged(Sender: TObject); - procedure Tv2YRatioPropertiesEditValueChanged(Sender: TObject); + procedure TV1YQtyPropertiesEditValueChanged(Sender: TObject); + procedure Tv2YQtyPropertiesEditValueChanged(Sender: TObject); private { Private declarations } procedure InitGrid(); @@ -240,7 +240,7 @@ type function SaveData(): Boolean; procedure CALCYarnQty(); procedure CalcGramWeight(); - procedure SyncYRatioFromEditor(ACDS: TClientDataSet; Sender: TObject); + procedure SyncYQtyFromEditor(ACDS: TClientDataSet; Sender: TObject); public FCRID: string; { Public declarations } @@ -292,24 +292,24 @@ begin end; -procedure TfrmCraftInfoInput.SyncYRatioFromEditor(ACDS: TClientDataSet; Sender: TObject); +procedure TfrmCraftInfoInput.SyncYQtyFromEditor(ACDS: TClientDataSet; Sender: TObject); var MValue: Double; begin MValue := StrToFloatDef(Trim(TcxTextEdit(Sender).EditingText), -1); if MValue < 0 then Exit; - if ACDS.FieldByName('Y_Ratio').AsFloat <> MValue then + if ACDS.FieldByName('Y_Qty').AsFloat <> MValue then begin ACDS.Edit; - ACDS.FieldByName('Y_Ratio').AsFloat := MValue; + ACDS.FieldByName('Y_Qty').AsFloat := MValue; ACDS.Post; end; end; procedure TfrmCraftInfoInput.CalcGramWeight(); - function SumViewRatio(AView: TcxGridDBTableView; ARatioColumn: TcxGridDBColumn): Double; + function SumViewColumn(AView: TcxGridDBTableView; AColumn: TcxGridDBColumn): Double; var i: Integer; v: Variant; @@ -317,7 +317,7 @@ procedure TfrmCraftInfoInput.CalcGramWeight(); Result := 0; for i := 0 to AView.DataController.RecordCount - 1 do begin - v := AView.DataController.Values[i, ARatioColumn.Index]; + v := AView.DataController.Values[i, AColumn.Index]; if not VarIsNull(v) then Result := Result + v; end; @@ -325,18 +325,18 @@ procedure TfrmCraftInfoInput.CalcGramWeight(); begin C_GramWeight.Text := FormatFloat('0.######', - (SumViewRatio(TV1, cxGridDBColumn7) + SumViewRatio(Tv2, v2Column5)) / 1000); + (SumViewColumn(TV1, TV1Column1) + SumViewColumn(Tv2, Tv2Column1)) / 1000); end; -procedure TfrmCraftInfoInput.TV1YRatioPropertiesEditValueChanged(Sender: TObject); +procedure TfrmCraftInfoInput.TV1YQtyPropertiesEditValueChanged(Sender: TObject); begin - SyncYRatioFromEditor(CDS_1, Sender); + SyncYQtyFromEditor(CDS_1, Sender); CalcGramWeight(); end; -procedure TfrmCraftInfoInput.Tv2YRatioPropertiesEditValueChanged(Sender: TObject); +procedure TfrmCraftInfoInput.Tv2YQtyPropertiesEditValueChanged(Sender: TObject); begin - SyncYRatioFromEditor(CDS_2, Sender); + SyncYQtyFromEditor(CDS_2, Sender); CalcGramWeight(); end; @@ -704,6 +704,7 @@ procedure TfrmCraftInfoInput.ToolButton5Click(Sender: TObject); begin CR_Name.SetFocus; CALCYarnQty(); + CalcGramWeight(); end; procedure TfrmCraftInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char); @@ -739,6 +740,7 @@ procedure TfrmCraftInfoInput.ToolButton8Click(Sender: TObject); begin CR_Name.SetFocus; CALCYarnQty(); + CalcGramWeight(); end; procedure TfrmCraftInfoInput.ToolButton9Click(Sender: TObject); diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm index 98f0651..d332b66 100644 --- a/A02基础产品管理/U_TatClothInfoInput.dfm +++ b/A02基础产品管理/U_TatClothInfoInput.dfm @@ -843,6 +843,10 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet1: TcxTabSheet Caption = ' '#32463#32428#32433#21407#26009' ' ImageIndex = 0 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object Panel1: TPanel Left = 0 Top = 0 @@ -980,7 +984,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput DataBinding.FieldName = 'Y_Ratio' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = TV1YRatioPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 116 end @@ -988,6 +991,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput Caption = #29992#37327 DataBinding.FieldName = 'Y_Qty' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1YQtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 66 end @@ -1217,7 +1222,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput DataBinding.FieldName = 'Y_Ratio' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = Tv2YRatioPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Header = DataLink_ClothInfo.Default Width = 116 @@ -1234,6 +1238,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput Caption = #29992#37327 DataBinding.FieldName = 'Y_Qty' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2YQtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 75 end @@ -1334,6 +1340,10 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet2: TcxTabSheet Caption = ' '#32441#29256#22270' ' ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object Panel7: TPanel Left = 0 Top = 0 @@ -2391,6 +2401,10 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput Caption = ' '#36215#32508#24037#33402#21333' ' ImageIndex = 2 TabVisible = False + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object Panel8: TPanel Left = 0 Top = 0 @@ -2527,6 +2541,10 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput Caption = #31359#31576#27861 ImageIndex = 3 TabVisible = False + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object reed_weave_method: TMemo Left = 0 Top = 0 @@ -2546,6 +2564,10 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet5: TcxTabSheet Caption = #32463#32433#25490#21015 ImageIndex = 4 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object warp_arrange: TMemo Left = 0 Top = 0 @@ -2565,6 +2587,10 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet6: TcxTabSheet Caption = #32428#25490#21015 ImageIndex = 5 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object weft_arrange: TMemo Left = 0 Top = 0 @@ -2584,6 +2610,10 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet7: TcxTabSheet Caption = ' '#31359#32508#27861 ImageIndex = 6 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object Splitter1: TSplitter Left = 762 Top = 0 diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas index da1ecad..c558e28 100644 --- a/A02基础产品管理/U_TatClothInfoInput.pas +++ b/A02基础产品管理/U_TatClothInfoInput.pas @@ -275,8 +275,8 @@ type procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject); - procedure TV1YRatioPropertiesEditValueChanged(Sender: TObject); - procedure Tv2YRatioPropertiesEditValueChanged(Sender: TObject); + procedure TV1YQtyPropertiesEditValueChanged(Sender: TObject); + procedure Tv2YQtyPropertiesEditValueChanged(Sender: TObject); private canshu1: string; Fint: Integer; @@ -287,7 +287,7 @@ type function SaveData(): Boolean; procedure CALCYarnQty(); procedure CalcGramWeight(); - procedure SyncYRatioFromEditor(ACDS: TClientDataSet; Sender: TObject); + procedure SyncYQtyFromEditor(ACDS: TClientDataSet; Sender: TObject); { Private declarations } public FBCIID, FCTID: string; @@ -379,24 +379,24 @@ begin end; -procedure TfrmTatClothInfoInput.SyncYRatioFromEditor(ACDS: TClientDataSet; Sender: TObject); +procedure TfrmTatClothInfoInput.SyncYQtyFromEditor(ACDS: TClientDataSet; Sender: TObject); var MValue: Double; begin MValue := StrToFloatDef(Trim(TcxTextEdit(Sender).EditingText), -1); if MValue < 0 then Exit; - if ACDS.FieldByName('Y_Ratio').AsFloat <> MValue then + if ACDS.FieldByName('Y_Qty').AsFloat <> MValue then begin ACDS.Edit; - ACDS.FieldByName('Y_Ratio').AsFloat := MValue; + ACDS.FieldByName('Y_Qty').AsFloat := MValue; ACDS.Post; end; end; procedure TfrmTatClothInfoInput.CalcGramWeight(); - function SumViewRatio(AView: TcxGridDBTableView; ARatioColumn: TcxGridDBColumn): Double; + function SumViewColumn(AView: TcxGridDBTableView; AColumn: TcxGridDBColumn): Double; var i: Integer; v: Variant; @@ -404,7 +404,7 @@ procedure TfrmTatClothInfoInput.CalcGramWeight(); Result := 0; for i := 0 to AView.DataController.RecordCount - 1 do begin - v := AView.DataController.Values[i, ARatioColumn.Index]; + v := AView.DataController.Values[i, AColumn.Index]; if not VarIsNull(v) then Result := Result + v; end; @@ -412,18 +412,18 @@ procedure TfrmTatClothInfoInput.CalcGramWeight(); begin C_GramWeight.Text := FormatFloat('0.######', - (SumViewRatio(TV1, cxGridDBColumn7) + SumViewRatio(Tv2, v2Column5)) / 1000); + (SumViewColumn(TV1, TV1Column1) + SumViewColumn(Tv2, Tv2Column1)) / 1000); end; -procedure TfrmTatClothInfoInput.TV1YRatioPropertiesEditValueChanged(Sender: TObject); +procedure TfrmTatClothInfoInput.TV1YQtyPropertiesEditValueChanged(Sender: TObject); begin - SyncYRatioFromEditor(CDS_1, Sender); + SyncYQtyFromEditor(CDS_1, Sender); CalcGramWeight(); end; -procedure TfrmTatClothInfoInput.Tv2YRatioPropertiesEditValueChanged(Sender: TObject); +procedure TfrmTatClothInfoInput.Tv2YQtyPropertiesEditValueChanged(Sender: TObject); begin - SyncYRatioFromEditor(CDS_2, Sender); + SyncYQtyFromEditor(CDS_2, Sender); CalcGramWeight(); end; @@ -1090,6 +1090,7 @@ procedure TfrmTatClothInfoInput.ToolButton5Click(Sender: TObject); begin C_Name.SetFocus; CALCYarnQty(); + CalcGramWeight(); end; procedure TfrmTatClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char); @@ -1230,6 +1231,7 @@ procedure TfrmTatClothInfoInput.ToolButton8Click(Sender: TObject); begin C_Name.SetFocus; CALCYarnQty(); + CalcGramWeight(); end; procedure TfrmTatClothInfoInput.ToolButton9Click(Sender: TObject); diff --git a/E04梭织坯布仓库/TatClothStk.dproj b/E04梭织坯布仓库/TatClothStk.dproj index e56f606..2d1f4ec 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj +++ b/E04梭织坯布仓库/TatClothStk.dproj @@ -165,6 +165,9 @@
frmTatClothInfoSel
dfm + +
frmSalesContractSel
+ Cfg_2 diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index f215625..1ffcfe9 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -181,9 +181,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 143 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -251,6 +251,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -261,6 +262,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object Tv1Column3: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -268,6 +270,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object v1Column23: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'js' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -275,6 +278,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object v1Column10: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'stkMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index 69b821b..42b3a7f 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxSkinWXI, dxScrollbarAnnotations; type TfrmTatClothCKHZList = class(TfrmBaseList) diff --git a/E04梭织坯布仓库/U_TatClothOutList.dfm b/E04梭织坯布仓库/U_TatClothOutList.dfm index 8bb45a5..ae7025f 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.dfm +++ b/E04梭织坯布仓库/U_TatClothOutList.dfm @@ -604,13 +604,21 @@ inherited frmTatClothOutList: TfrmTatClothOutList Width = 76 end object Tv1ContractBuyName: TcxGridDBColumn - Caption = #23458#25143 + Caption = #21512#21516#23458#25143 DataBinding.FieldName = 'ContractBuyName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end + object Tv1DR_ToCoName: TcxGridDBColumn + Caption = #30003#35831#23458#25143 + DataBinding.FieldName = 'DR_ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end object v1Column1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' diff --git a/E04梭织坯布仓库/U_TatClothOutList.pas b/E04梭织坯布仓库/U_TatClothOutList.pas index 8c5c398..ce3b973 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.pas +++ b/E04梭织坯布仓库/U_TatClothOutList.pas @@ -112,6 +112,7 @@ type Tv1ContractBuyName: TcxGridDBColumn; Tv1in_latitude_batch_short: TcxGridDBColumn; Tv1in_longitude_batch_short: TcxGridDBColumn; + Tv1DR_ToCoName: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.dfm b/E04梭织坯布仓库/U_TatClothRKHZList.dfm index 58b622e..1fc2b18 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothRKHZList.dfm @@ -181,6 +181,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -248,6 +249,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -258,13 +260,23 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList object Tv1Column3: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end + object Tv1carno: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'carno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end object v1Column23: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'js' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -272,6 +284,7 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList object v1Column10: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'stkMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -279,9 +292,18 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList object Tv1Column1: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'StkYardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end + object Tv1StkNetWeight: TcxGridDBColumn + Caption = #37325#37327 + DataBinding.FieldName = 'StkNetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.pas b/E04梭织坯布仓库/U_TatClothRKHZList.pas index b85c777..4559b9d 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothRKHZList.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxSkinWXI, dxScrollbarAnnotations; type TfrmTatClothRKHZList = class(TfrmBaseList) @@ -48,6 +48,8 @@ type PM11: TMenuItem; N1: TMenuItem; Tv1Column1: TcxGridDBColumn; + Tv1carno: TcxGridDBColumn; + Tv1StkNetWeight: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -132,8 +134,8 @@ begin Close; sql.Clear; - sql.Add('select C_NAME,COUNT(*)JS,SUM(Meter)stkMeter,SUM(Yardage)StkYardage from V_Tat_Cloth_IO A where A.IOFlag = '''' ' + WSql); - sql.Add('group by C_NAME'); + sql.Add('select C_NAME,carno,COUNT(*)JS,SUM(Meter)stkMeter,SUM(Yardage)StkYardage,SUM(NetWeight)StkNetWeight from V_Tat_Cloth_IO A where A.IOFlag = '''' ' + WSql); + sql.Add('group by C_NAME,carno'); // showmessage(sql.text); Open;