From 5383037be5b97adf8b688ef42bc7f6188541aebb Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 6 Mar 2025 17:34:17 +0800 Subject: [PATCH] =?UTF-8?q?=E5=BA=93=E5=AD=98=E6=9F=A5=E8=AF=A2=E8=B0=83?= =?UTF-8?q?=E6=95=B4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- A02基础产品管理/U_ClothTypeSel.dfm | 1 + A02基础产品管理/U_ClothTypeSel.pas | 2 +- T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm | 1 - T02贸易汇总仓库/U_ClothScheduleList.dfm | 13 +- T02贸易汇总仓库/U_ItemizedListList.dfm | 1 - T02贸易汇总仓库/U_TradeClothTotalInList.dfm | 1 - T02贸易汇总仓库/U_TradeClothTotalOutList.dfm | 6 + T02贸易汇总仓库/U_TradeClothTotalStkList.dfm | 23 +- T02贸易汇总仓库/U_TradeClothTotalStkList.pas | 26 +- T02贸易汇总仓库/U_TradeDeliveryRequest.dfm | 1 - T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm | 1273 +++++++++--------- T02贸易汇总仓库/U_TradeTotallClothStkSel.pas | 174 ++- T05贸易门市管理/U_TradeDispatchedList.dfm | 2 + T05贸易门市管理/U_TradeDispatchedList.pas | 3 +- 14 files changed, 837 insertions(+), 690 deletions(-) diff --git a/A02基础产品管理/U_ClothTypeSel.dfm b/A02基础产品管理/U_ClothTypeSel.dfm index f13abe1..41e618d 100644 --- a/A02基础产品管理/U_ClothTypeSel.dfm +++ b/A02基础产品管理/U_ClothTypeSel.dfm @@ -35,6 +35,7 @@ object frmClothTypeSel: TfrmClothTypeSel OptionsView.CellAutoHeight = True OptionsView.Headers = False RootValue = -1 + ScrollbarAnnotations.CustomAnnotations = <> TabOrder = 0 OnDblClick = cxDBTreeList1DblClick object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn diff --git a/A02基础产品管理/U_ClothTypeSel.pas b/A02基础产品管理/U_ClothTypeSel.pas index aac5e63..8828c22 100644 --- a/A02基础产品管理/U_ClothTypeSel.pas +++ b/A02基础产品管理/U_ClothTypeSel.pas @@ -7,7 +7,7 @@ uses Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxControls, cxTLData, DB, ADODB, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, - dxSkinsDefaultPainters; + dxSkinsDefaultPainters, dxSkinsCore, cxFilter, dxScrollbarAnnotations; type TfrmClothTypeSel = class(TForm) diff --git a/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm b/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm index 39ff30d..466a9df 100644 --- a/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm +++ b/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm @@ -7,7 +7,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild - Visible = True ExplicitWidth = 1751 ExplicitHeight = 683 PixelsPerInch = 96 diff --git a/T02贸易汇总仓库/U_ClothScheduleList.dfm b/T02贸易汇总仓库/U_ClothScheduleList.dfm index 18e541c..b2b3b5e 100644 --- a/T02贸易汇总仓库/U_ClothScheduleList.dfm +++ b/T02贸易汇总仓库/U_ClothScheduleList.dfm @@ -7,7 +7,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild - Visible = True ExplicitWidth = 1536 ExplicitHeight = 764 PixelsPerInch = 96 @@ -531,6 +530,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxTabSheet2: TcxTabSheet Caption = ' '#37197#24067#25968#25454' ' ImageIndex = 1 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid2: TcxGrid Left = 0 Top = 0 @@ -891,6 +893,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxTabSheet1: TcxTabSheet Caption = ' '#23436#24037#21450#25220#30721#25968#25454' ' ImageIndex = 2 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid4: TcxGrid Left = 0 Top = 0 @@ -1106,6 +1111,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxTabSheet4: TcxTabSheet Caption = #38754#26009#20986#24211 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid5: TcxGrid Left = 0 Top = 0 @@ -1300,6 +1308,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxTabSheet5: TcxTabSheet Caption = #29983#20135#22791#27880 ImageIndex = 4 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid6: TcxGrid Tag = 2 Left = 0 diff --git a/T02贸易汇总仓库/U_ItemizedListList.dfm b/T02贸易汇总仓库/U_ItemizedListList.dfm index f19e025..f1a693e 100644 --- a/T02贸易汇总仓库/U_ItemizedListList.dfm +++ b/T02贸易汇总仓库/U_ItemizedListList.dfm @@ -8,7 +8,6 @@ inherited frmItemizedListList: TfrmItemizedListList Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter - Visible = True ExplicitWidth = 1789 ExplicitHeight = 775 PixelsPerInch = 96 diff --git a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm index a26fb8f..2c6a2ad 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalInList.dfm +++ b/T02贸易汇总仓库/U_TradeClothTotalInList.dfm @@ -7,7 +7,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild - Visible = True ExplicitWidth = 1556 ExplicitHeight = 593 PixelsPerInch = 96 diff --git a/T02贸易汇总仓库/U_TradeClothTotalOutList.dfm b/T02贸易汇总仓库/U_TradeClothTotalOutList.dfm index 7e1d846..29676c9 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalOutList.dfm +++ b/T02贸易汇总仓库/U_TradeClothTotalOutList.dfm @@ -860,6 +860,12 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList GridView = Tv1 end end + inherited loadProcess: TPanel + Left = 888 + Top = 296 + ExplicitLeft = 888 + ExplicitTop = 296 + end inherited cxProgressBar2: TcxProgressBar Left = 721 Top = 398 diff --git a/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm b/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm index 7f7c82f..c441aaf 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm +++ b/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm @@ -8,7 +8,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList Font.Height = -16 FormStyle = fsMDIChild Position = poDefault - Visible = True ExplicitWidth = 1420 ExplicitHeight = 554 PixelsPerInch = 96 @@ -89,28 +88,28 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList ParentColor = True TabOrder = 3 object Label3: TLabel - Left = 50 + Left = 28 Top = 18 Width = 32 Height = 21 Caption = #21697#21517 end object Label4: TLabel - Left = 651 + Left = 598 Top = 18 Width = 64 Height = 21 Caption = #26469#33258#21333#20301 end object Label2: TLabel - Left = 441 + Left = 408 Top = 18 Width = 32 Height = 21 Caption = #39068#33394 end object Label6: TLabel - Left = 240 + Left = 218 Top = 18 Width = 32 Height = 21 @@ -118,7 +117,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList end object C_name: TcxTextEdit Tag = 2 - Left = 86 + Left = 64 Top = 14 Properties.OnChange = FromCoNamePropertiesChange TabOrder = 0 @@ -127,7 +126,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList end object FromCoName: TcxTextEdit Tag = 2 - Left = 719 + Left = 666 Top = 14 Properties.OnChange = FromCoNamePropertiesChange TabOrder = 1 @@ -136,7 +135,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList end object C_Color: TcxTextEdit Tag = 2 - Left = 477 + Left = 444 Top = 14 Properties.OnChange = FromCoNamePropertiesChange TabOrder = 2 @@ -145,7 +144,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList end object C_ColorNo: TcxTextEdit Tag = 2 - Left = 276 + Left = 254 Top = 14 Properties.OnChange = FromCoNamePropertiesChange TabOrder = 3 @@ -170,6 +169,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 5 + OnChange = cxPageControl1Change ClientRectBottom = 426 ClientRectRight = 1404 ClientRectTop = 32 @@ -328,9 +328,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList object cxTabSheet2: TcxTabSheet Caption = #20135#21697#26126#32454 ImageIndex = 1 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 211 object cxGrid1: TcxGrid Left = 0 Top = 0 @@ -339,8 +336,6 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 - ExplicitLeft = -464 - ExplicitTop = -26 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/T02贸易汇总仓库/U_TradeClothTotalStkList.pas b/T02贸易汇总仓库/U_TradeClothTotalStkList.pas index 20c826c..7d61f96 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalStkList.pas +++ b/T02贸易汇总仓库/U_TradeClothTotalStkList.pas @@ -125,6 +125,7 @@ type procedure FromCoNameKeyPress(Sender: TObject; var Key: Char); procedure ToolButton3Click(Sender: TObject); procedure TV2DblClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); private procedure InitGrid(); procedure InitGrid1(); @@ -152,6 +153,17 @@ begin frmTradeClothTotalStkList := nil; end; +procedure TfrmTradeClothTotalStkList.cxPageControl1Change(Sender: TObject); +begin + case cxPageControl1.ActivePageIndex of + 1: + begin + InitGrid1(); + end; + end; + +end; + procedure TfrmTradeClothTotalStkList.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; @@ -201,6 +213,7 @@ begin SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit'; +// ShowMessage(SqlStr); InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code'); end; @@ -244,15 +257,17 @@ end; procedure TfrmTradeClothTotalStkList.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(trim(Self.Caption), Tv1, 'ó׻ֿܲ'); + + ReadCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'ó׻ֿܲ'); + ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'ó׻ֿܲ'); canshu4 := Trim(self.fParameters4); - InitGrid(); + InitGrid2(); end; procedure TfrmTradeClothTotalStkList.FromCoNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then - InitGrid(); + TBFind.Click; end; procedure TfrmTradeClothTotalStkList.FromCoNamePropertiesChange(Sender: TObject); @@ -296,7 +311,8 @@ end; procedure TfrmTradeClothTotalStkList.ToolButton2Click(Sender: TObject); begin - WriteCxGrid(trim(Self.Caption), Tv1, 'ó׻ֿܲ'); + WriteCxGrid(trim(Self.Caption) + 'Tv1', Tv1, 'ó׻ֿܲ'); + WriteCxGrid(trim(Self.Caption) + 'Tv2', Tv2, 'ó׻ֿܲ'); end; procedure TfrmTradeClothTotalStkList.ToolButton3Click(Sender: TObject); @@ -330,7 +346,7 @@ end; procedure TfrmTradeClothTotalStkList.TV2DblClick(Sender: TObject); begin cxPageControl1.ActivePageIndex := 1; - InitGrid1(); + end; end. diff --git a/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm b/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm index d1785bb..672bc4a 100644 --- a/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm +++ b/T02贸易汇总仓库/U_TradeDeliveryRequest.dfm @@ -9,7 +9,6 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter - Visible = True ExplicitWidth = 1595 ExplicitHeight = 780 PixelsPerInch = 96 diff --git a/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm b/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm index 50ef062..1aea56f 100644 --- a/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm +++ b/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm @@ -81,7 +81,7 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel Left = 0 Top = 30 Width = 1266 - Height = 89 + Height = 43 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -89,653 +89,694 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel ParentColor = True TabOrder = 1 object Label3: TLabel - Left = 273 - Top = 13 + Left = 17 + Top = 10 Width = 32 Height = 21 Caption = #21697#21517 end object Label4: TLabel - Left = 19 - Top = 13 + Left = 587 + Top = 10 Width = 64 Height = 21 Caption = #26469#33258#21333#20301 end - object Label8: TLabel - Left = 506 - Top = 13 - Width = 32 - Height = 21 - Caption = #35268#26684 - end - object Label2: TLabel - Left = 506 - Top = 50 - Width = 32 - Height = 21 - Caption = #25209#21495 - end - object Label1: TLabel - Left = 19 - Top = 50 - Width = 32 - Height = 21 - Caption = #24067#31181 - end object Label5: TLabel - Left = 273 - Top = 50 - Width = 48 + Left = 397 + Top = 10 + Width = 32 Height = 21 - Caption = #21152#24037#21035 + Caption = #39068#33394 end object Label6: TLabel - Left = 735 - Top = 13 + Left = 207 + Top = 10 Width = 32 Height = 21 - Caption = #32568#21495 - end - object Label7: TLabel - Left = 735 - Top = 50 - Width = 48 - Height = 21 - Caption = #21512#21516#21495 + Caption = #33394#21495 end object C_name: TcxTextEdit Tag = 2 - Left = 323 - Top = 9 - Properties.OnChange = FromCoNamePropertiesChange + Left = 53 + Top = 6 TabOrder = 0 OnKeyPress = FromCoNameKeyPress Width = 150 end object FromCoName: TcxTextEdit Tag = 2 - Left = 87 - Top = 9 - Properties.OnChange = FromCoNamePropertiesChange + Left = 655 + Top = 6 TabOrder = 1 OnKeyPress = FromCoNameKeyPress Width = 150 end - object C_spec: TcxTextEdit + object C_Color: TcxTextEdit Tag = 2 - Left = 542 - Top = 9 - Properties.OnChange = FromCoNamePropertiesChange + Left = 433 + Top = 6 TabOrder = 2 OnKeyPress = FromCoNameKeyPress Width = 150 end - object BatchNo: TcxTextEdit + object C_ColorNo: TcxTextEdit Tag = 2 - Left = 542 - Top = 46 - Properties.OnChange = FromCoNamePropertiesChange + Left = 243 + Top = 6 TabOrder = 3 OnKeyPress = FromCoNameKeyPress Width = 150 end - object GC_Name: TcxTextEdit - Tag = 2 - Left = 87 - Top = 46 - Properties.OnChange = FromCoNamePropertiesChange - TabOrder = 4 - OnKeyPress = FromCoNameKeyPress - Width = 150 - end - object CraftCode: TcxTextEdit - Tag = 2 - Left = 323 - Top = 46 - Properties.OnChange = FromCoNamePropertiesChange - TabOrder = 5 - OnKeyPress = FromCoNameKeyPress - Width = 150 - end - object FtyPCId: TcxTextEdit - Tag = 2 - Left = 805 - Top = 9 - Properties.OnChange = FromCoNamePropertiesChange - TabOrder = 6 - OnKeyPress = FromCoNameKeyPress - Width = 150 - end - object FromConNo: TcxTextEdit - Tag = 2 - Left = 805 - Top = 46 - Properties.OnChange = FromCoNamePropertiesChange - TabOrder = 7 - OnKeyPress = FromCoNameKeyPress - Width = 150 - end end - object cxGrid1: TcxGrid [2] + object cxPageControl1: TcxPageControl [2] Left = 0 - Top = 119 + Top = 73 Width = 1266 - Height = 371 + Height = 417 Align = alClient - PopupMenu = PopupMenu1 TabOrder = 2 - object Tv1: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = < - item - Kind = skSum - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = < - item - Kind = skCount + Properties.ActivePage = cxTabSheet1 + Properties.CustomButtons.Buttons = <> + Properties.Style = 5 + OnChange = cxPageControl1Change + ClientRectBottom = 417 + ClientRectRight = 1266 + ClientRectTop = 32 + object cxTabSheet1: TcxTabSheet + Caption = ' '#20135#21697#27719#24635' ' + ImageIndex = 0 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1266 + Height = 385 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV2: TcxGridDBTableView + OnDblClick = TV2DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + Column = cxGridDBColumn15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + OptionsView.IndicatorWidth = 40 + object cxGridDBColumn14: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn9: 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 = 69 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'StkPieceint' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object cxGridDBColumn16: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'StkQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'C_Degree' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object cxGridDBColumn17: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end end - item - Kind = skSum + object cxGridLevel1: TcxGridLevel + GridView = TV2 end - item - Kind = skSum - Column = v2Column6 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = v1Column15 - end - item - Kind = skCount - Column = Tv1Column36 - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 40 - object Tv1Column33: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'ssel' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 44 - end - object Tv1Column13: TcxGridDBColumn - Caption = #35745#21010#21333#21495 - DataBinding.FieldName = 'FromOrdNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column37: TcxGridDBColumn - Caption = #20837#24211#21333#21495 - DataBinding.FieldName = 'BCIONO' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 97 - end - object v1Column6: TcxGridDBColumn - Caption = #20837#24211#26465#30721 - DataBinding.FieldName = 'BCIOID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 151 - end - object v1Column2: TcxGridDBColumn - Tag = 2 - Caption = #20837#24211#26102#38388 - DataBinding.FieldName = 'ioTime' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxDateEditProperties' - Properties.SaveTime = False - Properties.ShowTime = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column4: TcxGridDBColumn - Tag = 2 - Caption = #20837#24211#31867#22411 - DataBinding.FieldName = 'IOType' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxComboBoxProperties' - Properties.DropDownListStyle = lsFixedList - Properties.Items.Strings = ( - #27491#24120#20837#24211 - #29983#20135#36864#22238 - #26399#21021#20837#24211) - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column14: TcxGridDBColumn - Tag = 2 - Caption = #26469#33258#21333#20301 - DataBinding.FieldName = 'FromCoName' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Alignment.Horz = taLeftJustify - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column11: TcxGridDBColumn - Caption = #37319#36141#21333#21495 - DataBinding.FieldName = 'FromPurNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column20: TcxGridDBColumn - Caption = #33521#25991#21697#21517 - DataBinding.FieldName = 'C_EName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v2Column1: TcxGridDBColumn - Tag = 2 - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column8: TcxGridDBColumn - Tag = 2 - Caption = #35268#26684 - DataBinding.FieldName = 'C_Spec' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - HeaderGlyphAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column4: TcxGridDBColumn - Caption = #32568#21495 - DataBinding.FieldName = 'FtyPCId' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column13: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column11: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column6: TcxGridDBColumn - Caption = #32534#21495 - DataBinding.FieldName = 'C_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column15: TcxGridDBColumn - Caption = #24211#23384#21305#25968 - DataBinding.FieldName = 'StkPieceint' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v2Column6: TcxGridDBColumn - Tag = 2 - Caption = #24211#23384#25968#37327 - DataBinding.FieldName = 'StkQty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column3: TcxGridDBColumn - Tag = 2 - Caption = #21333#20301 - DataBinding.FieldName = 'QtyUnit' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxComboBoxProperties' - Properties.DropDownListStyle = lsFixedList - Properties.Items.Strings = ( - 'Kg' - 'M' - 'Y') - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column5: TcxGridDBColumn - Tag = 2 - Caption = #24211#20301 - DataBinding.FieldName = 'StkPosition' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column19: TcxGridDBColumn - Caption = #21512#21516#21495 - DataBinding.FieldName = 'FromConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column19: TcxGridDBColumn - Caption = #36710#38388 - DataBinding.FieldName = 'Workshop' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column12: TcxGridDBColumn - Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object v1Column20: TcxGridDBColumn - Caption = #19994#21153#21592 - DataBinding.FieldName = 'Saleser' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column3: TcxGridDBColumn - Caption = #33394#21035 - DataBinding.FieldName = 'C_ColorDepth' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column5: TcxGridDBColumn - Caption = #30721#23610 - DataBinding.FieldName = 'Yardstick' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column1: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'C_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column21: TcxGridDBColumn - Caption = #33521#25991#39068#33394 - DataBinding.FieldName = 'C_EColor' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column2: TcxGridDBColumn - Caption = #33394#21495 - DataBinding.FieldName = 'C_ColorNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column10: TcxGridDBColumn - Caption = #27454#21495 - DataBinding.FieldName = 'C_StyleNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column7: TcxGridDBColumn - Caption = #31867#22411 - DataBinding.FieldName = 'C_Degree' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column8: TcxGridDBColumn - Caption = #33457#22411 - DataBinding.FieldName = 'C_Pattern' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column9: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'C_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column12: TcxGridDBColumn - Caption = #38468#20214 - DataBinding.FieldName = 'FJFlag' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column27: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column14: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column15: TcxGridDBColumn - Caption = #30331#35760#20154 - DataBinding.FieldName = 'Filler' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column16: TcxGridDBColumn - Caption = #30331#35760#26102#38388 - DataBinding.FieldName = 'Filltime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column17: TcxGridDBColumn - Caption = #20462#25913#20154 - DataBinding.FieldName = 'Editer' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column18: TcxGridDBColumn - Caption = #20462#25913#26102#38388 - DataBinding.FieldName = 'Edittime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column22: TcxGridDBColumn - Caption = #31867#22411 - DataBinding.FieldName = 'C_Degree' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column25: TcxGridDBColumn - Caption = #24067#31181 - DataBinding.FieldName = 'GC_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column28: TcxGridDBColumn - Caption = #22383#24067#20379#24212#21830 - DataBinding.FieldName = 'GCFtyName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 44 - end - object Tv1Column24: TcxGridDBColumn - Caption = #21518#25972#29702#33521#25991 - DataBinding.FieldName = 'CraftEName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column26: TcxGridDBColumn - Caption = #21518#25972#29702#20013#25991 - DataBinding.FieldName = 'CraftName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column23: TcxGridDBColumn - Caption = #21152#24037#21035 - DataBinding.FieldName = 'CraftCode' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column29: TcxGridDBColumn - Caption = #21512#24182#21333#21495 - DataBinding.FieldName = 'FromMasterOrdNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column30: TcxGridDBColumn - Caption = #35843#20986#21512#24182#21333#21495 - DataBinding.FieldName = 'SupMasterOrdNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column31: TcxGridDBColumn - Caption = #35843#20986#35745#21010#21333#21495 - DataBinding.FieldName = 'SupConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column32: TcxGridDBColumn - Caption = #35843#20986#21512#21516#21495 - DataBinding.FieldName = 'SupConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column34: TcxGridDBColumn - Caption = #20928#37325 - DataBinding.FieldName = 'QtyKgNet' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column35: TcxGridDBColumn - Caption = #27611#37325 - DataBinding.FieldName = 'QtyKgGross' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 44 - end - object Tv1Column36: TcxGridDBColumn - Caption = #21367#21495 - DataBinding.FieldName = 'PieceNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 61 end end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 + object cxTabSheet2: TcxTabSheet + Caption = #20135#21697#26126#32454 + ImageIndex = 1 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1266 + Height = 385 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + 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 + end + item + Kind = skSum + end + item + Kind = skCount + Column = Tv1Column36 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + OptionsView.IndicatorWidth = 40 + object Tv1Column33: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 55 + end + object Tv1Column13: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#21333#20301 + DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object Tv1Column11: TcxGridDBColumn + Caption = #37319#36141#21333#21495 + DataBinding.FieldName = 'FromPurNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv1Column6: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + 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 = 55 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column13: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column11: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column15: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'StkPieceint' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'StkQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column19: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'FromConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column19: TcxGridDBColumn + Caption = #36710#38388 + DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object v1Column20: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column3: TcxGridDBColumn + Caption = #33394#21035 + DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column5: TcxGridDBColumn + Caption = #30721#23610 + DataBinding.FieldName = 'Yardstick' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column21: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'C_EColor' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column2: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column10: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column7: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'C_Degree' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column9: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column12: TcxGridDBColumn + Caption = #38468#20214 + DataBinding.FieldName = 'FJFlag' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column27: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column15: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column16: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column17: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'Editer' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column18: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'Edittime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column22: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'C_Degree' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column25: TcxGridDBColumn + Caption = #24067#31181 + DataBinding.FieldName = 'GC_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column28: TcxGridDBColumn + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'GCFtyName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 55 + end + object Tv1Column29: TcxGridDBColumn + Caption = #21512#24182#21333#21495 + DataBinding.FieldName = 'FromMasterOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column30: TcxGridDBColumn + Caption = #35843#20986#21512#24182#21333#21495 + DataBinding.FieldName = 'SupMasterOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column31: TcxGridDBColumn + Caption = #35843#20986#35745#21010#21333#21495 + DataBinding.FieldName = 'SupConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column32: TcxGridDBColumn + Caption = #35843#20986#21512#21516#21495 + DataBinding.FieldName = 'SupConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column36: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + object Tv1Column39: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 55 + end + object Tv1Column40: TcxGridDBColumn + Caption = #20179#20301 + DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 55 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end end end inherited ADOQueryBaseCmd: TADOQuery @@ -758,12 +799,12 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel Left = 544 Top = 136 end - object ADOQueryMain: TADOQuery + object ADO_1: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 672 - Top = 160 + Left = 448 + Top = 264 end object ADOQueryTemp: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink @@ -801,4 +842,28 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel Left = 664 Top = 256 end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 512 + Top = 320 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 576 + Top = 320 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 640 + Top = 320 + end + object ADO_2: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 448 + Top = 325 + end end diff --git a/T02贸易汇总仓库/U_TradeTotallClothStkSel.pas b/T02贸易汇总仓库/U_TradeTotallClothStkSel.pas index c0459d4..6ee0e0a 100644 --- a/T02贸易汇总仓库/U_TradeTotallClothStkSel.pas +++ b/T02贸易汇总仓库/U_TradeTotallClothStkSel.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList, - dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters; + dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters, cxPC; type TfrmTradeTotallClothStkSel = class(TfrmBaseHelp) @@ -23,7 +23,7 @@ type TBClose: TToolButton; Panel1: TPanel; ADOQueryCmd: TADOQuery; - ADOQueryMain: TADOQuery; + ADO_1: TADOQuery; ADOQueryTemp: TADOQuery; PopupMenu1: TPopupMenu; N1: TMenuItem; @@ -32,39 +32,44 @@ type ToolButton2: TToolButton; Label3: TLabel; Label4: TLabel; - Label8: TLabel; - Label2: TLabel; - Label1: TLabel; - Label5: TLabel; C_name: TcxTextEdit; FromCoName: TcxTextEdit; - C_spec: TcxTextEdit; - BatchNo: TcxTextEdit; - GC_Name: TcxTextEdit; - CraftCode: TcxTextEdit; - Label6: TLabel; - Label7: TLabel; - FtyPCId: TcxTextEdit; - FromConNo: TcxTextEdit; + GPM_1: TcxGridPopupMenu; + CDS_1: TClientDataSet; + DS_1: TDataSource; + cxPageControl1: TcxPageControl; + cxTabSheet1: TcxTabSheet; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabSheet2: TcxTabSheet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; + Tv1Column33: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1Column2: TcxGridDBColumn; v1Column4: TcxGridDBColumn; v1Column14: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; - Tv1Column20: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; v2Column1: TcxGridDBColumn; v1Column8: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; v1Column13: TcxGridDBColumn; v1Column11: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; v1Column15: TcxGridDBColumn; v2Column6: TcxGridDBColumn; v1Column3: TcxGridDBColumn; - v1Column5: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn; v1Column19: TcxGridDBColumn; v1Column12: TcxGridDBColumn; @@ -80,7 +85,6 @@ type Tv1Column9: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; Tv1Column27: TcxGridDBColumn; - Tv1Column14: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; @@ -88,26 +92,25 @@ type Tv1Column22: TcxGridDBColumn; Tv1Column25: TcxGridDBColumn; Tv1Column28: TcxGridDBColumn; - Tv1Column24: TcxGridDBColumn; - Tv1Column26: TcxGridDBColumn; - Tv1Column23: TcxGridDBColumn; Tv1Column29: TcxGridDBColumn; Tv1Column30: TcxGridDBColumn; Tv1Column31: TcxGridDBColumn; Tv1Column32: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - GPM_1: TcxGridPopupMenu; - CDS_1: TClientDataSet; - DS_1: TDataSource; - Tv1Column33: TcxGridDBColumn; - Tv1Column34: TcxGridDBColumn; - Tv1Column35: TcxGridDBColumn; Tv1Column36: TcxGridDBColumn; - Tv1Column37: TcxGridDBColumn; + Tv1Column39: TcxGridDBColumn; + Tv1Column40: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + ADO_2: TADOQuery; + Label5: TLabel; + Label6: TLabel; + C_Color: TcxTextEdit; + C_ColorNo: TcxTextEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBRafreshClick(Sender: TObject); - procedure ConNoMChange(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBFindClick(Sender: TObject); @@ -117,9 +120,12 @@ type procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure ToolButton2Click(Sender: TObject); procedure FromCoNameKeyPress(Sender: TObject; var Key: Char); - procedure FromCoNamePropertiesChange(Sender: TObject); + procedure TV2DblClick(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); private procedure InitGrid(); + procedure InitGrid1(); + procedure InitGrid2(); { Private declarations } public FstkName, FC_Degree, FStkIdS: string; @@ -142,6 +148,16 @@ begin frmTradeTotallClothStkSel := nil; end; +procedure TfrmTradeTotallClothStkSel.cxPageControl1Change(Sender: TObject); +begin + case cxPageControl1.ActivePageIndex of + 1: + begin + InitGrid1(); + end; + end; +end; + procedure TfrmTradeTotallClothStkSel.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; @@ -149,42 +165,77 @@ begin end; procedure TfrmTradeTotallClothStkSel.InitGrid(); +begin + case cxPageControl1.ActivePageIndex of + 0: + begin + InitGrid2(); + end; + 1: + begin + + InitGrid1(); + end; + end; + +end; + +procedure TfrmTradeTotallClothStkSel.InitGrid1(); var - SqlStr: string; + SqlStr, WSqlStr: string; begin - SqlStr := ' select A.*,StkPieceint=CEILING(A.StkPiece),B.BuyRepresentative,B.BuyAddress,B.BuyTel '; - SqlStr := SqlStr + ' from BS_Cloth_IO A left join Bs_Contract_Main B on A.FROMConMId=B.ConMId '; + SqlStr := ' select A.*,StkPieceint=CEILING(A.StkPiece) '; + SqlStr := SqlStr + ' from BS_Cloth_IO A '; SqlStr := SqlStr + ' where A.IOFlag='''' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) '; -// SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''; + SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''; + if Trim(FStkIdS) <> '' then SqlStr := SqlStr + ' and not EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + Quotedstr(FStkIdS) + ','','') SP where SP.RTValue=A.BCIOID ) '; if FC_Degree <> '' then SqlStr := SqlStr + ' and isnull(C_Degree,'''')=''' + Trim(FC_Degree) + ''''; + WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"C_Code|C_Name|C_Color|C_ColorNo|C_Pattern|C_Degree|QtyUnit"}'); + if TRIM(WSqlStr) <> '' then + SqlStr := SqlStr + ' and ' + WSqlStr; + SqlStr := SqlStr + ' order by IOTime desc'; - InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID'); + InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID'); + +end; + +procedure TfrmTradeTotallClothStkSel.InitGrid2(); +var + SqlStr, WSqlStr: string; +begin + + SqlStr := ' select A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty),QtyUnit '; + SqlStr := SqlStr + ' from BS_Cloth_IO A '; + SqlStr := SqlStr + ' where A.IOFlag='''' and (isnull(StkQty,0)>0 or isnull(StkPiece,0)>0) '; + SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''; + + if Trim(FStkIdS) <> '' then + SqlStr := SqlStr + ' and not EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + Quotedstr(FStkIdS) + ','','') SP where SP.RTValue=A.BCIOID ) '; + + if FC_Degree <> '' then + SqlStr := SqlStr + ' and isnull(C_Degree,'''')=''' + Trim(FC_Degree) + ''''; + + SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit'; + +// ShowMessage(SqlStr); + InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code'); end; procedure TfrmTradeTotallClothStkSel.TBRafreshClick(Sender: TObject); begin - InitGrid(); -end; - -procedure TfrmTradeTotallClothStkSel.ConNoMChange(Sender: TObject); -begin - if ADOQueryMain.Active then - begin - SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); - end; + InitGrid2(); end; procedure TfrmTradeTotallClothStkSel.TBCloseClick(Sender: TObject); begin - Close; end; @@ -192,31 +243,28 @@ procedure TfrmTradeTotallClothStkSel.FormShow(Sender: TObject); begin inherited; ReadCxGrid(trim(self.Caption), Tv1, 'ó׻ֿܲ'); - InitGrid(); + InitGrid2(); end; procedure TfrmTradeTotallClothStkSel.FromCoNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin - InitGrid(); + TBFind.Click; end; end; -procedure TfrmTradeTotallClothStkSel.FromCoNamePropertiesChange(Sender: TObject); -begin - if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then - Exit; - TBFind.Click; -end; - procedure TfrmTradeTotallClothStkSel.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active then - begin - SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); - SCreateCDS(ADOQueryMain, CDS_1); - SInitCDSData(ADOQueryMain, CDS_1); + case cxPageControl1.ActivePageIndex of + 0: + begin + CDSDataFilter(ADO_2, CDS_2, Tv2, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": "C_name|C_Color|C_ColorNo"}') + '" }'); + end; + 1: + begin + CDSDataFilter(ADO_1, CDS_1, Tv1, '{"FilterStr":"' + CommonFiltersByContainer(Panel1, ' {"EquTag": 1,"LikeTag": 2,"Fields": ""}') + '" }'); + end; end; end; @@ -252,5 +300,11 @@ begin ModalResult := 1; end; +procedure TfrmTradeTotallClothStkSel.TV2DblClick(Sender: TObject); +begin + cxPageControl1.ActivePageIndex := 1; + +end; + end. diff --git a/T05贸易门市管理/U_TradeDispatchedList.dfm b/T05贸易门市管理/U_TradeDispatchedList.dfm index 33d5ca3..3e940c6 100644 --- a/T05贸易门市管理/U_TradeDispatchedList.dfm +++ b/T05贸易门市管理/U_TradeDispatchedList.dfm @@ -153,7 +153,9 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList Width = 1536 Height = 37 Align = alTop + Color = clWhite ParentBackground = False + ParentColor = False TabOrder = 3 ExplicitLeft = 2 ExplicitTop = 2 diff --git a/T05贸易门市管理/U_TradeDispatchedList.pas b/T05贸易门市管理/U_TradeDispatchedList.pas index 382f6bd..67305a4 100644 --- a/T05贸易门市管理/U_TradeDispatchedList.pas +++ b/T05贸易门市管理/U_TradeDispatchedList.pas @@ -15,7 +15,8 @@ uses IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, - dxScrollbarAnnotations, cxProgressBar, FrameDateSel; + dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, + dxSkinsDefaultPainters; type TfrmTradeDispatchedList = class(TfrmBaseList)