From 5cc9996a3c6619989abf4bbd782837c30de11a1c Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 8 Mar 2025 10:45:47 +0800 Subject: [PATCH] =?UTF-8?q?=E5=9B=9E=E4=BB=93=E8=B0=83=E6=95=B4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- A01基础公司管理/U_EmployeeInPut.dfm | 17 +- A01基础公司管理/U_EmployeeInPut.pas | 31 +- A01基础公司管理/U_EmployeeList.pas | 2 +- T02贸易汇总仓库/TradeTotalClothStk.dpr | 2 +- T02贸易汇总仓库/TradeTotalClothStk.dproj | 2 +- T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm | 840 +++++------------- T02贸易汇总仓库/U_ClothPurchaseEnterList.pas | 455 +--------- T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm | 314 +++++++ T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas | 673 ++++++++++++++ T02贸易汇总仓库/U_ClothScheduleList.dfm | 27 +- T02贸易汇总仓库/U_GetDllForm.pas | 6 +- T02贸易汇总仓库/U_ItemizedListInPut.dfm | 22 +- T02贸易汇总仓库/U_ItemizedListList.dfm | 8 +- T02贸易汇总仓库/U_PurClothEnterInput.dfm | 152 +--- T02贸易汇总仓库/U_PurClothEnterInput.pas | 119 +-- T02贸易汇总仓库/U_TradeClothTotalStkList.dfm | 5 +- .../U_TradeTotallClothOutinput.dfm | 18 +- .../U_TradeTotallClothOutinput.pas | 2 - T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm | 4 +- T05贸易门市管理/U_TradeClothTotalPHList.dfm | 714 +++++++++++++++ T05贸易门市管理/U_TradeClothTotalPHList.pas | 393 ++++++++ T05贸易门市管理/U_TradeDispatchedList.dfm | 533 +++++------ T05贸易门市管理/U_TradeDispatchedList.pas | 718 ++------------- T05贸易门市管理/U_TradeMarketDisScan.pas | 2 +- T05贸易门市管理/U_TradeMarketInPut.dfm | 23 +- T05贸易门市管理/U_TradeMarketList.dfm | 29 +- 26 files changed, 2838 insertions(+), 2273 deletions(-) create mode 100644 T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm create mode 100644 T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas create mode 100644 T05贸易门市管理/U_TradeClothTotalPHList.dfm create mode 100644 T05贸易门市管理/U_TradeClothTotalPHList.pas diff --git a/A01基础公司管理/U_EmployeeInPut.dfm b/A01基础公司管理/U_EmployeeInPut.dfm index d100b93..7c9b483 100644 --- a/A01基础公司管理/U_EmployeeInPut.dfm +++ b/A01基础公司管理/U_EmployeeInPut.dfm @@ -78,10 +78,9 @@ object frmYGInPut: TfrmYGInPut Height = 502 Align = alClient TabOrder = 1 - ExplicitTop = 38 - ExplicitHeight = 494 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -93,24 +92,28 @@ object frmYGInPut: TfrmYGInPut object v1RuZhiDate: TcxGridDBColumn Caption = #20837#32844#26085#26399 DataBinding.FieldName = 'EntryDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 97 end object v1YGNo: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'EECode' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 88 end object v1YGName: TcxGridDBColumn Caption = #22995#21517 DataBinding.FieldName = 'EEName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 88 end object v1Column1: TcxGridDBColumn Caption = #37096#38376 DataBinding.FieldName = 'Dept' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -118,18 +121,21 @@ object frmYGInPut: TfrmYGInPut object v1GangWei: TcxGridDBColumn Caption = #23703#20301 DataBinding.FieldName = 'Post' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 82 end object v1SFZNo: TcxGridDBColumn Caption = #29983#26085 DataBinding.FieldName = 'Birthday' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object v1YGSex: TcxGridDBColumn Caption = #24615#21035 DataBinding.FieldName = 'Sex' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( @@ -141,36 +147,42 @@ object frmYGInPut: TfrmYGInPut object v1Phone: TcxGridDBColumn Caption = #25163#26426 DataBinding.FieldName = 'Phone' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 91 end object Tv1Column1: TcxGridDBColumn Caption = #36523#20221#35777 DataBinding.FieldName = 'IdCard' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 73 end object Tv1Column2: TcxGridDBColumn Caption = #36523#20221#35777#21040#26399#26085#26399 DataBinding.FieldName = 'IDCardEndData' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 115 end object Tv1Column3: TcxGridDBColumn Caption = #23478#24237#20303#22336 DataBinding.FieldName = 'HomeAddress' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 104 end object Tv1Column4: TcxGridDBColumn Caption = #25143#21475#25152#22312#22320 DataBinding.FieldName = 'Domicile' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 91 end object Tv1Column5: TcxGridDBColumn Caption = #31038#20445 DataBinding.FieldName = 'SocialSecurity' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( '' @@ -181,6 +193,7 @@ object frmYGInPut: TfrmYGInPut object Tv1Column6: TcxGridDBColumn Caption = #21830#19994#20445#38505 DataBinding.FieldName = 'CommercialInsurance' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( '' diff --git a/A01基础公司管理/U_EmployeeInPut.pas b/A01基础公司管理/U_EmployeeInPut.pas index 1c3f294..0d71df5 100644 --- a/A01基础公司管理/U_EmployeeInPut.pas +++ b/A01基础公司管理/U_EmployeeInPut.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, Menus, ExtDlgs, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxDateRanges, dxBarBuiltInMenu; + dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, + dxScrollbarAnnotations; type TfrmYGInPut = class(TForm) @@ -172,20 +173,20 @@ begin Edit; FieldByName('EEID').Value := Trim(maxno); end; - - with ADOCmd do - begin - Close; - SQL.Clear; - sql.Add('exec P_EE_in_Account @DataID=''' + Trim(maxno) + ''''); - Open; - end; - if ADOCmd.FieldByName('intReturn').AsInteger = -1 then - begin - ADOCmd.Connection.RollbackTrans; - Application.MessageBox(PChar(ADOCmd.fieldbyname('ShowMsg').AsString), 'ʾ', 0); - exit; - end; +// +// with ADOCmd do +// begin +// Close; +// SQL.Clear; +// sql.Add('exec P_EE_in_Account @DataID=''' + Trim(maxno) + ''''); +// Open; +// end; +// if ADOCmd.FieldByName('intReturn').AsInteger = -1 then +// begin +// ADOCmd.Connection.RollbackTrans; +// Application.MessageBox(PChar(ADOCmd.fieldbyname('ShowMsg').AsString), 'ʾ', 0); +// exit; +// end; next; end; diff --git a/A01基础公司管理/U_EmployeeList.pas b/A01基础公司管理/U_EmployeeList.pas index b5ffae1..7c44553 100644 --- a/A01基础公司管理/U_EmployeeList.pas +++ b/A01基础公司管理/U_EmployeeList.pas @@ -13,7 +13,7 @@ uses cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu, cxNavigator, U_BaseList, dxDateRanges, cxContainer, cxTextEdit, - dxScrollbarAnnotations, cxProgressBar; + dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters; type TfrmEmployeeList = class(TfrmBaseList) diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dpr b/T02贸易汇总仓库/TradeTotalClothStk.dpr index d91939e..67c4612 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dpr +++ b/T02贸易汇总仓库/TradeTotalClothStk.dpr @@ -48,7 +48,7 @@ uses U_TradeClothProcessNoteInput in 'U_TradeClothProcessNoteInput.pas' {frmTradeClothProcessNoteInput}, U_TradeFtyClothInEdit in 'U_TradeFtyClothInEdit.pas' {frmTradeFtyClothInEdit}, U_TradeClothTotalInList in 'U_TradeClothTotalInList.pas' {frmTradeClothTotalInList}, - U_TradeClothTotalOutList in 'U_TradeClothTotalOutList.pas' {frmTradeClothTotalOutList}, + U_TradeClothTotalPHList in '..\T05óй\U_TradeClothTotalPHList.pas' {frmTradeClothTotalOutList}, U_TradeClothCardCompleteList in '..\T01óƻ\U_TradeClothCardCompleteList.pas' {frmTradeClothCompleteInput}, FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, U_TradePlanClothEnterInput in 'U_TradePlanClothEnterInput.pas' {frmTradePlanClothEnterInput}, diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj b/T02贸易汇总仓库/TradeTotalClothStk.dproj index 939dcf2..66fae08 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj @@ -277,7 +277,7 @@
frmTradeClothTotalInList
dfm - +
frmTradeClothTotalOutList
dfm diff --git a/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm b/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm index 466a9df..357270b 100644 --- a/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm +++ b/T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm @@ -2,24 +2,25 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Left = 246 Top = 116 Caption = #24067#21305#37319#36141#35745#21010 - ClientHeight = 644 - ClientWidth = 1735 + ClientHeight = 565 + ClientWidth = 1416 Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild - ExplicitWidth = 1751 - ExplicitHeight = 683 + Visible = True + ExplicitWidth = 1432 + ExplicitHeight = 604 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 - Width = 1735 + Width = 1416 Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 99 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar @@ -37,23 +38,15 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList OnClick = TBRafreshClick end object TBFind: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 0 OnClick = TBFindClick end - object ToolButton1: TToolButton - Left = 142 - Top = 0 - AutoSize = True - Caption = #20445#23384 - ImageIndex = 16 - OnClick = ToolButton1Click - end object ToolButton7: TToolButton - Left = 213 + Left = 126 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -61,7 +54,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList OnClick = ToolButton7Click end object TBClose: TToolButton - Left = 316 + Left = 213 Top = 0 AutoSize = True Caption = #20851#38381 @@ -72,14 +65,16 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1735 + Width = 1416 Height = 83 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered ParentBackground = False ParentColor = True - TabOrder = 7 + TabOrder = 5 + ExplicitTop = 24 + ExplicitWidth = 1735 object Label4: TLabel Left = 452 Top = 50 @@ -104,16 +99,9 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList object Label1: TLabel Left = 674 Top = 50 - Width = 32 + Width = 64 Height = 21 - Caption = #24067#31181 - end - object Label2: TLabel - Left = 864 - Top = 50 - Width = 48 - Height = 21 - Caption = #21152#24037#21035 + Caption = #33394#24067#21517#31216 end object BuyName: TcxTextEdit Tag = 2 @@ -145,7 +133,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList inline frmFrameDateSel1: TfrmFrameDateSel Left = 2 Top = 2 - Width = 1731 + Width = 1412 Height = 37 Align = alTop Color = clWhite @@ -182,29 +170,20 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList OnClick = cxButton5Click end end - object GC_Name: TcxTextEdit + object C_Name: TcxTextEdit Tag = 2 - Left = 710 + Left = 742 Top = 46 Properties.OnChange = PurNoPropertiesChange TabOrder = 4 OnKeyPress = PurNoKeyPress Width = 150 end - object CraftCode: TcxTextEdit - Tag = 2 - Left = 916 - Top = 46 - Properties.OnChange = PurNoPropertiesChange - TabOrder = 5 - OnKeyPress = PurNoKeyPress - Width = 150 - end end object cxTabControl1: TcxTabControl [2] Left = 0 Top = 113 - Width = 1735 + Width = 1416 Height = 30 Align = alTop TabOrder = 2 @@ -216,29 +195,25 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList #13' '#24050#23436#25104' ' #13' '#20840#37096' '#13) OnChange = cxTabControl1Change + ExplicitWidth = 1735 ClientRectRight = 0 ClientRectTop = 0 end - object cxSplitter1: TcxSplitter [3] - Left = 0 - Top = 367 - Width = 1735 - Height = 8 - HotZoneClassName = 'TcxMediaPlayer9Style' - AlignSplitter = salBottom - end - object cxGrid1: TcxGrid [4] + object cxGrid1: TcxGrid [3] Left = 0 Top = 143 - Width = 1735 - Height = 224 + Width = 1041 + Height = 422 Align = alClient BorderStyle = cxcbsNone TabOrder = 4 + ExplicitLeft = 2 + ExplicitTop = 149 + ExplicitWidth = 920 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> - OnFocusedRecordChanged = Tv1FocusedRecordChanged + OnFocusedRecordChanged = TV1FocusedRecordChanged DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -348,34 +323,11 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Options.Editing = False Width = 93 end - object TV1Column12: TcxGridDBColumn - Caption = #24067#31181 - DataBinding.FieldName = 'GC_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 68 - end - object TV1Column14: TcxGridDBColumn - Caption = #21518#25972#29702#20013#25991 - DataBinding.FieldName = 'CraftName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object TV1Column13: TcxGridDBColumn - Caption = #21152#24037#21035 - DataBinding.FieldName = 'CraftCode' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 87 - end object v1Column5: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 @@ -384,6 +336,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -392,6 +345,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Caption = #38376#24133 DataBinding.FieldName = 'C_Width' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -400,6 +354,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -408,12 +363,13 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Caption = #39068#33394 DataBinding.FieldName = 'C_Color' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object v1PRTOrderQty: TcxGridDBColumn - Caption = #25968#37327 + Caption = #19979#21333#25968#37327 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -483,517 +439,171 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList GridView = TV1 end end - object ToolBar2: TToolBar [5] - Tag = 1 - Left = 0 - Top = 375 - Width = 1735 - Height = 30 - Align = alBottom - AutoSize = True - ButtonHeight = 30 - ButtonWidth = 115 - Caption = 'ToolBar1' - Color = clSkyBlue - DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar - Images = DataLink_TradeTotalClothStk.cxImageList_bar - List = True - ParentColor = False - ShowCaptions = True - TabOrder = 5 - object ToolButton2: TToolButton - Left = 0 - Top = 0 - AutoSize = True - Caption = #26032#22686 - ImageIndex = 2 - OnClick = ToolButton2Click - end - object ToolButton8: TToolButton - Left = 71 - Top = 0 - AutoSize = True - Caption = #25220#30721 - ImageIndex = 12 - OnClick = ToolButton8Click - end - object ToolButton3: TToolButton - Left = 142 - Top = 0 - AutoSize = True - Caption = #20462#25913 - ImageIndex = 3 - OnClick = ToolButton3Click - end - object ToolButton4: TToolButton - Left = 213 - Top = 0 - AutoSize = True - Caption = #21024#38500 - ImageIndex = 5 - OnClick = ToolButton4Click - end - object ToolButton5: TToolButton - Left = 284 - Top = 0 - AutoSize = True - Caption = #37319#36141#21333#23436#25104 - ImageIndex = 12 - OnClick = ToolButton5Click - end - object ToolButton6: TToolButton - Left = 403 - Top = 0 - AutoSize = True - Caption = #25764#38144#23436#25104 - ImageIndex = 11 - OnClick = ToolButton6Click - end - end - object cxPageControl1: TcxPageControl [6] - Left = 0 - Top = 405 - Width = 1735 - Height = 239 - Align = alBottom - TabOrder = 6 - Properties.ActivePage = cxTabSheet2 - Properties.CustomButtons.Buttons = <> - Properties.Style = 5 - OnChange = cxPageControl1Change - ClientRectBottom = 239 - ClientRectRight = 1735 - ClientRectTop = 32 - object cxTabSheet2: TcxTabSheet - Caption = ' '#37319#36141#25968#25454' ' - ImageIndex = 1 - object cxGrid2: TcxGrid - Left = 0 - Top = 0 - Width = 1735 - Height = 207 - Align = alClient - TabOrder = 0 - object TV2: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_2 - DataController.Summary.DefaultGroupSummaryItems = < - item - Kind = skSum - Position = spFooter - end - item - Format = #21305#25968#65306'#' - Kind = skCount - Column = v1Column15 - 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 = skSum - Column = v1Column15 - end - item - Kind = skCount - Column = TV2Column2 - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - object TV2Column1: TcxGridDBColumn - Caption = #26085#26399 - DataBinding.FieldName = 'IOTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 115 - end - object v1Column10: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 124 - end - object TV2Column2: TcxGridDBColumn - Caption = #21367#21495 - DataBinding.FieldName = 'PieceNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 76 - end - object v1Column15: TcxGridDBColumn - Caption = #21305#25968 - DataBinding.FieldName = 'Pieceint' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 102 - end - object v2Column6: TcxGridDBColumn - Tag = 2 - Caption = #25968#37327 - DataBinding.FieldName = 'Qty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 118 - 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 = 87 - end - object cxGridDBColumn7: 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 = 74 - end - object v1Column12: TcxGridDBColumn - Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 71 - end - object cxGridDBColumn13: TcxGridDBColumn - Caption = #25805#20316#20154 - DataBinding.FieldName = 'Filler' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 97 - end - object cxGridDBColumn14: TcxGridDBColumn - Caption = #25805#20316#26102#38388 - DataBinding.FieldName = 'Filltime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 89 - end - object Tv1Column10: TcxGridDBColumn - Caption = #32568#21495 - DataBinding.FieldName = 'FtyPCId' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 95 - end - object TV2Column3: TcxGridDBColumn - Caption = #31561#32423 - DataBinding.FieldName = 'Grade' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object TV2Column4: TcxGridDBColumn - Caption = #38477#32423#21407#22240 - DataBinding.FieldName = 'Downgrade' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 112 - end - object TV2Column5: TcxGridDBColumn - Caption = #32467#26696#31867#22411 - DataBinding.FieldName = 'SettlementType' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 115 - end - object TV2Column6: TcxGridDBColumn - Caption = #27454#21495 - DataBinding.FieldName = 'C_StyleNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - end - object TV2Column7: TcxGridDBColumn - Caption = #20837#24211#21333#21495 - DataBinding.FieldName = 'BCIONO' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 94 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = TV2 - end - end - end - object cxTabSheet3: TcxTabSheet - Caption = ' '#20986#24211#25968#25454' ' - ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 - object cxGrid3: TcxGrid - Left = 0 - Top = 0 - Width = 1735 - Height = 207 - Align = alClient - TabOrder = 0 - object TV3: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_3 - DataController.Filter.AutoDataSetFilter = True - 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 = cxGridDBColumn31 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = cxGridDBColumn30 - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - object cxGridDBColumn15: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'ssel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - HeaderAlignmentHorz = taCenter - end - object TV3Column1: TcxGridDBColumn - Caption = #20986#24211#26102#38388 - DataBinding.FieldName = 'IOTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 104 - end - object TV3Column3: TcxGridDBColumn - Caption = #20986#24211#31867#22411 - DataBinding.FieldName = 'IOType' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 115 - end - object TV3Column2: TcxGridDBColumn - Caption = #20986#21040#21333#20301 - DataBinding.FieldName = 'ToCoName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 112 - end - object cxGridDBColumn16: TcxGridDBColumn - Caption = #20986#24211#26085#26399 - DataBinding.FieldName = 'IOTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 115 - end - object cxGridDBColumn27: TcxGridDBColumn - Caption = #32568#21495 - DataBinding.FieldName = 'FtyPCId' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 124 - end - object cxGridDBColumn28: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'C_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object cxGridDBColumn29: TcxGridDBColumn - Caption = #33457#22411 - DataBinding.FieldName = 'C_Pattern' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 83 - end - object cxGridDBColumn30: TcxGridDBColumn - Caption = #21305#25968 - DataBinding.FieldName = 'Pieceint' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 102 - end - object cxGridDBColumn31: TcxGridDBColumn - Tag = 2 - Caption = #25968#37327 - DataBinding.FieldName = 'Qty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 118 - end - object cxGridDBColumn32: 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 = 87 - end - object cxGridDBColumn33: 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 = 74 - end - object cxGridDBColumn34: TcxGridDBColumn - Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 71 - end - object cxGridDBColumn35: TcxGridDBColumn - Caption = #30331#35760#20154 - DataBinding.FieldName = 'Filler' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 97 - end - object cxGridDBColumn36: TcxGridDBColumn - Caption = #30331#35760#26102#38388 - DataBinding.FieldName = 'Filltime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 89 - end - object TV3Column4: TcxGridDBColumn - Caption = #27454#21495 - DataBinding.FieldName = 'C_StyleNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 72 - end - object TV3Column5: TcxGridDBColumn - Caption = #21367#21495 - DataBinding.FieldName = 'PieceNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 75 - end - end - object cxGridLevel4: TcxGridLevel - GridView = TV3 - end - end - end + inherited loadProcess: TPanel + Left = 361 + Top = 328 + ExplicitLeft = 361 + ExplicitTop = 328 end inherited cxProgressBar2: TcxProgressBar - Left = 759 - Top = 387 - ExplicitLeft = 759 - ExplicitTop = 387 + Left = 361 + Top = 275 + ExplicitLeft = 361 + ExplicitTop = 275 ExplicitHeight = 29 end + object Panel2: TPanel [6] + Left = 1049 + Top = 143 + Width = 367 + Height = 422 + Align = alRight + TabOrder = 6 + ExplicitLeft = 1112 + object cxGrid2: TcxGrid + Left = 1 + Top = 31 + Width = 365 + Height = 390 + Align = alClient + BorderStyle = cxcbsNone + TabOrder = 0 + ExplicitLeft = -2 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = TV2Column4 + end + item + Kind = skSum + Column = TV2Column3 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object TV2Column1: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'BCIONO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object TV2Column2: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object TV2Column4: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object TV2Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV2 + end + end + object ToolBar2: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 365 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar + Images = DataLink_TradeTotalClothStk.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 1 + object ToolButton5: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #37319#36141#30721#21333 + ImageIndex = 2 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = ToolButton1Click + end + end + end + object cxSplitter1: TcxSplitter [7] + Left = 1041 + Top = 143 + Width = 8 + Height = 422 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + Control = Panel2 + ExplicitLeft = 0 + ExplicitTop = 557 + ExplicitHeight = 1479 + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink Left = 73 @@ -1013,15 +623,15 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList object ADOQueryCmd: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink Parameters = <> - Left = 304 - Top = 264 + Left = 232 + Top = 288 end object ADOQueryMain: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 192 - Top = 272 + Left = 640 + Top = 200 end object ADOQueryTemp: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink @@ -1042,8 +652,8 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Top = 288 end object pm1: TPopupMenu - Left = 384 - Top = 272 + Left = 304 + Top = 192 object N5: TMenuItem Caption = #20840#36873 OnClick = N5Click @@ -1063,52 +673,22 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList Left = 136 Top = 491 end - object DS_2: TDataSource - DataSet = CDS_2 - Left = 744 - Top = 352 - end - object CDS_2: TClientDataSet - Aggregates = <> - Params = <> - Left = 704 - Top = 352 - end - object GPM_2: TcxGridPopupMenu - Grid = cxGrid2 - PopupMenus = <> - Left = 664 - Top = 352 - end object ADO_2: TADOQuery Connection = DataLink_TradeTotalClothStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 592 + Left = 560 Top = 344 end - object ADO_3: TADOQuery - Connection = DataLink_TradeTotalClothStk.ADOLink - LockType = ltReadOnly - Parameters = <> - Left = 598 - Top = 414 - end - object GPM_3: TcxGridPopupMenu - Grid = cxGrid3 + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 PopupMenus = <> - Left = 626 - Top = 444 + Left = 584 + Top = 432 end - object CDS_3: TClientDataSet - Aggregates = <> - Params = <> - Left = 694 - Top = 428 - end - object DS_3: TDataSource - DataSet = CDS_3 - Left = 764 - Top = 418 + object DS_2: TDataSource + DataSet = ADO_2 + Left = 664 + Top = 432 end end diff --git a/T02贸易汇总仓库/U_ClothPurchaseEnterList.pas b/T02贸易汇总仓库/U_ClothPurchaseEnterList.pas index 8d5ceec..01fb67e 100644 --- a/T02贸易汇总仓库/U_ClothPurchaseEnterList.pas +++ b/T02贸易汇总仓库/U_ClothPurchaseEnterList.pas @@ -32,7 +32,6 @@ type BuyName: TcxTextEdit; PurNo: TcxTextEdit; cxTabControl1: TcxTabControl; - cxSplitter1: TcxSplitter; CDS_1: TClientDataSet; Label3: TLabel; SellName: TcxTextEdit; @@ -62,74 +61,26 @@ type TV1Column4: TcxGridDBColumn; TV1Column7: TcxGridDBColumn; TV1Column8: TcxGridDBColumn; - ToolButton1: TToolButton; - DS_2: TDataSource; - CDS_2: TClientDataSet; - GPM_2: TcxGridPopupMenu; - ADO_2: TADOQuery; TV1Column5: TcxGridDBColumn; TV1Column6: TcxGridDBColumn; TV1Column9: TcxGridDBColumn; - TV1Column12: TcxGridDBColumn; - TV1Column13: TcxGridDBColumn; - TV1Column14: TcxGridDBColumn; - ToolBar2: TToolBar; - ToolButton2: TToolButton; - ToolButton3: TToolButton; - ToolButton4: TToolButton; - ToolButton5: TToolButton; - ToolButton6: TToolButton; - cxPageControl1: TcxPageControl; - cxTabSheet2: TcxTabSheet; - cxTabSheet3: TcxTabSheet; + Label1: TLabel; + C_Name: TcxTextEdit; + Panel2: TPanel; + cxSplitter1: TcxSplitter; cxGrid2: TcxGrid; TV2: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; TV2Column1: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; - v1Column15: TcxGridDBColumn; - v2Column6: TcxGridDBColumn; - v1Column3: TcxGridDBColumn; - cxGridDBColumn7: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; - cxGridDBColumn13: TcxGridDBColumn; - cxGridDBColumn14: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - cxGrid3: TcxGrid; - TV3: TcxGridDBTableView; - cxGridDBColumn15: TcxGridDBColumn; - TV3Column1: TcxGridDBColumn; - TV3Column3: TcxGridDBColumn; - TV3Column2: TcxGridDBColumn; - cxGridDBColumn16: TcxGridDBColumn; - cxGridDBColumn27: TcxGridDBColumn; - cxGridDBColumn28: TcxGridDBColumn; - cxGridDBColumn29: TcxGridDBColumn; - cxGridDBColumn30: TcxGridDBColumn; - cxGridDBColumn31: TcxGridDBColumn; - cxGridDBColumn32: TcxGridDBColumn; - cxGridDBColumn33: TcxGridDBColumn; - cxGridDBColumn34: TcxGridDBColumn; - cxGridDBColumn35: TcxGridDBColumn; - cxGridDBColumn36: TcxGridDBColumn; - cxGridLevel4: TcxGridLevel; - ADO_3: TADOQuery; - GPM_3: TcxGridPopupMenu; - CDS_3: TClientDataSet; - DS_3: TDataSource; - ToolButton8: TToolButton; TV2Column2: TcxGridDBColumn; - Label1: TLabel; - Label2: TLabel; - GC_Name: TcxTextEdit; - CraftCode: TcxTextEdit; TV2Column3: TcxGridDBColumn; TV2Column4: TcxGridDBColumn; - TV2Column5: TcxGridDBColumn; - TV2Column6: TcxGridDBColumn; - TV3Column4: TcxGridDBColumn; - TV3Column5: TcxGridDBColumn; - TV2Column7: TcxGridDBColumn; + ADO_2: TADOQuery; + GPM_2: TcxGridPopupMenu; + DS_2: TDataSource; + ToolBar2: TToolBar; + ToolButton5: TToolButton; + ToolButton1: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); @@ -146,30 +97,22 @@ type procedure FormCreate(Sender: TObject); procedure N5Click(Sender: TObject); procedure N6Click(Sender: TObject); - procedure ToolButton1Click(Sender: TObject); - procedure ToolButton2Click(Sender: TObject); - procedure ToolButton3Click(Sender: TObject); - procedure ToolButton4Click(Sender: TObject); procedure PurNoPropertiesChange(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); - procedure cxPageControl1Change(Sender: TObject); - procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); - procedure ToolButton8Click(Sender: TObject); procedure cxButton4Click(Sender: TObject); procedure cxButton1Click(Sender: TObject); procedure cxButton5Click(Sender: TObject); procedure cxButton2Click(Sender: TObject); procedure cxButton3Click(Sender: TObject); procedure PurNoKeyPress(Sender: TObject; var Key: Char); + procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton1Click(Sender: TObject); private fFlileFlag: string; procedure InitGrid(); - procedure InitGridIO(); procedure SetStatus(); - procedure InitImage(); - procedure DelGrid2IO(); - procedure DelGrid3IO(); + procedure InitGrid2(); { Private declarations } public @@ -179,53 +122,24 @@ type implementation uses - U_DataLink, U_RTFun, U_LabelPrint, U_PurClothEnterInput, U_TradeCardInPut; + U_DataLink, U_RTFun, U_LabelPrint, U_PurClothEnterInput, + U_ClothPurchaseQtyInPut; {$R *.dfm} -procedure TfrmClothPurchaseEnterList.InitGridIO(); +procedure TfrmClothPurchaseEnterList.InitGrid2(); var SqlStr: string; begin - case cxPageControl1.ActivePageIndex of - 0: - begin - SqlStr := ' select A.*,Pieceint=CEILING(A.Piece)'; - SqlStr := SqlStr + ' from BS_Cloth_IO A '; - SqlStr := SqlStr + 'where A.FromPurSId = ' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString)); - SqlStr := SqlStr + 'and A.IOType =''ɹ'' and STKName=''óײƥ'' '; - - InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', ''); - end; - 1: - begin - SqlStr := ' select A.*,Pieceint=CEILING(A.Piece)'; - SqlStr := SqlStr + 'from BS_Cloth_IO A '; - SqlStr := SqlStr + 'where EXISTS( select X.Stkid from BS_Cloth_IO X '; - SqlStr := SqlStr + ' where X.IOType =''ɹ'' and X.Stkid=A.Stkid and X.FromPurSId =' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString)) + ')'; - SqlStr := SqlStr + 'and A.IOFlag ='''' and STKName=''óײƥ'' '; -// ShowMessage(SqlStr); - InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', ''); - end; - end; - -end; - -procedure TfrmClothPurchaseEnterList.InitImage(); -begin - - ADOQueryImage.Close; if CDS_1.IsEmpty then - exit; - with ADOQueryImage do - begin - close; - sql.Clear; - sql.Add('select * from TP_File A'); - sql.Add('where WBID=' + quotedstr(trim(CDS_1.fieldbyname('SubId').AsString))); - sql.Add('and TFType=' + quotedstr(trim('HX'))); - open; - end; + EXIT; + SqlStr := 'select A.BCIONO,IOTime=convert(varchar(10),A.IOTime,120) ,Qty=sum(A.Qty) ,Piece=sum(A.Piece) '; + SqlStr := SqlStr + 'from BS_Cloth_IO A '; + SqlStr := SqlStr + 'where A.IOType=''ɹ'' and A.FromPurSId=' + quotedstr(trim(CDS_1.fieldbyname('PurSId').asstring)); + SqlStr := SqlStr + 'group by A.BCIONO,convert(varchar(10),A.IOTime,120) '; + + InitAdoData(ADO_2, Tv2, SqlStr, '', ''); + end; procedure TfrmClothPurchaseEnterList.N1Click(Sender: TObject); @@ -338,7 +252,6 @@ begin fFlileFlag := UserDataFlag + 'HX'; readCxGrid(trim(Self.Caption) + 'tv1', Tv1, 'Ʒֿ'); readCxGrid(trim(Self.Caption) + 'tv2', Tv2, 'Ʒֿ'); - readCxGrid(trim(Self.Caption) + 'tv3', Tv3, 'Ʒֿ'); SetStatus(); InitGrid(); end; @@ -397,11 +310,6 @@ begin InitGrid(); end; -procedure TfrmClothPurchaseEnterList.cxPageControl1Change(Sender: TObject); -begin - InitGridIO(); -end; - procedure TfrmClothPurchaseEnterList.cxTabControl1Change(Sender: TObject); begin SetStatus(); @@ -409,79 +317,17 @@ begin end; procedure TfrmClothPurchaseEnterList.ToolButton1Click(Sender: TObject); -var - Maxno: string; begin - PurNo.SetFocus; - if CDS_1.IsEmpty then + if ADO_2.IsEmpty then Exit; - if Application.MessageBox('ȷҪز', 'ʾ', 32 + 4) <> IDYES then - Exit; - try - ADOQueryCmd.Connection.BeginTrans; - - CDS_1.DisableControls; - with CDS_1 do + frmClothPurchaseQtyInPut := TfrmClothPurchaseQtyInPut.Create(Application); + with frmClothPurchaseQtyInPut do begin - First; - while not eof do - begin - if CDS_1.fieldbyname('BCHCQty').AsFloat > 0 then - begin - - if not GetLSNo(ADOQueryCmd, Maxno, 'YR', 'BS_Yarn_IO', 3, 1) then - raise Exception.Create('ȡʧܣ'); - - with ADOQueryCmd do - begin - Close; - Sql.Clear; - sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); - sql.Add('values(''óײɹ'' '); - sql.Add(',' + quotedstr(Trim(CDS_1.fieldbyname('BYIOID').AsString))); - sql.Add(',''ɾ'' '); - sql.Add(',' + quotedstr(DName)); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(Trim(CDS_1.fieldbyname('BYIOID').AsString))); - sql.Add(') '); - - Sql.Add('exec P_BS_Yarn_OutReturn '); - - Sql.Add(' @BYIOID=' + quotedstr(CDS_1.fieldbyname('BYIOID').AsString)); - Sql.Add(',@Piece=' + CDS_1.fieldbyname('BCHCPiece').AsString); - Sql.Add(',@Qty=' + CDS_1.fieldbyname('BCHCQty').AsString); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - Sql.Add(',@Maxno=' + quotedstr(Trim(Maxno))); - Open; - end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - - end; - Next; - end; - end; - CDS_1.EnableControls; - - ADOQueryCmd.Connection.CommitTrans; - InitGrid(); - except - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - end; - -end; - -procedure TfrmClothPurchaseEnterList.ToolButton2Click(Sender: TObject); -begin - try - frmPurClothEnterInput := TfrmPurClothEnterInput.Create(Application); - with frmPurClothEnterInput do - begin - FBCIOID := ''; + FBCIONO := Trim(ADO_2.fieldbyname('BCIONO').AsString); + FQtyUnit := Trim(CDS_1.fieldbyname('QtyUnit').AsString); + FPurMId := Trim(CDS_1.fieldbyname('PurMId').AsString); FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString); if ShowModal = 1 then begin @@ -489,220 +335,29 @@ begin end; end; finally - frmPurClothEnterInput.Free; - end; -end; - -procedure TfrmClothPurchaseEnterList.ToolButton3Click(Sender: TObject); -begin - if cxPageControl1.ActivePageIndex <> 0 then - Exit; - - with ADOQueryTemp do - begin - Close; - Sql.Clear; - Sql.Add('exec P_BS_Cloth_In_Edit '); - Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_2.fieldbyname('BCIOID').AsString))); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - Open; - end; - if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then - begin - Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); - exit; - end; - try - frmPurClothEnterInput := TfrmPurClothEnterInput.Create(Application); - with frmPurClothEnterInput do - begin - FBCIOID := Trim(CDS_2.fieldbyname('BCIOID').AsString); - FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString); - if ShowModal = 1 then - begin - Self.InitGrid(); - end; - end; - finally - frmPurClothEnterInput.Free; - end; -end; - -procedure TfrmClothPurchaseEnterList.ToolButton4Click(Sender: TObject); -begin - - case cxPageControl1.ActivePageIndex of - - 0: - begin - DelGrid2IO() - end; - - 1: - begin - DelGrid3IO() - end; - end; - -end; - -procedure TfrmClothPurchaseEnterList.DelGrid2IO(); -var - MBCIOID, MBCIONO: string; -begin - if CDS_2.IsEmpty then - Exit; - if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then - Exit; - MBCIOID := Trim(CDS_2.fieldbyname('BCIOID').AsString); - MBCIONO := Trim(CDS_2.fieldbyname('BCIONO').AsString); - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('exec P_Fin_Flow_Judge '); - Sql.Add(' @FFIDS=' + quotedstr(MBCIONO)); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - Open; - end; - if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then - begin - Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); - exit; - end; - try - ADOQueryCmd.Connection.BeginTrans; - with ADOQueryCmd do - begin - Close; - Sql.Clear; - sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); - sql.Add('values(''óײ'' '); - sql.Add(',' + quotedstr(MBCIONO)); - sql.Add(',''ɾ'' '); - sql.Add(',' + quotedstr(DName)); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(MBCIOID)); - sql.Add(') '); - - Sql.Add('exec P_BS_Cloth_In_Del '); - Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID)); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - Open; - end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - ADOQueryCmd.Connection.CommitTrans; - InitGrid(); - except - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - InitGrid(); - end; - -end; - -procedure TfrmClothPurchaseEnterList.DelGrid3IO(); -var - MBCIOID: string; -begin - if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then - Exit; - - MBCIOID := SelCDSKey(CDS_3, ['BCIOID'])[0]; - - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('exec P_Fin_Flow_Judge '); - Sql.Add(' @FFIDS=' + quotedstr(MBCIOID)); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - Open; - end; - - if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then - begin - Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); - exit; - end; - - try - ADOQueryCmd.Connection.BeginTrans; - with ADOQueryCmd do - begin - Close; - Sql.Clear; - sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); - sql.Add('values(''ó'' '); - sql.Add(',' + quotedstr(MBCIOID)); - sql.Add(',''ɾ'' '); - sql.Add(',' + quotedstr(DName)); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(MBCIOID)); - sql.Add(') '); - - Sql.Add('exec P_BS_Cloth_Out_Del '); - Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID)); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); -// ShowMessage(sql.Text); - Open; - end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - ADOQueryCmd.Connection.CommitTrans; - InitGridIO(); - except - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - InitGridIO(); + frmClothPurchaseQtyInPut.Free; end; end; procedure TfrmClothPurchaseEnterList.ToolButton5Click(Sender: TObject); -var - MPurMIdS: string; begin - if CDS_1.IsEmpty then - exit; - MPurMIdS := trim(CDS_1.fieldbyname('PurMId').AsString); - try - with ADOQueryCmd do + frmClothPurchaseQtyInPut := TfrmClothPurchaseQtyInPut.Create(Application); + with frmClothPurchaseQtyInPut do begin - Close; - sql.Clear; - sql.Add(' exec P_Pur_ClothPlan_SetStatus '); - sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS)); - sql.Add(',@Operation='''' '); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - - sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); - sql.Add(' ' + quotedstr(trim(DName))); - sql.Add(',getdate() '); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(trim('ͬ'))); - sql.Add(',' + quotedstr(trim('ɹƻID' + trim(MPurMIdS)))); - sql.Add(',' + quotedstr(trim('ɹ'))); - sql.Add(')'); - open; + FBCIONO := ''; + FQtyUnit := Trim(CDS_1.fieldbyname('QtyUnit').AsString); + FPurMId := Trim(CDS_1.fieldbyname('PurMId').AsString); + FPurSId := Trim(CDS_1.fieldbyname('PurSId').AsString); + if ShowModal = 1 then + begin + Self.InitGrid(); + end; end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - application.MessageBox('ɳɹ', 'ʾ'); - InitGrid(); - except - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - InitGrid(); + finally + frmClothPurchaseQtyInPut.Free; end; - end; procedure TfrmClothPurchaseEnterList.ToolButton6Click(Sender: TObject); @@ -750,31 +405,11 @@ procedure TfrmClothPurchaseEnterList.ToolButton7Click(Sender: TObject); begin writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, 'Ʒֿ'); writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, 'Ʒֿ'); - writeCxGrid(trim(Self.Caption) + 'tv3', Tv3, 'Ʒֿ'); -end; - -procedure TfrmClothPurchaseEnterList.ToolButton8Click(Sender: TObject); -begin - try - frmTradeCardInPut := TfrmTradeCardInPut.Create(Application); - with frmTradeCardInPut do - begin - FPursId := Trim(Self.CDS_1.fieldbyname('PursId').AsString); - FMainId := ''; - FSubId := ''; - if ShowModal = 1 then - begin - InitGridIO(); - end; - end; - finally - frmTradeCardInPut.Free; - end; end; procedure TfrmClothPurchaseEnterList.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin - InitGridIO(); + InitGrid2(); end; end. diff --git a/T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm b/T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm new file mode 100644 index 0000000..7a3656a --- /dev/null +++ b/T02贸易汇总仓库/U_ClothPurchaseQtyInPut.dfm @@ -0,0 +1,314 @@ +inherited frmClothPurchaseQtyInPut: TfrmClothPurchaseQtyInPut + Left = 67 + Top = 126 + Caption = #26126#32454#20837#24211#30331#35760 + ClientHeight = 499 + ClientWidth = 917 + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poScreenCenter + OnClose = FormClose + ExplicitWidth = 933 + ExplicitHeight = 538 + PixelsPerInch = 96 + TextHeight = 21 + object pnl1: TPanel [0] + Left = 0 + Top = 0 + Width = 917 + Height = 499 + Align = alClient + Caption = 'pnl1' + TabOrder = 0 + object cxGrid1: TcxGrid + Tag = 2 + Left = 1 + Top = 72 + Width = 915 + Height = 426 + Align = alClient + TabOrder = 0 + ExplicitLeft = 0 + ExplicitTop = 69 + object Tv1: TcxGridDBTableView + OnKeyDown = Tv1KeyDown + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end + item + Kind = skSum + Column = Tv1Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsSelection.MultiSelect = True + OptionsSelection.CellMultiSelect = True + OptionsSelection.InvertSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object Tv1Column6: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + object Tv1Column2: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 143 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 103 + end + object Tv1Column4: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 105 + end + object Tv1Column5: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 107 + end + object Tv1Column1: TcxGridDBColumn + Tag = 7 + Caption = #26465#30721 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 112 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object tlb1: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 915 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeTotalClothStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object btnAdd: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 2 + OnClick = btnAddClick + end + object btndaoru: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20837 + ImageIndex = 28 + OnClick = btndaoruClick + end + object btn3: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 6 + OnClick = TBDelClick + end + object btn4: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + end + object ToolButton2: TToolButton + Left = 339 + Top = 0 + AutoSize = True + Caption = #25171#21360#26412#21333 + ImageIndex = 21 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = ToolButton5Click + end + end + object pnl2: TPanel + Left = 1 + Top = 31 + Width = 915 + Height = 41 + Align = alTop + TabOrder = 2 + object Label9: TLabel + Left = 33 + Top = 7 + Width = 32 + Height = 21 + Caption = #21305#25968 + end + object Label13: TLabel + Left = 171 + Top = 7 + Width = 32 + Height = 21 + Caption = #25968#37327 + end + object lbl5: TLabel + Left = 309 + Top = 7 + Width = 32 + Height = 21 + Caption = #26085#26399 + end + object inPiece: TcxCurrencyEdit + Left = 69 + Top = 3 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 0 + Width = 98 + end + object inQty: TcxCurrencyEdit + Left = 207 + Top = 3 + Properties.AssignedValues.DisplayFormat = True + TabOrder = 1 + OnKeyPress = inQtyKeyPress + Width = 98 + end + object IOTime: TcxDateEdit + Left = 345 + Top = 3 + Properties.ShowTime = False + TabOrder = 2 + Width = 200 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 407 + Top = 402 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Left = 201 + Top = 297 + end + inherited ImageList_new32: TImageList + Left = 80 + Top = 208 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 586 + Top = 129 + DesignInfo = 8454730 + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 749 + Top = 250 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 645 + Top = 224 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 68 + Top = 378 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 368 + Top = 192 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 211 + Top = 379 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 472 + Top = 294 + end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 370 + end + object OpenDialog1: TOpenDialog + Left = 522 + Top = 338 + end +end diff --git a/T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas b/T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas new file mode 100644 index 0000000..40f411f --- /dev/null +++ b/T02贸易汇总仓库/U_ClothPurchaseQtyInPut.pas @@ -0,0 +1,673 @@ +unit U_ClothPurchaseQtyInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + System.Types, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, + ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, + cxTextEdit, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, + Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, + cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd; + +type + TfrmClothPurchaseQtyInPut = class(TfrmBaseInput) + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + GPM_1: TcxGridPopupMenu; + CDS_LM: TClientDataSet; + OpenDialog1: TOpenDialog; + pnl1: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + tlb1: TToolBar; + btnAdd: TToolButton; + btn3: TToolButton; + btn4: TToolButton; + pnl2: TPanel; + inPiece: TcxCurrencyEdit; + Label9: TLabel; + inQty: TcxCurrencyEdit; + Label13: TLabel; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + btndaoru: TToolButton; + ToolButton2: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + Tv1Column1: TcxGridDBColumn; + lbl5: TLabel; + IOTime: TcxDateEdit; + Tv1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure FromCoNameDblClick(Sender: TObject); + procedure inQtyKeyPress(Sender: TObject; var Key: Char); + procedure btndaoruClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure FormCreate(Sender: TObject); + private + { Private declarations } + function SaveData(): Boolean; + procedure NianTie(); + function Split(const s: string; Separator: char): TStringDynArray; + public + { Public declarations } + FBCIONO, FPurMId, FPurSId, FQtyUnit: string; + end; + +var + frmClothPurchaseQtyInPut: TfrmClothPurchaseQtyInPut; + +implementation + +uses + U_DataLink, U_RTFun, U_RPFun; + +{$R *.dfm} + +// ַָ +function TfrmClothPurchaseQtyInPut.Split(const s: string; Separator: char): TStringDynArray; +var + i, ItemIndex: Integer; + len: Integer; + SeparatorCount: Integer; + Start: Integer; +begin + len := Length(s); + if len = 0 then + begin + Result := nil; + Exit; + end; + + // ָ + SeparatorCount := 0; + for i := 1 to len do + if s[i] = Separator then + Inc(SeparatorCount); + + SetLength(Result, SeparatorCount + 1); + ItemIndex := 0; + Start := 1; + + // ַ + for i := 1 to len do + begin + if s[i] = Separator then + begin + Result[ItemIndex] := Copy(s, Start, i - Start); + Inc(ItemIndex); + Start := i + 1; + end; + end; + + Result[ItemIndex] := Copy(s, Start, len - Start + 1); +end; + +procedure TfrmClothPurchaseQtyInPut.NianTie(); +var + hmem: THandle; + pstr: PChar; + ArrStr: TStringList; + i, x, h, Row, Z: Integer; + FColumn: string; +begin + // + if IsClipboardFormatAvailable(CF_TEXT) then + begin + OpenClipboard(0); + hmem := GetClipboardData(CF_TEXT); + pstr := GlobalLock(hmem); +// Memo1.Text := pstr; + pstr := PChar(StringReplace(pstr, #$A, #$A#$3F, [rfReplaceAll])); +// pstr := PAnsiChar(StringReplace(pstr, #$D#$A#$D, #$D#$A#$20#$D, [rfReplaceAll])); + ArrStr := TStringList.Create; + ArrStr.Clear; + ExtractStrings([#13], [], PChar(pstr), ArrStr); + GlobalUnlock(hmem); + CloseClipboard; + end; + ArrStr.Delete(ArrStr.Count - 1); + + Row := Tv1.Controller.FocusedRowIndex; + + CDS_Sub.Locate('xhno', Row + 1, []); + + x := (Tv1.DataController.RowCount - (Row + 1)); + +// showmessage(ArrStr.Text); + //Զ + if x < ArrStr.count then + begin + for i := x to ArrStr.count - 2 do + begin + if VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]) = True then + begin + h := 0; + end + else + h := Tv1.DataController.Summary.FooterSummaryValues[0]; + h := h + 1; + with CDS_Sub do + begin + Append; + FieldByName('XHNO').Value := IntToStr(h); + Post; + end; + end; + end; + + CDS_Sub.Locate('xhno', Row + 1, []); + i := 0; + Z := 0; + + FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + + with CDS_Sub do + begin + DisableControls; + while not Eof do + begin + edit; + if ArrStr.Count > i then + begin + CDS_Sub.FieldByName(FColumn).Value := StringReplace(ArrStr[i], '?', '', [rfReplaceAll]); + end + else + Break; + i := i + 1; + Post; + Next; + end; + EnableControls; + end; +end; + +procedure TfrmClothPurchaseQtyInPut.btnAddClick(Sender: TObject); +begin +// if CDS_Sub.IsEmpty = False then +// begin +// CopyAddRowCDS(CDS_Sub); +// with CDS_Sub do +// begin +// Edit; +// FieldByName('Piece').Value := 1; +// FieldByName('BCIOID').Value := null; +// FieldByName('StkCoNo').Value := 'ֿ'; +// FieldByName('StkCoName').Value := 'ֿ'; +// post; +// end; +// end +// else +// begin + with CDS_Sub do + begin + Append; + FieldByName('Piece').Value := 1; +// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('StkCoNo').Value := 'ֿ'; + FieldByName('StkCoName').Value := 'ֿ'; + + Post; + end; +// end; +end; + +procedure TfrmClothPurchaseQtyInPut.btndaoruClick(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, LX, ExcelRowCount: integer; + maxId, FCPID, FCPName, t1, t2, t3, FFID: string; +begin + + try + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL', 'Ϣ', MB_ICONERROR); + exit; + end; + + CDS_LM.EmptyDataSet; + + for j := 0 to Tv1.ColumnCount - 1 do + begin + with CDS_LM do + begin + Append; + FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName); + FieldByName('LName').Value := trim(Tv1.Columns[j].Caption); + Post; + end; + end; + + try + for i := 1 to 50 do + begin + if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then + continue; + if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then + begin + with CDS_LM do + begin + Edit; + FieldByName('LXH').Value := i; + Post; + end; + end; + end; + except + application.MessageBox('', 'Ϣ', MB_ICONERROR); + exit; + end; + + try + for i := 2 to ExcelRowCount do + begin + with CDS_Sub do + begin + Append; + CDS_LM.First; + while not CDS_LM.Eof do + begin + if CDS_LM.FieldByName('LXH').AsInteger > 0 then + CDS_Sub.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; + end; + FieldByName('Piece').Value := 1; + Post; + end; + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + exit; + end; + +end; + +procedure TfrmClothPurchaseQtyInPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmClothPurchaseQtyInPut.FormCreate(Sender: TObject); +begin + inherited; + IOTime.Date := SGetServerDate(ADOQueryTemp); +end; + +function TfrmClothPurchaseQtyInPut.SaveData(): Boolean; +var + Maxno, MBCIOID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + + if FBCIONo = '' then + if not GetLSNo(ADOQueryCmd, FBCIONo, 'RK', 'BS_Cloth_IO', 4, 1) then + raise Exception.Create('ȡȾɫʧܣ'); + + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + ''''); + open; + end; + MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString); + if Trim(MBCIOID) = '' then + begin + if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then + raise Exception.Create('ȡȾɫʧܣ'); + end + else + begin + Maxno := Trim(MBCIOID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MBCIOID) = '' then + begin + Append; + FieldByName('Fillid').Value := Trim(Dcode); + FieldByName('Filler').Value := Trim(DName); + FieldByName('BCIOID').Value := Trim(Maxno); + FieldByName('STKID').Value := Trim(Maxno); + FieldByName('CIID').Value := Trim(Maxno); + end + else + begin + Edit; + FieldByName('Editid').Value := Trim(Dcode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + FieldByName('IOTime').Value := IOTime.Date; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0); + FieldByName('STKName').Value := 'óײƥ'; + FieldByName('IOFlag').Value := ''; + FieldByName('IOQtyFlag').Value := 1; + FieldByName('Piece').Value := 1; + FieldByName('Qty').Value := CDS_Sub.FieldByName('Qty').Value; + FieldByName('FromPurMId').Value := FPurMId; + FieldByName('FromPurSId').Value := FPurSId; + FieldByName('QtyUnit').Value := FQtyUnit; + Post; + end; + + Next; + end; + end; + + CDS_Sub.EnableControls; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_BS_Cloth_UpdateByPurchase '); + Sql.Add(' @PurSId=' + quotedstr(Trim(FPurSId))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + + ADOQueryCmd.Connection.CommitTrans; + + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + +end; + +procedure TfrmClothPurchaseQtyInPut.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid('뵥Ǽ', Tv1, 'ó׻ֿܲ'); + + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from BS_Cloth_IO A'); + sql.Add(' where ioflag='''' and BCIONo=''' + Trim(FBCIONo) + ''''); + sql.Add(' order by qty desc '); + Open; + end; + if not ADOQueryTemp.IsEmpty then + IOTime.Date := ADOQueryTemp.FieldByName('IOTime').AsDateTime; + + SCreateCDS(ADOQueryTemp, CDS_Sub); + SInitCDSData(ADOQueryTemp, CDS_Sub); +end; + +procedure TfrmClothPurchaseQtyInPut.FromCoNameDblClick(Sender: TObject); +begin + TcxButtonEdit(Sender).Text := ''; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; +end; + +procedure TfrmClothPurchaseQtyInPut.inQtyKeyPress(Sender: TObject; var Key: Char); +var + i: Integer; +begin + if Key = #13 then + begin + with CDS_Sub do + begin + DisableControls; + for i := 1 to StrToIntDef(inPiece.Text, 1) do + begin + Append; + + if FQtyUnit = 'M' then + begin + FieldByName('Meter').Value := StrTofloatDef(inQty.Text, 0); + end + else if FQtyUnit = 'Y' then + begin + FieldByName('Yardage').Value := StrTofloatDef(inQty.Text, 0); + end + else + begin + FieldByName('NetWeight').Value := StrTofloatDef(inQty.Text, 0); + end; + + Post; + end; + EnableControls; + end; + inPiece.Text := '1'; + inQty.Text := ''; + end; +end; + +procedure TfrmClothPurchaseQtyInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_Fin_Flow_Judge '); + Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then + begin + Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); + exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''ó'' '); + sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + sql.Add(',''ɾ'' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + sql.Add(') '); + + Sql.Add('exec P_BS_Cloth_In_Del '); + Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + end + else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmClothPurchaseQtyInPut.TBSaveClick(Sender: TObject); +var + Maxno: string; +begin + if CDS_Sub.IsEmpty then + Exit; + with CDS_Sub do + begin + DisableControls; + First; + while not Eof do + begin + + Edit; + if FQtyUnit = 'M' then + begin + FieldByName('Qty').Value := FieldByName('Meter').Value; + end + else if FQtyUnit = 'Y' then + begin + FieldByName('Qty').Value := FieldByName('Yardage').Value; + end + else + begin + FieldByName('Qty').Value := FieldByName('NetWeight').Value; + end; + + Post; + Next; + end; + EnableControls; + end; + if CDS_Sub.Locate('Qty', null, []) = True then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('Qty', 0, []) = True then + begin + Application.MessageBox('Ϊ0!', 'ʾ', 0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + ModalResult := 1; + + end; +end; + +procedure TfrmClothPurchaseQtyInPut.ToolButton2Click(Sender: TObject); +var + MFiltration: string; + MPrintJson: string; +begin + if CDS_sub.IsEmpty then + Exit; + + if CDS_Sub.Locate('BCIOID', '', []) = True then + begin + Application.MessageBox('δȱ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('BCIOID', null, []) = True then + begin + Application.MessageBox('δȱ!', 'ʾ', 0); + Exit; + end; + MFiltration := ''; + with CDS_sub do + begin + First; + while not eof do + begin + MFiltration := MFiltration + ',' + CDS_sub.FieldByName('BCIOID').AsString; + next; + end; + end; + + MPrintJson := ' {"LMType": "TradeFinishClothInPrt1" '; + MPrintJson := MPrintJson + ' ,"PreviewPrint": true '; + MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; + MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } '; + FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson)); +end; + +procedure TfrmClothPurchaseQtyInPut.ToolButton5Click(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmClothPurchaseQtyInPut.Tv1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +begin + + // Ƿ Ctrl+V + if (Key = Ord('V')) and (Shift = [ssCtrl]) then + begin + pasteDatatTocxGrid(Tv1); + + end; + +end; + +end. + diff --git a/T02贸易汇总仓库/U_ClothScheduleList.dfm b/T02贸易汇总仓库/U_ClothScheduleList.dfm index b2b3b5e..cfb3fd0 100644 --- a/T02贸易汇总仓库/U_ClothScheduleList.dfm +++ b/T02贸易汇总仓库/U_ClothScheduleList.dfm @@ -2,13 +2,15 @@ inherited frmClothScheduleList: TfrmClothScheduleList Left = 246 Top = 116 Caption = #24067#21305#21152#24037#35745#21010 - ClientHeight = 725 + ClientHeight = 617 ClientWidth = 1520 Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild + Visible = True + ExplicitTop = -10 ExplicitWidth = 1536 - ExplicitHeight = 764 + ExplicitHeight = 656 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -193,10 +195,11 @@ inherited frmClothScheduleList: TfrmClothScheduleList Left = 0 Top = 143 Width = 1520 - Height = 313 + Height = 205 Align = alClient BorderStyle = cxcbsNone TabOrder = 2 + ExplicitHeight = 313 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -448,7 +451,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList object ToolBar2: TToolBar [3] Tag = 1 Left = 0 - Top = 456 + Top = 348 Width = 1520 Height = 30 Align = alBottom @@ -463,6 +466,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList ParentColor = False ShowCaptions = True TabOrder = 3 + ExplicitTop = 456 object ToolButton5: TToolButton Left = 0 Top = 0 @@ -515,7 +519,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList end object cxPageControl1: TcxPageControl [4] Left = 0 - Top = 486 + Top = 378 Width = 1520 Height = 239 Align = alBottom @@ -524,15 +528,13 @@ inherited frmClothScheduleList: TfrmClothScheduleList Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change + ExplicitTop = 486 ClientRectBottom = 239 ClientRectRight = 1520 ClientRectTop = 32 object cxTabSheet2: TcxTabSheet Caption = ' '#37197#24067#25968#25454' ' ImageIndex = 1 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object cxGrid2: TcxGrid Left = 0 Top = 0 @@ -893,9 +895,6 @@ 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 @@ -1111,9 +1110,6 @@ 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 @@ -1308,9 +1304,6 @@ 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_GetDllForm.pas b/T02贸易汇总仓库/U_GetDllForm.pas index 11eace9..cb51d2d 100644 --- a/T02贸易汇总仓库/U_GetDllForm.pas +++ b/T02贸易汇总仓库/U_GetDllForm.pas @@ -135,7 +135,7 @@ begin //ģ鴰 case FormID of - 911: //ɹز + 911: //ɹز begin with TfrmClothPurchaseEnterList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // begin @@ -145,7 +145,7 @@ begin end; end; - 912: // + 912: // begin with TfrmClothScheduleList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // begin @@ -155,7 +155,7 @@ begin end; end; - 920: //뵥Ǽ + 920: //뵥Ǽ begin with TfrmItemizedListList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // begin diff --git a/T02贸易汇总仓库/U_ItemizedListInPut.dfm b/T02贸易汇总仓库/U_ItemizedListInPut.dfm index d687970..99eca78 100644 --- a/T02贸易汇总仓库/U_ItemizedListInPut.dfm +++ b/T02贸易汇总仓库/U_ItemizedListInPut.dfm @@ -3,11 +3,11 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Top = 4 Caption = #35746#21333#24405#20837 ClientHeight = 593 - ClientWidth = 1040 + ClientWidth = 1153 Font.Charset = GB2312_CHARSET Font.Height = -16 Position = poMainFormCenter - ExplicitWidth = 1056 + ExplicitWidth = 1169 ExplicitHeight = 632 PixelsPerInch = 96 TextHeight = 21 @@ -15,7 +15,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Tag = 1 Left = 0 Top = 0 - Width = 1040 + Width = 1153 Height = 30 AutoSize = True ButtonHeight = 30 @@ -27,6 +27,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut List = True ShowCaptions = True TabOrder = 0 + ExplicitWidth = 1040 object TBSave: TToolButton Left = 0 Top = 0 @@ -72,7 +73,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Tag = 1 Left = 0 Top = 193 - Width = 1040 + Width = 1153 Height = 30 ButtonHeight = 30 ButtonWidth = 99 @@ -83,6 +84,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut List = True ShowCaptions = True TabOrder = 1 + ExplicitWidth = 1040 object btnAdd: TToolButton Left = 0 Top = 0 @@ -112,27 +114,30 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut object Panel2: TPanel [2] Left = 0 Top = 223 - Width = 1040 + Width = 1153 Height = 370 Align = alClient Caption = 'Panel2' TabOrder = 2 + ExplicitWidth = 1040 object Panel3: TPanel Left = 1 Top = 1 - Width = 1038 + Width = 1151 Height = 368 Align = alClient Caption = 'Panel2' TabOrder = 0 + ExplicitWidth = 1038 object cxGrid1: TcxGrid Left = 1 Top = 1 - Width = 1036 + Width = 1149 Height = 366 Align = alClient PopupMenu = PopupMenu2 TabOrder = 0 + ExplicitWidth = 1036 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick OnMouseDown = Tv1MouseDown @@ -336,7 +341,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut object ScrollBox1: TScrollBox [3] Left = 0 Top = 30 - Width = 1040 + Width = 1153 Height = 163 Align = alTop BevelInner = bvNone @@ -345,6 +350,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut Ctl3D = False ParentCtl3D = False TabOrder = 3 + ExplicitWidth = 1040 object Label3: TLabel Left = 377 Top = 11 diff --git a/T02贸易汇总仓库/U_ItemizedListList.dfm b/T02贸易汇总仓库/U_ItemizedListList.dfm index f1a693e..e6c2ba8 100644 --- a/T02贸易汇总仓库/U_ItemizedListList.dfm +++ b/T02贸易汇总仓库/U_ItemizedListList.dfm @@ -1,13 +1,16 @@ inherited frmItemizedListList: TfrmItemizedListList Left = 165 Top = 13 - Caption = #29983#20135#35745#21010#21333#31649#29702 + Caption = #30721#21333#30331#35760 ClientHeight = 736 ClientWidth = 1773 Color = clBtnFace Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter + Visible = True + ExplicitLeft = -320 + ExplicitTop = -129 ExplicitWidth = 1789 ExplicitHeight = 775 PixelsPerInch = 96 @@ -226,6 +229,9 @@ inherited frmItemizedListList: TfrmItemizedListList Height = 584 Align = alClient TabOrder = 5 + ExplicitLeft = -152 + ExplicitTop = 158 + ExplicitHeight = 576 object TV1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/T02贸易汇总仓库/U_PurClothEnterInput.dfm b/T02贸易汇总仓库/U_PurClothEnterInput.dfm index e2fbe09..294366c 100644 --- a/T02贸易汇总仓库/U_PurClothEnterInput.dfm +++ b/T02贸易汇总仓库/U_PurClothEnterInput.dfm @@ -2,7 +2,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Left = 261 Top = 149 Caption = #37319#36141#22238#20179 - ClientHeight = 359 + ClientHeight = 319 ClientWidth = 878 Color = clWhite Font.Charset = GB2312_CHARSET @@ -11,7 +11,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Position = poScreenCenter OnClose = FormClose ExplicitWidth = 894 - ExplicitHeight = 398 + ExplicitHeight = 358 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -22,7 +22,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 115 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite DisabledImages = DataLink_TradeTotalClothStk.ImageList_new32 @@ -39,24 +39,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput ImageIndex = 16 OnClick = ToolButton3Click end - object ToolButton2: TToolButton - Left = 71 - Top = 0 - AutoSize = True - Caption = #20445#23384#24182#25220#30721 - ImageIndex = 16 - Visible = False - OnClick = ToolButton2Click - end object ToolButton1: TToolButton - Left = 190 + Left = 71 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 end object TBClose: TToolButton - Left = 293 + Left = 174 Top = 0 AutoSize = True Caption = #20851#38381 @@ -68,7 +59,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Left = 0 Top = 30 Width = 878 - Height = 329 + Height = 289 Align = alClient BevelInner = bvNone BevelOuter = bvNone @@ -78,58 +69,59 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput ParentColor = False ParentCtl3D = False TabOrder = 1 + ExplicitHeight = 329 object Label2: TLabel - Left = 317 + Left = 306 Top = 48 Width = 32 Height = 21 Caption = #32534#21495 end object Label7: TLabel - Left = 29 - Top = 238 + Left = 16 + Top = 195 Width = 32 Height = 21 Caption = #22791#27880 end object Label1: TLabel - Left = 29 + Left = 16 Top = 124 Width = 32 Height = 21 Caption = #25209#21495 end object Label8: TLabel - Left = 621 + Left = 589 Top = 85 Width = 32 Height = 21 Caption = #24211#20301 end object Label5: TLabel - Left = 301 + Left = 306 Top = 10 Width = 48 Height = 21 Caption = #20379#24212#21830 end object lbl5: TLabel - Left = 29 + Left = 16 Top = 10 Width = 32 Height = 21 Caption = #26085#26399 end object Label10: TLabel - Left = 317 - Top = 124 + Left = 306 + Top = 162 Width = 32 Height = 21 Caption = #21305#25968 end object Label11: TLabel - Left = 317 - Top = 163 + Left = 589 + Top = 162 Width = 32 Height = 21 Caption = #25968#37327 @@ -142,28 +134,28 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Caption = #23384#25918#21333#20301 end object Label6: TLabel - Left = 621 + Left = 589 Top = 48 Width = 32 Height = 21 Caption = #21697#21517 end object Label3: TLabel - Left = 29 + Left = 16 Top = 85 Width = 32 Height = 21 Caption = #39068#33394 end object Label9: TLabel - Left = 13 + Left = 16 Top = 48 Width = 48 Height = 21 Caption = #37319#36141#21333 end object Label12: TLabel - Left = 317 + Left = 306 Top = 85 Width = 32 Height = 21 @@ -178,29 +170,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Visible = False end object Label14: TLabel - Left = 29 - Top = 166 + Left = 16 + Top = 162 Width = 32 Height = 21 Caption = #32568#21495 end object Label15: TLabel - Left = 589 - Top = 205 - Width = 64 - Height = 21 - Caption = #32467#26696#31867#22411 - end - object Label16: TLabel - Left = 285 - Top = 205 - Width = 64 - Height = 21 - Caption = #38477#32423#21407#22240 - end - object Label17: TLabel - Left = 29 - Top = 205 + Left = 306 + Top = 124 Width = 32 Height = 21 Caption = #31561#32423 @@ -251,7 +229,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput end object Note: TcxMemo Left = 71 - Top = 238 + Top = 195 TabOrder = 4 Height = 77 Width = 788 @@ -264,15 +242,15 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Width = 200 end object Qty: TcxCurrencyEdit - Left = 359 - Top = 159 + Left = 659 + Top = 158 Properties.AssignedValues.DisplayFormat = True TabOrder = 6 Width = 133 end object Piece: TcxCurrencyEdit Left = 359 - Top = 120 + Top = 158 Properties.AssignedValues.DisplayFormat = True TabOrder = 7 Width = 200 @@ -300,8 +278,8 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Width = 200 end object QtyUnit: TcxTextEdit - Left = 498 - Top = 159 + Left = 798 + Top = 158 Enabled = False TabOrder = 10 Width = 61 @@ -314,8 +292,8 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput Width = 200 end object FromPurNo: TcxTextEdit - Left = 71 - Top = 44 + Left = 70 + Top = 41 Enabled = False TabOrder = 12 Width = 200 @@ -340,7 +318,7 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput end object C_Composition: TcxTextEdit Left = 359 - Top = 81 + Top = 79 Enabled = False TabOrder = 15 Width = 200 @@ -428,60 +406,22 @@ inherited frmPurClothEnterInput: TfrmPurClothEnterInput end object FtyPCId: TcxTextEdit Left = 71 - Top = 160 + Top = 158 TabOrder = 25 Width = 200 end - object SettlementType: TcxButtonEdit - Tag = 4 - Left = 659 - Top = 199 - Hint = 'SettlementType/'#32467#26696#31867#22411 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = BuyNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 26 - OnDblClick = CoBusinessTypeDblClick - Width = 200 - end - object Downgrade: TcxButtonEdit - Tag = 4 + object Grade: TComboBox Left = 359 - Top = 199 - Hint = 'Downgrade/'#38477#32423#21407#22240 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = BuyNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 27 - OnDblClick = CoBusinessTypeDblClick - Width = 200 - end - object Grade: TcxButtonEdit - Tag = 4 - Left = 71 - Top = 199 - Hint = 'Grade/'#31561#32423 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = BuyNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 28 - OnDblClick = CoBusinessTypeDblClick + Top = 120 Width = 200 + Height = 29 + Style = csDropDownList + ItemIndex = 0 + TabOrder = 26 + Text = #27491#21697 + Items.Strings = ( + #27491#21697 + #27425#21697) end end inherited ADOQueryBaseCmd: TADOQuery diff --git a/T02贸易汇总仓库/U_PurClothEnterInput.pas b/T02贸易汇总仓库/U_PurClothEnterInput.pas index 71763a1..8933516 100644 --- a/T02贸易汇总仓库/U_PurClothEnterInput.pas +++ b/T02贸易汇总仓库/U_PurClothEnterInput.pas @@ -68,13 +68,8 @@ type FromConNo: TcxTextEdit; Label14: TLabel; FtyPCId: TcxTextEdit; + Grade: TComboBox; Label15: TLabel; - Label16: TLabel; - Label17: TLabel; - SettlementType: TcxButtonEdit; - Downgrade: TcxButtonEdit; - Grade: TcxButtonEdit; - ToolButton2: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -85,14 +80,13 @@ type procedure CoBusinessTypeDblClick(Sender: TObject); procedure StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure FormCreate(Sender: TObject); - procedure ToolButton2Click(Sender: TObject); private { Private declarations } procedure InitGrid(); function SaveData(MSaveType: string): Boolean; public { Public declarations } - FBCIOID, FPurSId: string; + FBCIOID, FPurMId, FPurSId, FQtyUnit: string; end; var @@ -232,56 +226,84 @@ end; function TfrmPurClothEnterInput.SaveData(MSaveType: string): Boolean; var - Maxno: string; + Maxno, MBCIOID, MBCIONo: string; begin try ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(FBCIOID) + ''''); + open; + end; + MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString); + + if Trim(MBCIOID) = '' then + begin + if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then + raise Exception.Create('ȡȾɫʧܣ'); + + if not GetLSNo(ADOQueryCmd, MBCIONo, 'RZ', 'BS_Cloth_IO', 4, 1) then + raise Exception.Create('ȡȾɫʧܣ'); + end + else + begin + Maxno := Trim(MBCIOID); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MBCIOID) = '' then + begin + Append; + FieldByName('Fillid').Value := Trim(Dcode); + FieldByName('Filler').Value := Trim(DName); + FieldByName('BCIONo').Value := Trim(MBCIONo); + FieldByName('BCIOID').Value := Trim(Maxno); + FieldByName('STKID').Value := Trim(Maxno); + FieldByName('CIID').Value := Trim(Maxno); + end + else + begin + Edit; + FieldByName('Editid').Value := Trim(Dcode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + + RTSetsavedata(ADOQueryCmd, 'BS_Cloth_IO', ScrollBox1, 0); + FieldByName('STKName').Value := 'óײƥ'; + FieldByName('IOFlag').Value := ''; + FieldByName('IOType').Value := 'ɹ'; + FieldByName('IOQtyFlag').Value := 1; + FieldByName('Piece').Value := 1; + FieldByName('FromPurMId').Value := FPurMId; + FieldByName('FromPurSId').Value := FPurSId; + FieldByName('QtyUnit').Value := FQtyUnit; + Post; + end; with ADOQueryCmd do begin Close; Sql.Clear; - - Sql.Add('exec P_BS_Cloth_In_Del '); - Sql.Add(' @BCIOIDS=' + quotedstr(FBCIOID)); + Sql.Add('exec P_BS_Cloth_UpdateByPurchase '); + Sql.Add(' @PurSId=' + quotedstr(Trim(FPurSId))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); - - -// ShowMessage(SQL.Text); Open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - - with ADOQueryCmd do - begin - Close; - Sql.Clear; - - Sql.Add('exec P_BS_Cloth_IOALL '); - Sql.Add(' @Operation=' + quotedstr(Trim(MSaveType))); - Sql.Add(' ,@PurSId=' + quotedstr(Trim(FPurSId))); - Sql.Add(' ,@IOTime=' + quotedstr(Trim(Trim(FormatDateTime('yyyy-MM-dd', IOTime.Date))))); - Sql.Add(' ,@StkPosition=' + quotedstr(Trim(StkPosition.Text))); - Sql.Add(' ,@FtyPCId=' + quotedstr(Trim(FtyPCId.Text))); - Sql.Add(' ,@BatchNo=' + quotedstr(Trim(BatchNo.Text))); - Sql.Add(' ,@SettlementType=' + quotedstr(Trim(SettlementType.Text))); - Sql.Add(' ,@Downgrade=' + quotedstr(Trim(Downgrade.Text))); - Sql.Add(' ,@Grade=' + quotedstr(Trim(Grade.Text))); - Sql.Add(' ,@StkCoNo=' + quotedstr(Trim(StkCoName.Properties.LookupItems.Text))); - Sql.Add(' ,@StkCoName=' + quotedstr(Trim(StkCoName.Text))); - Sql.Add(' ,@Piece=' + Trim(Piece.Text)); - Sql.Add(' ,@Qty=' + Trim(Qty.Text)); - Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode))); - Sql.Add(' ,@DName=' + quotedstr(Trim(DName))); - -// ShowMessage(SQL.Text); - Open; - end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - ADOQueryCmd.Connection.CommitTrans; + + FBCIOID := Maxno; Result := True; except Result := false; @@ -308,15 +330,6 @@ begin end; end; -procedure TfrmPurClothEnterInput.ToolButton2Click(Sender: TObject); -begin - if SaveData('ɹⲢ') then - begin - Application.MessageBox('ɹ!', 'ʾ', 0); - ModalResult := 1; - end; -end; - procedure TfrmPurClothEnterInput.ToolButton3Click(Sender: TObject); begin diff --git a/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm b/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm index c441aaf..f09fd0b 100644 --- a/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm +++ b/T02贸易汇总仓库/U_TradeClothTotalStkList.dfm @@ -8,6 +8,7 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList Font.Height = -16 FormStyle = fsMDIChild Position = poDefault + Visible = True ExplicitWidth = 1420 ExplicitHeight = 554 PixelsPerInch = 96 @@ -769,13 +770,13 @@ inherited frmTradeClothTotalStkList: TfrmTradeClothTotalStkList end object Tv1Column39: TcxGridDBColumn Caption = #24211#20301 - DataBinding.FieldName = 'IOPosition' + DataBinding.FieldName = 'stkPistion' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 55 end object Tv1Column40: TcxGridDBColumn - Caption = #20179#20301 + Caption = #23384#25918#21333#20301 DataBinding.FieldName = 'StkCoName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter diff --git a/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm b/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm index d6ce4eb..a5852ea 100644 --- a/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm +++ b/T02贸易汇总仓库/U_TradeTotallClothOutinput.dfm @@ -66,6 +66,8 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput Height = 390 Align = alClient TabOrder = 1 + ExplicitLeft = 288 + ExplicitTop = 97 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> @@ -325,22 +327,6 @@ inherited frmTradeTotallClothOutinput: TfrmTradeTotallClothOutinput DataBinding.IsNullValueType = True Width = 66 end - object Tv1Column15: TcxGridDBColumn - Caption = #21518#21152#24037#33521#25991 - DataBinding.FieldName = 'CraftEName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column16: TcxGridDBColumn - Caption = #21518#21152#24037#20013#25991 - DataBinding.FieldName = 'CraftEName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas b/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas index fba3294..c0d0fbe 100644 --- a/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas +++ b/T02贸易汇总仓库/U_TradeTotallClothOutinput.pas @@ -53,8 +53,6 @@ type Tv1Column12: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; - Tv1Column15: TcxGridDBColumn; - Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; Panel1: TPanel; diff --git a/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm b/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm index 1aea56f..634aa52 100644 --- a/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm +++ b/T02贸易汇总仓库/U_TradeTotallClothStkSel.dfm @@ -759,13 +759,13 @@ inherited frmTradeTotallClothStkSel: TfrmTradeTotallClothStkSel end object Tv1Column39: TcxGridDBColumn Caption = #24211#20301 - DataBinding.FieldName = 'IOPosition' + DataBinding.FieldName = 'stkPistion' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 55 end object Tv1Column40: TcxGridDBColumn - Caption = #20179#20301 + Caption = #23384#25918#21333#20301 DataBinding.FieldName = 'StkCoName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter diff --git a/T05贸易门市管理/U_TradeClothTotalPHList.dfm b/T05贸易门市管理/U_TradeClothTotalPHList.dfm new file mode 100644 index 0000000..513b3b8 --- /dev/null +++ b/T05贸易门市管理/U_TradeClothTotalPHList.dfm @@ -0,0 +1,714 @@ +inherited frmTradeClothTotalPHList: TfrmTradeClothTotalPHList + Left = 65 + Top = 98 + Caption = #36152#26131#24067#21305#20986#24211#21015#34920 + ClientHeight = 564 + ClientWidth = 1597 + Color = clBtnFace + Font.Height = -16 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1613 + ExplicitHeight = 603 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1597 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + Color = clSkyBlue + Images = DataLink_TradeMarket.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 3 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + end + object TBDel: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object ToolButton4: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 21 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 316 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton2Click + end + object TBExport: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 458 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 561 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 30 + Width = 1597 + Height = 534 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + ExplicitTop = 145 + ExplicitHeight = 419 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column19 + end + item + Kind = skSum + Column = v1Column19 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column19 + end + item + Kind = skSum + end + item + Kind = skCount + Column = Tv1Column35 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 40 + object Tv1Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column5: TcxGridDBColumn + Caption = #36710#38388 + DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column6: TcxGridDBColumn + Caption = #20986#24211#21333#21495 + DataBinding.FieldName = 'BCIONO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#20986#24211 + #24179#31227#20986#24211 + #36864#36135) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #25152#23646#31867#22411 + DataBinding.FieldName = 'SSType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #33258#24049 + #23458#25143) + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 44 + end + object v1Column1: TcxGridDBColumn + Caption = #37319#36141#21333#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 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 v1Column13: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column16: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column17: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = 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 v1Column20: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'SPCode' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = 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 v1Column10: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 44 + end + object Tv1Column6: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column7: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column18: TcxGridDBColumn + Caption = #20986#21040#35745#21010#21333 + DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column1: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column28: TcxGridDBColumn + Caption = #21512#24182#21333#21495 + DataBinding.FieldName = 'fromMasterOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column29: TcxGridDBColumn + Caption = #20986#21040#21512#24182#21333#21495 + DataBinding.FieldName = 'ToMasterOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column18: TcxGridDBColumn + Caption = #20986#21040#21333#20301 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column19: TcxGridDBColumn + Caption = #20179#20301 + DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v1Column19: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Pieceint' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column35: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + 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 + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column8: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column2: TcxGridDBColumn + Caption = #21305#37325 + DataBinding.FieldName = 'PieceWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + 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 Tv1Column9: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column30: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'fromConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column31: TcxGridDBColumn + Caption = #20986#21040#21512#21516#21495 + DataBinding.FieldName = 'ToConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column10: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column11: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'C_StyleNo' + 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 + 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 Tv1Column13: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + 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 v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + Options.Editing = False + Width = 44 + end + object Tv1Column14: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column15: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'Filltime' + 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 + Width = 44 + end + object Tv1Column16: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'Editer' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column17: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'Edittime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column23: TcxGridDBColumn + Caption = #22383#24067#20379#24212#21830 + DataBinding.FieldName = 'GCFtyName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column32: TcxGridDBColumn + Caption = #35760#24405#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column24: TcxGridDBColumn + Caption = #21152#24037#21035 + DataBinding.FieldName = 'CraftCode' + 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 Tv1Column26: TcxGridDBColumn + Caption = #21518#21152#24037#33521#25991 + DataBinding.FieldName = 'CraftEName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column27: TcxGridDBColumn + Caption = #21518#21152#24037#20013#25991 + DataBinding.FieldName = 'CraftName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object Tv1Column33: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'QtyKgGross' + 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 + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited loadProcess: TPanel + Left = 888 + Top = 296 + ExplicitLeft = 888 + ExplicitTop = 296 + end + inherited cxProgressBar2: TcxProgressBar + Left = 721 + Top = 398 + ExplicitLeft = 721 + ExplicitTop = 398 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 260 + Top = 246 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Left = 92 + Top = 230 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 560 + Top = 300 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 821 + Top = 329 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 707 + Top = 306 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 792 + Top = 234 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 425 + Top = 254 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 626 + Top = 237 + end + object PopupMenu1: TPopupMenu + Left = 524 + Top = 412 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046 + OnClick = N3Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeMarket.ADOLink + Parameters = <> + Left = 655 + Top = 444 + end +end diff --git a/T05贸易门市管理/U_TradeClothTotalPHList.pas b/T05贸易门市管理/U_TradeClothTotalPHList.pas new file mode 100644 index 0000000..72d4137 --- /dev/null +++ b/T05贸易门市管理/U_TradeClothTotalPHList.pas @@ -0,0 +1,393 @@ +unit U_TradeClothTotalPHList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Vcl.Printers, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, Clipbrd, dxScrollbarAnnotations, FrameDateSel, + cxContainer, cxMaskEdit, cxProgressBar, cxButtons, dxSkinsCore, U_BaseHelp, + dxSkinsDefaultPainters; + +type + TfrmTradeClothTotalPHList = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + GPM_1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column20: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + ToolButton1: TToolButton; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + ToolButton2: TToolButton; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + N3: TMenuItem; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + Tv1Column24: TcxGridDBColumn; + Tv1Column25: TcxGridDBColumn; + Tv1Column26: TcxGridDBColumn; + Tv1Column27: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + Tv1Column28: TcxGridDBColumn; + Tv1Column29: TcxGridDBColumn; + Tv1Column30: TcxGridDBColumn; + Tv1Column31: TcxGridDBColumn; + Tv1Column32: TcxGridDBColumn; + Tv1Column33: TcxGridDBColumn; + Tv1Column34: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + Tv1Column35: TcxGridDBColumn; + ToolButton4: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure BCIOIDChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure C_specChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure BCIOIDPropertiesChange(Sender: TObject); + procedure BCIONOKeyPress(Sender: TObject; var Key: Char); + procedure IOTypePropertiesChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + private + canshu1, canshu2, canshu4: string; + procedure InitGrid(); + { Private declarations } + public + FBCIONO: string; + { Public declarations } + end; + +var + frmTradeClothTotalPHList: TfrmTradeClothTotalPHList; + +implementation + +uses + U_DataLink, U_RTFun, U_AttachmentUpload, U_LabelPrint, U_printPdf; + +{$R *.dfm} + +procedure TfrmTradeClothTotalPHList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTradeClothTotalPHList.FormCreate(Sender: TObject); +begin + inherited; + canshu1 := Trim(DParameters1); + canshu2 := Trim(DParameters2); +end; + +procedure TfrmTradeClothTotalPHList.InitGrid(); +var + SqlStr: string; +begin + + SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)'; + SqlStr := SqlStr + ' from BS_Cloth_IO A'; + SqlStr := SqlStr + ' where A.BCIONO =''' + Trim(FBCIONO) + ''''; + + InitCDSData(ADOQueryMain, CDS_Main, Tv1, SqlStr, '', 'BCIOID'); +end; + +procedure TfrmTradeClothTotalPHList.IOTypePropertiesChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTradeClothTotalPHList.TBRafreshClick(Sender: TObject); +begin + ToolBar1.SetFocus; + InitGrid(); +end; + +procedure TfrmTradeClothTotalPHList.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(Self.Caption), Tv1, 'ó׻ֿܲ'); +end; + +procedure TfrmTradeClothTotalPHList.ToolButton2Click(Sender: TObject); +var + MBCIOID: string; +begin + if CDS_Main.IsEmpty then + Exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + MBCIOID := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]); + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeFinishClothOutPrt1'; + FFiltration1 := MBCIOID; + if ShowModal = 1 then + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update BS_Cloth_IO '); + sql.Add(' set PRTer=' + quotedstr(DName)); + sql.Add(', PRTCount=isnull(PRTCount,0)+1'); + sql.Add(', PRTDate=getdate()'); + sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(MBCIOID) + ','','') SP where SP.RTValue=BS_Cloth_IO.BCIOID )'); + ExecSQL; + end; + Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTradeClothTotalPHList.ToolButton4Click(Sender: TObject); +begin + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeLabVolume1'; + FFiltration1 := Trim(SelCDSKey(self.CDS_Main, ['BCIOID'])[0]); + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTradeClothTotalPHList.BCIOIDPropertiesChange(Sender: TObject); +begin + if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then + Exit; + TBFind.Click; +end; + +procedure TfrmTradeClothTotalPHList.BCIONOKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + InitGrid(); +end; + +procedure TfrmTradeClothTotalPHList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTradeClothTotalPHList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(Self.Caption), Tv1, 'ó׻ֿܲ'); + InitGrid(); +end; + +procedure TfrmTradeClothTotalPHList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid1); +end; + +procedure TfrmTradeClothTotalPHList.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTradeClothTotalPHList.BCIOIDChange(Sender: TObject); +begin + + TBFind.Click; +end; + +procedure TfrmTradeClothTotalPHList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmTradeClothTotalPHList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmTradeClothTotalPHList.N3Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeClothTotalPHList.TBDelClick(Sender: TObject); +var + MBCIOID, MBCIONO: string; +begin + if CDS_Main.IsEmpty then + Exit; + + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + MBCIOID := SelCDSKey(CDS_Main, ['BCIOID'])[0]; + MBCIONO := SelCDSKey(CDS_Main, ['BCIONO'])[0]; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('exec P_Fin_Flow_Judge '); + Sql.Add(' @FFIDS=' + quotedstr(MBCIONO)); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then + begin + Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), 'ʾ', 0); + exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_Trade_BSCloth_Judge '); + Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID)); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + + with ADOQueryCmd do + begin + Close; + Sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values(''óײ'' '); + sql.Add(',' + quotedstr(MBCIONO)); + sql.Add(',''ɾ'' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(MBCIOID)); + sql.Add(') '); + + Sql.Add('exec P_BS_Cloth_Out_Del '); + Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID)); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmTradeClothTotalPHList.C_specChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTradeClothTotalPHList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. + diff --git a/T05贸易门市管理/U_TradeDispatchedList.dfm b/T05贸易门市管理/U_TradeDispatchedList.dfm index 3e940c6..ed96d3e 100644 --- a/T05贸易门市管理/U_TradeDispatchedList.dfm +++ b/T05贸易门市管理/U_TradeDispatchedList.dfm @@ -2,14 +2,13 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList Left = 165 Top = 13 Caption = #37197#36135#31649#29702 - ClientHeight = 935 + ClientHeight = 602 ClientWidth = 1540 Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter - Visible = True ExplicitWidth = 1556 - ExplicitHeight = 974 + ExplicitHeight = 641 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -20,12 +19,12 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 115 + ButtonWidth = 95 Caption = 'ToolBar1' Images = DataLink_TradeMarket.cxImageList_bar List = True ShowCaptions = True - TabOrder = 5 + TabOrder = 4 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -34,17 +33,16 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList ImageIndex = 1 OnClick = TBRafreshClick end - object ToolButton1: TToolButton - Left = 71 + object ToolButton7: TToolButton + Left = 63 Top = 0 AutoSize = True - Caption = #25195#25551#37197#36135 - ImageIndex = 8 - Visible = False - OnClick = ToolButton1Click + Caption = #37197#36135#23436#25104 + ImageIndex = 12 + OnClick = ToolButton7Click end object TBPrint: TToolButton - Left = 174 + Left = 150 Top = 0 AutoSize = True Caption = #25171#21360 @@ -52,7 +50,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList OnClick = TBPrintClick end object TBPrint1: TToolButton - Left = 245 + Left = 213 Top = 0 AutoSize = True Caption = #25171#21360#20986#24211#21333 @@ -60,7 +58,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList OnClick = TBPrint1Click end object TBCK: TToolButton - Left = 364 + Left = 312 Top = 0 AutoSize = True Caption = #26597#30475 @@ -68,7 +66,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList OnClick = TBCKClick end object TBFJ: TToolButton - Left = 435 + Left = 375 Top = 0 AutoSize = True Caption = #38468#20214 @@ -76,7 +74,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList OnClick = TBFJClick end object ToolButton2: TToolButton - Left = 506 + Left = 438 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -84,13 +82,22 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 609 + Left = 525 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end + object ToolButton1: TToolButton + Left = 588 + Top = 0 + AutoSize = True + Caption = #25195#25551#37197#36135 + ImageIndex = 8 + Visible = False + OnClick = ToolButton1Click + end end object Panel1: TPanel [1] Left = 0 @@ -101,7 +108,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList BevelInner = bvRaised BevelOuter = bvLowered ParentBackground = False - TabOrder = 6 + TabOrder = 5 object Label3: TLabel Left = 25 Top = 48 @@ -172,11 +179,13 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList object cxGrid1: TcxGrid [2] Left = 0 Top = 141 - Width = 1540 - Height = 465 - Align = alTop + Width = 992 + Height = 461 + Align = alClient PopupMenu = PM_1 TabOrder = 2 + ExplicitWidth = 1329 + ExplicitHeight = 794 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -206,32 +215,24 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter - Width = 50 + Width = 62 end object Tv1Column14: TcxGridDBColumn Caption = #22823#36135#21333#21495 DataBinding.FieldName = 'TMMNO' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 122 + Width = 106 end object v1OrdDate: TcxGridDBColumn Caption = #21046#21333#26085#26399 - DataBinding.FieldName = 'OrdDate' + DataBinding.FieldName = 'TMMDate' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 122 - end - object Tv1Column2: TcxGridDBColumn - Caption = #32463#33829#21333#20301 - DataBinding.FieldName = 'OurCoName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 + Width = 137 end object Tv1Column4: TcxGridDBColumn Caption = #23458#25143 @@ -249,13 +250,14 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 89 end object Tv1Column9: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Width = 81 end object Tv1Column12: TcxGridDBColumn Caption = #21697#21517 @@ -264,10 +266,11 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList HeaderAlignmentHorz = taCenter end object Tv1Column13: TcxGridDBColumn - Caption = #20013#25991#39068#33394 + Caption = #39068#33394 DataBinding.FieldName = 'C_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Width = 87 end object Tv1Column15: TcxGridDBColumn Caption = #33457#22411 @@ -297,11 +300,15 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList Caption = #37197#36135#21305#25968 DataBinding.FieldName = 'PHRollNum' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 95 end object Tv1Column8: TcxGridDBColumn Caption = #37197#36135#25968#37327 DataBinding.FieldName = 'PHQty' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 94 end object v1Column11: TcxGridDBColumn Caption = #21333#20301 @@ -347,22 +354,90 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList GridView = Tv1 end end - object Panel2: TPanel [3] + object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 606 + Top = 113 Width = 1540 - Height = 329 - Align = alClient - BevelOuter = bvNone - Caption = 'Panel2' + Height = 28 + Align = alTop TabOrder = 3 - object cxGrid2: TcxGrid - Left = 0 - Top = 30 - Width = 1540 - Height = 299 - Align = alClient + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#37197#36135 + #24050#37197#36135 + #24050#21457#36135 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectRight = 0 + ClientRectTop = 0 + end + inherited loadProcess: TPanel + Left = 1082 + Top = 384 + ExplicitLeft = 1082 + ExplicitTop = 384 + end + inherited cxProgressBar2: TcxProgressBar + Left = 1082 + Top = 336 + ExplicitLeft = 1082 + ExplicitTop = 336 + ExplicitHeight = 29 + end + object Panel3: TPanel [6] + Left = 1000 + Top = 141 + Width = 540 + Height = 461 + Align = alRight + Caption = 'Panel3' + TabOrder = 6 + object ToolBar2: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 538 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + EdgeInner = esNone + EdgeOuter = esNone + Images = DataLink_TradeMarket.cxImageList_bar + List = True + ShowCaptions = True TabOrder = 0 + Visible = False + ExplicitWidth = 826 + object ToolButton9: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton9Click + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #26597#30475#35814#24773 + ImageIndex = 22 + OnClick = ToolButton3Click + end + end + object cxGrid2: TcxGrid + Left = 1 + Top = 31 + Width = 538 + Height = 429 + Align = alClient + TabOrder = 1 + ExplicitLeft = 105 + ExplicitTop = 37 + ExplicitWidth = 826 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -372,7 +447,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList item Kind = skSum Position = spFooter - Column = V2Column5 end item Kind = skCount @@ -388,7 +462,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList end item Kind = skSum - Column = V2Column5 end item Kind = skCount @@ -409,16 +482,11 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList DataController.Summary.FooterSummaryItems = < item Kind = skSum + Column = TV2Column4 end item Kind = skSum - Column = V2Column5 - end - item - Kind = skSum - end - item - Kind = skSum + Column = TV2Column3 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -427,324 +495,119 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True - object V2Column13: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'ssel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Width = 99 - end - object V2Column10: TcxGridDBColumn - Caption = #21367#26465#30721 - DataBinding.FieldName = 'stkid' + object TV2Column1: TcxGridDBColumn + Caption = #37197#36135#21333#21495 + DataBinding.FieldName = 'BCIONO' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Column2: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 + Width = 84 end object TV2Column2: TcxGridDBColumn - Caption = #32534#21495 - DataBinding.FieldName = 'C_Code' + Caption = #37197#36135#26085#26399 + DataBinding.FieldName = 'IOTime' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 99 + Width = 79 end - object V2Column3: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'C_Spec' + object TV2Column3: TcxGridDBColumn + Caption = #37197#36135#21305#25968 + DataBinding.FieldName = 'Piece' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 + Width = 80 end - object V2C_Color: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'C_Color' + object TV2Column4: TcxGridDBColumn + Caption = #37197#36135#25968#37327 + DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object TV2Column1: TcxGridDBColumn - Caption = #33457#22411 - DataBinding.FieldName = 'C_Pattern' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 99 - end - object V2Column5: TcxGridDBColumn - Caption = #25968#37327 - DataBinding.FieldName = 'stkqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Column6: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'batchno' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Column11: TcxGridDBColumn - Caption = #26579#21378#32568#21495 - DataBinding.FieldName = 'ftypcid' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Filler: TcxGridDBColumn - Caption = #37197#36135#20154#21592 - DataBinding.FieldName = 'Filler' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Column12: TcxGridDBColumn - Caption = #37197#36135#26102#38388 - DataBinding.FieldName = 'FillTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Column14: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Column15: TcxGridDBColumn - Caption = #20811#37325'(g/'#13217')' - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object V2Column16: TcxGridDBColumn - Caption = #21152#24037#21378 - DataBinding.FieldName = 'factoryName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 + Width = 93 end end object cxGrid2Level1: TcxGridLevel GridView = TV2 end end - object ToolBar2: TToolBar - Tag = 1 - Left = 0 - Top = 0 - Width = 1540 - Height = 30 - ButtonHeight = 30 - ButtonWidth = 99 - Caption = 'ToolBar1' - EdgeInner = esNone - EdgeOuter = esNone - Images = DataLink_TradeMarket.cxImageList_bar - List = True - ShowCaptions = True - TabOrder = 1 - Visible = False - object ToolButton4: TToolButton - Left = 0 - Top = 0 - AutoSize = True - Caption = #36873#25321#24211#23384 - ImageIndex = 9 - OnClick = ToolButton4Click - end - object phwc: TToolButton - Left = 103 - Top = 0 - AutoSize = True - Caption = #37197#36135#23436#25104 - ImageIndex = 12 - OnClick = phwcClick - end - object ToolButton6: TToolButton - Left = 206 - Top = 0 - AutoSize = True - Caption = #20462#25913#37197#36135 - ImageIndex = 3 - OnClick = ToolButton6Click - end - object phok: TToolButton - Left = 309 - Top = 0 - AutoSize = True - Caption = #37197#36135#30830#35748 - ImageIndex = 12 - OnClick = phokClick - end - object fh: TToolButton - Left = 412 - Top = 0 - AutoSize = True - Caption = #25104#21697#21457#36135 - ImageIndex = 12 - OnClick = fhClick - end - object ToolButton9: TToolButton - Left = 515 - Top = 0 - AutoSize = True - Caption = #25171#21360#26631#31614 - ImageIndex = 21 - OnClick = ToolButton9Click - end - object del: TToolButton - Left = 618 - Top = 0 - AutoSize = True - Caption = #21024#38500 - ImageIndex = 5 - OnClick = delClick - end - object ToolButton5: TToolButton - Left = 689 - Top = 0 - AutoSize = True - Caption = #25972#21333#25764#38144 - ImageIndex = 11 - OnClick = ToolButton5Click - end - object Tdbchexiao: TToolButton - Left = 792 - Top = 0 - AutoSize = True - Caption = #25972#31508#25764#38144 - ImageIndex = 11 - OnClick = TdbchexiaoClick - end - object ToolButton3: TToolButton - Left = 895 - Top = 0 - AutoSize = True - Caption = #25764#38144#21457#36135 - ImageIndex = 11 - OnClick = ToolButton3Click - end - end end - object cxTabControl1: TcxTabControl [4] - Left = 0 - Top = 113 - Width = 1540 - Height = 28 - Align = alTop - TabOrder = 4 - Properties.CustomButtons.Buttons = <> - Properties.Style = 9 - Properties.TabIndex = 0 - Properties.Tabs.Strings = ( - #26410#37197#36135 - #24050#37197#36135 - #24050#21457#36135 - #20840#37096) - OnChange = cxTabControl1Change - ClientRectRight = 0 - ClientRectTop = 0 - end - inherited cxProgressBar2: TcxProgressBar - Left = 626 - Top = 344 - ExplicitLeft = 626 - ExplicitTop = 344 - ExplicitHeight = 29 + object cxSplitter1: TcxSplitter [7] + Left = 992 + Top = 141 + Width = 8 + Height = 461 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = Panel3 + ExplicitLeft = 896 + ExplicitTop = 133 end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradeMarket.ADOLink - Left = 187 - Top = 378 + Left = 634 + Top = 301 end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_TradeMarket.ADOLink - Left = 163 - Top = 229 + Left = 695 + Top = 301 end object cxgrdpmn1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 700 - Top = 236 + Left = 817 + Top = 423 end object ADOQueryCmd: TADOQuery Connection = DataLink_TradeMarket.ADOLink Parameters = <> - Left = 568 - Top = 240 + Left = 756 + Top = 301 end object ADOQueryMain: TADOQuery Connection = DataLink_TradeMarket.ADOLink LockType = ltReadOnly Parameters = <> - Left = 446 - Top = 230 + Left = 878 + Top = 301 end object ADOQueryTemp: TADOQuery Connection = DataLink_TradeMarket.ADOLink LockType = ltReadOnly Parameters = <> - Left = 274 - Top = 390 + Left = 756 + Top = 362 end object DataSource1: TDataSource DataSet = Order_Main - Left = 812 - Top = 440 + Left = 695 + Top = 484 end object Order_Main: TClientDataSet Aggregates = <> Params = <> - Left = 724 - Top = 432 + Left = 695 + Top = 423 end object ADOQuerySub: TADOQuery Connection = DataLink_TradeMarket.ADOLink Parameters = <> - Left = 348 - Top = 296 + Left = 695 + Top = 362 end object DataSource2: TDataSource DataSet = ORDER_SUB - Left = 616 - Top = 420 + Left = 756 + Top = 484 end object ADOQueryImage: TADOQuery Connection = DataLink_TradeMarket.ADOLink EnableBCD = False Parameters = <> - Left = 332 - Top = 227 + Left = 817 + Top = 301 end object DSImage: TDataSource DataSet = ADOQueryImage - Left = 440 - Top = 294 + Left = 817 + Top = 484 end object IdFTP1: TIdFTP ConnectTimeout = 0 @@ -754,18 +617,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 ReadTimeout = 0 - Left = 92 - Top = 258 + Left = 634 + Top = 545 end object ORDER_SUB: TClientDataSet Aggregates = <> Params = <> - Left = 248 - Top = 276 + Left = 756 + Top = 423 end object PopupMenu2: TPopupMenu - Left = 812 - Top = 388 + Left = 756 + Top = 545 object N3: TMenuItem Caption = #20840#36873 OnClick = N3Click @@ -781,18 +644,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList end object cxgrdpmn2: TcxGridPopupMenu PopupMenus = <> - Left = 932 - Top = 260 + Left = 878 + Top = 423 end object CDS_WXTS: TClientDataSet Aggregates = <> Params = <> - Left = 516 - Top = 416 + Left = 634 + Top = 423 end object PM_1: TPopupMenu - Left = 940 - Top = 388 + Left = 695 + Top = 545 object N1: TMenuItem Caption = #22797#21046 OnClick = N1Click @@ -800,38 +663,38 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList end object GPM_3: TcxGridPopupMenu PopupMenus = <> - Left = 860 - Top = 228 + Left = 634 + Top = 484 end object ADO_PH: TADOQuery Connection = DataLink_TradeMarket.ADOLink Parameters = <> - Left = 296 - Top = 476 + Left = 817 + Top = 362 end object DS_PH: TDataSource DataSet = CDS_PH - Left = 360 - Top = 444 + Left = 878 + Top = 484 end object CDS_PH: TClientDataSet Aggregates = <> Params = <> - Left = 396 - Top = 486 + Left = 878 + Top = 362 end object ADOQueryPrint: TADOQuery Connection = DataLink_TradeMarket.ADOLink LockType = ltReadOnly Parameters = <> - Left = 1128 - Top = 432 + Left = 634 + Top = 362 end object RMDB_1: TRMDBDataSet Visible = True DataSet = ADOQueryPrint - Left = 1180 - Top = 432 + Left = 817 + Top = 545 end object RM1: TRMGridReport ThreadPrepareReport = True @@ -850,8 +713,8 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 1228 - Top = 432 + Left = 878 + Top = 545 ReportData = {} end end diff --git a/T05贸易门市管理/U_TradeDispatchedList.pas b/T05贸易门市管理/U_TradeDispatchedList.pas index 67305a4..5440ec7 100644 --- a/T05贸易门市管理/U_TradeDispatchedList.pas +++ b/T05贸易门市管理/U_TradeDispatchedList.pas @@ -42,7 +42,6 @@ type ADOQuerySub: TADOQuery; DataSource2: TDataSource; TBFJ: TToolButton; - Panel2: TPanel; ADOQueryImage: TADOQuery; DSImage: TDataSource; IdFTP1: TIdFTP; @@ -56,7 +55,6 @@ type CustName: TcxTextEdit; Tv1Column6: TcxGridDBColumn; cxgrdpmn2: TcxGridPopupMenu; - Tv1Column2: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; @@ -80,43 +78,27 @@ type Tv1Column9: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; - cxGrid2: TcxGrid; - TV2: TcxGridDBTableView; - V2Column13: TcxGridDBColumn; - V2Column10: TcxGridDBColumn; - V2Column2: TcxGridDBColumn; - V2Column3: TcxGridDBColumn; - V2C_Color: TcxGridDBColumn; - V2Column5: TcxGridDBColumn; - V2Column6: TcxGridDBColumn; - V2Column11: TcxGridDBColumn; - V2Filler: TcxGridDBColumn; - V2Column12: TcxGridDBColumn; - V2Column14: TcxGridDBColumn; - V2Column15: TcxGridDBColumn; - V2Column16: TcxGridDBColumn; - cxGrid2Level1: TcxGridLevel; Tv1Column14: TcxGridDBColumn; - TV2Column1: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn; - TV2Column2: TcxGridDBColumn; TBPrint1: TToolButton; ADOQueryPrint: TADOQuery; RMDB_1: TRMDBDataSet; RM1: TRMGridReport; ToolButton1: TToolButton; frmFrameDateSel1: TfrmFrameDateSel; + ToolButton7: TToolButton; + Panel3: TPanel; ToolBar2: TToolBar; - ToolButton4: TToolButton; - phwc: TToolButton; - ToolButton6: TToolButton; - phok: TToolButton; - fh: TToolButton; ToolButton9: TToolButton; - del: TToolButton; - ToolButton5: TToolButton; - Tdbchexiao: TToolButton; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + TV2Column1: TcxGridDBColumn; + TV2Column2: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; ToolButton3: TToolButton; + cxSplitter1: TcxSplitter; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -136,21 +118,14 @@ type procedure N4Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); - procedure ToolButton5Click(Sender: TObject); procedure JGTypeChange(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); - procedure ToolButton4Click(Sender: TObject); - procedure phwcClick(Sender: TObject); - procedure ToolButton6Click(Sender: TObject); - procedure phokClick(Sender: TObject); - procedure fhClick(Sender: TObject); procedure TBPrint1Click(Sender: TObject); - procedure ToolButton9Click(Sender: TObject); - procedure delClick(Sender: TObject); - procedure TdbchexiaoClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); private DQdate: TDateTime; @@ -164,7 +139,6 @@ type procedure SetStatus(); procedure InitImage(fwbid: string); function SaveData(): Boolean; - procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string); { Private declarations } public @@ -179,7 +153,8 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload, - U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan; + U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan, + U_TradeClothTotalPHList; {$R *.dfm} @@ -201,38 +176,31 @@ end; procedure TfrmTradeDispatchedList.SetStatus(); begin - del.Visible := false; - phwc.Visible := false; - phok.Visible := false; - fh.Visible := false; - ToolButton4.Visible := false; - ToolButton5.Visible := false; - TBPrint1.Visible := false; - ToolButton6.Visible := false; - Tdbchexiao.Visible := false; - ToolButton3.Visible := false; - case cxTabControl1.TabIndex of - 0: - begin - del.Visible := true; - phwc.Visible := true; - Panel2.Visible := true; - ToolButton4.Visible := true; - end; - 1: - begin - fh.Visible := true; - ToolButton5.Visible := true; +// +// ToolButton3.Visible := false; +// case cxTabControl1.TabIndex of +// 0: +// begin +// del.Visible := true; +// phwc.Visible := true; +// Panel2.Visible := true; +// ToolButton4.Visible := true; +// end; +// 1: +// begin +// fh.Visible := true; +// ToolButton5.Visible := true; +// +// Tdbchexiao.Visible := true; +// end; +// 2: +// begin +// TBPrint1.Visible := true; +// ToolButton3.Visible := True; +// end; +// end; +// application.ProcessMessages; - Tdbchexiao.Visible := true; - end; - 2: - begin - TBPrint1.Visible := true; - ToolButton3.Visible := True; - end; - end; - application.ProcessMessages; end; procedure TfrmTradeDispatchedList.InitSub(); @@ -264,12 +232,10 @@ begin if Order_Main.IsEmpty then EXIT; - SqlStr := 'select A.*,B.* '; - SqlStr := SqlStr + 'from Trade_Market_Distribution A '; - SqlStr := SqlStr + 'INNER join BS_Cloth_IO B on B.STKID=A.STKID and B.IOFlag='''''; - SqlStr := SqlStr + 'where A.TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').asstring)); - SqlStr := SqlStr + 'and A.TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').asstring)); - SqlStr := SqlStr + 'order by A.TMDID '; + SqlStr := 'select A.BCIONO,IOTime=convert(varchar(10),A.IOTime,120) ,Qty=sum(A.Qty) ,Piece=sum(A.Piece) '; + SqlStr := SqlStr + 'from BS_Cloth_IO A '; + SqlStr := SqlStr + 'where A.IOFlag='''' and A.TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').asstring)); + SqlStr := SqlStr + 'group by A.BCIONO,convert(varchar(10),A.IOTime,120) '; InitCDSData(ADO_PH, CDS_PH, Tv2, SqlStr, '', ''); @@ -599,270 +565,6 @@ begin end; end; -procedure TfrmTradeDispatchedList.ToolButton6Click(Sender: TObject); -begin - inherited; - if Order_Main.IsEmpty then - exit; - frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self); - with frmTradeMarketDisSel do - begin - - fmainID := trim(self.Order_Main.FieldByName('mainID').AsString); - if showmodal = 1 then - begin - - end; - free; - end; - TBRafresh.Click; -end; - -procedure TfrmTradeDispatchedList.phokClick(Sender: TObject); -begin - inherited; - if cds_ph.IsEmpty then - exit; - try - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('select * from Trade_Market_Sub '); - sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString))); - sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString))); - open; - edit; - fieldbyname('substatus').Value := '2'; - post; - end; - application.MessageBox('ȷϳɹ', 'ʾϢ'); - TBRafresh.Click; - except - application.MessageBox('ȷʧܣ', 'ʾϢ', 0); - end; -end; - -procedure TfrmTradeDispatchedList.fhClick(Sender: TObject); -var - MStkIds, maxno: string; - i, fRoll: integer; - fNum: double; -begin - if cds_ph.IsEmpty then - exit; - - if Order_Main.Locate('ssel', true, []) = false then - begin - Application.MessageBox('ûѡ!', 'ʾ', 0); - Exit; - end; - if Application.MessageBox('ȷҪƷ', 'ʾ', 32 + 4) <> IDYES then - Exit; - - if GetLSNo(ADOQueryCmd, maxno, 'CK', 'Trade_Cloth_IO', 3, 1) = False then - begin - Application.MessageBox('ȡⵥʧ!', 'ʾ', 0); - Exit; - end; - - ADOQueryCmd.Connection.BeginTrans; - try - Order_Main.First; - Order_Main.DisableControls; - CDS_ph.DisableControls; - MSubIds := ''; - MStkIds := ''; - while not Order_Main.eof do - begin - - if Order_Main.FieldByName('ssel').AsBoolean then - begin - InitPH(); - - MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ','; - with cds_ph do - begin - while not eof do - begin - MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ','; - next; - end; - end; - - end; - Order_Main.Next; - end; - MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1); - MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1); - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); - sql.Add('values('''' '); - sql.Add(',' + quotedstr(MSubIds)); - sql.Add(','''' '); - sql.Add(',' + quotedstr(DName)); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(MStkIds)); - sql.Add(') '); - execsql; - end; - - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); - sql.Add('values(''ó׳Ʒ'' '); - sql.Add(',' + quotedstr(maxno)); - sql.Add(','''' '); - sql.Add(',' + quotedstr(DName)); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(MStkIds)); - sql.Add(') '); - execsql; - end; - - with ADOQueryCmd do - begin - Close; - Sql.Clear; - Sql.Add('exec P_BS_Cloth_Out_Multiple '); - Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', Now()))); - Sql.Add(',@IOType=' + Quotedstr('')); - Sql.Add(',@BCIONO=' + Quotedstr(maxno)); - Sql.Add(',@ToCoNo=' + Quotedstr(Trim(Order_Main.FieldByName('CustNo').AsString))); - Sql.Add(',@ToCoName=' + Quotedstr(Trim(Order_Main.FieldByName('CustName').AsString))); - Sql.Add(',@Dcode=' + Quotedstr(DCode)); - Sql.Add(',@DName=' + Quotedstr(DName)); - ShowMessage(sql.text); - Open; - end; - - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - begin - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - end; - - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('update Trade_Market_Sub set substatus =3 '); - sql.add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','') X where X.RTValue=Trade_Market_Sub.TMSID ) '); -// ShowMessage(sql.text); - execsql; - end; - - CDS_ph.EnableControls; - Order_Main.EnableControls; - ADOQueryCmd.Connection.CommitTrans; - if Application.MessageBox('ȷҪӡⵥ', 'ʾ', 32 + 4) = IDYES then - begin - TBPrint1.Click; - end; - TBRafresh.Click; - - except - CDS_ph.EnableControls; - Order_Main.EnableControls; - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox('ʧܣ', 'ʾϢ'); - end; -end; - -procedure TfrmTradeDispatchedList.ToolButton9Click(Sender: TObject); -var - fPrintFile, FLabVolume: string; -begin - if CDS_PH.IsEmpty then - Exit; - if CDS_PH.Locate('SSel', True, []) = False then - begin - Application.MessageBox('ûѡ!', 'ʾ', 0); - Exit; - end; - CDS_PH.DisableControls; - with CDS_PH do - begin - First; - while not Eof do - begin - if CDS_PH.FieldByName('SSel').AsBoolean = True then - begin - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + ''''); - sql.Add(' where BCIOID=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + ''''); - ExecSQL; - end; - - with ADOQueryPrint do - begin - Close; - SQL.Clear; - sql.Add(' EXEC P_BS_Cloth_Prt13 '); - SQL.Add(' @Filtration=''' + Trim(CDS_PH.fieldbyname('BCIOID').AsString) + ''''); - Open; - end; - if ADOQueryPrint.IsEmpty then - begin - application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); - CDS_PH.EnableControls; - exit; - end; - - if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = 'Ʒ' then - FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) - else - FLabVolume := 'Ʒǩ'; - - ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp); - fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; - - if FileExists(fPrintFile) then - begin - RM1.LoadFromFile(fPrintFile); - if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then - Rm1.DefaultCopies := 1 - else - Rm1.DefaultCopies := 1; - RM1.PrintReport; - end - else - begin - Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); - end; - end; - Next; - end; - end; - CDS_PH.EnableControls; - - initPH(); -end; - -procedure TfrmTradeDispatchedList.delClick(Sender: TObject); -begin - inherited; - if cds_ph.IsEmpty then - exit; - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('delete from Trade_Market_Distribution '); - sql.Add('where TMD=' + quotedstr(trim(cds_ph.fieldbyname('TMD').AsString))); - execsql; - end; - cds_ph.Delete; -end; - procedure TfrmTradeDispatchedList.TBPrint1Click(Sender: TObject); begin inherited; @@ -942,180 +644,52 @@ begin end; end; -procedure TfrmTradeDispatchedList.ToolButton5Click(Sender: TObject); -begin - if cds_ph.IsEmpty then - exit; - if cxTabControl1.TabIndex = 1 then - begin - if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then - Exit; - - try - - ADOQueryCmd.Connection.BeginTrans; - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('select * from Trade_Market_Sub '); - sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString))); - sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString))); - open; - edit; - fieldbyname('substatus').Value := '0'; - post; - end; - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('update BS_Cloth_IO SET disstatus=null '); - sql.Add('from Trade_Market_Distribution B where B.stkid=A.stkid '); - sql.Add('and TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString))); - sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString))); - execsql; - end; - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('delete from Trade_Market_Distribution '); - sql.Add('where TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString))); - execsql; - end; - - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); - sql.Add(' ' + quotedstr(trim(DName))); - sql.Add(',getdate() '); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(trim(''))); - sql.Add(',' + quotedstr(trim(':' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' :' + trim(Order_Main.FieldByName('C_Code').AsString) + ' ɫ:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' :' + trim(Order_Main.FieldByName('C_Pattern').AsString)))); - sql.Add(',' + quotedstr(trim('ɹ'))); - sql.Add(')'); - ExecSQL; - end; - - ADOQueryCmd.Connection.CommitTrans; - - application.MessageBox('ɹ', 'ʾϢ'); - TBRafresh.Click; - except - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox('ʧܣ', 'ʾϢ', 0); - end; - end; -end; - -procedure TfrmTradeDispatchedList.TdbchexiaoClick(Sender: TObject); +procedure TfrmTradeDispatchedList.ToolButton7Click(Sender: TObject); begin inherited; - if CDS_PH.IsEmpty then + if cds_ph.IsEmpty then exit; - CDS_PH.first; try - if Application.MessageBox('ȷҪִв', 'ʾ', 32 + 4) <> IDYES then - Exit; - ADOQueryCmd.Connection.BeginTrans; - while not CDS_PH.eof do - begin - if CDS_PH.FieldByName('ssel').AsBoolean then - begin - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('update BS_Cloth_IO SET disstatus=null '); - sql.Add('where stkid=' + quotedstr(trim(CDS_PH.fieldbyname('stkid').AsString))); - execsql; - end; - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('delete from Trade_Market_Distribution '); - sql.Add('where TMDID=' + quotedstr(trim(CDS_PH.fieldbyname('TMDID').AsString))); - execsql; - end; - end; - CDS_PH.next; - end; - with ADOQueryTemp do + with ADOQueryCmd do begin close; sql.Clear; - sql.Add('select * from Trade_Market_Distribution '); + sql.Add('select * from Trade_Market_Sub '); sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString))); sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString))); open; + edit; + fieldbyname('substatus').Value := '2'; + post; end; - if ADOQueryTemp.IsEmpty then - begin - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('select * from Trade_Market_Sub '); - sql.Add('where TMMID=' + quotedstr(trim(Order_Main.fieldbyname('TMMID').AsString))); - sql.Add('and TMSID=' + quotedstr(trim(Order_Main.fieldbyname('TMSID').AsString))); - open; - edit; - fieldbyname('substatus').Value := '0'; - post; - end; - end; - CDS_PH.first; - - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); - sql.Add(' ' + quotedstr(trim(DName))); - sql.Add(',getdate() '); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(trim(''))); - sql.Add(',' + quotedstr(trim(':' + trim(Order_Main.FieldByName('TMMNO').AsString) + ' :' + trim(Order_Main.FieldByName('C_Code').AsString) + ' ɫ:' + trim(Order_Main.FieldByName('C_Color').AsString) + ' :' + trim(Order_Main.FieldByName('C_Pattern').AsString)))); - sql.Add(',' + quotedstr(trim('ɹ'))); - sql.Add(')'); - ExecSQL; - end; - ADOQueryCmd.Connection.CommitTrans; - - Application.MessageBox('ɹ!', 'ʾ', 0); - initph(); + application.MessageBox('ȷϳɹ', 'ʾϢ'); + TBRafresh.Click; except - ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('쳣!', 'ʾ', 0); + application.MessageBox('ȷʧܣ', 'ʾϢ', 0); end; end; -procedure TfrmTradeDispatchedList.ToolButton4Click(Sender: TObject); -var - fsubid: string; +procedure TfrmTradeDispatchedList.ToolButton9Click(Sender: TObject); begin inherited; - if Order_Main.IsEmpty then - exit; - fsubid := order_main.FieldByName('TMSID').AsString; + if CDS_PH.IsEmpty then + Exit; + MSubIds := Trim(Self.CDS_PH.fieldbyname('BCIONO').AsString); - frmTradeMarketDisSel := TfrmTradeMarketDisSel.create(self); - with frmTradeMarketDisSel do - begin - fmainID := trim(self.Order_Main.FieldByName('TMMID').AsString); - if showmodal = 1 then + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do begin - + FLMType := 'DistributionPrint11'; + FFiltration1 := Trim(MSubIds); + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; end; - free; + finally + frmLabelPrint.Free; end; - - TBRafresh.Click; - Order_Main.Locate('Tmsid', fsubid, []); end; procedure TfrmTradeDispatchedList.ToolButton1Click(Sender: TObject); @@ -1138,165 +712,19 @@ begin end; procedure TfrmTradeDispatchedList.ToolButton3Click(Sender: TObject); -var - MStkIds: string; begin - if Order_Main.Locate('ssel', true, []) = false then - begin - Application.MessageBox('ûѡ!', 'ʾ', 0); - Exit; - end; try - ADOQueryCmd.Connection.BeginTrans; - MSubIds := ''; - MStkIds := ''; - Order_Main.First; - while not Order_Main.eof do + frmTradeClothTotalPHList := TfrmTradeClothTotalPHList.Create(Application); + with frmTradeClothTotalPHList do begin - - if Order_Main.FieldByName('ssel').AsBoolean then + FBCIONO := Trim(Self.CDS_PH.fieldbyname('BCIONO').AsString); + if ShowModal = 1 then begin - InitPH(); - - MSubIds := MSubIds + (Trim(Order_Main.FieldByName('TMSID').AsString)) + ','; - with cds_ph do - begin - while not eof do - begin - MStkIds := MStkIds + (Trim(cds_ph.FieldByName('StkId').AsString)) + ','; - next; - end; - end; end; - Order_Main.Next; end; - MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1); - MSubIds := copy(MSubIds, 1, Length(MSubIds) - 1); - - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('insert into Trade_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); - sql.Add('values(''ó׳Ʒ'' '); - sql.Add(',' + quotedstr(MSubIDS)); - sql.Add(','''' '); - sql.Add(',' + quotedstr(DName)); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(MStkIds)); - sql.Add(') '); - execsql; - end; - - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); - sql.Add('values(''ó׳Ʒ'' '); - sql.Add(',' + quotedstr('')); - sql.Add(','''' '); - sql.Add(',' + quotedstr(DName)); - sql.Add(',' + quotedstr(trim(self.Caption))); - sql.Add(',' + quotedstr(MStkIds)); - sql.Add(') '); - execsql; - end; - with ADOQueryCmd do - begin - Close; - Sql.Clear; - Sql.Add('exec P_BS_Cloth_Out_TMMDel '); - Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@DCode=' + Quotedstr(DCode)); - Sql.Add(',@DName=' + Quotedstr(DName)); -// ShowMessage(sql.Text); - Open; - end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - begin - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - end; - - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('update Trade_Market_Sub set substatus =2 '); - sql.add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](''' + MSubIds + ''','','') X where X.RTValue=Trade_Market_Sub.TMSID ) '); -// ShowMessage(sql.text); - execsql; - end; - -// PlayWav('ȷ'); - - Application.MessageBox('ɹ!', 'ʾ', 0); - ADOQueryCmd.Connection.CommitTrans; - - TBRafresh.Click; - except - Application.MessageBox('ʧ!', 'ʾ', 0); - order_main.EnableControls; - ADOQueryCmd.Connection.RollbackTrans; - end; - -end; - -procedure TfrmTradeDispatchedList.phwcClick(Sender: TObject); -var - phRollNum, phQty: double; -begin - if cds_ph.IsEmpty then - exit; - - with CDS_PH do - begin - DisableControls; - first; - while not eof do - begin - if (trim(fieldbyname('C_Code').AsString) <> trim(Order_Main.FieldByName('C_Code').AsString)) or (trim(fieldbyname('C_Color').AsString) <> trim(Order_Main.FieldByName('C_Color').AsString)) or (trim(fieldbyname('C_Pattern').AsString) <> trim(Order_Main.FieldByName('C_Pattern').AsString)) then - begin - application.MessageBox('Ʒţͻɫһ£', 'ʾϢ', 0); - EnableControls; - exit; - end; - next; - end; - first; - EnableControls; - end; - phRollNum := 0; - phQty := 0; - with CDS_PH do - begin - DisableControls; - first; - while not eof do - begin - phRollNum := phRollNum + 1; - phQty := phQty + CDS_PH.fieldbyname('stkmeter').AsFloat; - next; - end; - first; - EnableControls; - end; - - if (phRollNum <> Order_Main.FieldByName('TMSPiece').AsFloat) or (phQty <> Order_Main.FieldByName('TMSQty').AsFloat) then - begin - if Application.MessageBox('δﵽҪȷ', 'ʾϢ', 32 + 4) <> IDYES then - Exit; - end; - - if SaveData() then - begin - application.MessageBox('ɹ!', 'ʾϢ'); - TBRafresh.Click; - end - else - begin - application.MessageBox('ʧ!', 'ʾϢ', 0); + finally + frmTradeClothTotalPHList.Free; end; end; diff --git a/T05贸易门市管理/U_TradeMarketDisScan.pas b/T05贸易门市管理/U_TradeMarketDisScan.pas index 4c1662c..8572e22 100644 --- a/T05贸易门市管理/U_TradeMarketDisScan.pas +++ b/T05贸易门市管理/U_TradeMarketDisScan.pas @@ -16,7 +16,7 @@ uses System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, dxScrollbarAnnotations, - cxImageList; + cxImageList, dxSkinsCore, dxSkinsDefaultPainters; type TfrmTradeMarketDisScan = class(TfrmBaseInput) diff --git a/T05贸易门市管理/U_TradeMarketInPut.dfm b/T05贸易门市管理/U_TradeMarketInPut.dfm index 1cbe401..b8c923c 100644 --- a/T05贸易门市管理/U_TradeMarketInPut.dfm +++ b/T05贸易门市管理/U_TradeMarketInPut.dfm @@ -2,14 +2,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut Left = 143 Top = 4 Caption = #35746#21333#24405#20837 - ClientHeight = 823 + ClientHeight = 652 ClientWidth = 1360 Font.Charset = GB2312_CHARSET Font.Height = -16 Position = poMainFormCenter WindowState = wsMaximized ExplicitWidth = 1376 - ExplicitHeight = 862 + ExplicitHeight = 691 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -103,25 +103,28 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut Left = 0 Top = 254 Width = 1360 - Height = 569 + Height = 398 Align = alClient Caption = 'Panel2' TabOrder = 2 + ExplicitHeight = 569 object Panel3: TPanel Left = 1 Top = 1 Width = 1072 - Height = 567 + Height = 396 Align = alClient Caption = 'Panel2' TabOrder = 0 + ExplicitHeight = 567 object cxGrid1: TcxGrid Left = 1 Top = 1 Width = 1070 - Height = 565 + Height = 394 Align = alClient TabOrder = 0 + ExplicitHeight = 565 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -320,10 +323,11 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut Left = 1073 Top = 1 Width = 286 - Height = 567 + Height = 396 Align = alRight Caption = 'Panel4' TabOrder = 1 + ExplicitHeight = 567 object Panel5: TPanel Left = 1 Top = 1 @@ -357,17 +361,19 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut Left = 1 Top = 42 Width = 284 - Height = 524 + Height = 353 Align = alClient Caption = #21452#20987#21024#38500#26126#32454#20449#24687 TabOrder = 1 + ExplicitHeight = 524 object cxGrid2: TcxGrid Left = 2 Top = 23 Width = 280 - Height = 499 + Height = 328 Align = alClient TabOrder = 0 + ExplicitHeight = 499 object TvMX: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -440,7 +446,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut ParentCtl3D = False TabOrder = 3 OnClick = ScrollBox1Click - ExplicitTop = 24 object Label3: TLabel Left = 722 Top = 13 diff --git a/T05贸易门市管理/U_TradeMarketList.dfm b/T05贸易门市管理/U_TradeMarketList.dfm index 76e61e2..2bc3aab 100644 --- a/T05贸易门市管理/U_TradeMarketList.dfm +++ b/T05贸易门市管理/U_TradeMarketList.dfm @@ -1,8 +1,8 @@ inherited frmTradeMarketList: TfrmTradeMarketList Left = 165 Top = 13 - Caption = #29983#20135#35745#21010#21333#31649#29702 - ClientHeight = 760 + Caption = #22823#36135#21333 + ClientHeight = 594 ClientWidth = 1540 Color = clBtnFace Font.Height = -16 @@ -10,7 +10,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList Position = poScreenCenter Visible = True ExplicitWidth = 1556 - ExplicitHeight = 799 + ExplicitHeight = 633 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] @@ -252,10 +252,11 @@ inherited frmTradeMarketList: TfrmTradeMarketList Left = 0 Top = 152 Width = 1540 - Height = 404 + Height = 238 Align = alClient PopupMenu = PM_1 TabOrder = 3 + ExplicitHeight = 404 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -297,7 +298,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 118 end object Tv1Column2: TcxGridDBColumn Caption = #32463#33829#21333#20301 @@ -305,7 +306,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 103 end object Tv1Column4: TcxGridDBColumn Caption = #23458#25143 @@ -313,7 +314,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 91 end object v1DeliveryDate: TcxGridDBColumn Caption = #20132#36135#26085#26399 @@ -324,7 +325,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList OnCustomDrawCell = v1DeliveryDateCustomDrawCell HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 174 end object Tv1Column11: TcxGridDBColumn Caption = #21305#25968 @@ -389,11 +390,12 @@ inherited frmTradeMarketList: TfrmTradeMarketList end object cxSplitter1: TcxSplitter [3] Left = 0 - Top = 556 + Top = 390 Width = 1540 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom + ExplicitTop = 556 end object cxTabControl1: TcxTabControl [4] Left = 0 @@ -418,13 +420,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList end object Panel2: TPanel [5] Left = 0 - Top = 564 + Top = 398 Width = 1540 Height = 196 Align = alBottom BevelOuter = bvNone Caption = 'Panel2' TabOrder = 5 + ExplicitTop = 564 object cxGrid2: TcxGrid Left = 0 Top = 0 @@ -495,14 +498,14 @@ inherited frmTradeMarketList: TfrmTradeMarketList DataBinding.FieldName = 'C_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 70 + Width = 92 end object TV2Column2: TcxGridDBColumn Caption = #33394#24067#21517#31216 DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 70 + Width = 106 end object v1PRTColor: TcxGridDBColumn Caption = #20013#25991#39068#33394 @@ -517,7 +520,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList Properties.ReadOnly = False HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 79 + Width = 103 end object VC_PRTPs: TcxGridDBColumn Caption = #21305#25968