diff --git a/A00通用窗体/U_UserSel.dfm b/A00通用窗体/U_UserSel.dfm index 8b10776..ca25f78 100644 --- a/A00通用窗体/U_UserSel.dfm +++ b/A00通用窗体/U_UserSel.dfm @@ -24,8 +24,7 @@ inherited frmUserSel: TfrmUserSel ButtonWidth = 75 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_Company.ImageList_new32 - Images = DataLink_Company.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 List = True ParentColor = False ShowCaptions = True @@ -73,6 +72,7 @@ inherited frmUserSel: TfrmUserSel BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 + ExplicitTop = 18 object Label3: TLabel Left = 202 Top = 13 @@ -115,11 +115,14 @@ inherited frmUserSel: TfrmUserSel Height = 445 Align = alClient TabOrder = 2 + ExplicitTop = 57 + ExplicitHeight = 465 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -128,14 +131,10 @@ inherited frmUserSel: TfrmUserSel OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsView.GroupByBox = False - Styles.IncSearch = DataLink_Company.SHuangSe - Styles.Footer = DataLink_Company.handBlack - Styles.Header = DataLink_Company.handBlack - Styles.Inactive = DataLink_Company.SHuangSe - Styles.Selection = DataLink_Company.SHuangSe object VC_SSel: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -144,6 +143,7 @@ inherited frmUserSel: TfrmUserSel object v2Column1: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'UserID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -151,6 +151,7 @@ inherited frmUserSel: TfrmUserSel object v2Column2: TcxGridDBColumn Caption = #21517#31216 DataBinding.FieldName = 'UserName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 171 @@ -158,6 +159,7 @@ inherited frmUserSel: TfrmUserSel object v2Column3: TcxGridDBColumn Caption = #37096#38376 DataBinding.FieldName = 'Udept' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -168,30 +170,30 @@ inherited frmUserSel: TfrmUserSel end end inherited ADOQueryBaseCmd: TADOQuery - Connection = ADOConnection1 + Connection = DataLink_Financial.ADOLink Left = 473 Top = 184 end inherited ADOQueryBaseTemp: TADOQuery - Connection = ADOConnection1 + Connection = DataLink_Financial.ADOLink Left = 465 Top = 105 end object ADOQueryTemp: TADOQuery - Connection = ADOConnection1 + Connection = DataLink_Financial.ADOLink LockType = ltReadOnly Parameters = <> Left = 68 Top = 136 end object ADOQueryCmd: TADOQuery - Connection = ADOConnection1 + Connection = DataLink_Financial.ADOLink Parameters = <> Left = 188 Top = 224 end object ADOQueryMain: TADOQuery - Connection = ADOConnection1 + Connection = DataLink_Financial.ADOLink LockType = ltReadOnly Parameters = <> Left = 54 diff --git a/A00通用窗体/U_UserSel.pas b/A00通用窗体/U_UserSel.pas index 900602c..f8c81da 100644 --- a/A00通用窗体/U_UserSel.pas +++ b/A00通用窗体/U_UserSel.pas @@ -14,7 +14,8 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, U_BaseHelp, - dxBarBuiltInMenu, System.ImageList, Vcl.ImgList; + dxBarBuiltInMenu, System.ImageList, Vcl.ImgList, dxSkinWXI, + dxScrollbarAnnotations; type FdDy = record diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 3b39f78..f81f288 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -1,37 +1,37 @@  - 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.328,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGRZInput.pas - 1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899-12-30 00:00:00.000.481,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_SLT.pas - 1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.433,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSel.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSelX.dfm - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas - 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_EmpFileUp.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.dfm - 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= - 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_EmpFileUp.pas=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.pas - 1899-12-30 00:00:00.000.212,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas 1899-12-30 00:00:00.000.670,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGDJInput.pas 1899-12-30 00:00:00.000.432,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGDJInput.pas= - 1899-12-30 00:00:00.000.433,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSel.pas=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSelX.pas - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas - 1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= - 1899-12-30 00:00:00.000.559,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_Emp_Input.pas - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas - 1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm + 1899-12-30 00:00:00.000.212,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas + 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas + 1899-12-30 00:00:00.000.027,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInRC.pas=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInput.pas + 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm + 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm + 1899-12-30 00:00:00.000.027,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInRC.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInput.dfm + 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= + 1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas 1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas - 1899-12-30 00:00:00.000.027,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInput.pas=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInRC.pas - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas + 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.pas=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_EmpFileUp.pas 1899-12-30 00:00:00.000.330,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.pas - 1899-12-30 00:00:00.000.027,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInput.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInRC.dfm + 1899-12-30 00:00:00.000.559,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_Emp_Input.pas + 1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.433,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSelX.pas=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSel.pas + 1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= 1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.481,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_SLT.pas + 1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.328,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGRZInput.pas + 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm + 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_EmpFileUp.dfm + 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm + 1899-12-30 00:00:00.000.433,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSelX.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSel.dfm @@ -62,7 +62,7 @@ - + diff --git a/A01基础公司管理/ProjectGroup1.groupproj b/A01基础公司管理/ProjectGroup1.groupproj index 69610c1..694920c 100644 --- a/A01基础公司管理/ProjectGroup1.groupproj +++ b/A01基础公司管理/ProjectGroup1.groupproj @@ -6,6 +6,9 @@ + + + Default.Personality.12 @@ -23,14 +26,23 @@ + + + + + + + + + - + - + - + diff --git a/A01基础公司管理/ProjectGroup1.groupproj.local b/A01基础公司管理/ProjectGroup1.groupproj.local index c6e3299..d8c2f69 100644 --- a/A01基础公司管理/ProjectGroup1.groupproj.local +++ b/A01基础公司管理/ProjectGroup1.groupproj.local @@ -1,6 +1,6 @@  - - - + + + diff --git a/A01基础公司管理/U_CustFileUp.dfm b/A01基础公司管理/U_CustFileUp.dfm index b2c8a22..62ba65f 100644 --- a/A01基础公司管理/U_CustFileUp.dfm +++ b/A01基础公司管理/U_CustFileUp.dfm @@ -25,6 +25,7 @@ object frmCustFileUp: TfrmCustFileUp TabOrder = 0 object TV7: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> @@ -39,6 +40,7 @@ object frmCustFileUp: TfrmCustFileUp Tag = 1 Caption = #25991#20214#21517#31216 DataBinding.FieldName = 'FileName' + DataBinding.IsNullValueType = True FooterAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter Width = 121 @@ -46,6 +48,7 @@ object frmCustFileUp: TfrmCustFileUp object TV7Column1: TcxGridDBColumn Caption = #33457#22411#21517#31216 DataBinding.FieldName = 'HXName' + DataBinding.IsNullValueType = True Visible = False GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter @@ -55,6 +58,7 @@ object frmCustFileUp: TfrmCustFileUp Tag = 1 Caption = #19978#20256#26085#26399 DataBinding.FieldName = 'TFDate' + DataBinding.IsNullValueType = True FooterAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter Width = 104 diff --git a/A01基础公司管理/U_CustFileUp.pas b/A01基础公司管理/U_CustFileUp.pas index 4972005..1d4afb9 100644 --- a/A01基础公司管理/U_CustFileUp.pas +++ b/A01基础公司管理/U_CustFileUp.pas @@ -11,7 +11,7 @@ uses IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles, strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase, - Vcl.ExtDlgs; + Vcl.ExtDlgs, dxSkinWXI, dxScrollbarAnnotations; type TfrmCustFileUp = class(TForm) diff --git a/A01基础公司管理/U_Customer.dfm b/A01基础公司管理/U_Customer.dfm index d4e9cea..f2a6abb 100644 --- a/A01基础公司管理/U_Customer.dfm +++ b/A01基础公司管理/U_Customer.dfm @@ -258,6 +258,7 @@ inherited frmCustomer: TfrmCustomer Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DS_1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -286,11 +287,13 @@ inherited frmCustomer: TfrmCustomer object Tv1Column1: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True Width = 42 end object v2Column2: TcxGridDBColumn Caption = #23458#25143#32534#21495 DataBinding.FieldName = 'CoCode' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -299,6 +302,7 @@ inherited frmCustomer: TfrmCustomer object v2Column6: TcxGridDBColumn Caption = #20844#21496#20840#31216 DataBinding.FieldName = 'CoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -307,6 +311,7 @@ inherited frmCustomer: TfrmCustomer object v2Column15: TcxGridDBColumn Caption = #20844#21496#31616#31216 DataBinding.FieldName = 'CoAbbrName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 @@ -314,6 +319,7 @@ inherited frmCustomer: TfrmCustomer object v2Column10: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 84 @@ -321,6 +327,7 @@ inherited frmCustomer: TfrmCustomer object v2Column7: TcxGridDBColumn Caption = #20844#21496#22320#22336 DataBinding.FieldName = 'CoAddress' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -329,18 +336,21 @@ inherited frmCustomer: TfrmCustomer object Tv1Column8: TcxGridDBColumn Caption = #38468#20214 DataBinding.FieldName = 'IsFJ' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 40 end object Tv1Column9: TcxGridDBColumn Caption = #22270#29255 DataBinding.FieldName = 'ISImg' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 40 end object v2Column1: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -349,6 +359,7 @@ inherited frmCustomer: TfrmCustomer object v2Column3: TcxGridDBColumn Caption = #22269#23478 DataBinding.FieldName = 'cocountry' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 99 @@ -356,6 +367,7 @@ inherited frmCustomer: TfrmCustomer object Tv1Column2: TcxGridDBColumn Caption = #23458#25143#31561#32423 DataBinding.FieldName = 'CoLevel' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -363,6 +375,7 @@ inherited frmCustomer: TfrmCustomer object Tv1Column3: TcxGridDBColumn Caption = #30331#35760#26102#38388 DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -370,6 +383,7 @@ inherited frmCustomer: TfrmCustomer object Tv1Column4: TcxGridDBColumn Caption = #30331#35760#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -377,6 +391,7 @@ inherited frmCustomer: TfrmCustomer object Tv1Column5: TcxGridDBColumn Caption = #29702#21333 DataBinding.FieldName = 'Tallyer' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 99 @@ -384,6 +399,7 @@ inherited frmCustomer: TfrmCustomer object Tv1Column7: TcxGridDBColumn Caption = #19978#32423#21333#20301 DataBinding.FieldName = 'ParentCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 86 @@ -391,6 +407,7 @@ inherited frmCustomer: TfrmCustomer object Tv1Column6: TcxGridDBColumn Caption = #23458#25143#31867#22411 DataBinding.FieldName = 'CoBusinessType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -398,10 +415,12 @@ inherited frmCustomer: TfrmCustomer object Tv1Column10: TcxGridDBColumn Caption = #23458#25143#26469#28304 DataBinding.FieldName = 'Source' + DataBinding.IsNullValueType = True end object Tv1Column11: TcxGridDBColumn Caption = #40664#35748#32852#31995#20154 DataBinding.FieldName = 'Contacts' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 77 end @@ -429,6 +448,7 @@ inherited frmCustomer: TfrmCustomer Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_3 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -451,66 +471,77 @@ inherited frmCustomer: TfrmCustomer object TV3Column1: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'Type' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 56 end object TV3Column2: TcxGridDBColumn Caption = #21333#21495 DataBinding.FieldName = 'DNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 62 end object TV3Column3: TcxGridDBColumn Caption = #26085#26399 DataBinding.FieldName = 'Date' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 58 end object TV3Column4: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 45 end object TV3Column5: TcxGridDBColumn Caption = #24635#25968#37327 DataBinding.FieldName = 'ZQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 57 end object TV3Column6: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'Unit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 44 end object TV3Column7: TcxGridDBColumn Caption = #24635#37329#39069 DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end object TV3Column8: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'CodeList' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 360 end object TV3Column9: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'NameList' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 360 end object TV3Column10: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end object TV3Column11: TcxGridDBColumn Caption = #35760#24405#20869#23481 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 113 end @@ -551,6 +582,7 @@ inherited frmCustomer: TfrmCustomer Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -573,6 +605,7 @@ inherited frmCustomer: TfrmCustomer object cxGridDBColumn3: TcxGridDBColumn Caption = #40664#35748 DataBinding.FieldName = 'IsDefault' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -581,6 +614,7 @@ inherited frmCustomer: TfrmCustomer object cxGridDBColumn6: TcxGridDBColumn Caption = #32852#31995#20154 DataBinding.FieldName = 'Contacts' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.CharCase = ecUpperCase HeaderAlignmentHorz = taCenter @@ -589,6 +623,7 @@ inherited frmCustomer: TfrmCustomer object cxGridDBColumn7: TcxGridDBColumn Caption = #32844#20301 DataBinding.FieldName = 'position' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.CharCase = ecUpperCase HeaderAlignmentHorz = taCenter @@ -597,6 +632,7 @@ inherited frmCustomer: TfrmCustomer object cxGridDBColumn8: TcxGridDBColumn Caption = #32852#31995#30005#35805 DataBinding.FieldName = 'Telephone' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.CharCase = ecUpperCase HeaderAlignmentHorz = taCenter @@ -605,6 +641,7 @@ inherited frmCustomer: TfrmCustomer object cxGridDBColumn9: TcxGridDBColumn Caption = #25163#26426#21495 DataBinding.FieldName = 'PhoneNumber' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.CharCase = ecUpperCase HeaderAlignmentHorz = taCenter @@ -613,6 +650,7 @@ inherited frmCustomer: TfrmCustomer object cxGridDBColumn10: TcxGridDBColumn Caption = 'EMAIL' DataBinding.FieldName = 'Email' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.CharCase = ecUpperCase HeaderAlignmentHorz = taCenter @@ -621,6 +659,7 @@ inherited frmCustomer: TfrmCustomer object cxGridDBColumn11: TcxGridDBColumn Caption = #24494#20449#21495 DataBinding.FieldName = 'WeChat' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 169 end diff --git a/A01基础公司管理/U_Customer.pas b/A01基础公司管理/U_Customer.pas index 597a0d0..5f84bdb 100644 --- a/A01基础公司管理/U_Customer.pas +++ b/A01基础公司管理/U_Customer.pas @@ -14,7 +14,7 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, cxPC, jpeg; + dxBarBuiltInMenu, cxPC, jpeg, dxSkinWXI, dxScrollbarAnnotations; var Mach: array of TfrmSlt; diff --git a/A01基础公司管理/U_DataLink.pas b/A01基础公司管理/U_DataLink.pas index d03eed9..96b273f 100644 --- a/A01基础公司管理/U_DataLink.pas +++ b/A01基础公司管理/U_DataLink.pas @@ -5,7 +5,7 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore, - dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs; + dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs, dxSkinWXI; type TMyThread = class(TThread) diff --git a/A01基础公司管理/testDll.identcache b/A01基础公司管理/testDll.identcache index bc613fe..e2dda59 100644 Binary files a/A01基础公司管理/testDll.identcache and b/A01基础公司管理/testDll.identcache differ diff --git a/A03基础价格管理/MarketValue.identcache b/A03基础价格管理/MarketValue.identcache index a63974e..bfaa69b 100644 Binary files a/A03基础价格管理/MarketValue.identcache and b/A03基础价格管理/MarketValue.identcache differ diff --git a/A03基础价格管理/MarketValue.skincfg b/A03基础价格管理/MarketValue.skincfg new file mode 100644 index 0000000..13b0969 --- /dev/null +++ b/A03基础价格管理/MarketValue.skincfg @@ -0,0 +1,62 @@ +[ExpressSkins] +Default=0 +ShowNotifications=1 +Enabled=1 +dxSkinBasic=1 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkroom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinOffice2016Colorful=1 +dxSkinOffice2016Dark=1 +dxSkinOffice2019Black=1 +dxSkinOffice2019Colorful=1 +dxSkinOffice2019DarkGray=1 +dxSkinOffice2019White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringtime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinTheBezier=1 +dxSkinsDefaultPainters=1 +dxSkinValentine=1 +dxSkinVisualStudio2013Blue=1 +dxSkinVisualStudio2013Dark=1 +dxSkinVisualStudio2013Light=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 +dxSkinWXI=1 +dxSkinXmas2008Blue=1 diff --git a/A03基础价格管理/ProjectGroup1.groupproj.local b/A03基础价格管理/ProjectGroup1.groupproj.local index 4144683..89abbb8 100644 --- a/A03基础价格管理/ProjectGroup1.groupproj.local +++ b/A03基础价格管理/ProjectGroup1.groupproj.local @@ -1,6 +1,6 @@  - - - + + + diff --git a/A03基础价格管理/testDll.identcache b/A03基础价格管理/testDll.identcache index d56bd5c..054fce9 100644 Binary files a/A03基础价格管理/testDll.identcache and b/A03基础价格管理/testDll.identcache differ diff --git a/A09财务通用管理/Financial.dpr b/A09财务通用管理/Financial.dpr index 7fe4fd2..8159a44 100644 --- a/A09财务通用管理/Financial.dpr +++ b/A09财务通用管理/Financial.dpr @@ -33,7 +33,11 @@ uses U_OtherPayableInput in 'U_OtherPayableInput.pas' {frmOtherPayableInput}, U_handPayableList in 'U_handPayableList.pas' {frmhandPayableList}, U_HandPayableInPut in 'U_HandPayableInPut.pas' {frmHandPayableInPut}, - U_HandPayableImport in 'U_HandPayableImport.pas' {frmHandPayableImport}; + U_HandPayableImport in 'U_HandPayableImport.pas' {frmHandPayableImport}, + U_UserSel in '..\A00ͨô\U_UserSel.pas' {frmUserSel}, + U_ProductInfoSel in '..\A00ͨô\U_ProductInfoSel.pas' {frmProductInfoSel}, + U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, + U_FinFileUp in 'U_FinFileUp.pas' {frmFinFileUp}; {$R *.res} diff --git a/A09财务通用管理/Financial.dproj b/A09财务通用管理/Financial.dproj index 790c266..0d62c98 100644 --- a/A09财务通用管理/Financial.dproj +++ b/A09财务通用管理/Financial.dproj @@ -218,6 +218,22 @@
frmHandPayableImport
dfm + +
frmUserSel
+ dfm + + +
frmProductInfoSel
+ dfm + + +
frmPictureUpload
+ dfm + + +
frmFinFileUp
+ dfm + Cfg_2 Base diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index 30c9616..2341e80 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,53 +1,57 @@  - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm + 1899-12-30 00:00:00.000.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas + 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas + 1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas 1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas + 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas - 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas + 1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas + 1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas 1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas - 2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm - 2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm - 2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas - 2024-08-06 14:37:23.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas + 2024-08-10 14:27:36.318,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_ProductInfoSel.pas + 2024-08-10 14:28:06.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_PictureUpload.pas + 2024-08-10 14:32:22.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas @@ -92,6 +96,12 @@ + + + + + + @@ -134,5 +144,7 @@ + + diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index cf63bb0..9a8c66d 100644 Binary files a/A09财务通用管理/Financial.identcache and b/A09财务通用管理/Financial.identcache differ diff --git a/A09财务通用管理/U_CollectInput.pas b/A09财务通用管理/U_CollectInput.pas index 64c313f..c0aa5dd 100644 --- a/A09财务通用管理/U_CollectInput.pas +++ b/A09财务通用管理/U_CollectInput.pas @@ -73,7 +73,6 @@ type { Private declarations } procedure InitGrid(); function SaveData(): Boolean; - public { Public declarations } FFFID: string; @@ -180,7 +179,7 @@ end; procedure TfrmCollectInput.OrderNoBtnUpClick(Sender: TObject); begin - try + try frmTradePlanSel := TfrmTradePlanSel.Create(Application); with frmTradePlanSel do begin @@ -270,15 +269,26 @@ end; procedure TfrmCollectInput.DKAmountExit(Sender: TObject); var - MDKAmount,MHL,MAmount: double; + MDKAmount, MHL, MAmount: double; begin MDKAmount := Strtofloatdef(DKAmount.Text, 0); MHL := Strtofloatdef(ExchangeRate.Text, 0); - if MDKAmount * MHL >= 0 then + if Currency.text = 'USD' then begin - MAmount := RoundFloat((MDKAmount * MHL), 2); + if MDKAmount / MHL >= 0 then + begin + MAmount := RoundFloat((MDKAmount / MHL), 2); + end; + end + else if Currency.text = 'CNY' then + begin + + if MDKAmount * MHL >= 0 then + begin + MAmount := RoundFloat((MDKAmount * MHL), 2); + end; end; // Price.Text := FloatToStr(MPrice); // Qty.Text := FloatToStr(MQty); @@ -313,7 +323,7 @@ begin // OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString); // OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString); // end; - ExchangeRate.Text:='1'; + ExchangeRate.Text := '1'; InitGrid(); end; diff --git a/A09财务通用管理/U_FinFileUp.dfm b/A09财务通用管理/U_FinFileUp.dfm new file mode 100644 index 0000000..3b23dd8 --- /dev/null +++ b/A09财务通用管理/U_FinFileUp.dfm @@ -0,0 +1,274 @@ +object frmFinFileUp: TfrmFinFileUp + Left = 612 + Top = 236 + Caption = #19978#20256#22270#29255 + ClientHeight = 595 + ClientWidth = 929 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poMainFormCenter + OnCreate = FormCreate + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid7: TcxGrid + Left = 0 + Top = 41 + Width = 858 + Height = 554 + Align = alClient + TabOrder = 0 + object TV7: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object FileName: TcxGridDBColumn + Tag = 1 + Caption = #25991#20214#21517#31216 + DataBinding.FieldName = 'FileName' + DataBinding.IsNullValueType = True + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 121 + end + object TV7Column1: TcxGridDBColumn + Caption = #33457#22411#21517#31216 + DataBinding.FieldName = 'HXName' + DataBinding.IsNullValueType = True + Visible = False + GroupSummaryAlignment = taCenter + HeaderAlignmentHorz = taCenter + Width = 91 + end + object FileDate: TcxGridDBColumn + Tag = 1 + Caption = #19978#20256#26085#26399 + DataBinding.FieldName = 'TFDate' + DataBinding.IsNullValueType = True + FooterAlignmentHorz = taCenter + HeaderAlignmentHorz = taCenter + Width = 104 + end + end + object cxGridLevel6: TcxGridLevel + GridView = TV7 + end + end + object Panel16: TPanel + Left = 190 + Top = 126 + Width = 138 + Height = 30 + BevelInner = bvRaised + Caption = #27491#22312#19978#20256#12290#12290#12290 + Color = clSkyBlue + TabOrder = 1 + Visible = False + end + object ToolBar6: TToolBar + Left = 858 + Top = 41 + Width = 71 + Height = 554 + Align = alRight + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Images = DataLink_Financial.ImageList_new32 + List = True + ShowCaptions = True + TabOrder = 2 + ExplicitLeft = 866 + object FileUp: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #19978#20256 + ImageIndex = 2 + Wrap = True + OnClick = FileUpClick + end + object FileDel: TToolButton + Left = 0 + Top = 38 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + Wrap = True + OnClick = FileDelClick + end + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 929 + Height = 41 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + object Label1: TLabel + Left = 8 + Top = 15 + Width = 72 + Height = 17 + Caption = #23458#25143#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Image2: TImage + Left = 774 + Top = 7 + Width = 60 + Height = 28 + Visible = False + end + object Image1: TImage + Left = 861 + Top = 7 + Width = 60 + Height = 28 + Visible = False + end + object Label2: TLabel + Left = 336 + Top = 14 + Width = 36 + Height = 17 + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Code: TEdit + Left = 78 + Top = 11 + Width = 211 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + Visible = False + end + object HXName: TBtnEditC + Tag = 2 + Left = 378 + Top = 9 + Width = 168 + Height = 29 + Hint = 'CYKZ/'#20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + OnBtnUpClick = HXNameBtnUpClick + OnBtnDnClick = HXNameBtnDnClick + end + end + object ODPat: TOpenDialog + Filter = + 'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' + + 'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' + + 'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' + + ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' + + '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' + + 'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' + + 'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' + + 'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' + + ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' + + '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' + + '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' + + 'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' + + 'if)|*.tif|TIFF Images (*.tiff)|*.tiff' + Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] + Left = 380 + Top = 333 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 261 + Top = 244 + end + object SaveDialog1: TSaveDialog + Filter = + 'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' + + 'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' + + 'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' + + ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' + + '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' + + 'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' + + 'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' + + 'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' + + ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' + + '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' + + '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' + + 'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' + + 'if)|*.tif|TIFF Images (*.tiff)|*.tiff' + Left = 305 + Top = 333 + end + object ADOQueryFile: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 488 + Top = 144 + end + object DataSource1: TDataSource + DataSet = ADOQueryFile + Left = 376 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 584 + Top = 256 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 432 + Top = 224 + end +end diff --git a/A09财务通用管理/U_FinFileUp.pas b/A09财务通用管理/U_FinFileUp.pas new file mode 100644 index 0000000..b15a70a --- /dev/null +++ b/A09财务通用管理/U_FinFileUp.pas @@ -0,0 +1,381 @@ +unit U_FinFileUp; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls, cxGridLevel, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, + cxControls, cxGridCustomView, cxGrid, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles, + strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase, + Vcl.ExtDlgs, dxSkinWXI, dxScrollbarAnnotations; + +type + TfrmFinFileUp = class(TForm) + cxGrid7: TcxGrid; + TV7: TcxGridDBTableView; + FileName: TcxGridDBColumn; + FileDate: TcxGridDBColumn; + cxGridLevel6: TcxGridLevel; + Panel16: TPanel; + ToolBar6: TToolBar; + FileUp: TToolButton; + FileDel: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Code: TEdit; + ODPat: TOpenDialog; + IdFTP1: TIdFTP; + SaveDialog1: TSaveDialog; + ADOQueryFile: TADOQuery; + DataSource1: TDataSource; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + Image2: TImage; + Image1: TImage; + TV7Column1: TcxGridDBColumn; + Label2: TLabel; + HXName: TBtnEditC; + procedure FileUpClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FileDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure HXNameBtnUpClick(Sender: TObject); + procedure HXNameBtnDnClick(Sender: TObject); + private + lstPat: TStringList; + AJpeg: TJPEGImage; + procedure CreThumb(Image1, Image2: TImage; Width, Height: Integer); + procedure SaveImageOther(FTFID: string); + procedure ReadINIFile10(); + procedure InitTP(); + { Private declarations } + public + FBCIID: string; + FWidth, FHeight:Integer + { Public declarations } + end; + +var + frmFinFileUp: TfrmFinFileUp; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp; + +{$R *.dfm} procedure TfrmFinFileUp.InitTP(); +begin + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,HXName from TP_File where WBID=''' + Trim(FBCIID) + ''''); + SQL.Add(' and FileType=''FG'''); + Open; + end; +end; + +procedure TfrmFinFileUp.ReadINIFile10(); +var + programIni: Tinifile; //ļ + FileName: string; +begin + FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI'; + programIni := Tinifile.create(FileName); + server := programIni.ReadString('SERVER', 'ַ', '127.0.0.1'); + programIni.Free; +end; + +procedure TfrmFinFileUp.FileUpClick(Sender: TObject); +var + i, j, ii: Integer; + PatFile: string; + FTPPath, FConNo, MaxNo: string; + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + f: file of Byte; + size: Longint; + S: Double; +begin +// if Trim(Code.Text) = '' then +// begin +// Application.MessageBox('ŲΪգ', 'ʾ', 0); +// Exit; +// end; +// if Trim(HXName.Text) = '' then +// begin +// if Application.MessageBox('ȷΪ', 'ʾ', 32 + 4) <> IDYES then +// Exit; +// end; + + lstPat.Clear; + if ODPat.Execute then + begin + lstPat.AddStrings(ODPat.Files); + end; + if lstPat.Count > 0 then + begin + try + IdFTP1.Host := PicSvr; + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + IdFTP1.Quit; + Application.MessageBox('޷ӵļ飡', 'ʾ', MB_ICONWARNING); + Exit; + end; + end; + + Panel16.Visible := True; + Panel16.Refresh; + + try + AJpeg := TJpegImage.Create(); + ADOQueryCmd.Connection.BeginTrans; + ii := 0; + for i := 0 to lstPat.Count - 1 do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from TP_File'); + sql.Add('where FileType =''FG'' and WBID=''' + trim(FBCIID) + ''' '); + open; + end; + PatFile := trim(FBCIID) + '-' + inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger) + '.' + Copy(ExtractFileName(lstPat[i]), (Pos('.', ExtractFileName(lstPat[i])) + 1), (Length(ExtractFileName(lstPat[i])) - Pos('.', ExtractFileName(lstPat[i])))); + image1.Picture.LoadFromFile((lstPat[i])); + CreThumb(Image1, Image2, FWidth, FHeight); + + + + if IdFTP1.Connected then + begin + try + IdFTP1.Put(lstPat[i], Trim(UserDataFlag + 'YP' + '\' + Trim(PatFile))); + + if GetLSNo(ADOQueryCmd, MaxNo, 'FG', 'TP_File', 4, 1) = False then + raise Exception.Create('ȡͼƬʧܣ'); + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File where TFID=''' + Trim(MaxNo) + ''''); + open; + end; + with ADOQueryCmd do + begin + if ADOQueryCmd.IsEmpty then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('TFDate').Value := SGetServerDateTime(ADOQueryTemp); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('TFID').Value := Trim(MaxNo); + FieldByName('WBID').Value := Trim(FBCIID); + FieldByName('TFType').Value := ''; + FieldByName('FileType').Value := 'FG'; +// FieldByName('HXName').Value := trim(HXName.Text); + FieldByName('filename').Value := Trim(PatFile); + myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; + except + raise Exception.Create('ϴͼƬʧܣ'); + end; + end; + end; + + ADOQueryCmd.Connection.CommitTrans; + AJpeg.Free; + except + AJpeg.Free; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ͼƬϴʧܣ', 'ʾ', 0); + end; + if IdFTP1.Connected then + IdFTP1.Quit; + InitTP(); + Panel16.Visible := False; + + if ii > 0 then + Application.MessageBox(PChar(inttostr(ii) + 'ļ2MBϴʧܣ'), 'ʾ', 0); + if i > 0 then + Application.MessageBox(PChar(inttostr(i-ii) + 'ļϴɹ'), 'ʾ', 0); + + ModalResult := 1; +end; + +procedure TfrmFinFileUp.CreThumb(Image1, Image2: TImage; Width, Height: Integer); +var + Bitmap: TBitmap; + Ratio: Double; + ARect: TRect; + AHeight, AHeightOffset: Integer; + AWidth, AWidthOffset: Integer; +begin + Bitmap := TBitmap.Create; + try + Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height; + if Ratio > 1.333 then + begin + AHeight := Round(Width / Ratio); + AHeightOffset := (Height - AHeight) div 2; + AWidth := Width; + AWidthOffset := 0; + end + else + begin + AWidth := Round(Height * Ratio); + AWidthOffset := (Width - AWidth) div 2; + AHeight := Height; + AHeightOffset := 0; + end; + Bitmap.Width := Width; + Bitmap.Height := Height; + Bitmap.Canvas.Brush.Color := clBtnFace; + Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height)); + ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset); + Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic); + Image2.Picture.Assign(Bitmap); + finally + Bitmap.Free; + end; +end; + +procedure TfrmFinFileUp.SaveImageOther(FTFID: string); +var + AJpeg: TJPEGImage; + myStream: TADOBlobStream; + ImgMaxNo: string; + i, j: Integer; + PatFile: string; + FConNo, MaxNo: string; +begin + if Image2.Picture = nil then + Exit; + AJpeg := TJpegImage.Create(); + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add(' select * from TP_File where TFID=''' + Trim(FTFID) + ''''); + open; + end; + with ADOQueryCmd do + begin + if Trim(FTFID) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('TFID').Value := Trim(FTFID); + FieldByName('WBID').Value := Trim(FBCIID); + FieldByName('TFType').Value := 'Ʒ'; + AJpeg.Assign(Image2.Picture.Graphic); + myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite); + AJpeg.Assign(Image2.Picture.Graphic); + AJpeg.SaveToStream(myStream); + myStream.Free; + Post; + end; +end; + +procedure TfrmFinFileUp.FormCreate(Sender: TObject); +begin + lstPat := TStringList.Create; + if FWidth = 0 then + FWidth := 160; + if FHeight = 0 then + FHeight := 120; +end; + +procedure TfrmFinFileUp.FileDelClick(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('TFID').AsString) + ''''); + ExecSQL; + end; + + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + ''''); + SQL.Add(' and FileType=''FG'''); + Open; + end; +// if ADOQueryFile.IsEmpty then +// begin +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update CP_YDang Set TPFlag=0 where FBCIID=''' + Trim(FBCIID) + ''''); +// ExecSQL; +// end; +// end; +end; + +procedure TfrmFinFileUp.FormShow(Sender: TObject); +begin + with ADOQueryFile do + begin + Close; + SQL.Clear; + SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + ''''); + SQL.Add(' and FileType=''FG'''); + Open; + end; +end; + +procedure TfrmFinFileUp.HXNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmFinFileUp.HXNameBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'HX' + Trim(Code.Text); + flagname := ''; + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +end. + diff --git a/A09财务通用管理/U_HandPayableImport.dfm b/A09财务通用管理/U_HandPayableImport.dfm index 192e963..8f533cd 100644 --- a/A09财务通用管理/U_HandPayableImport.dfm +++ b/A09财务通用管理/U_HandPayableImport.dfm @@ -19,7 +19,7 @@ inherited frmHandPayableImport: TfrmHandPayableImport Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 91 + ButtonWidth = 103 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = ImageList_new32 @@ -38,7 +38,7 @@ inherited frmHandPayableImport: TfrmHandPayableImport OnClick = TBRafreshClick end object ToolButton5: TToolButton - Left = 71 + Left = 77 Top = 0 AutoSize = True Caption = #36873#25321#25991#20214 @@ -46,7 +46,7 @@ inherited frmHandPayableImport: TfrmHandPayableImport OnClick = ToolButton5Click end object ToolButton3: TToolButton - Left = 166 + Left = 184 Top = 0 AutoSize = True Caption = #21024#38500 @@ -54,7 +54,7 @@ inherited frmHandPayableImport: TfrmHandPayableImport OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 237 + Left = 261 Top = 0 AutoSize = True Caption = #20445#23384#25968#25454 @@ -62,7 +62,7 @@ inherited frmHandPayableImport: TfrmHandPayableImport OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 332 + Left = 368 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -70,7 +70,7 @@ inherited frmHandPayableImport: TfrmHandPayableImport OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 427 + Left = 475 Top = 0 AutoSize = True Caption = #20851#38381 @@ -91,8 +91,6 @@ inherited frmHandPayableImport: TfrmHandPayableImport Font.Style = [] ParentFont = False TabOrder = 1 - ExplicitLeft = 104 - ExplicitTop = -210 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -112,13 +110,6 @@ inherited frmHandPayableImport: TfrmHandPayableImport Styles.Header = DataLink_Financial.Default Styles.Inactive = DataLink_Financial.SHuangSe Styles.Selection = DataLink_Financial.SHuangSe - object Tv1Column11: TcxGridDBColumn - Caption = #27969#27700#21495 - DataBinding.FieldName = 'FFID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 78 - end object Tv1Column1: TcxGridDBColumn Caption = #21457#29983#26085#26399 DataBinding.FieldName = 'FFTime' diff --git a/A09财务通用管理/U_HandPayableImport.pas b/A09财务通用管理/U_HandPayableImport.pas index 3d760bb..26bbc3b 100644 --- a/A09财务通用管理/U_HandPayableImport.pas +++ b/A09财务通用管理/U_HandPayableImport.pas @@ -50,7 +50,6 @@ type Tv1Column12: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; - Tv1Column11: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -142,6 +141,8 @@ begin end; procedure TfrmHandPayableImport.ToolButton2Click(Sender: TObject); +var + MaxNo:string; begin try ADOQueryCmd.Connection.BeginTrans; @@ -151,12 +152,14 @@ begin First; while not eof do begin + if GetLSNo(ADOQueryTemp, MaxNo, 'SG', 'Finance_Flow', 4, 1) = False then + raise Exception.Create('ȡʧܣ'); with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('select top 1 * from Finance_Flow where FFID=' + quotedstr(Trim(CDS_1.fieldbyname('FFID').AsString))); + sql.Add('select top 1 * from Finance_Flow where FFID=' + quotedstr(Trim(MaxNo))); open; end; if not ADOQueryCmd.IsEmpty then @@ -169,7 +172,7 @@ begin FieldByName('Fillid').Value := Trim(Dcode); FieldByName('Filler').Value := Trim(DName); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_Info', 0); -// FieldByName('BCIID').Value := Trim(CDS_1.fieldbyname('C_Code').AsString); + FieldByName('FFID').Value := Trim(MaxNo); FieldByName('FFType').Value := 'ֹõǼ'; Post; end; @@ -180,7 +183,7 @@ begin CDS_1.EnableControls; ADOQueryCmd.Connection.CommitTrans; - + application.MessageBox('ɹ', 'ʾ'); except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); diff --git a/A09财务通用管理/U_HandPayableInPut.dfm b/A09财务通用管理/U_HandPayableInPut.dfm index eae48f0..5b28bad 100644 --- a/A09财务通用管理/U_HandPayableInPut.dfm +++ b/A09财务通用管理/U_HandPayableInPut.dfm @@ -79,7 +79,6 @@ object frmHandPayableInPut: TfrmHandPayableInPut Height = 466 Align = alClient TabOrder = 1 - ExplicitTop = 44 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -112,6 +111,14 @@ object frmHandPayableInPut: TfrmHandPayableInPut OptionsView.Indicator = True Styles.Footer = DataLink_Financial.Default Styles.Header = DataLink_Financial.Default + object Tv1Column6: TcxGridDBColumn + Caption = #27969#27700#21495 + DataBinding.FieldName = 'FFID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end object Tv1Column5: TcxGridDBColumn Caption = #21457#29983#26085#26399 DataBinding.FieldName = 'FFTime' @@ -205,6 +212,13 @@ object frmHandPayableInPut: TfrmHandPayableInPut Caption = #35777#26126#20154 DataBinding.FieldName = 'Certifier' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column5PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 53 end diff --git a/A09财务通用管理/U_HandPayableInPut.pas b/A09财务通用管理/U_HandPayableInPut.pas index a0079c2..03681fb 100644 --- a/A09财务通用管理/U_HandPayableInPut.pas +++ b/A09财务通用管理/U_HandPayableInPut.pas @@ -39,13 +39,13 @@ type Tv1Column1: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TSaveClick(Sender: TObject); procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure FormDestroy(Sender: TObject); procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -56,6 +56,8 @@ type procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); private procedure initGrid(); procedure SaveDate(); @@ -72,7 +74,8 @@ var implementation uses - U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_ClothInfoSel, U_TradePlanSel; + U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_ClothInfoSel, + U_TradePlanSel,U_UserSel,U_ZDYHelpFY; {$R *.dfm} procedure TfrmHandPayableInPut.SaveDate(); @@ -143,11 +146,11 @@ begin sql.Clear; if PState = '复制' then begin - sql.Add('select '''' FFID,* from Finance_Flow where FFID=''' + trim(FFID) + ''''); + sql.Add('select '''' FFID,0 Amount,* from Finance_Flow where FFID=''' + trim(FFID) + ''''); end else begin - sql.Add('select 0 Amount,* from Finance_Flow where FFID=''' + trim(FFID) + ''''); + sql.Add('select * from Finance_Flow where FFID=''' + trim(FFID) + ''''); end; sql.add(' and isnull(status,''0'')=''0'''); // showmessage(sql.text); @@ -200,25 +203,50 @@ end; procedure TfrmHandPayableInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do + frmZDYHelpFY := TfrmZDYHelpFY.Create(Application); + with frmZDYHelpFY do begin + MainType := '手工费用'; flag := 'FFAbstractDL'; flagname := '费用类别'; if ShowModal = 1 then begin Self.CDS_Invoice.Edit; - Self.CDS_Invoice.FieldByName('FFAbstractDL').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); -// Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Self.CDS_Invoice.FieldByName('FFAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Invoice.FieldByName('FFAbstractDL').Value := Trim(ClientDataSet1.fieldbyname('Note2').AsString); end; end; finally - frmZDYHelp.Free; + frmZDYHelpFY.Free; end; tv1.Controller.EditingController.ShowEdit(); end; +procedure TfrmHandPayableInPut.v1Column5PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmUserSel := TfrmUserSel.Create(Application); + with frmUserSel do + begin +// FCoType := '客户'; +// if Self.FAuthority = '录入' then +// FAuthority := '理单业务'; + if ShowModal = 1 then + begin +// self.BuyName.TxtCode := Trim(frmUserSel.CDS_1.fieldbyname('CoCode').AsString); +// self.BuyName.Text := Trim(frmUserSel.CDS_1.fieldbyname('CoAbbrName').AsString); + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('Certifier').Value := Trim(CDS_1.fieldbyname('UserName').AsString); + end; + end; + + finally + frmUserSel.Free; + end; +end; + procedure TfrmHandPayableInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -279,7 +307,6 @@ begin end; end; - procedure TfrmHandPayableInPut.FormDestroy(Sender: TObject); begin frmHandPayableInPut := nil; diff --git a/A09财务通用管理/U_OtherPayableInput.dfm b/A09财务通用管理/U_OtherPayableInput.dfm index 96a2bee..91f594a 100644 --- a/A09财务通用管理/U_OtherPayableInput.dfm +++ b/A09财务通用管理/U_OtherPayableInput.dfm @@ -325,7 +325,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput ParentFont = False end object Label22: TLabel - Left = 244 + Left = 245 Top = 49 Width = 52 Height = 15 @@ -338,7 +338,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput ParentFont = False end object Label23: TLabel - Left = 27 + Left = 28 Top = 49 Width = 52 Height = 15 @@ -364,7 +364,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput ParentFont = False end object Label18: TLabel - Left = 458 + Left = 455 Top = 172 Width = 52 Height = 15 @@ -434,7 +434,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput OnBtnDnClick = PayMentBtnDnClick end object OppCoName: TBtnEditC - Left = 297 + Left = 299 Top = 17 Width = 140 Height = 20 @@ -490,7 +490,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput Width = 101 end object Price: TcxCurrencyEdit - Left = 513 + Left = 512 Top = 133 Properties.AssignedValues.DisplayFormat = True TabOrder = 9 @@ -506,7 +506,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput Width = 101 end object Piece: TcxCurrencyEdit - Left = 84 + Left = 82 Top = 133 Properties.AssignedValues.DisplayFormat = True TabOrder = 11 @@ -537,7 +537,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput Visible = False end object F_GramWeight: TEdit - Left = 298 + Left = 299 Top = 103 Width = 140 Height = 18 @@ -553,7 +553,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput Visible = False end object F_Color: TEdit - Left = 727 + Left = 728 Top = 77 Width = 140 Height = 18 @@ -569,7 +569,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput Visible = False end object OtherFee: TcxCurrencyEdit - Left = 727 + Left = 728 Top = 133 Properties.AssignedValues.DisplayFormat = True TabOrder = 18 @@ -596,8 +596,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput Width = 140 end object OrderNo: TBtnEditC - Left = 302 - Top = 51 + Left = 299 + Top = 47 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -611,7 +611,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput OnBtnDnClick = PayMentBtnDnClick end object BuyConNo: TBtnEditC - Left = 81 + Left = 82 Top = 47 Width = 140 Height = 20 @@ -625,8 +625,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput OnBtnDnClick = PayMentBtnDnClick end object FFAbstract: TBtnEditC - Left = 514 - Top = 52 + Left = 512 + Top = 47 Width = 140 Height = 20 Hint = 'FFAbstract/'#25688#35201 @@ -641,7 +641,7 @@ object frmOtherPayableInput: TfrmOtherPayableInput OnBtnDnClick = PayMentBtnDnClick end object IsInvoice: TComboBox - Left = 513 + Left = 512 Top = 169 Width = 137 Height = 20 diff --git a/A09财务通用管理/U_OtherPayableInput.pas b/A09财务通用管理/U_OtherPayableInput.pas index ae6b854..640a6b0 100644 --- a/A09财务通用管理/U_OtherPayableInput.pas +++ b/A09财务通用管理/U_OtherPayableInput.pas @@ -104,7 +104,7 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel; + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel,U_ZDYHelpFY; {$R *.dfm} @@ -276,9 +276,10 @@ var begin fsj := Trim(TEdit(Sender).Hint); FWZ := Pos('/', fsj); + try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do + frmZDYHelpFY := TfrmZDYHelpFY.Create(Application); + with frmZDYHelpFY do begin MainType := 'Ӧ'; flag := Copy(fsj, 1, FWZ - 1); @@ -286,10 +287,11 @@ begin if ShowModal = 1 then begin TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + TEdit(Sender).TextHint := Trim(ClientDataSet1.fieldbyname('Note2').AsString); end; end; finally - frmZDYHelp.Free; + frmZDYHelpFY.Free; end; end; @@ -377,6 +379,7 @@ begin FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode); FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode); + FieldByName('FFAbstractDL').Value := Trim(FFAbstract.TextHint); FieldByName('FFID').Value := Trim(MaxId); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0); Post; diff --git a/A09财务通用管理/U_PayInput.dfm b/A09财务通用管理/U_PayInput.dfm index 93496c8..6be1a2e 100644 --- a/A09财务通用管理/U_PayInput.dfm +++ b/A09财务通用管理/U_PayInput.dfm @@ -2,8 +2,8 @@ object frmPayInput: TfrmPayInput Left = 261 Top = 149 Caption = #20184#27454#30331#35760 - ClientHeight = 439 - ClientWidth = 749 + ClientHeight = 394 + ClientWidth = 745 Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -21,7 +21,7 @@ object frmPayInput: TfrmPayInput Tag = 1 Left = 0 Top = 0 - Width = 749 + Width = 745 Height = 38 AutoSize = True ButtonHeight = 38 @@ -34,6 +34,7 @@ object frmPayInput: TfrmPayInput ParentColor = False ShowCaptions = True TabOrder = 0 + ExplicitWidth = 749 object ToolButton3: TToolButton Left = 0 Top = 0 @@ -54,8 +55,8 @@ object frmPayInput: TfrmPayInput object ScrollBox1: TScrollBox Left = 0 Top = 38 - Width = 749 - Height = 401 + Width = 745 + Height = 356 Align = alClient BevelInner = bvNone BevelOuter = bvNone @@ -71,9 +72,10 @@ object frmPayInput: TfrmPayInput ParentCtl3D = False ParentFont = False TabOrder = 1 + ExplicitTop = 44 object Label2: TLabel Left = 32 - Top = 69 + Top = 102 Width = 52 Height = 15 Caption = #23545#26041#21333#20301 @@ -85,8 +87,8 @@ object frmPayInput: TfrmPayInput ParentFont = False end object Label7: TLabel - Left = 33 - Top = 246 + Left = 32 + Top = 238 Width = 41 Height = 15 Caption = #22791' '#27880 @@ -99,7 +101,7 @@ object frmPayInput: TfrmPayInput end object Label8: TLabel Left = 486 - Top = 111 + Top = 144 Width = 52 Height = 15 Caption = #20184#27454#26041#24335 @@ -125,7 +127,7 @@ object frmPayInput: TfrmPayInput end object Label9: TLabel Left = 259 - Top = 69 + Top = 102 Width = 52 Height = 15 Caption = #19978#32423#21333#20301 @@ -138,7 +140,7 @@ object frmPayInput: TfrmPayInput end object Label3: TLabel Left = 486 - Top = 184 + Top = 190 Width = 47 Height = 15 Caption = #37329' '#39069 @@ -164,7 +166,7 @@ object frmPayInput: TfrmPayInput end object Label19: TLabel Left = 486 - Top = 70 + Top = 103 Width = 52 Height = 15 Caption = #23545#26041#36134#25143 @@ -176,8 +178,8 @@ object frmPayInput: TfrmPayInput ParentFont = False end object Label20: TLabel - Left = 486 - Top = 20 + Left = 32 + Top = 60 Width = 65 Height = 15 Caption = #30003#35831#26085#26399#65306 @@ -190,7 +192,7 @@ object frmPayInput: TfrmPayInput end object Label22: TLabel Left = 32 - Top = 113 + Top = 146 Width = 52 Height = 15 Caption = #35745#21010#21333#21495 @@ -203,7 +205,7 @@ object frmPayInput: TfrmPayInput end object Label23: TLabel Left = 259 - Top = 113 + Top = 146 Width = 52 Height = 15 Caption = #23458#25143#21333#21495 @@ -216,7 +218,7 @@ object frmPayInput: TfrmPayInput end object Label24: TLabel Left = 259 - Top = 184 + Top = 190 Width = 63 Height = 15 Caption = #25688' '#35201#65306 @@ -229,7 +231,7 @@ object frmPayInput: TfrmPayInput end object Label1: TLabel Left = 32 - Top = 184 + Top = 190 Width = 52 Height = 15 Caption = #36153#29992#31867#21035 @@ -240,17 +242,30 @@ object frmPayInput: TfrmPayInput Font.Style = [fsBold] ParentFont = False end + object Label4: TLabel + Left = 259 + Top = 62 + Width = 65 + Height = 15 + Caption = #25490#27454#26085#26399#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end object Note: TMemo - Left = 87 - Top = 245 + Left = 92 + Top = 237 Width = 615 Height = 57 ScrollBars = ssVertical TabOrder = 0 end object Currency: TComboBox - Left = 642 - Top = 181 + Left = 651 + Top = 186 Width = 37 Height = 20 Style = csDropDownList @@ -269,7 +284,7 @@ object frmPayInput: TfrmPayInput end object PayMent: TBtnEditC Left = 544 - Top = 110 + Top = 143 Width = 140 Height = 20 Hint = 'PayMent/'#20184#27454#26041#24335 @@ -284,8 +299,8 @@ object frmPayInput: TfrmPayInput OnBtnDnClick = PayMentBtnDnClick end object OppCoName: TBtnEditC - Left = 86 - Top = 67 + Left = 92 + Top = 100 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -300,7 +315,7 @@ object frmPayInput: TfrmPayInput OnBtnDnClick = PayMentBtnDnClick end object OurCoName: TBtnEditC - Left = 90 + Left = 92 Top = 18 Width = 140 Height = 20 @@ -317,7 +332,7 @@ object frmPayInput: TfrmPayInput end object OppParentCoName: TBtnEditC Left = 319 - Top = 66 + Top = 99 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -332,14 +347,14 @@ object frmPayInput: TfrmPayInput OnBtnDnClick = PayMentBtnDnClick end object Amount: TcxCurrencyEdit - Left = 539 - Top = 181 + Left = 544 + Top = 187 Properties.AssignedValues.DisplayFormat = True TabOrder = 6 Width = 101 end object OurBankName: TBtnEditC - Left = 318 + Left = 319 Top = 18 Width = 140 Height = 20 @@ -355,7 +370,7 @@ object frmPayInput: TfrmPayInput end object OppBankName: TBtnEditC Left = 544 - Top = 66 + Top = 99 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -369,9 +384,9 @@ object frmPayInput: TfrmPayInput OnBtnDnClick = PayMentBtnDnClick end object SQDate: TDateTimePicker - Left = 544 - Top = 18 - Width = 125 + Left = 93 + Top = 58 + Width = 139 Height = 20 BevelInner = bvNone Date = 40916.000000000000000000 @@ -380,8 +395,8 @@ object frmPayInput: TfrmPayInput TabOrder = 9 end object OrderNo: TBtnEditC - Left = 86 - Top = 110 + Left = 92 + Top = 143 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -396,7 +411,7 @@ object frmPayInput: TfrmPayInput end object BuyConNo: TBtnEditC Left = 319 - Top = 110 + Top = 143 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -410,7 +425,7 @@ object frmPayInput: TfrmPayInput end object FFAbstract: TBtnEditC Left = 319 - Top = 181 + Top = 187 Width = 140 Height = 20 Hint = 'FFAbstract/'#25688#35201 @@ -425,8 +440,8 @@ object frmPayInput: TfrmPayInput OnBtnDnClick = PayMentBtnDnClick end object FFAbstractDL: TBtnEditC - Left = 85 - Top = 182 + Left = 92 + Top = 188 Width = 140 Height = 20 Hint = 'FFAbstractDL/'#25688#35201#22823#31867 @@ -440,6 +455,17 @@ object frmPayInput: TfrmPayInput OnBtnUpClick = FFAbstractDLBtnUpClick OnBtnDnClick = PayMentBtnDnClick end + object PKDate: TDateTimePicker + Left = 319 + Top = 58 + Width = 139 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + TabOrder = 14 + end end object ADOQueryTemp: TADOQuery Connection = DataLink_Financial.ADOLink diff --git a/A09财务通用管理/U_PayInput.pas b/A09财务通用管理/U_PayInput.pas index 4f9dea7..46f7342 100644 --- a/A09财务通用管理/U_PayInput.pas +++ b/A09财务通用管理/U_PayInput.pas @@ -52,6 +52,8 @@ type FFAbstract: TBtnEditC; FFAbstractDL: TBtnEditC; Label1: TLabel; + Label4: TLabel; + PKDate: TDateTimePicker; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -112,6 +114,7 @@ begin else begin SQDate.DateTime := SGetServerDateTime(ADOQueryTemp); + PKDate.DateTime := SQDate.DateTime end; if PState='' then diff --git a/A09财务通用管理/U_PayList.dfm b/A09财务通用管理/U_PayList.dfm index 61c2941..14db836 100644 --- a/A09财务通用管理/U_PayList.dfm +++ b/A09财务通用管理/U_PayList.dfm @@ -105,6 +105,7 @@ inherited frmPayList: TfrmPayList AutoSize = True Caption = #38468#20214#19978#20256 ImageIndex = 22 + Visible = False OnClick = ToolButton9Click end object ToolButton4: TToolButton @@ -131,6 +132,14 @@ inherited frmPayList: TfrmPayList ImageIndex = 7 OnClick = TBCloseClick end + object ToolButton6: TToolButton + Left = 1019 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 19 + OnClick = ToolButton6Click + end end object Panel1: TPanel [1] Left = 0 @@ -282,6 +291,7 @@ inherited frmPayList: TfrmPayList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitTop = 142 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -455,8 +465,8 @@ inherited frmPayList: TfrmPayList Width = 66 end object Tv1Column5: TcxGridDBColumn - Caption = #38468#20214 - DataBinding.FieldName = 'ISFJ' + Caption = #22270#29255 + DataBinding.FieldName = 'ISTP' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 53 diff --git a/A09财务通用管理/U_PayList.pas b/A09财务通用管理/U_PayList.pas index 320ecee..1fe92ac 100644 --- a/A09财务通用管理/U_PayList.pas +++ b/A09财务通用管理/U_PayList.pas @@ -96,6 +96,7 @@ type ToolButton3: TToolButton; Button3: TButton; Button4: TButton; + ToolButton6: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -121,6 +122,7 @@ type procedure ToolButton3Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); private procedure InitGrid(); procedure SetStatus(); @@ -131,7 +133,7 @@ type implementation uses - U_DataLink, U_RTFun, U_PayInput, U_ZDYHelp, U_AttachmentUpload; + U_DataLink, U_RTFun, U_PayInput, U_ZDYHelp, U_AttachmentUpload,U_FinFileUp; {$R *.dfm} procedure TfrmPayList.SetStatus(); @@ -226,7 +228,7 @@ begin Close; SQL.Clear; Filtered := False; - sql.Add(' select IsFJ=cast((case when (select COUNT(T.WBID) from FJ_File T where T.WBID=A.FFID)=0 then 0 else 1 end) as bit ) '); + sql.Add(' select IsTP=cast((case when (select COUNT(T.WBID) from TP_File T where T.WBID=A.FFID)=0 then 0 else 1 end) as bit ) '); sql.ADD(',A.*,B.account,B.OpenBank from Finance_Flow A'); sql.Add(' Left join BS_Company_Bank B on A.OppBankID=B.CBID where A.FFType=''Ǽ'' '); case cxTabControl1.TabIndex of @@ -591,6 +593,7 @@ begin // raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; application.MessageBox('˳ɹ', 'ʾ'); + Panel2.Visible := False; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); @@ -655,11 +658,12 @@ begin raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; application.MessageBox('ɹ', 'ʾ'); + Panel4.Visible := False; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); InitGrid(); - Panel2.Visible := False; + Panel4.Visible := False; end; end; @@ -795,6 +799,26 @@ begin WriteCxGrid(trim(Self.Caption), Tv1, ''); end; +procedure TfrmPayList.ToolButton6Click(Sender: TObject); +begin + try + frmFinFileUp := TfrmFinFileUp.Create(Application); + with frmFinFileUp do + begin +// Code.Text := Trim(Self.CDS_1.fieldbyname('CoCode').AsString); + FBCIID := Trim(Self.CDS_1.fieldbyname('FFID').AsString); + if ShowModal = 1 then + begin + Self.InitGrid(); +// Self.CDS_1.Locate('BCIID', BCIID, []); + end; + end; + finally + frmFinFileUp.Free; + end; + +end; + procedure TfrmPayList.btnEditClick(Sender: TObject); begin try diff --git a/A09财务通用管理/U_ZDYHelpFY.dfm b/A09财务通用管理/U_ZDYHelpFY.dfm index 63effe2..764f6dd 100644 --- a/A09财务通用管理/U_ZDYHelpFY.dfm +++ b/A09财务通用管理/U_ZDYHelpFY.dfm @@ -23,6 +23,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY TabOrder = 0 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = TV1CellDblClick DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> @@ -36,6 +37,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY object V1Code: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'ZDYNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Width = 97 @@ -43,6 +45,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY object V1OrderNo: TcxGridDBColumn Caption = #39034#24207#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged Visible = False @@ -52,6 +55,9 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY object TV1Column1: TcxGridDBColumn Caption = #25688#35201#22823#31867 DataBinding.FieldName = 'Note2' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 109 end @@ -59,6 +65,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY Tag = 2 Caption = #25688#35201 DataBinding.FieldName = 'ZDYName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -67,6 +74,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY object V1Note: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -75,6 +83,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY object V1ZdyFlag: TcxGridDBColumn Caption = #26631#24535 DataBinding.FieldName = 'ZdyFlag' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged Visible = False @@ -84,6 +93,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY object V1HelpType: TcxGridDBColumn Caption = #24110#21161#31867#27604 DataBinding.FieldName = 'HelpType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = V1HelpTypePropertiesEditValueChanged Visible = False @@ -93,6 +103,7 @@ inherited frmZDYHelpFY: TfrmZDYHelpFY object V1note1: TcxGridDBColumn Caption = #22791#27880'1' DataBinding.FieldName = 'note1' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter diff --git a/A09财务通用管理/U_ZDYHelpFY.pas b/A09财务通用管理/U_ZDYHelpFY.pas index af577ac..a87d63f 100644 --- a/A09财务通用管理/U_ZDYHelpFY.pas +++ b/A09财务通用管理/U_ZDYHelpFY.pas @@ -10,7 +10,8 @@ uses cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, - dxDateRanges, dxBarBuiltInMenu, System.ImageList; + dxDateRanges, dxBarBuiltInMenu, System.ImageList, dxSkinWXI, + dxScrollbarAnnotations; type TfrmZDYHelpFY = class(TfrmBaseInput) @@ -62,6 +63,7 @@ type procedure V1Column1PropertiesEditValueChanged(Sender: TObject); procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject); procedure FormDestroy(Sender: TObject); + procedure TV1Column1PropertiesEditValueChanged(Sender: TObject); private procedure InitGrid(); { Private declarations } @@ -373,6 +375,153 @@ begin end; end; +procedure TfrmZDYHelpFY.TV1Column1PropertiesEditValueChanged(Sender: TObject); +var + maxno, mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then + begin + //Application.MessageBox('ƲΪգ','ʾ',0); + Exit; + end; + with ClientDataSet1 do + begin + Edit; + FieldByName('Note2').Value := Trim(mvalue); + //Post; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from KH_ZDY where ZdyNo=''' + Trim(flag) + ''''); + open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1=2'); + open; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(flag); + ADOQueryCmd.FieldByName('ZDYName').Value := trim(flagname); + ADOQueryCmd.FieldByName('Type').Value := 'Main'; + ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType); + ADOQueryCmd.Post; + end; + end; + with ADOQueryCmd do + begin + //ClientDataSet1.DisableControls; + //with ClientDataSet1 do + //begin + //First; + //while not eof do + //begin + if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxno, 'SY', 'KH_ZDY', 3, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from KH_Zdy where Type=''' + Trim(flag) + ''''); + if Trim(MainType) <> '' then + SQL.Add(' and MainType=''' + Trim(MainType) + ''''); + sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + ''''); + sql.Add(' and note=''' + Trim(ClientDataSet1.fieldbyname('note').AsString) + ''''); + sql.Add(' and note2=''' + Trim(ClientDataSet1.fieldbyname('note2').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + if ADOQueryTemp.RecordCount > 1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ', 'ʾ', 0); + Exit; + end; + if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) = '' then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ', 'ʾ', 0); + Exit; + end + else + begin + if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString) <> Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then + begin + ADOQueryCmd.Connection.RollbackTrans; + //ClientDataSet1.EnableControls; + Application.MessageBox('ظ', 'ʾ', 0); + Exit; + end; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('delete KH_ZDY where ZDYNO=''' + Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from KH_ZDY where 1<>1'); + Open; + end; + ADOQueryCmd.Append; + ADOQueryCmd.FieldByName('ZDYNo').Value := Trim(maxno); + ADOQueryCmd.FieldByName('ZDYName').Value := ClientDataSet1.fieldbyname('ZDYName').AsString; + ADOQueryCmd.FieldByName('note2').Value := ClientDataSet1.fieldbyname('note2').AsString; + ADOQueryCmd.FieldByName('note').Value := Trim(snote); + //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString; + ADOQueryCmd.FieldByName('Type').Value := flag; + ADOQueryCmd.FieldByName('valid').Value := 'Y'; + if Trim(MainType) <> '' then + ADOQueryCmd.FieldByName('MainType').Value := Trim(MainType); + //ADOQueryCmd.FieldByName('sel').Value:=0; + ADOQueryCmd.Post; + ClientDataSet1.Edit; + ClientDataSet1.FieldByName('ZDYNo').Value := Trim(maxno); + //ClientDataSet1.Post; + // Next; + //end; + //end; + // ClientDataSet1.EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + //Application.MessageBox('ɹ','ʾ',0); + //TV1.OptionsData.Editing:=False; + //TV1.OptionsSelection.CellSelect:=False; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end; +end; + procedure TfrmZDYHelpFY.ZDYNameChange(Sender: TObject); var fsj: string; @@ -461,6 +610,7 @@ begin SQL.Add(' and MainType=''' + Trim(MainType) + ''''); sql.Add(' and ZdyName=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + ''''); sql.Add(' and note=''' + Trim(ClientDataSet1.fieldbyname('note').AsString) + ''''); + sql.Add(' and note2=''' + Trim(ClientDataSet1.fieldbyname('note2').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty = False then diff --git a/A09财务通用管理/U_handPayableList.dfm b/A09财务通用管理/U_handPayableList.dfm index 3270202..eb2f78c 100644 --- a/A09财务通用管理/U_handPayableList.dfm +++ b/A09财务通用管理/U_handPayableList.dfm @@ -27,7 +27,6 @@ inherited frmhandPayableList: TfrmhandPayableList ParentColor = False ShowCaptions = True TabOrder = 0 - ExplicitTop = 3 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -153,13 +152,12 @@ inherited frmhandPayableList: TfrmhandPayableList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 32 object Label2: TLabel Left = 40 Top = 13 Width = 52 Height = 12 - Caption = #21457#31080#26085#26399 + Caption = #21457#29983#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -249,7 +247,6 @@ inherited frmhandPayableList: TfrmhandPayableList Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 - ExplicitTop = 199 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -300,6 +297,7 @@ inherited frmhandPayableList: TfrmhandPayableList DataBinding.FieldName = 'FFID' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 68 end object v1InvoiceDate: TcxGridDBColumn @@ -326,6 +324,7 @@ inherited frmhandPayableList: TfrmhandPayableList PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 57 end object v1Column13: TcxGridDBColumn @@ -333,6 +332,7 @@ inherited frmhandPayableList: TfrmhandPayableList DataBinding.FieldName = 'OrderNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 63 end object v1Column14: TcxGridDBColumn @@ -342,6 +342,7 @@ inherited frmhandPayableList: TfrmhandPayableList PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 44 end object v1Column17: TcxGridDBColumn @@ -349,6 +350,7 @@ inherited frmhandPayableList: TfrmhandPayableList DataBinding.FieldName = 'FFAbstractDL' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 64 end object v1Column18: TcxGridDBColumn @@ -358,12 +360,14 @@ inherited frmhandPayableList: TfrmhandPayableList PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False end object v1Column15: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'Amount' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 54 end object v1Column19: TcxGridDBColumn @@ -373,6 +377,7 @@ inherited frmhandPayableList: TfrmhandPayableList PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False end object v1note: TcxGridDBColumn Caption = #22791#27880 @@ -387,6 +392,7 @@ inherited frmhandPayableList: TfrmhandPayableList DataBinding.FieldName = 'handler' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 60 end end diff --git a/A09财务通用管理/U_handPayableList.pas b/A09财务通用管理/U_handPayableList.pas index 42b5dc5..816ee54 100644 --- a/A09财务通用管理/U_handPayableList.pas +++ b/A09财务通用管理/U_handPayableList.pas @@ -174,7 +174,7 @@ begin begin Close; SQL.Clear; - sql.Add(' select A.* from Finance_Flow A '); + sql.Add(' select CONVERT(varchar,A.FFTime,23) FFTime,A.* from Finance_Flow A '); sql.add(' where A.FFTime>=''' + formatdatetime('yyyy-MM-dd', begdate.datetime) + ''' '); sql.Add(' and A.FFTime<''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' '); sql.Add(' and A.FFType=''ֹõǼ'' '); @@ -333,44 +333,86 @@ begin end; procedure TfrmhandPayableList.TCHKClick(Sender: TObject); +Var + MFFIDS:String; begin if CDS_Invoice.IsEmpty then exit; + + if not CDS_Invoice.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_Invoice do + begin +// DisableControls; + while CDS_Invoice.Locate('SSel', True, []) do + begin + MFFIDS := MFFIDS + Trim(CDS_Invoice.fieldbyname('FFID').AsString) + ','; + CDS_Invoice.Delete; + end; +// EnableControls; + end; + try with ADOQueryCmd do begin close; sql.Clear; sql.add('update Finance_Flow set Chker=''' + trim(DName) + ''',Chktime=getdate(),status=''9'' '); - sql.add('where FFType=''ֹõǼ'' and FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' '); + sql.add('where FFType=''ֹõǼ'' and EXISTS (select * from [dbo].[F_Tool_SplitString]( ''' + trim(MFFIDS) + ''''); + sql.add(','','') X where X.RTValue=Finance_Flow.FFID) '); +// showmessage(sql.text); execsql; end; application.MessageBox('˳ɹ', 'ʾ'); +// InitGrid(); CDS_Invoice.delete; except - ; application.MessageBox('ʧ', 'ʾ'); end; end; procedure TfrmhandPayableList.TNOCHKClick(Sender: TObject); +var + MFFIDS:string; begin if CDS_Invoice.IsEmpty then exit; + if not CDS_Invoice.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_Invoice do + begin +// DisableControls; + while CDS_Invoice.Locate('SSel', True, []) do + begin + MFFIDS := MFFIDS + Trim(CDS_Invoice.fieldbyname('FFID').AsString) + ','; + CDS_Invoice.Delete; + end; +// EnableControls; + end; + try with ADOQueryCmd do begin close; sql.Clear; sql.add('update Finance_Flow set Chker=null,Chktime=null,status=''0'' '); - sql.add('where FFType=''ֹõǼ'' and FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' '); + sql.add('where FFType=''ֹõǼ'' and EXISTS (select * from [dbo].[F_Tool_SplitString]( ''' + trim(MFFIDS) + ''''); + sql.add(','','') X where X.RTValue=Finance_Flow.FFID) '); execsql; end; application.MessageBox('ɹ', 'ʾ'); - CDS_Invoice.delete; +// CDS_Invoice.delete; except application.MessageBox('ʧ', 'ʾ'); end; diff --git a/B01基础合同管理/Contract.dpr b/B01基础合同管理/Contract.dpr index aea63ed..12d54be 100644 --- a/B01基础合同管理/Contract.dpr +++ b/B01基础合同管理/Contract.dpr @@ -27,7 +27,9 @@ uses U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_SalesConInPutCopy in 'U_SalesConInPutCopy.pas' {frmSalesConInPutCopy}, - U_ContractList in 'U_ContractList.pas' {frmContractList}; + U_ContractList in 'U_ContractList.pas' {frmContractList}, + U_BaoguanList in 'U_BaoguanList.pas' {frmBaoguanList}, + U_BaoguanInPut in 'U_BaoguanInPut.pas' {frmBaoguanInPut}; {$R *.res} diff --git a/B01基础合同管理/Contract.dproj b/B01基础合同管理/Contract.dproj index 06695e8..b34dad6 100644 --- a/B01基础合同管理/Contract.dproj +++ b/B01基础合同管理/Contract.dproj @@ -124,7 +124,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\testDll.exe + D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\testDll.exe @@ -193,6 +193,14 @@
frmContractList
dfm + +
frmBaoguanList
+ dfm + + +
frmBaoguanInPut
+ dfm + Cfg_2 Base diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index e76b173..7b50871 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -4,66 +4,68 @@ 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas 1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm 1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= 1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm - 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.114,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_ContractList.pas 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm - 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm + 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= 1899-12-30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas + 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas 1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas 1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas 1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= 1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= 1899-12-30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas 1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= 1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm 1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 2024-08-09 15:19:07.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.pas @@ -94,7 +96,7 @@ - + @@ -137,5 +139,9 @@ + + + + diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index 6e0d3a7..adbce19 100644 Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ diff --git a/B01基础合同管理/U_BaoguanInPut.dfm b/B01基础合同管理/U_BaoguanInPut.dfm new file mode 100644 index 0000000..bdf2429 --- /dev/null +++ b/B01基础合同管理/U_BaoguanInPut.dfm @@ -0,0 +1,1547 @@ +inherited frmBaoguanInPut: TfrmBaoguanInPut + Left = 219 + Top = 76 + Caption = #25253#20851#24405#20837 + ClientHeight = 695 + ClientWidth = 1517 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -12 + Font.Name = #23435#20307 + OldCreateOrder = True + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1533 + ExplicitHeight = 734 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1517 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_Contract.ImageList_new32 + Images = DataLink_Contract.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 166 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox [1] + Left = 0 + Top = 38 + Width = 1517 + Height = 335 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Color = clWhite + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentColor = False + ParentCtl3D = False + ParentFont = False + TabOrder = 1 + object Label3: TLabel + Left = 40 + Top = 81 + Width = 65 + Height = 12 + Caption = #19979#21333#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 517 + Top = 36 + Width = 66 + Height = 12 + Caption = #19994' '#21153' '#21592#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 39 + Top = 10 + Width = 66 + Height = 12 + Caption = #21512' '#21516' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 38 + Top = 36 + Width = 67 + Height = 12 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 517 + Top = 10 + Width = 65 + Height = 12 + Caption = #32463#33829#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 40 + Top = 140 + Width = 65 + Height = 12 + Caption = #25968#37327#28322#30701#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 277 + Top = 10 + Width = 65 + Height = 12 + Caption = #23458#25143#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label26: TLabel + Left = 277 + Top = 36 + Width = 66 + Height = 12 + Caption = #20013' '#38388' '#21830#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label27: TLabel + Left = 517 + Top = 188 + Width = 65 + Height = 12 + Caption = #26159#21542#21547#31246#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label29: TLabel + Left = 518 + Top = 110 + Width = 66 + Height = 12 + Caption = #36215' '#36816' '#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 759 + Top = 110 + Width = 66 + Height = 12 + Caption = #30446' '#30340' '#28207#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 759 + Top = 81 + Width = 65 + Height = 12 + Caption = #23454#26102#27719#29575#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 38 + Top = 188 + Width = 67 + Height = 12 + Caption = #24065' '#31181#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 791 + Top = 266 + Width = 65 + Height = 12 + Caption = #20323#37329#27604#20363#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label11: TLabel + Left = 40 + Top = 219 + Width = 65 + Height = 12 + Caption = #20184#27454#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 40 + Top = 110 + Width = 65 + Height = 12 + Caption = #36816#36755#26041#24335#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 785 + Top = 212 + Width = 91 + Height = 12 + Caption = #20844#21496#33337#26679#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label13: TLabel + Left = 277 + Top = 188 + Width = 65 + Height = 12 + Caption = #20215#26684#26415#35821#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 785 + Top = 241 + Width = 91 + Height = 12 + Caption = #20179#24211#33337#26679#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label8: TLabel + Left = 759 + Top = 140 + Width = 65 + Height = 12 + Caption = #21253#35013#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 278 + Top = 81 + Width = 65 + Height = 12 + Caption = #26102#38388#35201#27714#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 517 + Top = 81 + Width = 65 + Height = 12 + Caption = #20132#36135#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 1004 + Top = 4 + Width = 65 + Height = 12 + Caption = #33136#23553#22823#29260#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label23: TLabel + Left = 759 + Top = 10 + Width = 65 + Height = 12 + Caption = #20132#26131#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 759 + Top = 36 + Width = 67 + Height = 12 + Caption = #29702' '#21333#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object lblSalesId: TLabel + Left = 1067 + Top = 302 + Width = 65 + Height = 12 + Caption = #19994#21153#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label25: TLabel + Left = 1075 + Top = 323 + Width = 65 + Height = 12 + Caption = #29702#21333#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label18: TLabel + Left = 38 + Top = 247 + Width = 67 + Height = 12 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 278 + Top = 110 + Width = 66 + Height = 12 + Caption = #35746' '#20179' '#20154#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label21: TLabel + Left = 282 + Top = 140 + Width = 65 + Height = 12 + Caption = #37325#37327#28322#30701#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 518 + Top = 140 + Width = 65 + Height = 12 + Caption = #20307#31215#39044#20272#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label28: TLabel + Left = 461 + Top = 81 + Width = 13 + Height = 12 + Caption = #22825 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label31: TLabel + Left = 760 + Top = 189 + Width = 65 + Height = 12 + Caption = #31614#35746#22320#28857#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 517 + Top = 218 + Width = 65 + Height = 12 + Caption = #26159#21542#21547#36816#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ConDate: TDateTimePicker + Tag = 2 + Left = 108 + Top = 77 + Width = 125 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + TabOrder = 0 + end + object ConNo: TEdit + Tag = 2 + Left = 107 + Top = 8 + Width = 125 + Height = 18 + TabOrder = 1 + Text = #33258#21160#29983#25104 + end + object BuyName: TBtnEditC + Tag = 2 + Left = 110 + Top = 33 + Width = 125 + Height = 20 + ReadOnly = True + TabOrder = 3 + OnBtnUpClick = BuyNameBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object BuyConNo: TEdit + Tag = 2 + Left = 353 + Top = 7 + Width = 125 + Height = 18 + TabOrder = 2 + end + object QtyNote: TBtnEditC + Tag = 2 + Left = 108 + Top = 136 + Width = 125 + Height = 20 + Hint = 'QtyNote/'#25968#37327#28322#30701 + TabOrder = 4 + OnBtnUpClick = SalesmanBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object Sellname: TBtnEditC + Tag = 2 + Left = 594 + Top = 6 + Width = 125 + Height = 20 + Hint = 'SellName/'#32463#33829#21333#20301 + TabOrder = 5 + OnBtnUpClick = SellNameBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object MiddleName: TBtnEditC + Tag = 2 + Left = 353 + Top = 32 + Width = 125 + Height = 20 + ReadOnly = True + TabOrder = 6 + OnBtnUpClick = MiddleNameBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object IsTax: TComboBox + Tag = 2 + Left = 594 + Top = 184 + Width = 125 + Height = 20 + TabOrder = 7 + Items.Strings = ( + #26159 + #21542) + end + object QiYun: TBtnEditC + Tag = 2 + Left = 596 + Top = 106 + Width = 125 + Height = 20 + Hint = 'QiYun/'#36215#36816#28207 + TabOrder = 8 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object MuDi: TBtnEditC + Tag = 2 + Left = 835 + Top = 106 + Width = 125 + Height = 20 + Hint = 'MuDi/'#30446#30340#28207 + TabOrder = 9 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object ExchangeRate: TEdit + Tag = 2 + Left = 835 + Top = 78 + Width = 125 + Height = 18 + TabOrder = 10 + OnKeyPress = ExchangeRateKeyPress + end + object Currency: TComboBox + Tag = 2 + Left = 108 + Top = 185 + Width = 125 + Height = 20 + TabOrder = 11 + Text = 'USD' + Items.Strings = ( + 'USD' + 'CNY') + end + object YongJin: TEdit + Tag = 2 + Left = 862 + Top = 263 + Width = 125 + Height = 18 + TabOrder = 12 + Visible = False + end + object YunShu: TBtnEditC + Tag = 2 + Left = 109 + Top = 107 + Width = 125 + Height = 20 + Hint = 'YunShu/'#36816#36755#26041#24335 + TabOrder = 13 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object Payment: TBtnEditC + Tag = 2 + Left = 108 + Top = 215 + Width = 368 + Height = 20 + Hint = 'Payment/'#20184#27454#26041#24335 + TabOrder = 14 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object GSChuanYangNote: TBtnEditC + Tag = 2 + Left = 879 + Top = 211 + Width = 81 + Height = 20 + Hint = 'GSChuanYangNote/'#20844#21496#33337#26679#35201#27714 + AutoSize = False + TabOrder = 15 + Visible = False + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object JiaGeSY: TBtnEditC + Tag = 2 + Left = 353 + Top = 184 + Width = 125 + Height = 20 + Hint = 'JiaGeSY/'#20215#26684#26415#35821 + TabOrder = 16 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object CKChuanYangNote: TBtnEditC + Tag = 2 + Left = 879 + Top = 240 + Width = 84 + Height = 20 + Hint = 'CKChuanYangNote/'#20179#24211#33337#26679#35201#27714 + AutoSize = False + TabOrder = 17 + Visible = False + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object MTieJing: TRichEdit + Tag = 2 + Left = 992 + Top = 181 + Width = 217 + Height = 103 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 18 + Visible = False + Zoom = 100 + OnDblClick = MTieJingDblClick + end + object cxDBImage1: TcxDBImage + Left = 1214 + Top = 0 + Hint = 'FileName' + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DS_ImgHX + Properties.GraphicClassName = 'TdxSmartImage' + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 19 + Visible = False + OnDblClick = cxDBImage1DblClick + Height = 281 + Width = 192 + end + object Packing: TBtnEditC + Tag = 2 + Left = 836 + Top = 135 + Width = 125 + Height = 20 + Hint = 'Packing/'#21253#35013#35201#27714 + AutoSize = False + TabOrder = 20 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object DlyDate: TDateTimePicker + Tag = 2 + Left = 595 + Top = 77 + Width = 125 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + TabOrder = 21 + end + object YFTPName: TBtnEditC + Tag = 2 + Left = 1075 + Top = 0 + Width = 125 + Height = 20 + Hint = 'YFTPName/'#33136#23553#22823#29260 + TabOrder = 22 + Visible = False + OnBtnUpClick = YFTPNameBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object ShippMent: TEdit + Tag = 2 + Left = 355 + Top = 78 + Width = 99 + Height = 18 + TabOrder = 23 + OnChange = ShippMentChange + OnKeyPress = ShippMentKeyPress + end + object ConType: TComboBox + Tag = 2 + Left = 835 + Top = 6 + Width = 125 + Height = 20 + Style = csDropDownList + ItemIndex = 0 + TabOrder = 24 + Text = #20869#38144 + Items.Strings = ( + #20869#38144 + #22806#38144) + end + object Saleser: TEdit + Tag = 2 + Left = 595 + Top = 33 + Width = 125 + Height = 18 + TabOrder = 25 + end + object Tallyer: TEdit + Tag = 2 + Left = 835 + Top = 33 + Width = 125 + Height = 18 + TabOrder = 26 + end + object SalesId: TEdit + Tag = 2 + Left = 1138 + Top = 296 + Width = 125 + Height = 18 + TabOrder = 27 + Visible = False + end + object TallyId: TEdit + Tag = 2 + Left = 1139 + Top = 320 + Width = 125 + Height = 18 + TabOrder = 28 + Visible = False + end + object Booker: TComboBox + Tag = 2 + Left = 353 + Top = 106 + Width = 127 + Height = 20 + TabOrder = 29 + Items.Strings = ( + 'BUYER' + 'SELLER') + end + object WeightNote: TBtnEditC + Tag = 2 + Left = 353 + Top = 136 + Width = 130 + Height = 20 + Hint = 'WeightNote/'#37325#37327#28322#30701 + TabOrder = 30 + OnBtnUpClick = SalesmanBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object VolumeEstimation: TBtnEditC + Tag = 2 + Left = 595 + Top = 136 + Width = 125 + Height = 20 + Hint = 'VolumeEstimation/'#20307#31215#39044#20272 + AutoSize = False + TabOrder = 31 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object Note: TMemo + Tag = 2 + Left = 108 + Top = 246 + Width = 369 + Height = 68 + TabOrder = 32 + end + object QDAddress: TBtnEditC + Tag = 2 + Left = 836 + Top = 185 + Width = 125 + Height = 20 + Hint = 'QDAddress/'#31614#35746#22320#28857 + AutoSize = False + TabOrder = 33 + OnBtnUpClick = QiYunBtnUpClick + OnBtnDnClick = BuyNameBtnDnClick + end + object IsYF: TComboBox + Tag = 2 + Left = 595 + Top = 214 + Width = 125 + Height = 20 + TabOrder = 34 + Items.Strings = ( + #26159 + #21542) + end + end + object Pic_Image1: TcxDBImage [2] + Left = 990 + Top = 64 + Hint = 'FileName' + DataBinding.DataField = 'FilesOther' + DataBinding.DataSource = DataSource1 + Properties.GraphicClassName = 'TdxSmartImage' + Properties.GraphicTransparency = gtTransparent + Properties.ReadOnly = True + Properties.ShowFocusRect = False + Style.BorderStyle = ebsSingle + TabOrder = 2 + Visible = False + OnDblClick = Pic_Image1DblClick + Height = 152 + Width = 217 + end + object Panel1: TPanel [3] + Left = 0 + Top = 373 + Width = 1172 + Height = 322 + Align = alClient + Caption = 'Panel1' + TabOrder = 3 + object cxGrid1: TcxGrid + Left = 1 + Top = 39 + Width = 1170 + Height = 282 + Align = alClient + BorderStyle = cxcbsNone + PopupMenu = pm_sub + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_1 + 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 + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = DataLink_Contract.Default + Styles.Header = DataLink_Contract.Default + Styles.Selection = DataLink_Contract.SHuangSe + object Tv1Column7: TcxGridDBColumn + Tag = 9 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_Contract.Default + Width = 55 + end + object VC_SCSCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 77 + end + object v1Column4: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20135#21697#33521#25991#21517 + DataBinding.FieldName = 'C_EName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 60 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object Tv1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 70 + end + object v1Column8: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 57 + end + object Tv1Column1: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 77 + end + object Tv1Column8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column6PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column7PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object Tv1Column6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'ConUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_Contract.Default + Width = 58 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ConPrice' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_Contract.handBlack + Width = 70 + end + object Tv1Column9: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ConTotalAmount' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 84 + end + object Tv1Column2: TcxGridDBColumn + Caption = #39044#20272#25104#26412 + DataBinding.FieldName = 'Estimated' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + end + object Tv1Column4: TcxGridDBColumn + Caption = #21033#28070#29575 + DataBinding.FieldName = 'ProfitRate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'ConSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar3: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 1170 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clBtnFace + DisabledImages = DataLink_Contract.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_Contract.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton4: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton5Click + end + end + end + object Panel2: TPanel [4] + Left = 1180 + Top = 373 + Width = 337 + Height = 322 + Align = alRight + Caption = 'Panel2' + TabOrder = 4 + Visible = False + object ToolBar2: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 335 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clBtnFace + DisabledImages = DataLink_Contract.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_Contract.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 71 + Top = 0 + Caption = #35745#31639 + ImageIndex = 9 + OnClick = ToolButton2Click + end + end + object cxGrid2: TcxGrid + Left = 1 + Top = 39 + Width = 335 + Height = 282 + Align = alClient + BorderStyle = cxcbsNone + PopupMenu = pm_sub + TabOrder = 1 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource2 + 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> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsCustomize.ColumnSorting = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = DataLink_Contract.Default + Styles.Header = DataLink_Contract.Default + Styles.Selection = DataLink_Contract.SHuangSe + object TV2Column2: TcxGridDBColumn + Caption = #21512#21516#23376#34920 + DataBinding.FieldName = 'Consid' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 107 + end + object TV2Column1: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 41 + end + object TV2Column3: TcxGridDBColumn + Caption = #39033#30446 + DataBinding.FieldName = 'CB_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 86 + end + object TV2Column4: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'CB_Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object cxSplitter1: TcxSplitter [5] + Left = 1172 + Top = 373 + Width = 8 + Height = 322 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salRight + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 529 + Top = 0 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 441 + Top = 1 + end + inherited ImageList_new32: TImageList + Left = 904 + Top = 248 + end + object ADOTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 728 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 632 + Top = 65533 + end + object DS_1: TDataSource + DataSet = Order_Sub + Left = 716 + Top = 518 + end + object Order_Sub: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 672 + Top = 516 + end + object cxgrdpmn1: TcxGridPopupMenu + PopupMenus = <> + Left = 605 + Top = 475 + end + object pm_sub: TPopupMenu + Left = 624 + Top = 536 + object N1: TMenuItem + Caption = #26222#36890#26367#25442 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20135#21697#26367#25442 + OnClick = N2Click + end + end + object DataSource1: TDataSource + DataSet = ADOQueryImage + Left = 1100 + Top = 119 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 1032 + Top = 123 + end + object DS_ImgHX: TDataSource + DataSet = Qry_ImgHX + Left = 1268 + Top = 119 + end + object Qry_ImgHX: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 1272 + Top = 59 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 1256 + Top = 186 + end + object ADOQuery1: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 743 + Top = 450 + end + object ADOQuery2: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 813 + Top = 507 + end + object ADOQuery3: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 869 + Top = 539 + end + object DataSource2: TDataSource + DataSet = Sub_CB + Left = 1391 + Top = 489 + end + object Sub_CB: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 1322 + Top = 485 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 866 + Top = 460 + end + object ADOGY1: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 1026 + Top = 487 + end + object ADOGY2: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 1019 + Top = 539 + end + object ADOGY3: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 1025 + Top = 587 + end +end diff --git a/B01基础合同管理/U_BaoguanInPut.pas b/B01基础合同管理/U_BaoguanInPut.pas new file mode 100644 index 0000000..2e2297a --- /dev/null +++ b/B01基础合同管理/U_BaoguanInPut.pas @@ -0,0 +1,1913 @@ +unit U_BaoguanInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, + dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses, + Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, + System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, cxSplitter, + dxSkinWXI, dxScrollbarAnnotations; + +type + TfrmBaoguanInPut = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label3: TLabel; + ConDate: TDateTimePicker; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DS_1: TDataSource; + Order_Sub: TClientDataSet; + Label9: TLabel; + Label10: TLabel; + ConNo: TEdit; + Label14: TLabel; + Label20: TLabel; + BuyName: TBtnEditC; + Label6: TLabel; + Label34: TLabel; + BuyConNo: TEdit; + cxgrdpmn1: TcxGridPopupMenu; + QtyNote: TBtnEditC; + Sellname: TBtnEditC; + MiddleName: TBtnEditC; + Label26: TLabel; + Label27: TLabel; + IsTax: TComboBox; + Label29: TLabel; + Label30: TLabel; + QiYun: TBtnEditC; + MuDi: TBtnEditC; + Label2: TLabel; + ExchangeRate: TEdit; + Label5: TLabel; + Currency: TComboBox; + Label7: TLabel; + YongJin: TEdit; + Label11: TLabel; + Label12: TLabel; + YunShu: TBtnEditC; + Payment: TBtnEditC; + Label4: TLabel; + GSChuanYangNote: TBtnEditC; + Label13: TLabel; + JiaGeSY: TBtnEditC; + Label1: TLabel; + CKChuanYangNote: TBtnEditC; + pm_sub: TPopupMenu; + N1: TMenuItem; + Pic_Image1: TcxDBImage; + DataSource1: TDataSource; + ADOQueryImage: TADOQuery; + MTieJing: TRichEdit; + cxDBImage1: TcxDBImage; + DS_ImgHX: TDataSource; + Qry_ImgHX: TADOQuery; + IdFTP1: TIdFTP; + Label8: TLabel; + Packing: TBtnEditC; + Label15: TLabel; + Label16: TLabel; + DlyDate: TDateTimePicker; + YFTPName: TBtnEditC; + Label17: TLabel; + N2: TMenuItem; + ShippMent: TEdit; + ToolButton3: TToolButton; + Label23: TLabel; + ConType: TComboBox; + Label24: TLabel; + Saleser: TEdit; + Tallyer: TEdit; + lblSalesId: TLabel; + Label25: TLabel; + SalesId: TEdit; + TallyId: TEdit; + Label18: TLabel; + Label19: TLabel; + Booker: TComboBox; + Label21: TLabel; + WeightNote: TBtnEditC; + Label22: TLabel; + VolumeEstimation: TBtnEditC; + Label28: TLabel; + Panel1: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + Tv1Column7: TcxGridDBColumn; + v1XHNo: TcxGridDBColumn; + VC_SCSCode: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Note: TMemo; + Tv1Column2: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + ADOQuery1: TADOQuery; + ADOQuery2: TADOQuery; + ADOQuery3: TADOQuery; + ToolBar3: TToolBar; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + Panel2: TPanel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + DataSource2: TDataSource; + Sub_CB: TClientDataSet; + TV2Column2: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; + ADOQueryCmd: TADOQuery; + ToolButton2: TToolButton; + ADOGY1: TADOQuery; + ADOGY2: TADOQuery; + ADOGY3: TADOQuery; + TV2Column1: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + Label31: TLabel; + QDAddress: TBtnEditC; + Label32: TLabel; + IsYF: TComboBox; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure BuyNameBtnUpClick(Sender: TObject); + procedure BuyNameBtnDnClick(Sender: TObject); + procedure v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure SalesmanBtnUpClick(Sender: TObject); + procedure v1Column15PropertiesEditValueChanged(Sender: TObject); + procedure SellNameBtnUpClick(Sender: TObject); + procedure MiddleNameBtnUpClick(Sender: TObject); + procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject); + procedure QiYunBtnUpClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure Pic_Image1DblClick(Sender: TObject); + procedure cxDBImage1DblClick(Sender: TObject); + procedure YFTPNameBtnUpClick(Sender: TObject); + procedure MTieJingDblClick(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ExchangeRateKeyPress(Sender: TObject; var Key: Char); + procedure ShippMentKeyPress(Sender: TObject; var Key: Char); + procedure ShippMentChange(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); +// procedure PBPriceKeyPress(Sender: TObject; var Key: Char); +// procedure Button1Click(Sender: TObject); + private + FLeft, FTop: Integer; + fuserName, Fstatus: string; + procedure InitImage(); +// procedure InitGX(); + procedure JSMoney(); + procedure JSCB(); + procedure CBMX(); + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function TestData(): Boolean; + function SaveData(): Boolean; + function SaveCB(): Boolean; + function GetLSNo1(ADOQueryTmp: TADOQuery; // ȡ + var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean; + procedure SetXH(); + procedure LookImage(FileName: string); + { Private declarations } + public + CopyInt: Integer; + PState: string; + fFlileFlag: string; + FConMId: string; + FAuthority, FGSTT: string; + { Public declarations } + end; + +var + frmBaoguanInPut: TfrmBaoguanInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, U_PictureUpload; + +{$R *.dfm} +function TfrmBaoguanInPut.GetLSNo1(ADOQueryTmp: TADOQuery; var mMaxNo: string; mFlag: string; mTable: string; mlen: Integer; mtype: Integer = 0): Boolean; +begin + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('exec Get_SY_MaxBH1 '); + sql.Add(' ' + quotedStr(mFlag)); + sql.Add(',' + quotedStr(mTable)); + sql.Add(',' + intTostr(mlen)); + sql.Add(',' + intTostr(mtype)); + // ShowMessage(SQL.Text); + Open; + + if Recordcount > 0 then + begin + mMaxNo := Trim(fieldByName('MaxBH').AsString); + if mMaxNo <> '' then + Result := true + else + Result := false; + end + else + begin + Result := false; + end; + + end; + if not Result then + application.MessageBox(PWideChar('޷ˮ(' + mFlag + ')'), 'ʾϢ', MB_ICONINFORMATION); + + except + Result := false; + application.MessageBox(PWideChar('޷ˮ(' + mFlag + ')'), 'ʾϢ', MB_ICONINFORMATION); + + end; +end; + +procedure TfrmBaoguanInPut.SetXH(); +var + i: Integer; +begin + with Order_Sub do + begin + First; + i := 1; + while not Eof do + begin + with Order_Sub do + begin + Edit; + FieldByName('XHNoTemp').Value := i; + Post; + end; + i := i + 1; + Next; + end; + end; + + with Order_Sub do + begin + Order_Sub.IndexFieldNames := ''; + First; + i := 1; + while not Eof do + begin + with Order_Sub do + begin + Edit; + FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger; + Post; + end; + i := i + 1; + Next; + end; + Order_Sub.IndexFieldNames := 'SerialNo'; + end; +end; + +procedure TfrmBaoguanInPut.ShippMentChange(Sender: TObject); +begin + if ShippMent.text <> '' then + begin + Dlydate.DateTime := ConDate.DateTime + StrToFloat(Shippment.text); + end; + +end; + +procedure TfrmBaoguanInPut.ShippMentKeyPress(Sender: TObject; var Key: Char); +begin + if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then + begin + Key := #0; + end + else if (pos('.', TEdit(Sender).text) <> 0) then + begin + if Key = '.' then + begin + Key := #0; + end; + end; + +end; + +procedure TfrmBaoguanInPut.InitImage(); +begin + with ADOQueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where isnull(WBID,'''')<>'''' and FileName=' + quotedstr(Trim(YFTPName.Text))); +// showmessage(sql.text); Self..Text + open; + end; +end; + +//procedure TfrmSalesConInPut.InitGX(); +//var +// i: Integer; +// xh: string; +//begin +// if Order_Sub.IsEmpty then +// exit; +// with ADOQuery1 do +// begin +// close; +// sql.Clear; +// sql.Add('select * from BS_Cloth_Glide A '); +// sql.Add('left join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); +// open; +// end; +// i := 1; +// xh := '1'; +//// if ADOQuery1.ISEmpty = False then +//// begin +// +// while i <= 3 do +// begin +// with ADOQuery2 do +// begin +// close; +// sql.Clear; +// sql.Add('select A.* from (select X.ProcessName+''-''+X.ProcessTypeName AS GX,X.BCIID,X.GlideIdx from BS_Cloth_Glide X) A '); +// sql.Add('left join Bs_Cloth_Info B on A.BCIID=B.BCIID'); +// sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); +// sql.Add('and A.GlideIdx =''' + Trim(xh) + ''''); +//// showmessage(SQL.text); +// open; +// end; +// +// case i of +// 1: +// begin +// if Trim(ADOQuery2.fieldbyname('GX').AsString) <> '' then +// begin +// Label36.Caption := Trim(ADOQuery2.fieldbyname('GX').AsString) + 'ӹ:'; +// end +// else +// begin +// Label36.Caption := '1ӹѣ'; +// end; +// +// end; +// 2: +// begin +// if Trim(ADOQuery2.fieldbyname('GX').AsString) <> '' then +// begin +// Label37.Caption := Trim(ADOQuery2.fieldbyname('GX').AsString) + 'ӹ:'; +// end +// else +// begin +// Label37.Caption := '2ӹѣ'; +// end; +// end; +// 3: +// begin +// if Trim(ADOQuery2.fieldbyname('GX').AsString) <> '' then +// begin +// Label38.Caption := Trim(ADOQuery2.fieldbyname('GX').AsString) + 'ӹ:'; +// end +// else +// begin +// Label38.Caption := '3ӹѣ'; +// end; +// end; +// end; +// +// i := i + 1; +// xh := IntToStr(i); +//// end; +// end; +// +//end; + +procedure TfrmBaoguanInPut.JSMoney(); +var + FConQty, FConPrice, FC_Money: Double; +begin + with Order_Sub do + begin + FConQty := Fieldbyname('ConQty').AsFloat; + FConPrice := Fieldbyname('ConPrice').AsFloat; + end; + //2λС + FC_Money := RoundFloat(FConQty * FConPrice, 2); + with Order_Sub do + begin + Edit; + FieldByName('ConTotalAmount').Value := FC_Money; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmBaoguanInPut.CBMX(); +begin + with ADOQuery2 do + begin + close; + sql.Clear; + sql.Add('select COUNT(A.BCIID) S from BS_Cloth_Glide A '); + sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); + sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); + open; + end; + //ѯ1 + with ADOGY1 do + begin + close; + sql.Clear; + sql.Add('select ISNULL(A.ProcessName, '''')+ISNULL(''_''+A.ProcessTypeName, '''') GY from BS_Cloth_Glide A '); + sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); + sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); + sql.Add('and A.GlideIdx=1 '); + open; + end; + //ѯ2 + with ADOGY2 do + begin + close; + sql.Clear; + sql.Add('select ISNULL(A.ProcessName, '''')+ISNULL(''_''+A.ProcessTypeName, '''') GY from BS_Cloth_Glide A '); + sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); + sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); + sql.Add('and A.GlideIdx=2 '); + open; + end; + //ѯ3 + with ADOGY3 do + begin + close; + sql.Clear; + sql.Add('select ISNULL(A.ProcessName, '''')+ISNULL(''_''+A.ProcessTypeName, '''') GY from BS_Cloth_Glide A '); + sql.Add('left join Bs_Cloth_Info B on B.BCIID =A.BCIID'); + sql.Add('where B.C_Code =' + quotedstr((Order_sub.fieldbyname('C_Code').AsString))); + sql.Add('and A.GlideIdx=3 '); + open; + end; + + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select * from BS_Contract_Sub_CB '); + sql.Add('where ConSid=' + quotedstr(trim(order_Sub.fieldbyname('Consid').AsString))); +// sql.Add(' order by SerialNo '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery1, Sub_CB); + SInitCDSData(ADOQuery1, Sub_CB); + + if ADOQuery1.IsEmpty then + begin + with Sub_CB do + begin + Sub_CB.EmptyDataSet; + Append; + FieldByName('SerialNo').Value := 1; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := ''; + FieldByName('CB_Price').Value := '0'; + post; + Append; + FieldByName('SerialNo').Value := 2; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := '(%)'; + FieldByName('CB_Price').Value := '0'; + post; + Append; + FieldByName('SerialNo').Value := 3; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := 'Ⱦ'; + FieldByName('CB_Price').Value := '0'; + post; + Append; + FieldByName('SerialNo').Value := 4; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := '׳'; + FieldByName('CB_Price').Value := '1'; + post; + Append; + FieldByName('SerialNo').Value := 5; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := '(%)'; + FieldByName('CB_Price').Value := '0'; + post; + Append; + FieldByName('SerialNo').Value := 6; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := '沼'; + FieldByName('CB_Price').Value := '0'; + post; + + Append; + FieldByName('SerialNo').Value := 7; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + if ADOQuery2.fieldbyname('S').AsInteger > 0 then + begin + FieldByName('CB_Name').Value := Trim(ADOGY1.fieldbyname('GY').AsString); + end + else + begin + FieldByName('CB_Name').Value := '1ӹ'; + end; + FieldByName('CB_Price').Value := '0'; + post; + + Append; + FieldByName('SerialNo').Value := 8; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + if ADOQuery2.fieldbyname('S').AsInteger > 1 then + begin + FieldByName('CB_Name').Value := Trim(ADOGY2.fieldbyname('GY').AsString); + end + else + begin + FieldByName('CB_Name').Value := '2ӹ'; + end; + FieldByName('CB_Price').Value := '0'; + post; + + Append; + FieldByName('SerialNo').Value := 9; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + if ADOQuery2.fieldbyname('S').AsInteger > 2 then + begin + FieldByName('CB_Name').Value := Trim(ADOGY3.fieldbyname('GY').AsString); + end + else + begin + FieldByName('CB_Name').Value := '3ӹ'; + end; + FieldByName('CB_Price').Value := '0'; + post; + + append; + FieldByName('SerialNo').Value := 10; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := 'װ'; + FieldByName('CB_Price').Value := '0'; + post; + + Append; + FieldByName('SerialNo').Value := 11; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := ''; + FieldByName('CB_Price').Value := '1'; + post; + + Append; + FieldByName('SerialNo').Value := 12; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := '˷'; + FieldByName('CB_Price').Value := '0'; + post; + + Append; + FieldByName('SerialNo').Value := 13; + FieldByName('ConSid').Value := Trim(Order_Sub.fieldbyname('ConSid').AsString); + FieldByName('CB_Name').Value := 'Ӷ(%)'; + FieldByName('CB_Price').Value := '0'; + post; + + end; + end; +end; + +procedure TfrmBaoguanInPut.JSCB(); +var + FLRL, FSYGCB: string; + i: Integer; + FPBPrice, Fsl, Frf, FMQty, FMBPrice, FGY1, FGY2, FGY3: Double; + Fbzf, Fhl, Fyf, Fyj, FXSPrice, FYGCB, FLR, FGYSL: Double; +begin + i := 1; + with Sub_CB do + begin + First; + while not Eof do + begin + case i of + 1: + begin + FPBPrice := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 2: + begin + Fsl := (100 - Sub_CB.fieldbyname('CB_Price').Asfloat) / 100; + end; + 3: + begin + Frf := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 4: + begin + FMQty := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 5: + begin + FGYSL := (100 - Sub_CB.fieldbyname('CB_Price').Asfloat) / 100; + end; + 6: + begin + FMBPrice := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 7: + begin + FGY1 := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 8: + begin + FGY2 := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 9: + begin + FGY3 := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 10: + begin + Fbzf := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 11: + begin + Fhl := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 12: + begin + Fyf := Sub_CB.fieldbyname('CB_Price').Asfloat; + end; + 13: + begin + Fyj := (100 - Sub_CB.fieldbyname('CB_Price').Asfloat) / 100; + end; + + end; + i := i + 1; + Next; + end; + end; + + FXSPrice := Order_sub.fieldbyname('ConPrice').Asfloat; + if FPBPrice = 0 then + begin + Application.MessageBox('۲Ϊ0!', 'ʾ', 0); + Exit; + end; + if Fsl = 0 then + begin + Application.MessageBox('ʲΪ0!', 'ʾ', 0); + Exit; + end; + if FGYSL = 0 then + begin + Application.MessageBox('ʲΪ0!', 'ʾ', 0); + Exit; + end; + if FMQty = 0 then + begin + Application.MessageBox('׳Ϊ0!', 'ʾ', 0); + Exit; + end; + if Fhl = 0 then + begin + Application.MessageBox('ʲΪ0!', 'ʾ', 0); + Exit; + end; + if Fyj = 0 then + begin + Application.MessageBox('ӶΪ0!', 'ʾ', 0); + Exit; + end; + + FYGCB := RoundFloat((((((FPBPrice / Fsl + Frf) / FMQty + FMBPrice + FGY1 + FGY2 + FGY3) / FGYSL + Fbzf) / Fhl + Fyf) / Fyj), 2); + FLR := RoundFloat((FXSPrice - FYGCB) / FYGCB, 3) * 100; + + FSYGCB := floatToStr(FYGCB); + FLRL := floatToStr(FLR) + '%'; + +// showmessage('Ԥɱ'+TRIM(FSYGCB)+'ʣ'+tRIM(FLRL)+'ǷҪ棡'); + if Application.MessageBox(PChar('Ԥɱ' + TRIM(FSYGCB) + 'ʣ' + tRIM(FLRL) + 'ǷҪ棡'), 'ʾ', 32 + 4) <> IDYES then + Exit; + if SaveCb() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + end; +// Sub_CB.post; + + with Order_Sub do + begin + Edit; + FieldByName('Estimated').Value := FloatToStr(FYGCB); + FieldByName('ProfitRate').Value := FLRL; + Post; + end; + + if SaveData() then + begin + Application.MessageBox('Ԥɱɹ', 'ʾ', 0); + end; +end; +//begin +// +// + +//// tv1.Controller.EditingController.ShowEdit(); +//end; + +function TfrmBaoguanInPut.TestData(): Boolean; +begin + try + if Trim(ConNo.Text) = '' then + raise Exception.Create('ͬŲΪգ'); + if Trim(SellName.Text) = '' then + raise Exception.Create('ӪλΪգ'); + if Trim(BuyName.Text) = '' then + raise Exception.Create('ԷλΪգ'); + if Trim(ConType.Text) = '' then + raise Exception.Create('ͲΪգ'); + if Order_Sub.IsEmpty then + raise Exception.Create('ϸΪգ'); + if Order_Sub.Locate('C_Code', null, []) then + raise Exception.Create('ƷŲΪգ'); + if Order_Sub.Locate('C_Code', '', []) then + raise Exception.Create('ƷŲΪգ'); + if Order_Sub.Locate('C_Name', null, []) then + raise Exception.Create('ƷΪգ'); + if Order_Sub.Locate('C_Name', '', []) then + raise Exception.Create('ƷΪգ'); +// if Order_Sub.Locate('C_Color', null, []) then +// raise Exception.Create('ɫΪգ'); +// if Order_Sub.Locate('C_Color', '', []) then +// raise Exception.Create('ɫΪգ'); +// if Order_Sub.Locate('C_MF', null, []) then +// raise Exception.Create('ŷΪգ'); +// if Order_Sub.Locate('C_MF', '', []) then +// raise Exception.Create('ŷΪգ'); +// if Order_Sub.Locate('C_KZ', null, []) then +// raise Exception.Create('زΪգ'); +// if Order_Sub.Locate('C_KZ', '', []) then +// raise Exception.Create('زΪգ'); + if Order_Sub.Locate('ConQty', null, []) then + raise Exception.Create('Ϊգ'); + if Order_Sub.Locate('ConQty', 0, []) then + raise Exception.Create('Ϊ0'); + if Order_Sub.Locate('ConUnit', null, []) then + raise Exception.Create('λΪգ'); + if Order_Sub.Locate('ConUnit', '', []) then + raise Exception.Create('λΪգ'); + Result := True; + except + Result := false; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmBaoguanInPut.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmBaoguanInPut.InitData(); +var + maxno: string; +begin + //ˢ²ƷϢ + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from BS_Contract_Sub '); + sql.Add('where ConMId=''' + Trim(FConMId) + ''''); +// sql.Add(' order by SerialNo '); + Open; + end; + SCreateCDS(ADOTemp, Order_Sub); + SInitCDSData(ADOTemp, Order_Sub); + + //ˢϢ + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Contract_Main where ConMId=''' + Trim(FConMId) + ''''); + Open; + end; + SCSHData(ADOTemp, ScrollBox1, 2); + BuyName.TxtCode := Trim(ADOTemp.FieldByName('BuyNo').AsString); + Sellname.TxtCode := Trim(ADOTemp.FieldByName('SellNo').AsString); + MiddleName.TxtCode := Trim(ADOTemp.FieldByName('MiddleNo').AsString); + Fstatus := Trim(ADOTemp.FieldByName('status').AsString); + + if PState = '' then + begin + ConDate.DateTime := SGetServerDateTime(ADOTemp); + DlyDate.DateTime := ConDate.DateTime; + ConNo.Text := 'Զ'; + + end; + + if PState = '' then + begin + + PState := ''; + FConMId := ''; + ConNo.Text := 'Զ'; + + with Order_Sub do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd, maxno, 'SCS', 'BS_Contract_Sub', 4, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + Edit; + FieldByName('ConMId').Value := ''; + FieldByName('ConSId').Value := maxno; + Post; + Next; + end; + end; + end; + +end; + +procedure TfrmBaoguanInPut.MiddleNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if Self.FAuthority = '¼' then + FAuthority := 'ҵ'; + if ShowModal = 1 then + begin + self.MiddleName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.MiddleName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmBaoguanInPut.MTieJingDblClick(Sender: TObject); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin +// flag := 'TJ' + TRIM(Order_Sub.fieldbyname('C_Code').AsString) + TRIM(BuyName.TxtCode); + flag := 'TJ'; + flagname := ''; + if ShowModal = 1 then + begin + MTieJing.Text := StringReplace(Trim(ClientDataSet1.fieldbyname('ZDYName').AsString), '#', #$D#$A, [rfReplaceAll]); + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBaoguanInPut.N1Click(Sender: TObject); +var + FValue, FFValue, FColumn, FFColumn, MHXSID: string; + MXHNO: Integer; +begin +// if Fstatus = '1' then +// begin +// application.MessageBox('ͬˣ޷', 'ʾϢ', 0); +// exit; +// end; +// MXHNO := Order_Sub.FieldByName('XHNo').ASInteger; +// FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; +// FValue := Trim(Order_Sub.fieldbyname(FColumn).AsString); +// MHXSID := Trim(Order_Sub.fieldbyname('HXSID').AsString); +// with Order_Sub do +// begin +// DisableControls; +// First; +// while not Eof do +// begin +// if FieldByName('SSel').AsBoolean then +// begin +// Edit; +// +// if FValue = '' then +// begin +// Order_Sub.FieldByName(FColumn).Value := null; +// end +// else +// begin +// Order_Sub.FieldByName(FColumn).Value := FValue; +// end; +// if FColumn = 'C_HX' then +// begin +// Order_Sub.FieldByName('HXSID').Value := MHXSID; +// end; +// Post; +// JSMoney(); +// end; +// Next; +// end; +// EnableControls; +// end; +// Order_Sub.Locate('XHNO', MXHNO, []); +end; + +procedure TfrmBaoguanInPut.N2Click(Sender: TObject); +var + FValue, MC_Code, MC_Craft, MC_Name, MC_Spec, MC_CF, MC_Color, MC_MF, MC_KZ, MC_Note, MC_Unit, MGcHuaNo, MSuoLv, MC_EName: string; + MXHNO: Integer; +begin +// if Fstatus = '1' then +// begin +// application.MessageBox('ͬˣ޷', 'ʾϢ', 0); +// exit; +// end; +// +// MXHNO := Order_Sub.FieldByName('XHNo').ASInteger; +// MC_Code := Order_Sub.fieldbyname('C_Code').AsString; +// MC_Craft := Order_Sub.fieldbyname('C_Craft').AsString; +// MC_Name := Order_Sub.fieldbyname('C_Name').AsString; +// MC_Spec := Order_Sub.fieldbyname('C_Spec').AsString; +// MC_CF := Order_Sub.fieldbyname('C_CF').AsString; +// MC_Color := Order_Sub.fieldbyname('C_Color').AsString; +// MC_MF := Order_Sub.fieldbyname('C_MF').AsString; +// MC_KZ := Order_Sub.fieldbyname('C_KZ').AsString; +// MC_Note := Order_Sub.fieldbyname('C_Note').AsString; +// MC_Unit := Order_Sub.fieldbyname('C_Unit').AsString; +// MSuoLv := Order_Sub.fieldbyname('SuoLv').AsString; +// MGcHuaNo := Order_Sub.fieldbyname('GcHuaNo').AsString; +// MC_EName := Order_Sub.fieldbyname('C_EName').AsString; +// +// with Order_Sub do +// begin +// DisableControls; +// First; +// while not Eof do +// begin +// if FieldByName('SSel').AsBoolean then +// begin +// Edit; +// Order_Sub.fieldbyname('C_Code').Value := MC_Code; +// Order_Sub.fieldbyname('C_Craft').Value := MC_Craft; +// Order_Sub.fieldbyname('C_Name').Value := MC_Name; +// Order_Sub.fieldbyname('C_Spec').Value := MC_Spec; +// Order_Sub.fieldbyname('C_CF').Value := MC_CF; +// Order_Sub.fieldbyname('C_Color').Value := MC_Color; +// Order_Sub.fieldbyname('C_MF').Value := MC_MF; +// Order_Sub.fieldbyname('C_KZ').Value := MC_KZ; +// Order_Sub.fieldbyname('C_Note').Value := MC_Note; +// Order_Sub.fieldbyname('C_Unit').Value := MC_Unit; +// Order_Sub.fieldbyname('SuoLv').Value := MSuoLv; +// Order_Sub.fieldbyname('GcHuaNo').Value := MGcHuaNo; +// Order_Sub.fieldbyname('C_EName').Value := MC_EName; +// Post; +// +// end; +// Next; +// end; +// EnableControls; +// end; +// Order_Sub.Locate('XHNO', MXHNO, []); +end; + +//procedure TfrmSalesConInPut.PBPriceKeyPress(Sender: TObject; var Key: Char); +//begin +// if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then +// begin +// Key := #0; +// end +// else if (pos('.', TEdit(Sender).text) <> 0) then +// begin +// if Key = '.' then +// begin +// Key := #0; +// end; +// end; +// +//end; + +procedure TfrmBaoguanInPut.Pic_Image1DblClick(Sender: TObject); +begin + if TcxDBImage(Sender).Picture.Height = 0 then + exit; + + LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); +end; + +procedure TfrmBaoguanInPut.LookImage(FileName: string); +var + sFieldName: string; +begin + sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴'; + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName), nil); + sFieldName := sFieldName + '\' + trim(FileName); + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + try + IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false); + except + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + if IdFTP1.Connected then + IdFTP1.Quit; + ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); +end; + +procedure TfrmBaoguanInPut.QiYunBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + MainType := 'ۺͬ'; + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmBaoguanInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +end; + +procedure TfrmBaoguanInPut.FormShow(Sender: TObject); +begin +// inherited; + readCxGrid(trim(self.Caption), Tv1, 'ۺͬ'); + fFlileFlag := UserDataFlag + 'HX'; + InitData(); + InitImage(); +end; + +function TfrmBaoguanInPut.SaveCB(): Boolean; +var + MConSid, MCBName, MSCBID, MaxNo: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; +//////////////// ɱ /////////////////// +// +// if not Sub_CB.IsEmpty then +// begin +// with Sub_cb do +// begin +// Sub_cb.First; +// while not Eof do +// begin +// MConSid := Trim(Sub_cb.fieldbyname('ConSid').AsString); +// MCBName := Trim(Sub_cb.fieldbyname('CB_Name').AsString); +// +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('select * from BS_Contract_sub_CB where ConSid=' + quotedstr(Trim(MConSid))); +// Sql.Add('and CB_Name=' + quotedstr(Trim(MCBName))); +// Open; +// end; +// with ADOQueryCmd do +// begin +// if ADOQueryCmd.IsEmpty then +// begin +// Append; +// end +// else +// begin +// Edit; +// end; +// +// RTSetSaveDataCDS(ADOQueryCmd, Tv2, Sub_CB, 'BS_Contract_sub_CB', 0); +// Post; +// end; +// with Sub_CB do +// begin +// Edit; +// FieldByName('ConSid').Value := Trim(MConSid); +// FieldByName('CB_Name').Value := Trim(MCBName); +// Post; +// end; +// Sub_CB.Next; +// end; +// end; +// end; +// +// +// //////ɱ///////////////////// +// if not Sub_CB.IsEmpty then +// begin + with Sub_CB do + begin + Sub_CB.First; + while not Eof do + begin + MSCBID := Trim(Sub_CB.fieldbyname('SCBID').AsString); + if Trim(MSCBID) = '' then + begin + if GetLSNo(ADOQuery1, MaxNo, 'CB', 'BS_Contract_Sub_CB', 4, 1) = False then + begin + ADOQuery1.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + MaxNo := trim(MSCBID); + end; + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from Bs_Contract_Sub_CB where SCBID=' + quotedstr(Trim(MSCBID))); + Open; + end; + with ADOQuery1 do + begin + if Trim(MSCBID) = '' then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('SCBID').Value := Trim(MaxNo); +// FieldByName('COID').Value := Trim(MSCBID); + RTSetSaveDataCDS(ADOQuery1, Tv2, Sub_Cb, 'BS_Contract_Sub_CB', 0); + Post; + end; + with sub_Cb do + begin + Edit; + FieldByName('SCBID').Value := Trim(MaxNo); + Post; + end; + Sub_CB.Next; + end; + end; +// end; + + ADOQueryCmd.Connection.CommitTrans; +// FCCID := Trim(MaxSubId); + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + Result := false; + end; +end; + +function TfrmBaoguanInPut.SaveData(): Boolean; +var + maxno, MQZ, MLS, MYR: string; + fconNO, fmxType, fDate: string; +begin + try + ADOCmd.Connection.BeginTrans; +//////////////// ////////////////////// + if Trim(FConMId) = '' then + begin + if GetLSNo(ADOTemp, maxno, 'CM', 'BS_Contract_Main', 3, 1) = False then + raise Exception.Create('ȡʧܣ'); + +// fDate := FormatDateTime('yy', SGetServerDate(ADOTemp)); + + if trim(ConNo.Text) = 'Զ' then + begin + if GetLSNo1(ADOTemp, fconNO, 'DH', 'BS_Contract_Main', 4, 1) = False then + raise Exception.Create('ȡͬʧܣ'); + + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select LEFT(''' + Trim(fconNO) + ''''); + SQl.Add(', 4) AS QZ,RIGHT(''' + Trim(fconNO) + ''''); + SQL.ADD(', 4) AS LS'); + Open; + end; + MQZ := ADOQuery1.FieldByName('QZ').ASString; + MLS := ADOQuery1.FieldByName('LS').ASString; + with ADOQuery2 do + begin + Close; + sql.Clear; + SQL.Add('select RIGHT(YEAR(GETDATE()) * 10000 + MONTH(GETDATE()) * 100 + DAY(GETDATE()), 4) YR '); + + Open; + end; + MYR := ADOQuery2.FieldByName('YR').ASString; + + +// if ConType.Text = '' then +// fconNO := 'N' + fconNO +// else +// fconNO := 'W' + fconNO; + ConNo.Text := MQZ + MYR + MLS; + end; + end + else + begin + maxno := Trim(FConMId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from BS_Contract_Main where ConMId=''' + Trim(FConMId) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(FConMId) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('status').Value := '0'; + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + FieldByName('ConMId').Value := Trim(maxno); + RTSetsavedata(ADOCmd, 'BS_Contract_Main', ScrollBox1, 2); + FieldByName('BuyNo').Value := Trim(BuyName.TxtCode); + FieldByName('SellNo').Value := Sellname.TxtCode; + FieldByName('MiddleNo').Value := MiddleName.TxtCode; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BS_Contract_Main where ConNo=''' + Trim(ConNo.Text) + ''''); + Open; + end; + if ADOCmd.RecordCount > 1 then + raise Exception.Create('ͬظ'); + + FConMId := Trim(maxno); +//////////////// ////////////////////// +/// +//////////////// ӱ ////////////////////// + with Order_Sub do + begin + First; + while not Eof do + begin + maxno := Trim(Order_Sub.fieldbyname('ConSId').AsString); + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from BS_Contract_Sub where ConSId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOCmd do + begin + if ADOCmd.IsEmpty then + Append + else + Edit; + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'BS_Contract_Sub', 0); + FieldByName('ConMId').Value := Trim(FConMId); + FieldByName('ConSId').Value := Trim(maxno); + + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('ConSId').Value := Trim(maxno); + Post; + end; + Next; + end; + end; +//////////////// ӱ ////////////////////// +/// +//////////////// ºͬ ////////////////////// +// with ADOCmd do +// begin +// close; +// sql.Clear; +// sql.Add('EXEC P_Con_Up_PiQty '); +// sql.Add('@DataID=' + quotedstr(Trim(FConMId))); +// execsql; +// end; +//////////////// ºͬ ////////////////////// + + ADOCmd.Connection.CommitTrans; + Result := True; + except + + ADOCmd.Connection.RollbackTrans; + + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + + Result := False; + end; +end; + +procedure TfrmBaoguanInPut.TBSaveClick(Sender: TObject); +begin + ConDate.SetFocus; + + if TestData() = false then + exit; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + end; +end; + +procedure TfrmBaoguanInPut.v1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName, FLRL: string; + FConQty, FConPrice, FC_Money, FEstimated, FLR: Double; //ۣ, Ԥɱ +begin + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then + begin + mvalue := '0'; + end; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with Order_Sub do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + FConQty := Fieldbyname('ConQty').AsFloat; + FConPrice := Fieldbyname('ConPrice').AsFloat; + end; + FC_Money := RoundFloat(FConQty * FConPrice, 2); + + with Order_Sub do + begin + Edit; + FieldByName('ConQty').Value := FConQty; + FieldByName('ConPrice').Value := FConPrice; + FieldByName('ConTotalAmount').Value := FC_Money; + Post; + end; + + if Order_Sub.FieldByName('Estimated').asString <> '' then + begin + FEstimated := Order_sub.Fieldbyname('Estimated').AsFloat; + FLR := RoundFloat((FConPrice - FEstimated) / FEstimated, 3) * 100; + FLRL := floatToStr(FLR) + '%'; + with Order_Sub do + begin + Edit; + FieldByName('ProfitRate').Value := FLRL; + Post; + end; + end; + + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmBaoguanInPut.YFTPNameBtnUpClick(Sender: TObject); +begin + if FConMId = '' then + begin + + end; + try + frmPictureUpload := TfrmPictureUpload.create(self); + with frmPictureUpload do + begin + fFlileFlag := self.fFlileFlag; + FDataId := trim(Self.FConMId); + FPictureName := TRIM(YFTPName.Text); + FWidth := 450; + FHeight := 600; +// FTFType := 'HX'; + FTFType := 'YP'; + if showmodal = 1 then + begin + Self.YFTPName.Text := frmPictureUpload.FPictureName; + end; + end; + finally + frmPictureUpload.free; + end; + InitImage(); +end; + +procedure TfrmBaoguanInPut.ToolButton4Click(Sender: TObject); +var + i: Integer; + maxno: string; +begin + if GetLSNo(ADOCmd, maxno, 'CS', 'BS_Contract_Sub', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + if Trim(ConNo.Text) = '' then + begin + Application.MessageBox('ͬŲΪ!', 'ʾ', 0); + Exit; + end; + i := Order_Sub.RecordCount; //ǰdatasetжм¼ + i := i + 1; + CopyAddRow(Tv1, Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SSEL').Value := FALSE; + FieldByName('SerialNo').Value := i; + FieldByName('ConSId').Value := maxno; + FieldByName('C_Color').Value := ''; + FieldByName('ConQty').Value := null; + FieldByName('Estimated').Value := ''; + FieldByName('ProfitRate').Value := ''; + Post; + end; + SetXH(); +end; + +procedure TfrmBaoguanInPut.ToolButton5Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + while Order_Sub.Locate('SSel', True, []) do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_Plan_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + ''''); + open; + end; + if ADOTemp.IsEmpty = false then + begin + exit; + application.MessageBox('ϸѾ', 'ʾϢ'); + end; + if Trim(Order_Sub.fieldbyname('ConSId').AsString) <> '' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete BS_Contract_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + ''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + end; + + SetXH(); +end; + +procedure TfrmBaoguanInPut.ToolButton1Click(Sender: TObject); +begin + if SaveCB() then + begin + Application.MessageBox('ֵɹ!', 'ʾ', 0); + ModalResult := 1; + end; + +end; + +procedure TfrmBaoguanInPut.ToolButton2Click(Sender: TObject); +begin + JSCB(); + +end; + +procedure TfrmBaoguanInPut.ToolButton3Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv1, 'ۺͬ'); +end; + +procedure TfrmBaoguanInPut.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + + if PState = 'ɱԤ' then + begin + CBMX(); + end; + + +// TV2.DataController.Filter.Clear; +end; + +procedure TfrmBaoguanInPut.BuyNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if Self.FAuthority = '¼' then + FAuthority := 'ҵ'; + if ShowModal = 1 then + begin + self.BuyName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + self.SalesId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('SalesId').AsString); + self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString); + self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString); + self.Tallyer.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Tallyer').AsString); + end; + end; + + finally + frmCompanySel.Free; + end; + +end; + +procedure TfrmBaoguanInPut.cxDBImage1DblClick(Sender: TObject); +begin + if TcxDBImage(Sender).Picture.Height = 0 then + exit; + + LookImage(Qry_ImgHX.fieldbyname(TcxDBImage(Sender).Hint).asstring); +end; + +procedure TfrmBaoguanInPut.ExchangeRateKeyPress(Sender: TObject; var Key: Char); +begin + if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then + begin + Key := #0; + end + else if (pos('.', TEdit(Sender).text) <> 0) then + begin + if Key = '.' then + begin + Key := #0; + end; + end; +end; + +//procedure TfrmSalesConInPut.Button1Click(Sender: TObject); +//var +// FPBPrice, Fsl, Frf, FMQty, FGY1, FGY2, FGY3: Double; +// Fbzf, Fhl, Fyf, Fyj, FXSPrice, FYGCB, FLR: Double; +//begin +// FPBPrice := 0; +// Fsl := 0; +// Frf := 0; +// FMQty := 0; +// FGY1 := 0; +// FGY2 := 0; +// FGY3 := 0; +// Fbzf := 0; +// Fhl := 0; +// Fyf := 0; +// Fyj := 0; +// FXSPrice := 0; +// if GY1Price.text <> '' then +// begin +// FGY1 := StrToFloat(GY1Price.text); +// end; +// if GY2Price.text <> '' then +// begin +// FGY2 := StrToFloat(GY2Price.text); +// end; +// if GY3Price.text <> '' then +// begin +// FGY3 := StrToFloat(GY3Price.text); +// end; +// if PBPrice.text <> '' then +// begin +// FPBPrice := StrToFloat(PBPrice.text); +// end +// else +// begin +// Application.MessageBox('۸Ϊ!', 'ʾ', 0); +// Exit; +// end; +// if suolv.text <> '' then +// begin +// Fsl := StrToFloat(suolv.text); +// end +// else +// begin +// +// Application.MessageBox('ʲΪ!', 'ʾ', 0); +// Exit; +// +// end; +// if RPrice.text <> '' then +// begin +// Frf := StrToFloat(RPrice.text); +// end; +// +// if MQty.text <> '' then +// begin +// FMQty := StrToFloat(MQty.text); +// end; +// if PackPrice.text <> '' then +// begin +// Fbzf := StrToFloat(PackPrice.text); +// end; +// if exchange.text <> '' then +// begin +// Fhl := StrToFloat(exchange.text); +// end; +// if freight.text <> '' then +// begin +// Fyf := StrToFloat(freight.text); +// end; +// +// if brokerage.text <> '' then +// begin +// Fyj := StrToFloat(brokerage.text); +// end +// else +// begin +// Application.MessageBox('ӶΪ!', 'ʾ', 0); +// Exit; +// end; +// +// if conPrice.text <> '' then +// begin +// FXSPrice := StrToFloat(conPrice.text); +// end; +// +// +// FYGCB := RoundFloat(((((FPBPrice / Fsl + Frf) / FMQty + FGY1 + FGY2 + FGY3 + Fbzf) / Fhl + Fyf) / Fyj), 2); +// FLR := RoundFloat((FXSPrice - FYGCB) / FYGCB, 2)*100; +// +// Estimated.text := FloatToStr(FYGCB); +// ProfitRate.text := FloatToStr(FLR)+'%'; +// +// if Application.MessageBox('ǷҪ棡', 'ʾ', 32 + 4) <> IDYES then +// Exit; +// +// with ADOQuery1 do +// begin +// Close; +// sql.Clear; +// sql.Add(' Update BS_Contract_Sub Set PBPrice=''' + Trim(PBPrice.text) + ''' '); +// sql.Add(',suolv=''' + Trim(suolv.text) + ''',RPrice=''' + Trim(RPrice.text) + ''' '); +// sql.Add(',MQty=''' + Trim(MQty.text) + ''',GY1Price=''' + Trim(GY1Price.text) + ''' '); +// sql.Add(',GY2Price=''' + Trim(GY2Price.text) + ''',GY3Price=''' + Trim(GY3Price.text) + ''' '); +// sql.Add(',PackPrice=''' + Trim(PackPrice.text) + ''',exchange=''' + Trim(exchange.text) + ''' '); +// sql.Add(',freight=''' + Trim(freight.text) + ''',brokerage=''' + Trim(brokerage.text) + ''' '); +// sql.Add(',Estimated=''' + Trim(Estimated.text) + ''',profitrate=''' + Trim(profitrate.text) + ''' '); +// sql.Add(' where ConSid=''' + Trim(Order_sub.fieldbyname('ConSid').AsString) + ''' '); +// +// ExecSQL; +// end; +//end; + +procedure TfrmBaoguanInPut.BuyNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmBaoguanInPut.v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'MPRTCodeName'; + flagname := 'Ʒ'; + if ShowModal = 1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('PRTCodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Order_Sub.fieldbyname('PRTCode').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmBaoguanInPut.v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'C_MF'; + flagname := 'ŷϢ'; + if ShowModal = 1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('C_MF').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmBaoguanInPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'C_KZ'; + flagname := 'Ϣ'; + if ShowModal = 1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('C_KZ').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + // Order_Sub.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + Order_Sub.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmBaoguanInPut.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + MCYNo: string; +begin + frmClothInfoSel := TfrmClothInfoSel.Create(self); + with frmClothInfoSel do + begin + if showmodal = 1 then + begin + Order_Sub.Edit; + Order_Sub.fieldbyname('C_Code').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; + + Order_Sub.fieldbyname('C_Name').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring; + Order_Sub.fieldbyname('C_EName').Value := frmClothInfoSel.CDS_1.fieldbyname('C_EName').asstring; + Order_Sub.fieldbyname('C_Spec').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring; + Order_Sub.fieldbyname('C_Composition').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring; + Order_Sub.fieldbyname('C_Color').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Color').asstring; + Order_Sub.fieldbyname('C_Width').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Width').asstring; + Order_Sub.fieldbyname('C_GramWeight').Value := frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring; + Order_Sub.Post; + end; + free; + end; + + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmBaoguanInPut.SalesmanBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmBaoguanInPut.v1Column15PropertiesEditValueChanged(Sender: TObject); +var + mvalue: string; +begin + mvalue := TcxTextEdit(Sender).EditingText; + + if Trim(mvalue) = '' then + begin + mvalue := '0'; + end; + with Order_Sub do + begin + Edit; + FieldByName('YongJinPrice').Value := mvalue; + FieldByName('YongJin').Value := FieldByName('YongJinPrice').AsFloat * FieldByName('PRTOrderQty').AsFloat; + Post; + end; +end; + +procedure TfrmBaoguanInPut.SellNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '˾'; + if ShowModal = 1 then + begin + self.Sellname.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.Sellname.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + self.Currency.text := Trim(frmCompanySel.CDS_1.fieldbyname('Currency').AsString); + end; + end; + + finally + frmCompanySel.Free; + end; +end; + +end. + diff --git a/B01基础合同管理/U_BaoguanList.dfm b/B01基础合同管理/U_BaoguanList.dfm new file mode 100644 index 0000000..d38597c --- /dev/null +++ b/B01基础合同管理/U_BaoguanList.dfm @@ -0,0 +1,1152 @@ +inherited frmBaoguanList: TfrmBaoguanList + Left = 246 + Top = 116 + Caption = #25253#20851#31649#29702 + ClientHeight = 736 + ClientWidth = 1525 + FormStyle = fsMDIChild + Visible = True + ExplicitLeft = -77 + ExplicitWidth = 1541 + ExplicitHeight = 775 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1525 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_Contract.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_Contract.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + 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 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 4 + OnClick = ToolButton1Click + end + object TBPrint: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object btnTijiao: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #25552#20132 + ImageIndex = 12 + OnClick = btnTijiaoClick + end + object btnCXTijiao: TToolButton + Left = 568 + Top = 0 + AutoSize = True + Caption = #25764#38144#25552#20132 + ImageIndex = 11 + OnClick = btnCXTijiaoClick + end + object tchk: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 734 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = TnochkClick + end + object btnWC: TToolButton + Left = 829 + Top = 0 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 12 + OnClick = btnWCClick + end + object btnWCCX: TToolButton + Left = 900 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 11 + OnClick = btnWCCXClick + end + object Tqx: TToolButton + Left = 995 + Top = 0 + AutoSize = True + Caption = #21462#28040 + ImageIndex = 14 + OnClick = TqxClick + end + object Tnoqx: TToolButton + Left = 1066 + Top = 0 + AutoSize = True + Caption = #25764#38144#21462#28040 + ImageIndex = 11 + OnClick = TnoqxClick + end + object ToolButton7: TToolButton + Left = 1161 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton7Click + end + object TBClose: TToolButton + Left = 1256 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 121 + Width = 1525 + Height = 343 + Align = alClient + PopupMenu = pm1 + TabOrder = 3 + ExplicitTop = 161 + ExplicitHeight = 305 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_Contract.SHuangSe + Styles.Footer = DataLink_Contract.Default + Styles.Header = DataLink_Contract.Default + Styles.Inactive = DataLink_Contract.SHuangSe + Styles.Selection = DataLink_Contract.SHuangSe + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 49 + end + object Tv1Column8: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ZT' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 40 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20986#21475#21830 + DataBinding.FieldName = 'CKS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_Contract.FoneClMaroon + Width = 89 + end + object Tv1Column2: TcxGridDBColumn + Caption = #28023#20851#32534#30721 + DataBinding.FieldName = 'HGCode' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column5: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'FPNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_Contract.Default + Width = 82 + end + object Tv1Column6: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'PONO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column7: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'FPDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column9: TcxGridDBColumn + Caption = #24320#33322#26085#26399 + DataBinding.FieldName = 'KHDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column10: TcxGridDBColumn + Caption = #36135#26588 + DataBinding.FieldName = 'HG' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column3: TcxGridDBColumn + Caption = #20986#36816#28207 + DataBinding.FieldName = 'ChuyunG' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column4: TcxGridDBColumn + Caption = #21040#36135#28207 + DataBinding.FieldName = 'DaohuoG' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column11: TcxGridDBColumn + Caption = #36152#26131#22269 + DataBinding.FieldName = 'MYG' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column12: TcxGridDBColumn + Caption = #25269#36816#22269 + DataBinding.FieldName = 'DYG' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column13: TcxGridDBColumn + Caption = #36816#36755#26041#24335 + DataBinding.FieldName = 'YSType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column14: TcxGridDBColumn + Caption = #36152#26131#26041#24335 + DataBinding.FieldName = 'MYType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column15: TcxGridDBColumn + Caption = #32467#27719#26041#24335 + DataBinding.FieldName = 'JHType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column16: TcxGridDBColumn + Caption = #25253#20851#26465#27454 + DataBinding.FieldName = 'BGTK' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column17: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'YunFee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column18: TcxGridDBColumn + Caption = #20445#36153 + DataBinding.FieldName = 'BaoFee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column19: TcxGridDBColumn + Caption = #36135#36816#20195#29702 + DataBinding.FieldName = 'HYDL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object v1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column20: TcxGridDBColumn + Caption = #33322#29677 + DataBinding.FieldName = 'HB' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column21: TcxGridDBColumn + Caption = #25552#21333#21495 + DataBinding.FieldName = 'TDNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column22: TcxGridDBColumn + Caption = #31665#21495 + DataBinding.FieldName = 'batchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column23: TcxGridDBColumn + Caption = #33337#20844#21496 + DataBinding.FieldName = 'CGS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column24: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + object Tv1Column25: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 38 + Width = 1525 + Height = 61 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = 16242829 + ParentBackground = False + TabOrder = 1 + ExplicitTop = 76 + object Label4: TLabel + Left = 621 + Top = 23 + Width = 40 + Height = 12 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 926 + Top = 23 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label8: TLabel + Left = 430 + Top = 99 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 306 + Top = 23 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 303 + Top = 99 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 303 + Top = 123 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 194 + Top = 23 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 453 + Top = 23 + Width = 39 + Height = 12 + Caption = #21457#31080#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 1094 + Top = 23 + Width = 65 + Height = 12 + Caption = #20135#21697#33521#25991#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label7: TLabel + Left = 772 + Top = 23 + Width = 39 + Height = 12 + Caption = #20986#21475#21830 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 111 + Top = 19 + Width = 85 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 202 + Top = 19 + Width = 86 + Height = 20 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464761099538009100 + TabOrder = 1 + end + object PONO: TEdit + Tag = 2 + Left = 667 + Top = 19 + Width = 78 + Height = 20 + TabOrder = 2 + OnKeyPress = ConNoKeyPress + end + object HZSCSName: TEdit + Tag = 2 + Left = 982 + Top = 19 + Width = 76 + Height = 20 + TabOrder = 3 + Visible = False + OnKeyPress = ConNoKeyPress + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 483 + Top = 95 + Width = 76 + Height = 20 + TabOrder = 7 + OnChange = BuyNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 347 + Top = 19 + Width = 77 + Height = 20 + TabOrder = 4 + OnKeyPress = ConNoKeyPress + end + object MPRTKZ: TEdit + Tag = 2 + Left = 332 + Top = 95 + Width = 56 + Height = 20 + TabOrder = 6 + OnChange = BuyNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 332 + Top = 119 + Width = 56 + Height = 20 + TabOrder = 8 + OnChange = BuyNameChange + end + object FPNO: TEdit + Tag = 2 + Left = 507 + Top = 19 + Width = 77 + Height = 20 + TabOrder = 5 + OnKeyPress = ConNoKeyPress + end + object HZSCSEName: TEdit + Tag = 2 + Left = 1165 + Top = 19 + Width = 76 + Height = 20 + TabOrder = 9 + Visible = False + OnChange = BuyNameChange + OnKeyPress = ConNoKeyPress + end + object CKS: TEdit + Tag = 2 + Left = 814 + Top = 19 + Width = 78 + Height = 20 + TabOrder = 10 + OnKeyPress = ConNoKeyPress + end + object IsJYTime: TCheckBox + Left = 31 + Top = 20 + Width = 74 + Height = 17 + Caption = #19979#21333#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 11 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 99 + Width = 1525 + Height = 22 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 4 + Properties.Tabs.Strings = ( + #26410#25552#20132 + #24050#25552#20132 + #24050#23457#26680 + #24050#23436#25104 + #24050#21462#28040 + #20840#37096) + OnChange = cxTabControl1Change + ExplicitTop = 137 + ClientRectBottom = 22 + ClientRectRight = 1525 + ClientRectTop = 19 + end + object cxSplitter1: TcxSplitter [4] + Left = 0 + Top = 464 + Width = 1525 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + end + object cxGrid2: TcxGrid [5] + Left = 0 + Top = 472 + Width = 1525 + Height = 264 + Align = alBottom + BorderStyle = cxcbsNone + TabOrder = 5 + ExplicitTop = 470 + 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 + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Footer = DataLink_Contract.Default + Styles.Header = DataLink_Contract.Default + Styles.Selection = DataLink_Contract.SHuangSe + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + SortIndex = 0 + SortOrder = soAscending + Styles.Header = DataLink_Contract.Default + Width = 55 + end + object VC_SCSCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20135#21697#33521#25991#21517 + DataBinding.FieldName = 'C_EName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_Contract.Default + Width = 70 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'ConUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_Contract.Default + Width = 58 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ConPrice' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Header = DataLink_Contract.handBlack + Width = 70 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ConTotalAmount' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'ConSNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object TV2Column1: TcxGridDBColumn + Caption = #32455#36896#26041#27861 + DataBinding.FieldName = 'ZZFF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column2: TcxGridDBColumn + Caption = #26579#25972#26041#24335 + DataBinding.FieldName = 'RZType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column3: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'brand' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column4: TcxGridDBColumn + Caption = #29983#20135#21378#21830 + DataBinding.FieldName = 'manufacturer' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column5: TcxGridDBColumn + DataBinding.FieldName = 'HSNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column6: TcxGridDBColumn + Caption = #21253#35013#25968#37327 + DataBinding.FieldName = 'BZQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column7: TcxGridDBColumn + Caption = #21253#35013#21333#20301 + DataBinding.FieldName = 'BZUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column8: TcxGridDBColumn + Caption = #23610#30721 + DataBinding.FieldName = 'Size' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column9: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column10: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column11: TcxGridDBColumn + Caption = #25240#31639#31859#25968 + DataBinding.FieldName = 'ZSQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column12: TcxGridDBColumn + Caption = #21787#22836 + DataBinding.FieldName = 'Shippingmark' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column13: TcxGridDBColumn + Caption = #21512#21516#25968#37327 + DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column14: TcxGridDBColumn + Caption = #36135#28304#22320 + DataBinding.FieldName = 'origin' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 73 + Top = 208 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 161 + Top = 209 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 663 + Top = 288 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 329 + Top = 273 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Contract.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 264 + Top = 280 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 200 + Top = 280 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 744 + Top = 288 + end + object CDS_2: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 456 + Top = 536 + end + object pm2: TPopupMenu + Left = 376 + Top = 544 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N4: TMenuItem + Caption = #22797#21046 + OnClick = N4Click + end + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 504 + Top = 544 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 416 + Top = 536 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 704 + Top = 289 + end + object pm1: TPopupMenu + Left = 336 + Top = 360 + object N5: TMenuItem + Caption = #20840#36873 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20840#24323 + OnClick = N6Click + end + object N3: TMenuItem + Caption = #22797#21046 + OnClick = N3Click + end + end + object ADOQueryImage: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 80 + Top = 339 + end + object ADOQuery1: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 404 + Top = 287 + end +end diff --git a/B01基础合同管理/U_BaoguanList.pas b/B01基础合同管理/U_BaoguanList.pas new file mode 100644 index 0000000..3d0bd26 --- /dev/null +++ b/B01基础合同管理/U_BaoguanList.pas @@ -0,0 +1,1228 @@ +unit U_BaoguanList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, + cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, + dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, + U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations; + +type + TfrmBaoguanList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + GPM_1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + v1ConNo: TcxGridDBColumn; + CDS_2: TClientDataSet; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column4: TcxGridDBColumn; + pm2: TPopupMenu; + Panel1: TPanel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label9: TLabel; + Label12: TLabel; + Label13: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + PONO: TEdit; + HZSCSName: TEdit; + MPRTCodeName: TEdit; + ConNo: TEdit; + MPRTKZ: TEdit; + MPRTMF: TEdit; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + cxSplitter1: TcxSplitter; + DS_2: TDataSource; + Label2: TLabel; + Tqx: TToolButton; + Tnoqx: TToolButton; + v1Column9: TcxGridDBColumn; + GPM_2: TcxGridPopupMenu; + CDS_1: TClientDataSet; + btnTijiao: TToolButton; + btnCXTijiao: TToolButton; + Label3: TLabel; + FPNO: TEdit; + Tv1Column1: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label6: TLabel; + HZSCSEName: TEdit; + pm1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + btnWC: TToolButton; + btnWCCX: TToolButton; + Label7: TLabel; + CKS: TEdit; + ADOQueryImage: TADOQuery; + IsJYTime: TCheckBox; + ToolButton7: TToolButton; + N3: TMenuItem; + N4: TMenuItem; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + VC_SCSCode: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + N5: TMenuItem; + N6: TMenuItem; + ADOQuery1: TADOQuery; + Tv1Column8: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + Tv1Column24: TcxGridDBColumn; + Tv1Column25: TcxGridDBColumn; + TV2Column1: TcxGridDBColumn; + TV2Column2: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; + TV2Column5: TcxGridDBColumn; + TV2Column6: TcxGridDBColumn; + TV2Column7: TcxGridDBColumn; + TV2Column8: TcxGridDBColumn; + TV2Column9: TcxGridDBColumn; + TV2Column10: TcxGridDBColumn; + TV2Column11: TcxGridDBColumn; + TV2Column12: TcxGridDBColumn; + TV2Column13: TcxGridDBColumn; + TV2Column14: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure BuyNameChange(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure TqxClick(Sender: TObject); + procedure TnoqxClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure btnTijiaoClick(Sender: TObject); + procedure btnCXTijiaoClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure btnWCClick(Sender: TObject); + procedure btnWCCXClick(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton7Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + fFlileFlag: string; + procedure InitGrid(); + procedure SetStatus(); + procedure InitSub(); + procedure InitImage(); + + { Private declarations } + public + FFInt, FCloth: Integer; + FAuthority, FGSTT, FSubIdS: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_SalesConInPut, U_RTFun, U_AttachmentUpload, U_LabelPrint,U_BaoguanInPut; + +{$R *.dfm} + +procedure TfrmBaoguanList.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; +end; + +procedure TfrmBaoguanList.InitSub(); +begin + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from Baoguan_sub A '); + sql.Add('where BGID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString))); + open; + end; + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); + +end; + +procedure TfrmBaoguanList.N1Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, True); //ȫѡ +end; + +procedure TfrmBaoguanList.N2Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, False); //ȫ +end; + +procedure TfrmBaoguanList.N3Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmBaoguanList.N4Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmBaoguanList.N5Click(Sender: TObject); +begin + SelOKNo(CDS_1, True); +end; + +procedure TfrmBaoguanList.N6Click(Sender: TObject); +begin + SelOKNo(CDS_1, False); + +end; + +procedure TfrmBaoguanList.SetStatus(); +begin + TBAdd.Enabled := false; + tbedit.Enabled := false; + ToolButton2.Enabled := false; + tchk.Enabled := false; + tnochk.Enabled := false; + Tqx.Enabled := false; + TNoqx.Enabled := false; + TBPrint.Enabled := False; + btnTijiao.Enabled := False; + btnCXTijiao.Enabled := False; + btnWC.Enabled := False; + btnWCCX.Enabled := False; +// ToolButton3.Enabled := false; + + if Trim(FAuthority) = '¼' then + begin + ToolButton2.Enabled := true; + TBAdd.Enabled := true; + TBPrint.Enabled := True; + case cxTabControl1.TabIndex of + 0: + begin + tbedit.Enabled := true; + Tqx.Enabled := True; + btnTijiao.Enabled := True; +// ToolButton3.Enabled := True; + end; + 1: + begin + tbedit.Enabled := True; + btnCXTijiao.Enabled := True; +// ToolButton3.Enabled := True; + end; + 2: + begin +// tbedit.Enabled := True; + btnWC.Enabled := True; + tnochk.Enabled := True; + end; + 3: + begin + btnWCCX.Enabled := True; + end; + 4: + begin + TNoqx.Enabled := True; + end; + end; + end; + if Trim(FAuthority) = '' then + begin + ToolButton2.Enabled := true; + TBAdd.Enabled := true; + TBPrint.Enabled := True; + case cxTabControl1.TabIndex of + 0: + begin + tbedit.Enabled := true; + Tqx.Enabled := true; + btnTijiao.Enabled := True; +// ToolButton3.Enabled := True; + end; + 1: + begin + tbedit.Enabled := True; + btnCXTijiao.Enabled := True; + tchk.Enabled := True; +// ToolButton3.Enabled := True; + end; + 2: + begin +// tbedit.Enabled := True; + tnochk.Enabled := True; + btnWC.Enabled := True; + end; + 3: + begin + btnWCCX.Enabled := True; + end; + 4: + begin + TNoqx.Enabled := true; + end; + end; + end; + if Trim(FAuthority) = 'ѯ' then + begin + TBPrint.Enabled := True; + end; +end; + +procedure TfrmBaoguanList.FormDestroy(Sender: TObject); +begin + inherited; +// frmContractListNX:=nil; +end; + +procedure TfrmBaoguanList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmBaoguanList.FormCreate(Sender: TObject); +begin + inherited; + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 90; + +end; + +procedure TfrmBaoguanList.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmBaoguanList.InitGrid(); +var + WSql: string; +begin + WSql := SGetFilters(Panel1, 1, 2); +// if trim(WSql) <> '' then +// begin +// WSql := ' and ' + trim(WSql); +// end; +// +// if IsJYTime.Checked then +// begin +// WSql := WSql + ' and ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); +// WSql := WSql + ' and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); +// end +// else +// begin +// if trim(WSql) <> '' then +// WSql := ' and 1=1' + trim(WSql) +// else +// WSql := WSql + ' and 1=2 '; +// end; +// if trim(WSql) = 'and 1=2' then +// Application.MessageBox('ѡƵڻ', 'ʾ', 0); + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select *,(Case A.Status when ''0'' then ''δύ'' when ''1'' then ''ύ'''); + sql.Add('when ''9'' then '''' when ''10'' then '''' '); + SQL.Add('when ''-1'' then ''ȡ'' end) AS ZT from Baoguan_Main A' ); + + sql.Add('where 1=1 ' + (WSql)); + sql.Add(' and FPDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and FPDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + +// if Trim(FAuthority) = '¼' then +// begin +// sql.Add(' and ( AA.SalesId=' + quotedstr(trim(DCode)) + ' or AA.Filler =' + quotedstr(trim(DCode)) + ' or B.SalesId =' + quotedstr(trim(DCode)) + ' '); +// sql.Add('or exists (select * from [dbo].[F_Tool_SplitString](AA.TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))'); +// end; + + case cxTabControl1.TabIndex of + 0: + begin + sql.Add(' and isnull(A.status,''0'')=''0'''); + end; + 1: + begin + sql.Add(' and isnull(A.status,''0'')=''1'''); + end; + 2: + begin + sql.Add(' and isnull(A.status,''0'')=''9'''); + end; + 3: + begin + sql.Add(' and isnull(A.status,''0'')=''10'''); + end; + 4: + begin + sql.Add(' and isnull(A.status,''0'')=''-1'''); + end; + end; +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + + end; +end; + +procedure TfrmBaoguanList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmBaoguanList.TBPrintClick(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'SalesConPrint'; + FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString)); + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmBaoguanList.TBEditClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; +// ShowMessage(Trim(CDS_1.fieldbyname('Filler').AsString)); +// ShowMessage(Trim(DName)); +// if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then +// begin +// Application.MessageBox('ܲ˵!', 'ʾ', 0); +// Exit; +// end; + try + frmBaoguanInPut := TfrmBaoguanInPut.Create(Application); + with frmBaoguanInPut do + begin + PState := '޸'; + FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + FAuthority := self.FAuthority; + FGSTT := self.FGSTT; + fFlileFlag := self.fFlileFlag; + if ShowModal = 1 then + begin + + end; + end; + finally + frmBaoguanInPut.Free; + end; +end; + +procedure TfrmBaoguanList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBaoguanList.TBAddClick(Sender: TObject); +var + maxno: string; +begin + try + frmBaoguanInPut := TfrmBaoguanInPut.Create(Application); + with frmBaoguanInPut do + begin + PState := ''; + FConMId := ''; + FAuthority := self.FAuthority; + FGSTT := self.FGSTT; + fFlileFlag := self.fFlileFlag; + if ShowModal = 1 then + begin + + end; + end; + finally + frmBaoguanInPut.Free; + end; +end; + +procedure TfrmBaoguanList.FormShow(Sender: TObject); +begin + inherited; + fFlileFlag := UserDataFlag + 'HX'; + FAuthority := self.fParameters1; + readCxGrid(trim(Self.Caption) + 'tv1', Tv1, 'ع'); + readCxGrid(trim(Self.Caption) + 'tv2', Tv2, 'ع'); + + SetStatus(); + InitGrid(); +end; + +procedure TfrmBaoguanList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible = False then + Exit; + ToolButton1.Click; +end; + +procedure TfrmBaoguanList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmBaoguanList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmBaoguanList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmBaoguanList.ToolButton1Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmBaoguanInPut := TfrmBaoguanInPut.Create(Application); + with frmBaoguanInPut do + begin + PState := '鿴'; + FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + FGSTT := self.FGSTT; + ToolBar2.Visible := False; + TBSave.Visible := False; +// ScrollBox1.Enabled := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmBaoguanInPut.Free; + end; +end; + +procedure TfrmBaoguanList.ToolButton2Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmBaoguanInPut := TfrmBaoguanInPut.Create(Application); + with frmBaoguanInPut do + begin + PState := ''; + FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + FAuthority := self.FAuthority; + fFlileFlag := self.fFlileFlag; + if ShowModal = 1 then + begin + + end; + end; + finally + frmBaoguanInPut.Free; + end; +end; + +procedure TfrmBaoguanList.ToolButton3Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; +// ShowMessage(Trim(CDS_1.fieldbyname('Filler').AsString)); +// ShowMessage(Trim(DName)); +// if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then +// begin +// Application.MessageBox('ܲ˵!', 'ʾ', 0); +// Exit; +// end; + try + frmSalesConInPut := TfrmSalesConInPut.Create(Application); + with frmSalesConInPut do + begin + PState := 'ɱԤ'; + FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + FAuthority := self.FAuthority; + FGSTT := self.FGSTT; + fFlileFlag := self.fFlileFlag; + panel2.Visible := True; + ToolButton4.Visible := False; + ToolButton5.Visible := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmSalesConInPut.Free; + end; + +end; + +procedure TfrmBaoguanList.btnWCClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if CDS_1.FieldByName('ISFJ').AsBoolean=False then + begin + application.MessageBox('ϴɺͬ', 'ʾ'); + Exit; + end; +// if not CDS_1.Locate('SSel', True, []) then +// begin +// application.MessageBox('ѡ', 'ʾ'); +// Exit; +// end; +// with CDS_1 do +// begin +// DisableControls; +// First; +// MConMIDS := ''; +// while not eof do +// begin +// if fieldbyname('SSel').AsBoolean then +// begin +// MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; +// end; +// next; +// end; +// MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); +// EnableControls; +// end; + MConMIDS := CDS_1.fieldbyname('ConMID').AsString; + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + 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(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + 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(); + end; + +end; + +procedure TfrmBaoguanList.BuyNameChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmBaoguanList.tchkClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + MConMIDS := MConMIDS + CDS_1.fieldbyname('ConMID').AsString + ','; +// if not CDS_1.Locate('SSel', True, []) then +// begin +// application.MessageBox('ѡ', 'ʾ'); +// Exit; +// end; +// with CDS_1 do +// begin +// DisableControls; +// First; +// MConMIDS := ''; +// while not eof do +// begin +// if fieldbyname('SSel').AsBoolean then +// begin +// MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; +// end; +// next; +// end; +// MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); +// EnableControls; +// end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + 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(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + 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(); + end; + +end; + +procedure TfrmBaoguanList.TnochkClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + MConMIDS := MConMIDS + CDS_1.fieldbyname('ConMID').AsString + ','; +// if not CDS_1.Locate('SSel', True, []) then +// begin +// application.MessageBox('ѡ', 'ʾ'); +// Exit; +// end; +// with CDS_1 do +// begin +// DisableControls; +// First; +// MConMIDS := ''; +// while not eof do +// begin +// if fieldbyname('SSel').AsBoolean then +// begin +// MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; +// end; +// next; +// end; +// MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); +// EnableControls; +// end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + 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(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + 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(); + end; + +end; + +procedure TfrmBaoguanList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; +end; + +procedure TfrmBaoguanList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin +// if CDS_1.IsEmpty then +// exit; + InitSub(); +end; + +procedure TfrmBaoguanList.TqxClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + 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(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + 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(); + end; + +end; + +procedure TfrmBaoguanList.TnoqxClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + 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('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation=''ȡ'' '); + 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))); + application.MessageBox('ȡɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmBaoguanList.ToolButton5Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); + with frmAttachmentUpload do + begin + FEditAuthority := True; + fkeyNO := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + fType := 'ͬ'; + if ShowModal = 1 then + begin + + end; + end; + finally + frmAttachmentUpload.Free; + end; +end; + +procedure TfrmBaoguanList.ToolButton7Click(Sender: TObject); +begin + writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, 'ع'); + writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, 'ع'); +end; + +procedure TfrmBaoguanList.btnWCCXClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + 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(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + 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(); + end; + +end; + +procedure TfrmBaoguanList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin +// if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '2' then +// ACanvas.Brush.Color := clLime; +// if cxTabControl1.TabIndex=5 then +// begin +// if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '-1' then +// ACanvas.Brush.Color := clBtnShadow; +// end; +end; + +procedure TfrmBaoguanList.btnTijiaoClick(Sender: TObject); +var + MConMIDS: string; + i:Integer; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + 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(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + 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(); + end; + +end; + +procedure TfrmBaoguanList.btnCXTijiaoClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + 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(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + 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(); + end; + +end; + +end. + diff --git a/B01基础合同管理/U_ContractList.dfm b/B01基础合同管理/U_ContractList.dfm index ac13d59..5aa3f03 100644 --- a/B01基础合同管理/U_ContractList.dfm +++ b/B01基础合同管理/U_ContractList.dfm @@ -6,7 +6,6 @@ inherited frmContractList: TfrmContractList ClientWidth = 1525 FormStyle = fsMDIChild Visible = True - ExplicitLeft = -291 ExplicitWidth = 1541 ExplicitHeight = 775 PixelsPerInch = 96 @@ -211,6 +210,7 @@ inherited frmContractList: TfrmContractList TabOrder = 3 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = Tv1CellDblClick OnCustomDrawCell = Tv1CustomDrawCell OnFocusedRecordChanged = Tv1FocusedRecordChanged @@ -238,6 +238,7 @@ inherited frmContractList: TfrmContractList object v1Column4: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -248,6 +249,7 @@ inherited frmContractList: TfrmContractList object v1OrdDate: TcxGridDBColumn Caption = #19979#21333#26085#26399 DataBinding.FieldName = 'ConDate' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter @@ -259,6 +261,7 @@ inherited frmContractList: TfrmContractList object v1DeliveryDate: TcxGridDBColumn Caption = #20132#36135#26085#26399 DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter @@ -270,6 +273,7 @@ inherited frmContractList: TfrmContractList object v1ConNo: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -279,6 +283,7 @@ inherited frmContractList: TfrmContractList object v1Column1: TcxGridDBColumn Caption = #32463#33829#21333#20301 DataBinding.FieldName = 'SellName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -288,6 +293,7 @@ inherited frmContractList: TfrmContractList object v1CustomerNoName: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'BuyName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -297,6 +303,7 @@ inherited frmContractList: TfrmContractList object Tv1Column1: TcxGridDBColumn Caption = #20013#38388#21830 DataBinding.FieldName = 'MiddleName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -306,6 +313,7 @@ inherited frmContractList: TfrmContractList object Tv1Column19: TcxGridDBColumn Caption = #20132#26399#35828#26126 DataBinding.FieldName = 'ShippMent' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 271 @@ -313,6 +321,7 @@ inherited frmContractList: TfrmContractList object v1Column9: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -320,6 +329,7 @@ inherited frmContractList: TfrmContractList object Tv1Column14: TcxGridDBColumn Caption = #20215#26684#26415#35821 DataBinding.FieldName = 'JiaGeSY' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -327,6 +337,7 @@ inherited frmContractList: TfrmContractList object Tv1Column7: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -334,6 +345,7 @@ inherited frmContractList: TfrmContractList object v1Column8: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 86 @@ -341,6 +353,7 @@ inherited frmContractList: TfrmContractList object v1OrdPerson1: TcxGridDBColumn Caption = #38144#21806#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -349,6 +362,7 @@ inherited frmContractList: TfrmContractList end object v1Column10: TcxGridDBColumn DataBinding.FieldName = 'status' + DataBinding.IsNullValueType = True Visible = False Options.Editing = False VisibleForCustomization = False @@ -356,6 +370,7 @@ inherited frmContractList: TfrmContractList object v1Column12: TcxGridDBColumn Caption = #21512#21516#38468#20214 DataBinding.FieldName = 'ISFJ' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter @@ -365,6 +380,7 @@ inherited frmContractList: TfrmContractList object v1Column13: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -372,18 +388,21 @@ inherited frmContractList: TfrmContractList object Tv1Column2: TcxGridDBColumn Caption = #26159#21542#21547#31246 DataBinding.FieldName = 'IsTax' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column9: TcxGridDBColumn Caption = #26159#21542#21547#36816 DataBinding.FieldName = 'ISYF' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end object Tv1Column3: TcxGridDBColumn Caption = #36215#36816#28207 DataBinding.FieldName = 'QiYun' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -391,6 +410,7 @@ inherited frmContractList: TfrmContractList object Tv1Column4: TcxGridDBColumn Caption = #30446#30340#28207 DataBinding.FieldName = 'MuDi' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -399,6 +419,7 @@ inherited frmContractList: TfrmContractList Tag = 2 Caption = #28322#30701#35013 DataBinding.FieldName = 'QtyNote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -406,6 +427,7 @@ inherited frmContractList: TfrmContractList object Tv1Column6: TcxGridDBColumn Caption = #27719#29575 DataBinding.FieldName = 'huilv' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -413,6 +435,7 @@ inherited frmContractList: TfrmContractList object Tv1Column25: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'SCMType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -420,6 +443,7 @@ inherited frmContractList: TfrmContractList object Tv1Column27: TcxGridDBColumn Caption = #29702#21333 DataBinding.FieldName = 'lidan' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 58 @@ -427,64 +451,75 @@ inherited frmContractList: TfrmContractList object Tv1Column8: TcxGridDBColumn Caption = #29366#24577 DataBinding.FieldName = 'ZT' + DataBinding.IsNullValueType = True Width = 40 end object Tv1Column10: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 72 end object Tv1Column11: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 end object Tv1Column12: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 91 end object Tv1Column13: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 61 end object Tv1Column15: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 83 end object Tv1Column16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 end object Tv1Column17: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 56 end object Tv1Column18: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'ConUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 52 end object Tv1Column20: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'ConPrice' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column21: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'ConTotalAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end end @@ -790,6 +825,7 @@ inherited frmContractList: TfrmContractList Visible = False object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -835,6 +871,7 @@ inherited frmContractList: TfrmContractList object v1XHNo: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False SortIndex = 0 @@ -845,6 +882,7 @@ inherited frmContractList: TfrmContractList object VC_SCSCode: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -859,6 +897,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn2: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -866,6 +905,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn3: TcxGridDBColumn Caption = #20135#21697#33521#25991#21517 DataBinding.FieldName = 'C_EName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -880,6 +920,7 @@ inherited frmContractList: TfrmContractList object v1Column5: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -888,6 +929,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn4: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -895,6 +937,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn5: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -902,6 +945,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -910,6 +954,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn7: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -918,6 +963,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn8: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -933,6 +979,7 @@ inherited frmContractList: TfrmContractList object v1Column6: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -946,6 +993,7 @@ inherited frmContractList: TfrmContractList object v1Column7: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -959,6 +1007,7 @@ inherited frmContractList: TfrmContractList object v1PRTOrderQty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -968,6 +1017,7 @@ inherited frmContractList: TfrmContractList object v1OrderUnit: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'ConUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( @@ -982,6 +1032,7 @@ inherited frmContractList: TfrmContractList object v1PRTPrice: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'ConPrice' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -992,6 +1043,7 @@ inherited frmContractList: TfrmContractList object cxGridDBColumn9: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'ConTotalAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -1000,6 +1052,7 @@ inherited frmContractList: TfrmContractList object v1Column2: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'ConSNote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -1007,12 +1060,14 @@ inherited frmContractList: TfrmContractList object TV2Column1: TcxGridDBColumn Caption = #39044#20272#25104#26412 DataBinding.FieldName = 'Estimated' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object TV2Column2: TcxGridDBColumn Caption = #21033#28070#29575 DataBinding.FieldName = 'ProfitRate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 54 end diff --git a/B01基础合同管理/U_ContractList.pas b/B01基础合同管理/U_ContractList.pas index 0324e49..8b8856f 100644 --- a/B01基础合同管理/U_ContractList.pas +++ b/B01基础合同管理/U_ContractList.pas @@ -12,7 +12,8 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, - U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd; + U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations; type TfrmContractList = class(TfrmBaseList) diff --git a/B01基础合同管理/U_DataLink.pas b/B01基础合同管理/U_DataLink.pas index 6f8ac9b..0a22a56 100644 --- a/B01基础合同管理/U_DataLink.pas +++ b/B01基础合同管理/U_DataLink.pas @@ -5,7 +5,7 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - dxSkinsCore, dxSkinsDefaultPainters, System.ImageList; + dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI; type TMyThread = class(TThread) diff --git a/B01基础合同管理/U_GetDllForm.pas b/B01基础合同管理/U_GetDllForm.pas index ffbf069..3db68c5 100644 --- a/B01基础合同管理/U_GetDllForm.pas +++ b/B01基础合同管理/U_GetDllForm.pas @@ -15,7 +15,7 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean; implementation uses - U_DataLink, U_iniParam, U_SalesContractList, U_ContractList; + U_DataLink, U_iniParam, U_SalesContractList, U_ContractList,U_BaoguanList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -151,6 +151,18 @@ begin end; end; + 211: //ع + begin + with TfrmBaoguanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 10000: begin for i := 0 to application.MainForm.MDIChildCount - 1 do diff --git a/T04贸易明细仓库/TradeClothStk.identcache b/T04贸易明细仓库/TradeClothStk.identcache index fb48c02..bf6b483 100644 Binary files a/T04贸易明细仓库/TradeClothStk.identcache and b/T04贸易明细仓库/TradeClothStk.identcache differ diff --git a/T04贸易明细仓库/U_TradeClothOutListNew.dfm b/T04贸易明细仓库/U_TradeClothOutListNew.dfm index 82b8fb9..d6cdf31 100644 --- a/T04贸易明细仓库/U_TradeClothOutListNew.dfm +++ b/T04贸易明细仓库/U_TradeClothOutListNew.dfm @@ -7,7 +7,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -306 + ExplicitTop = -28 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -109,6 +109,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change + ExplicitTop = 44 ClientRectBottom = 562 ClientRectRight = 1540 ClientRectTop = 32 @@ -523,10 +524,10 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew ParentFont = False PopupMenu = PM_2 TabOrder = 1 - ExplicitLeft = -1 object TV2: TcxGridDBTableView OnDblClick = TV2DblClick Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = TV2CellDblClick DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True @@ -598,6 +599,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn2: TcxGridDBColumn Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -606,6 +608,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew Tag = 11 Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'IONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -613,6 +616,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn13: TcxGridDBColumn Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -620,6 +624,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn3: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -627,6 +632,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn4: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -634,6 +640,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn5: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -641,6 +648,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn7: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'SumPieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -648,6 +656,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'SumGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -655,6 +664,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn9: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'SumTare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -662,6 +672,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn10: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'SumNetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -669,6 +680,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn11: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'SumMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -676,6 +688,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn12: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'SumYardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -683,6 +696,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn14: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -690,6 +704,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn15: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -697,6 +712,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -704,6 +720,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column46: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -711,6 +728,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object TV2Column1: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -718,6 +736,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object TV2Column2: TcxGridDBColumn Caption = #26412#21378#32568#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -725,6 +744,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object TV2Column3: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -732,37 +752,44 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object TV2Column4: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 56 end object TV2Column6: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object TV2Column7: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object TV2Column8: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object TV2Column9: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object TV2Column10: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object TV2Column11: TcxGridDBColumn Caption = #20986#24211#22791#27880 DataBinding.FieldName = 'IONote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 123 end @@ -775,9 +802,6 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxTabSheet2: TcxTabSheet Caption = ' '#20135#21697#26126#32454#20449#24687' ' ImageIndex = 1 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel6: TPanel Left = 0 Top = 67 @@ -1308,10 +1332,9 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew ParentFont = False PopupMenu = PM_1 TabOrder = 2 - ExplicitLeft = 16 - ExplicitTop = 162 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = Tv1CellDblClick DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True @@ -1384,6 +1407,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -1394,6 +1418,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column21: TcxGridDBColumn Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 103 @@ -1401,10 +1426,12 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column11: TcxGridDBColumn Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True end object Tv1Column9: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'IONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -1412,6 +1439,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column32: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -1419,6 +1447,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 92 @@ -1426,6 +1455,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column4: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -1433,6 +1463,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column13: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1440,6 +1471,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1447,6 +1479,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column23: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1454,6 +1487,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1461,6 +1495,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column27: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1468,6 +1503,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column28: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1475,6 +1511,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column10: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1482,12 +1519,14 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column12: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object Tv1Column10: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1495,6 +1534,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column12: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1502,6 +1542,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column42: TcxGridDBColumn Caption = #24635#35760#24405#25968 DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1509,6 +1550,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column6: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'CIID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1516,6 +1558,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column7: TcxGridDBColumn Caption = #23458#25143#33457#22411 DataBinding.FieldName = 'C_CustPattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1523,6 +1566,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column3: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1530,6 +1574,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column5: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1537,6 +1582,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object v1Column40: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1544,6 +1590,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column5: TcxGridDBColumn Caption = #21253#21495 DataBinding.FieldName = 'PacketNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1551,11 +1598,13 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object VC_BaoID: TcxGridDBColumn Caption = #21253#26465#30721 DataBinding.FieldName = 'PacketId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column8: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1563,6 +1612,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column3: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1570,6 +1620,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column1: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1577,6 +1628,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column2: TcxGridDBColumn Caption = #33521#25991#39068#33394 DataBinding.FieldName = 'C_EColor' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1584,12 +1636,14 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object Tv1Column6: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv1Column13: TcxGridDBColumn Caption = #20986#24211#22791#27880 DataBinding.FieldName = 'IONote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 86 end @@ -1625,6 +1679,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew TabOrder = 0 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = TV2CellDblClick DataController.DataSource = DS_3 DataController.Filter.AutoDataSetFilter = True @@ -1696,6 +1751,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn1: TcxGridDBColumn Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1704,6 +1760,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew Tag = 11 Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'IONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -1711,6 +1768,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn17: TcxGridDBColumn Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -1718,6 +1776,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn18: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -1725,6 +1784,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn19: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -1732,6 +1792,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn20: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1739,6 +1800,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn21: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'SumPieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1746,6 +1808,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn22: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'SumGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1753,6 +1816,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn23: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'SumTare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1760,6 +1824,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn24: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'SumNetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1767,6 +1832,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn25: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'SumMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1774,6 +1840,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn26: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'SumYardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1781,6 +1848,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn27: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1788,6 +1856,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn28: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1795,6 +1864,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn29: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1802,6 +1872,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn30: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1809,6 +1880,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn31: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1816,6 +1888,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn32: TcxGridDBColumn Caption = #26412#21378#32568#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -1823,6 +1896,7 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn33: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1830,37 +1904,44 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew object cxGridDBColumn34: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 56 end object cxGridDBColumn35: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object cxGridDBColumn36: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object cxGridDBColumn37: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object cxGridDBColumn38: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object cxGridDBColumn39: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object TV3Column1: TcxGridDBColumn Caption = #20986#24211#22791#27880 DataBinding.FieldName = 'IONote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 163 end diff --git a/T04贸易明细仓库/U_TradeClothOutListNew.pas b/T04贸易明细仓库/U_TradeClothOutListNew.pas index 839420d..09c1ea0 100644 --- a/T04贸易明细仓库/U_TradeClothOutListNew.pas +++ b/T04贸易明细仓库/U_TradeClothOutListNew.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxSkinWXI, dxScrollbarAnnotations; type TfrmTradeClothOutListNew = class(TfrmBaseList) @@ -407,7 +407,14 @@ procedure TfrmTradeClothOutListNew.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; - TcxGridToExcel(Self.Caption, cxGrid1); + if cxPageControl1.ActivePageIndex = 0 then + begin + TcxGridToExcel(Self.Caption, cxGrid2); + end + else + begin + TcxGridToExcel(Self.Caption, cxGrid1); + end; end; procedure TfrmTradeClothOutListNew.orderNoKeyPress(Sender: TObject; var Key: Char); @@ -564,7 +571,7 @@ begin end; SCreateCDS(ADOQueryMain, CDS_3); SInitCDSData(ADOQueryMain, CDS_3); - Panel1.Visible :=True; + Panel1.Visible := True; end; procedure TfrmTradeClothOutListNew.BTNPClick(Sender: TObject); @@ -576,7 +583,7 @@ end; procedure TfrmTradeClothOutListNew.Button1Click(Sender: TObject); begin - Panel1.Visible :=False; + Panel1.Visible := False; end; diff --git a/T04贸易明细仓库/testDll.identcache b/T04贸易明细仓库/testDll.identcache index 9052b54..3c2d024 100644 Binary files a/T04贸易明细仓库/testDll.identcache and b/T04贸易明细仓库/testDll.identcache differ