diff --git a/A01基础公司管理/Company.dproj b/A01基础公司管理/Company.dproj index 34bc0c2..d572e63 100644 --- a/A01基础公司管理/Company.dproj +++ b/A01基础公司管理/Company.dproj @@ -4,7 +4,7 @@ Company.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,17 +78,8 @@ false true - - Debug - - - Debug - - - Debug - - D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A01基础公司管理\testDll.exe CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) @@ -251,10 +207,6 @@ - True - True - True - True True False diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 302530d..354e5cc 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -1,15 +1,15 @@  - 1899-12-30 00:00:00.000.560,D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_CoBankSel.pas + 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.212,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.167,=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas + 1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.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.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.167,=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas + 1899-12-30 00:00:00.000.560,D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_CoBankSel.pas 1899-12-30 00:00:00.000.560,D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_CoBankSel.dfm 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= @@ -39,35 +39,7 @@ 1899-12-30 00:00:00.000.027,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInput.pas=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustInRC.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -83,7 +55,7 @@ - + diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 234c40d..5a38165 100644 Binary files a/A01基础公司管理/Company.identcache and b/A01基础公司管理/Company.identcache differ diff --git a/A01基础公司管理/Company.res b/A01基础公司管理/Company.res index b3d7ee7..543f942 100644 Binary files a/A01基础公司管理/Company.res and b/A01基础公司管理/Company.res differ diff --git a/A01基础公司管理/Company.skincfg b/A01基础公司管理/Company.skincfg index f0fe216..0849faf 100644 --- a/A01基础公司管理/Company.skincfg +++ b/A01基础公司管理/Company.skincfg @@ -1,5 +1,5 @@ [ExpressSkins] -Default=0 +Default=1 ShowNotifications=1 Enabled=1 dxSkinBasic=0 diff --git a/A01基础公司管理/ProjectGroup1.groupproj.local b/A01基础公司管理/ProjectGroup1.groupproj.local index d8c2f69..1929e5c 100644 --- a/A01基础公司管理/ProjectGroup1.groupproj.local +++ b/A01基础公司管理/ProjectGroup1.groupproj.local @@ -1,6 +1,6 @@  - + diff --git a/A01基础公司管理/U_BankList.dfm b/A01基础公司管理/U_BankList.dfm index a6483e3..ea92369 100644 --- a/A01基础公司管理/U_BankList.dfm +++ b/A01基础公司管理/U_BankList.dfm @@ -94,6 +94,7 @@ inherited frmBankList: TfrmBankList 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 = <> @@ -126,6 +127,7 @@ inherited frmBankList: TfrmBankList object v2Column1: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -134,6 +136,7 @@ inherited frmBankList: TfrmBankList object Tv2Column3: TcxGridDBColumn Caption = #21517#31216 DataBinding.FieldName = 'BankName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -142,6 +145,7 @@ inherited frmBankList: TfrmBankList object Tv2Column4: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'BankCardNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -150,6 +154,7 @@ inherited frmBankList: TfrmBankList object Tv2Column1: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -163,6 +168,7 @@ inherited frmBankList: TfrmBankList object Tv2Column5: TcxGridDBColumn Caption = #24320#25143#34892 DataBinding.FieldName = 'BankDeposit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -171,6 +177,7 @@ inherited frmBankList: TfrmBankList object Tv2Column6: TcxGridDBColumn Caption = #34892#21495 DataBinding.FieldName = 'BankNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -198,7 +205,7 @@ inherited frmBankList: TfrmBankList Height = 12 Caption = #21517#31216 end - object BKName: TEdit + object BankName: TEdit Tag = 2 Left = 96 Top = 11 diff --git a/A01基础公司管理/U_BankList.pas b/A01基础公司管理/U_BankList.pas index 73534dd..3ac5c94 100644 --- a/A01基础公司管理/U_BankList.pas +++ b/A01基础公司管理/U_BankList.pas @@ -14,7 +14,8 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, + dxScrollbarAnnotations; type TfrmBankList = class(TfrmBaseList) @@ -35,7 +36,7 @@ type N1: TMenuItem; N2: TMenuItem; Panel1: TPanel; - BKName: TEdit; + BankName: TEdit; Label1: TLabel; btnadd: TToolButton; btndel: TToolButton; @@ -286,7 +287,7 @@ procedure TfrmBankList.btnaddClick(Sender: TObject); var maxId: string; begin - BKName.SetFocus; + BankName.SetFocus; if GetLSNo(ADOQueryCmd, maxId, 'BK', 'BS_Bank', 4, 0) = False then begin Application.MessageBox('ȡʧܣ', 'ʾ', 0); diff --git a/A01基础公司管理/U_Customer.dfm b/A01基础公司管理/U_Customer.dfm index 0f3de48..7eb28e5 100644 --- a/A01基础公司管理/U_Customer.dfm +++ b/A01基础公司管理/U_Customer.dfm @@ -178,8 +178,6 @@ inherited frmCustomer: TfrmCustomer Color = 16242829 ParentBackground = False TabOrder = 1 - ExplicitLeft = -1 - ExplicitTop = 44 object Label3: TLabel Left = 190 Top = 13 @@ -245,7 +243,7 @@ inherited frmCustomer: TfrmCustomer OnChange = CoCodeChange OnKeyPress = CoCodeKeyPress end - object country: TEdit + object CoCountry: TEdit Tag = 2 Left = 705 Top = 9 diff --git a/A01基础公司管理/U_Customer.pas b/A01基础公司管理/U_Customer.pas index 6ef457c..29d6c44 100644 --- a/A01基础公司管理/U_Customer.pas +++ b/A01基础公司管理/U_Customer.pas @@ -49,7 +49,7 @@ type btnEdit: TToolButton; Label2: TLabel; Saleser: TEdit; - country: TEdit; + CoCountry: TEdit; Label4: TLabel; v2Column15: TcxGridDBColumn; CDS_2: TClientDataSet; diff --git a/A01基础公司管理/U_EmployeeList.dfm b/A01基础公司管理/U_EmployeeList.dfm index f232fd5..87f1687 100644 --- a/A01基础公司管理/U_EmployeeList.dfm +++ b/A01基础公司管理/U_EmployeeList.dfm @@ -186,6 +186,7 @@ inherited frmEmployeeList: TfrmEmployeeList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 34 object Label1: TLabel Left = 186 Top = 12 @@ -214,13 +215,6 @@ inherited frmEmployeeList: TfrmEmployeeList Height = 12 Caption = #37096#38376 end - object Label3: TLabel - Left = 657 - Top = 12 - Width = 24 - Height = 12 - Caption = #36710#38388 - end object Label7: TLabel Left = 43 Top = 12 @@ -228,16 +222,16 @@ inherited frmEmployeeList: TfrmEmployeeList Height = 12 Caption = #21592#24037#32534#21495 end - object YGName: TEdit + object EEName: TEdit Tag = 2 Left = 211 Top = 8 Width = 83 Height = 20 TabOrder = 0 - OnChange = YGNameChange + OnChange = EENameChange end - object YGSex: TComboBox + object EEType: TComboBox Tag = 1 Left = 452 Top = 8 @@ -245,20 +239,20 @@ inherited frmEmployeeList: TfrmEmployeeList Height = 20 Style = csDropDownList TabOrder = 1 - OnChange = YGNameChange + OnChange = EENameChange Items.Strings = ( #30007 #22899 '') end - object GangWei: TEdit + object Post: TEdit Tag = 2 Left = 564 Top = 8 Width = 75 Height = 20 TabOrder = 2 - OnChange = YGNameChange + OnChange = EENameChange end object Dept: TEdit Tag = 2 @@ -267,25 +261,16 @@ inherited frmEmployeeList: TfrmEmployeeList Width = 75 Height = 20 TabOrder = 3 - OnChange = YGNameChange + OnChange = EENameChange end - object SYRName: TEdit - Tag = 2 - Left = 684 - Top = 8 - Width = 75 - Height = 20 - TabOrder = 4 - OnChange = YGNameChange - end - object YGNo: TEdit + object EECode: TEdit Tag = 2 Left = 91 Top = 8 Width = 83 Height = 20 - TabOrder = 5 - OnChange = YGNameChange + TabOrder = 4 + OnChange = EENameChange end end object cxDBTreeList1: TcxDBTreeList [2] @@ -307,6 +292,7 @@ inherited frmEmployeeList: TfrmEmployeeList OptionsView.CellAutoHeight = True OptionsView.Headers = False RootValue = -1 + ScrollbarAnnotations.CustomAnnotations = <> Styles.Inactive = DataLink_Company.Red Styles.Selection = DataLink_Company.Red Styles.IncSearch = DataLink_Company.Red @@ -372,8 +358,11 @@ inherited frmEmployeeList: TfrmEmployeeList Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 + ExplicitLeft = -47 + ExplicitTop = 33 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -388,6 +377,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1Column4: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -396,6 +386,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1RuZhiDate: TcxGridDBColumn Caption = #20837#32844#26085#26399 DataBinding.FieldName = 'EntryDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 84 @@ -403,6 +394,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1YGNo: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'EECode' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -410,6 +402,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1YGName: TcxGridDBColumn Caption = #22995#21517 DataBinding.FieldName = 'EEName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 88 @@ -417,6 +410,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1Column1: TcxGridDBColumn Caption = #37096#38376 DataBinding.FieldName = 'Dept' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -430,6 +424,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1Column2: TcxGridDBColumn Caption = #23703#20301 DataBinding.FieldName = 'Post' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -437,6 +432,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1Column8: TcxGridDBColumn Caption = #31867#21035 DataBinding.FieldName = 'EEType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -444,6 +440,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1SFZNo: TcxGridDBColumn Caption = #36523#20221#35777#21495 DataBinding.FieldName = 'IdCard' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -451,6 +448,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1Column6: TcxGridDBColumn Caption = #24615#21035 DataBinding.FieldName = 'Sex' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 85 @@ -458,6 +456,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1Column29: TcxGridDBColumn Caption = #25163#26426 DataBinding.FieldName = 'Phone' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 91 @@ -465,6 +464,7 @@ inherited frmEmployeeList: TfrmEmployeeList object v1SJLiZhiDate: TcxGridDBColumn Caption = #31163#32844#26085#26399 DataBinding.FieldName = 'SJLiZhiDate' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -476,6 +476,7 @@ inherited frmEmployeeList: TfrmEmployeeList object Tv1Column1: TcxGridDBColumn Caption = #31163#32844#26102#38388 DataBinding.FieldName = 'DepartureDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end diff --git a/A01基础公司管理/U_EmployeeList.pas b/A01基础公司管理/U_EmployeeList.pas index 13c9ae6..33b55f6 100644 --- a/A01基础公司管理/U_EmployeeList.pas +++ b/A01基础公司管理/U_EmployeeList.pas @@ -12,7 +12,8 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu, - cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges; + cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, + dxSkinWXI, dxScrollbarAnnotations; type TfrmEmployeeList = class(TfrmBaseList) @@ -36,11 +37,11 @@ type N2: TMenuItem; N1: TMenuItem; Label1: TLabel; - YGName: TEdit; + EEName: TEdit; Label2: TLabel; - YGSex: TComboBox; + EEType: TComboBox; Label5: TLabel; - GangWei: TEdit; + Post: TEdit; cxDBTreeList1: TcxDBTreeList; cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn; DataSource2: TDataSource; @@ -67,15 +68,13 @@ type Label4: TLabel; Dept: TEdit; v1SFZNo: TcxGridDBColumn; - Label3: TLabel; - SYRName: TEdit; Panel2: TPanel; Label6: TLabel; SJLiZhiDate: TDateTimePicker; ToolButton1: TToolButton; v1YGNo: TcxGridDBColumn; Label7: TLabel; - YGNo: TEdit; + EECode: TEdit; ToolButton2: TToolButton; v1Column4: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; @@ -101,7 +100,7 @@ type procedure N1Click(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); - procedure YGNameChange(Sender: TObject); + procedure EENameChange(Sender: TObject); procedure cxDBTreeList1DblClick(Sender: TObject); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TLZClick(Sender: TObject); @@ -444,7 +443,7 @@ begin TBView.Click; end; -procedure TfrmEmployeeList.YGNameChange(Sender: TObject); +procedure TfrmEmployeeList.EENameChange(Sender: TObject); begin TBFind.Click; end; diff --git a/A01基础公司管理/testDll.identcache b/A01基础公司管理/testDll.identcache index e2dda59..978cc7c 100644 Binary files a/A01基础公司管理/testDll.identcache and b/A01基础公司管理/testDll.identcache differ diff --git a/A01基础公司管理/testDll.res b/A01基础公司管理/testDll.res index 2465ca0..e116c48 100644 Binary files a/A01基础公司管理/testDll.res and b/A01基础公司管理/testDll.res differ diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index 9b4070b..bd16f49 100644 Binary files a/A02基础产品管理/ClothInfo.identcache and b/A02基础产品管理/ClothInfo.identcache differ diff --git a/A02基础产品管理/ClothInfo.res b/A02基础产品管理/ClothInfo.res index 45c0920..d3db8fa 100644 Binary files a/A02基础产品管理/ClothInfo.res and b/A02基础产品管理/ClothInfo.res differ diff --git a/A02基础产品管理/ProjectGroup1.groupproj.local b/A02基础产品管理/ProjectGroup1.groupproj.local index cf0a2e4..7fe83af 100644 --- a/A02基础产品管理/ProjectGroup1.groupproj.local +++ b/A02基础产品管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/A02基础产品管理/testDll.identcache b/A02基础产品管理/testDll.identcache index e788f65..3cc77dc 100644 Binary files a/A02基础产品管理/testDll.identcache and b/A02基础产品管理/testDll.identcache differ diff --git a/A03基础价格管理/MarketValue.dproj.local b/A03基础价格管理/MarketValue.dproj.local index 62a1a3d..5a9a84c 100644 --- a/A03基础价格管理/MarketValue.dproj.local +++ b/A03基础价格管理/MarketValue.dproj.local @@ -1,76 +1,76 @@  - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.401,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.590,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\U_QuiryCompanySel.pas - 1899/12/30 00:00:00.000.321,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\MarketValue.dproj=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\Contract.dproj - 1899/12/30 00:00:00.000.590,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\U_QuiryCompanySel.dfm - 1899/12/30 00:00:00.000.332,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothInquiryInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.451,=D:\Dp10Repo\项目代码\骉骐\A03基础价格管理\U_PriceFileUp.pas - 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm - 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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.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.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas - 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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= - 1899/12/30 00:00:00.000.332,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothInquiryInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.dfm - 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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.242,=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.519,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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.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.041,=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.376,=D:\Dp10Repo\项目代码\骉骐\A03基础价格管理\U_SLT.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.630,=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.422,=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.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= - 1899/12/30 00:00:00.000.603,=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.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.321,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\MarketValue.dproj=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\Contract.dproj + 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.332,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothInquiryInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.pas + 1899-12-30 00:00:00.000.590,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\U_QuiryCompanySel.dfm + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.451,=D:\Dp10Repo\项目代码\骉骐\A03基础价格管理\U_PriceFileUp.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.401,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.590,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\U_QuiryCompanySel.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas + 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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas + 1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= + 1899-12-30 00:00:00.000.332,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothInquiryInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.dfm + 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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.242,=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.519,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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.041,=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.376,=D:\Dp10Repo\项目代码\骉骐\A03基础价格管理\U_SLT.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.422,=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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= + 1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas @@ -89,7 +89,7 @@ - + diff --git a/A03基础价格管理/MarketValue.identcache b/A03基础价格管理/MarketValue.identcache index e828920..6bfba32 100644 Binary files a/A03基础价格管理/MarketValue.identcache and b/A03基础价格管理/MarketValue.identcache differ diff --git a/A03基础价格管理/ProjectGroup1.groupproj.local b/A03基础价格管理/ProjectGroup1.groupproj.local index c6b1afd..92efce4 100644 --- a/A03基础价格管理/ProjectGroup1.groupproj.local +++ b/A03基础价格管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/A03基础价格管理/testDll.identcache b/A03基础价格管理/testDll.identcache index f705972..b289ad3 100644 Binary files a/A03基础价格管理/testDll.identcache and b/A03基础价格管理/testDll.identcache differ diff --git a/A09财务通用管理/Financial.dpr b/A09财务通用管理/Financial.dpr index 5ffa9cb..dcc9ae1 100644 --- a/A09财务通用管理/Financial.dpr +++ b/A09财务通用管理/Financial.dpr @@ -41,7 +41,11 @@ uses U_UserSel in 'U_UserSel.pas' {frmUserSel}, U_FtyFileUp in 'U_FtyFileUp.pas' {frmFtyFileUp}, U_TaxInput in 'U_TaxInput.pas' {frmTaxInput}, - U_TaxList in 'U_TaxList.pas' {frmTaxList}; + U_TaxList in 'U_TaxList.pas' {frmTaxList}, + U_ZDPrice in 'U_ZDPrice.pas' {frmZDPrice}, + U_BatchEdit in 'U_BatchEdit.pas' {frmBatchEdit}, + U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails}, + U_TaxSet in 'U_TaxSet.pas' {frmTaxSet}; {$R *.res} diff --git a/A09财务通用管理/Financial.dproj b/A09财务通用管理/Financial.dproj index 4abbddf..f2785a4 100644 --- a/A09财务通用管理/Financial.dproj +++ b/A09财务通用管理/Financial.dproj @@ -80,7 +80,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\项目代码\D10zzbiaoqi\A09财务通用管理\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\testDll.exe @@ -206,6 +206,22 @@
frmTaxList
dfm + +
frmZDPrice
+ dfm + + +
frmBatchEdit
+ dfm + + +
frmPlanProfitDetails
+ dfm + + +
frmTaxSet
+ dfm + Cfg_2 Base diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index ab5a195..001e018 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,69 +1,82 @@  - 1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm - 1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas 1899-12-30 00:00:00.000.318,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_ProductInfoSel.pas 1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm - 1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj - 1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas - 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm - 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm - 1899-12-30 00:00:00.000.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas= - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas - 1899-12-30 00:00:00.000.402,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas - 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas - 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas - 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\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.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm + 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.255,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.dfm + 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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.dfm + 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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.215,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxSet.pas + 1899-12-30 00:00:00.000.297,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas + 1899-12-30 00:00:00.000.659,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas + 1899-12-30 00:00:00.000.255,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.pas + 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas + 1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.684,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.pas + 1899-12-30 00:00:00.000.531,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.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.402,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas + 1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas= + 1899-12-30 00:00:00.000.889,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.pas= + 1899-12-30 00:00:00.000.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.014,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_BatchEdit.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm + 1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas + 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.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas + 1899-12-30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm + 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.215,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxSet.dfm + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas + 1899-12-30 00:00:00.000.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.pas - 1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm - 1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas - 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxInput.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas + 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.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.256,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPrice.pas + 1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm 1899-12-30 00:00:00.000.433,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FtyFileUp.pas + 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxInput.pas @@ -87,7 +100,7 @@ - + @@ -116,12 +129,12 @@ - - + + @@ -138,5 +151,13 @@ + + + + + + + + diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index 69f83cd..528b63d 100644 Binary files a/A09财务通用管理/Financial.identcache and b/A09财务通用管理/Financial.identcache differ diff --git a/A09财务通用管理/ProjectGroup1.groupproj.local b/A09财务通用管理/ProjectGroup1.groupproj.local index 7d7976b..4f3ab2f 100644 --- a/A09财务通用管理/ProjectGroup1.groupproj.local +++ b/A09财务通用管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/A09财务通用管理/U_BankFlowInInput.pas b/A09财务通用管理/U_BankFlowInInput.pas index 6199ff5..da131bb 100644 --- a/A09财务通用管理/U_BankFlowInInput.pas +++ b/A09财务通用管理/U_BankFlowInInput.pas @@ -6,7 +6,8 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, DB, ADODB, cxControls, cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, BtnEdit, StdCtrls, ExtCtrls, cxGraphics, - cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters; + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, + dxSkinWXI; type TfrmBankFlowInInput = class(TForm) diff --git a/A09财务通用管理/U_BankFlowList.dfm b/A09财务通用管理/U_BankFlowList.dfm index edd39ac..9bf4bef 100644 --- a/A09财务通用管理/U_BankFlowList.dfm +++ b/A09财务通用管理/U_BankFlowList.dfm @@ -308,9 +308,9 @@ inherited frmBankFlowList: TfrmBankFlowList Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitTop = -2 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -335,6 +335,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1Column1: TcxGridDBColumn Caption = #27969#27700#21495 DataBinding.FieldName = 'BFID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False @@ -343,6 +344,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1CRTime: TcxGridDBColumn Caption = #26085#26399 DataBinding.FieldName = 'BFTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter Options.Sorting = False @@ -351,18 +353,21 @@ inherited frmBankFlowList: TfrmBankFlowList object V1Column2: TcxGridDBColumn Caption = #23545#26041#36134#25143 DataBinding.FieldName = 'OppBKName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 109 end object V1Column3: TcxGridDBColumn Caption = #23545#26041#21333#20301 DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 85 end object V1CRType: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'BFType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 100 @@ -370,6 +375,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1InMoney: TcxGridDBColumn Caption = #20511#26041 DataBinding.FieldName = 'InAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False @@ -381,6 +387,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1OutMoney: TcxGridDBColumn Caption = #36151#26041 DataBinding.FieldName = 'OutAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Content = DataLink_Financial.FoneRed @@ -391,6 +398,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1YEMoney: TcxGridDBColumn Caption = #20313#39069 DataBinding.FieldName = 'YEAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCurrencyEditProperties' Properties.AssignedValues.DisplayFormat = True HeaderAlignmentHorz = taCenter @@ -400,6 +408,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1NOTE: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'NOTE' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 188 @@ -407,6 +416,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1Column4: TcxGridDBColumn Caption = #30331#35760#20154 DataBinding.FieldName = 'filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -414,6 +424,7 @@ inherited frmBankFlowList: TfrmBankFlowList object V1Column5: TcxGridDBColumn Caption = #30331#35760#26102#38388 DataBinding.FieldName = 'filltime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 56 @@ -421,6 +432,7 @@ inherited frmBankFlowList: TfrmBankFlowList object TV1Column1: TcxGridDBColumn Caption = #26469#28304 DataBinding.FieldName = 'fromID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 diff --git a/A09财务通用管理/U_BankFlowList.pas b/A09财务通用管理/U_BankFlowList.pas index f358bec..c37a446 100644 --- a/A09财务通用管理/U_BankFlowList.pas +++ b/A09财务通用管理/U_BankFlowList.pas @@ -10,7 +10,8 @@ uses cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, ToolWin, cxCalendar, cxCurrencyEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, - dxSkinsDefaultPainters, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd; + dxSkinsDefaultPainters, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, + dxSkinWXI, dxScrollbarAnnotations; type TfrmBankFlowList = class(TfrmBaseList) diff --git a/A09财务通用管理/U_BatchEdit.dfm b/A09财务通用管理/U_BatchEdit.dfm new file mode 100644 index 0000000..3f476cc --- /dev/null +++ b/A09财务通用管理/U_BatchEdit.dfm @@ -0,0 +1,59 @@ +object frmBatchEdit: TfrmBatchEdit + Left = 0 + Top = 0 + BorderStyle = bsDialog + Caption = #20215#26684#20462#25913 + ClientHeight = 131 + ClientWidth = 395 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object price: TcxTextEdit + Left = 114 + Top = 24 + TabOrder = 0 + Width = 156 + end + object btnOK: TcxButton + Left = 80 + Top = 80 + Width = 75 + Height = 25 + Caption = #20445#23384 + ModalResult = 1 + TabOrder = 1 + OnClick = btnOKClick + end + object btnCancel: TcxButton + Left = 195 + Top = 80 + Width = 75 + Height = 25 + Caption = #21462#28040 + ModalResult = 2 + TabOrder = 2 + OnClick = btnCancelClick + end + object cxLabel2: TcxLabel + Left = 80 + Top = 25 + Caption = #20215#26684 + end + object ADOConnection1: TADOConnection + Left = 312 + end + object ADOQuery1: TADOQuery + Connection = ADOConnection1 + Parameters = <> + Left = 312 + Top = 64 + end +end diff --git a/A09财务通用管理/U_BatchEdit.pas b/A09财务通用管理/U_BatchEdit.pas new file mode 100644 index 0000000..e4c7d57 --- /dev/null +++ b/A09财务通用管理/U_BatchEdit.pas @@ -0,0 +1,124 @@ +unit U_BatchEdit; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels, + cxLookAndFeelPainters, cxContainer, cxEdit, Vcl.Menus, + Vcl.StdCtrls, cxButtons, cxLabel, cxTextEdit, cxMaskEdit, cxDropDownEdit, + dxSkinsCore, dxSkinWXI, Data.DB, Data.Win.ADODB, U_BaseInput; + +type + TfrmBatchEdit = class(TfrmBaseInput) + price: TcxTextEdit; + btnOK: TcxButton; + btnCancel: TcxButton; + cxLabel2: TcxLabel; + ADOConnection1: TADOConnection; + ADOQuery1: TADOQuery; + procedure btnOKClick(Sender: TObject); + procedure btnCancelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + private + { Private declarations } + + public + FBCIOID: string; + FStkId: string; + FIOID: string; + Fflag: Integer; + { Public declarations } + end; + +var + frmBatchEdit: TfrmBatchEdit; + +implementation +uses + U_DataLink; +{$R *.dfm} + + +procedure TfrmBatchEdit.btnCancelClick(Sender: TObject); +begin + close; +end; + +procedure TfrmBatchEdit.btnOKClick(Sender: TObject); +begin + if price.Text = '' then + price.Text := 'null'; + if (Fflag = 0) or (Fflag = 1) then + begin + if FBCIOID = '' then + exit; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' update bs_cloth_io set price = ' + price.Text + ' where BCIOID in (' + FBCIOID + ')'); + ExecSQL; + end; + finally + ModalResult := 1;; + end; + end + else if Fflag = 2 then + begin + if FStkId = '' then + exit; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' update Trade_Cloth_Stock_ZD set ZDprice = ' + price.Text + ' where StkId in (' + FStkId + ')'); + ExecSQL; + end; + finally + ModalResult := 1;; + end; + end + else if Fflag = 3 then + begin + if FIOID = '' then + exit; + try + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add(' update Trade_Cloth_IO set price = ' + price.Text + ' where IOID in (' + FIOID + ')'); +// ShowMessage(sql.Text); + ExecSQL; + end; + finally + ModalResult := 1;; + end; + end; + + + +end; + +procedure TfrmBatchEdit.FormShow(Sender: TObject); +begin + try + with ADOConnection1 do + begin + if not Connected then + begin + Connected := false; + ConnectionString := DConString; + LoginPrompt := false; + Connected := true; + end; + end; + except + application.MessageBox('ݿʧܣ', '', mb_Ok + MB_ICONERROR); + end; +end; + +end. diff --git a/A09财务通用管理/U_ClaimsableList.dfm b/A09财务通用管理/U_ClaimsableList.dfm index 5705a29..ad64c2e 100644 --- a/A09财务通用管理/U_ClaimsableList.dfm +++ b/A09财务通用管理/U_ClaimsableList.dfm @@ -244,7 +244,7 @@ inherited frmClaimsableList: TfrmClaimsableList Time = 0.918237847232376200 TabOrder = 2 end - object FactoryName: TEdit + object OppCoName: TEdit Tag = 2 Left = 266 Top = 10 diff --git a/A09财务通用管理/U_ClaimsableList.pas b/A09财务通用管理/U_ClaimsableList.pas index a55dfbb..7559526 100644 --- a/A09财务通用管理/U_ClaimsableList.pas +++ b/A09财务通用管理/U_ClaimsableList.pas @@ -46,7 +46,7 @@ type v1InvoiceDate: TcxGridDBColumn; v1note: TcxGridDBColumn; Label5: TLabel; - FactoryName: TEdit; + OppCoName: TEdit; TCHK: TToolButton; TNOCHK: TToolButton; cxTabControl1: TcxTabControl; @@ -314,6 +314,20 @@ end; procedure TfrmClaimsableList.TUPDATEClick(Sender: TObject); begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_Invoice.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + frmClaimsableInPut := TfrmClaimsableInPut.Create(self); with frmClaimsableInPut do begin @@ -349,6 +363,21 @@ begin Exit; end; end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_Invoice.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + if application.MessageBox('ȷҪɾ', 'ʾ', 1) = 2 then exit; try diff --git a/A09财务通用管理/U_CollectList.dfm b/A09财务通用管理/U_CollectList.dfm index 0e9e799..0e35dbc 100644 --- a/A09财务通用管理/U_CollectList.dfm +++ b/A09财务通用管理/U_CollectList.dfm @@ -181,40 +181,47 @@ inherited frmCollectList: TfrmCollectList ParentFont = False end object Label4: TLabel - Left = 333 + Left = 330 Top = 13 Width = 24 Height = 12 Caption = #21697#21517 end object Label6: TLabel - Left = 333 + Left = 329 Top = 39 Width = 24 Height = 12 Caption = #32534#21495 end object Label10: TLabel - Left = 479 - Top = 39 + Left = 473 + Top = 38 Width = 48 Height = 12 Caption = #21512' '#21516' '#21495 end object Label11: TLabel Left = 475 - Top = 17 + Top = 13 Width = 48 Height = 12 Caption = #23458#25143#21333#21495 end object Label2: TLabel - Left = 174 + Left = 173 Top = 39 Width = 48 Height = 12 Caption = #19978#32423#21333#20301 end + object Label7: TLabel + Left = 637 + Top = 13 + Width = 48 + Height = 12 + Caption = #25171#27454#37329#39069 + end object OppCoName: TEdit Tag = 2 Left = 228 @@ -261,7 +268,7 @@ inherited frmCollectList: TfrmCollectList State = cbChecked TabOrder = 4 end - object P_Code: TEdit + object F_Code: TEdit Tag = 1 Left = 359 Top = 35 @@ -297,6 +304,15 @@ inherited frmCollectList: TfrmCollectList TabOrder = 8 OnKeyPress = OppCoNameKeyPress end + object DKAmount: TEdit + Tag = 2 + Left = 693 + Top = 9 + Width = 87 + Height = 20 + TabOrder = 9 + OnKeyPress = OppCoNameKeyPress + end end object cxGrid1: TcxGrid [2] Left = 0 @@ -524,12 +540,17 @@ inherited frmCollectList: TfrmCollectList Caption = #25163#32493#36153 DataBinding.FieldName = 'SXFAmount' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCalcEditProperties' + Properties.DisplayFormat = '0.00' HeaderAlignmentHorz = taCenter end object Tv1Column14: TcxGridDBColumn + AlternateCaption = '0.##' Caption = #23454#25910#37329#39069 DataBinding.FieldName = 'SSAmount' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCalcEditProperties' + Properties.DisplayFormat = '0.00' HeaderAlignmentHorz = taCenter Width = 70 end @@ -537,6 +558,8 @@ inherited frmCollectList: TfrmCollectList Caption = #23454#25910#20154#27665#24065 DataBinding.FieldName = 'SSCNYAmount' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCalcEditProperties' + Properties.DisplayFormat = '0.00' HeaderAlignmentHorz = taCenter Width = 86 end diff --git a/A09财务通用管理/U_CollectList.pas b/A09财务通用管理/U_CollectList.pas index 5ca44ae..a771424 100644 --- a/A09财务通用管理/U_CollectList.pas +++ b/A09财务通用管理/U_CollectList.pas @@ -15,7 +15,7 @@ uses cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI, - dxScrollbarAnnotations; + dxScrollbarAnnotations, cxCalc; type TfrmCollectList = class(TfrmBaseList) @@ -46,7 +46,7 @@ type Label4: TLabel; CheckBox1: TCheckBox; Label6: TLabel; - P_Code: TEdit; + F_Code: TEdit; v2OrderNo: TcxGridDBColumn; cxTabControl1: TcxTabControl; Label10: TLabel; @@ -102,6 +102,8 @@ type Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn; + DKAmount: TEdit; + Label7: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -289,6 +291,20 @@ begin Exit; end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; @@ -521,23 +537,46 @@ begin end; procedure TfrmCollectList.Button2Click(Sender: TObject); +var + PJHExchangeRate: string; + PSXFAmount: string; begin if FFID.Text <> '' then begin + if JHExchangeRate.Text <> '' then + PJHExchangeRate := JHExchangeRate.Text + else + PJHExchangeRate := 'Null'; + if SXFAmount.Text <> '' then + PSXFAmount := SXFAmount.Text + else + PSXFAmount := 'Null'; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('UPdate Finance_Flow '); - sql.Add(' Set JHExchangeRate=''' + Trim(JHExchangeRate.Text) + ''''); - sql.Add(',SXFAmount=''' + Trim(SXFAmount.Text) + ''''); + sql.Add(' Set JHExchangeRate=' + Trim(PJHExchangeRate) + ''); + sql.Add(',SXFAmount=' + Trim(PSXFAmount) + ''); SQL.Add(' where FFID=''' + Trim(FFID.Text) + ''''); sql.Add('UPdate Finance_WriteOff '); - sql.Add(' Set WoJHExchangeRate=''' + Trim(JHExchangeRate.Text) + ''''); + sql.Add(' Set WoJHExchangeRate=' + Trim(PJHExchangeRate) + ''); // sql.Add(',SXFAmount=''' + Trim(SXFAmount.Text) + ''''); SQL.Add(' where FromId=''' + Trim(FFID.Text) + ''''); - -// ShowMessage(SQL.text); + sql.Add('UPDATE f'); + sql.Add('SET f.WoSXFAmount = '); + sql.Add(' CASE '); + sql.Add(' WHEN t.Amount = 0 OR t.Amount IS NULL THEN 0'); + sql.Add(' ELSE (f.WoAmount / t.Amount) * ' + Trim(PSXFAmount) + ''); + sql.Add(' END'); + sql.Add('FROM Finance_WriteOff f'); + sql.Add('CROSS APPLY ('); + sql.Add(' SELECT Amount '); + sql.Add(' FROM Finance_Flow '); + sql.Add(' WHERE FFID = ''' + Trim(FFID.Text) + ''''); + sql.Add(') t'); + sql.Add('WHERE f.FromId = ''' + Trim(FFID.Text) + ''''); +// ShowMessage(sql.Text); execsql; end; @@ -710,6 +749,20 @@ end; procedure TfrmCollectList.btnEditClick(Sender: TObject); begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; + try with ADOQueryCmd do begin diff --git a/A09财务通用管理/U_CollectWriteOff.dfm b/A09财务通用管理/U_CollectWriteOff.dfm index 09099be..9cfc349 100644 --- a/A09财务通用管理/U_CollectWriteOff.dfm +++ b/A09财务通用管理/U_CollectWriteOff.dfm @@ -223,7 +223,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff BevelOuter = bvLowered TabOrder = 1 object Label6: TLabel - Left = 49 + Left = 32 Top = 10 Width = 24 Height = 12 @@ -246,7 +246,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff Visible = False end object Label3: TLabel - Left = 334 + Left = 477 Top = 10 Width = 130 Height = 12 @@ -259,15 +259,22 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff ParentFont = False end object Label7: TLabel - Left = 185 + Left = 166 Top = 10 Width = 48 Height = 12 Caption = #23458#25143#21333#21495 end + object Label12: TLabel + Left = 323 + Top = 10 + Width = 48 + Height = 12 + Caption = #25351#31034#21333#21495 + end object F_Name: TEdit Tag = 2 - Left = 77 + Left = 62 Top = 6 Width = 89 Height = 20 @@ -275,8 +282,8 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff OnKeyPress = KHConNoKeyPress end object Button1: TButton - Left = 616 - Top = 8 + Left = 719 + Top = 5 Width = 107 Height = 25 Caption = #20998#37197#26680#38144#37329#39069 @@ -307,7 +314,7 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff end object curHsNum: TEdit Tag = 9 - Left = 469 + Left = 610 Top = 6 Width = 101 Height = 20 @@ -321,13 +328,22 @@ inherited frmCollectWriteOff: TfrmCollectWriteOff end object BuyConNo: TEdit Tag = 2 - Left = 239 + Left = 220 Top = 6 Width = 89 Height = 20 TabOrder = 5 OnKeyPress = KHConNoKeyPress end + object OrderNO: TEdit + Tag = 2 + Left = 376 + Top = 6 + Width = 89 + Height = 20 + TabOrder = 6 + OnKeyPress = KHConNoKeyPress + end end object ScrollBox1: TScrollBox [3] Left = 0 diff --git a/A09财务通用管理/U_CollectWriteOff.pas b/A09财务通用管理/U_CollectWriteOff.pas index 200078f..4824d05 100644 --- a/A09财务通用管理/U_CollectWriteOff.pas +++ b/A09财务通用管理/U_CollectWriteOff.pas @@ -71,6 +71,8 @@ type Label11: TLabel; JHExchangeRate: TEdit; Tv1Column2: TcxGridDBColumn; + OrderNO: TEdit; + Label12: TLabel; procedure FormDestroy(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); diff --git a/A09财务通用管理/U_CollectWriteOffList.dfm b/A09财务通用管理/U_CollectWriteOffList.dfm index 26175dc..9ab5b89 100644 --- a/A09财务通用管理/U_CollectWriteOffList.dfm +++ b/A09财务通用管理/U_CollectWriteOffList.dfm @@ -177,6 +177,7 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList Height = 499 Align = alClient TabOrder = 2 + ExplicitLeft = 40 ExplicitTop = 119 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -190,6 +191,10 @@ object frmCollectWriteOffList: TfrmCollectWriteOffList item Kind = skSum Column = v2Column4 + end + item + Kind = skSum + Column = Tv2Column2 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False diff --git a/A09财务通用管理/U_CustStatementWriteOff.dfm b/A09财务通用管理/U_CustStatementWriteOff.dfm index b6e8fb5..6a5efe4 100644 --- a/A09财务通用管理/U_CustStatementWriteOff.dfm +++ b/A09财务通用管理/U_CustStatementWriteOff.dfm @@ -246,6 +246,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff TabOrder = 2 object TV1: TcxGridDBBandedTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_HZ DataController.Filter.AutoDataSetFilter = True DataController.Summary.DefaultGroupSummaryItems = <> @@ -483,6 +484,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column37: TcxGridDBBandedColumn Caption = #32534#21495 DataBinding.FieldName = 'FactoryNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -494,6 +496,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column36: TcxGridDBBandedColumn Caption = #31867#22411 DataBinding.FieldName = 'FactType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -505,6 +508,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object V1Column1: TcxGridDBBandedColumn Caption = #23545#26041#21333#20301 DataBinding.FieldName = 'factoryName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -517,6 +521,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column1: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney1' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -527,6 +532,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column2: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney2' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -537,6 +543,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column3: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney3' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -547,6 +554,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column4: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney4' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -557,6 +565,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column5: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney5' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -567,6 +576,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column6: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney6' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -577,6 +587,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column7: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney7' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -587,6 +598,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column8: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney8' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -597,6 +609,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column9: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney9' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -607,6 +620,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column10: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney10' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -617,6 +631,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column11: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney11' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -627,6 +642,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column12: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney12' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -637,6 +653,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column13: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney1' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -647,6 +664,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column14: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney2' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -657,6 +675,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column15: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney3' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -667,6 +686,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column16: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney4' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -677,6 +697,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column17: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney5' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -687,6 +708,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column18: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney6' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -697,6 +719,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column19: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney8' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -707,6 +730,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column20: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney10' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -717,6 +741,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column21: TcxGridDBBandedColumn Caption = #24212#20184 DataBinding.FieldName = 'YFMoney11' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -727,6 +752,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column22: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney12' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -737,6 +763,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column23: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney9' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -747,6 +774,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column24: TcxGridDBBandedColumn Caption = #26680#38144 DataBinding.FieldName = 'HXMoney7' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -757,6 +785,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column25: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney10' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 10 @@ -766,6 +795,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column26: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney9' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 9 @@ -775,6 +805,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column27: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney8' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 8 @@ -784,6 +815,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column28: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney7' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 7 @@ -793,6 +825,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column29: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney6' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 6 @@ -802,6 +835,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column30: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney5' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 5 @@ -811,6 +845,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column31: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney1' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 1 @@ -820,6 +855,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column32: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney3' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 3 @@ -829,6 +865,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column33: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney4' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 4 @@ -838,6 +875,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column34: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney2' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 2 @@ -847,6 +885,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column35: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney12' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 12 @@ -856,6 +895,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column38: TcxGridDBBandedColumn Caption = #27424#27454 DataBinding.FieldName = 'YuEMoney11' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Position.BandIndex = 11 @@ -865,6 +905,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column39: TcxGridDBBandedColumn Caption = #26399#21021 DataBinding.FieldName = 'QCYuEMoney' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Width = 34 @@ -875,6 +916,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column40: TcxGridDBBandedColumn Caption = #26399#26411 DataBinding.FieldName = 'YuEMoney' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Width = 32 @@ -885,6 +927,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column41: TcxGridDBBandedColumn Caption = #24065#31181 DataBinding.FieldName = 'BZType' + DataBinding.IsNullValueType = True Options.Editing = False Options.Moving = False Width = 31 @@ -895,6 +938,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column42: TcxGridDBBandedColumn Caption = #20184#27454#26085#26399 DataBinding.FieldName = 'CRTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -906,6 +950,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column43: TcxGridDBBandedColumn Caption = #24212#20184#26085#26399 DataBinding.FieldName = 'YFTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Moving = False Width = 75 @@ -916,6 +961,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column44: TcxGridDBBandedColumn Caption = #20184#27454#26410#26680#38144 DataBinding.FieldName = 'FKWHXMoney' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -927,6 +973,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column45: TcxGridDBBandedColumn Caption = #20184#27454#38480#39069 DataBinding.FieldName = 'FKXE' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 66 @@ -937,6 +984,7 @@ inherited frmCustStatementWriteOff: TfrmCustStatementWriteOff object TV1Column46: TcxGridDBBandedColumn Caption = #20184#27454#26410#23457#26680 DataBinding.FieldName = 'FKWSHMoney' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Position.BandIndex = 0 diff --git a/A09财务通用管理/U_CustStatementWriteOff.pas b/A09财务通用管理/U_CustStatementWriteOff.pas index a54439b..f261d04 100644 --- a/A09财务通用管理/U_CustStatementWriteOff.pas +++ b/A09财务通用管理/U_CustStatementWriteOff.pas @@ -16,7 +16,8 @@ uses cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, DateUtils, cxContainer, Vcl.Menus, - cxCurrencyEdit, System.Math, System.Character, Vcl.Clipbrd; + cxCurrencyEdit, System.Math, System.Character, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations; type TfrmCustStatementWriteOff = class(TfrmBaseList) @@ -194,7 +195,7 @@ begin finally ADOQueryMain.EnableControls; TV1.DataController.Filter.Clear; - ToolButton2.Click; +// ToolButton2.Click; Panetime.Visible := false; screen.Cursor := crdefault; diff --git a/A09财务通用管理/U_ExpenseInput.pas b/A09财务通用管理/U_ExpenseInput.pas index ff37bcc..700a0a0 100644 --- a/A09财务通用管理/U_ExpenseInput.pas +++ b/A09财务通用管理/U_ExpenseInput.pas @@ -14,7 +14,7 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit; + dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI; type TfrmExpenseInput = class(TForm) diff --git a/A09财务通用管理/U_ExpenseList.pas b/A09财务通用管理/U_ExpenseList.pas index 5529669..ac3a929 100644 --- a/A09财务通用管理/U_ExpenseList.pas +++ b/A09财务通用管理/U_ExpenseList.pas @@ -226,6 +226,20 @@ begin Exit; end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; @@ -481,6 +495,20 @@ end; procedure TfrmExpenseList.btnEditClick(Sender: TObject); begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; + try with ADOQueryCmd do begin diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas index 9a90952..e674ba9 100644 --- a/A09财务通用管理/U_GetDllForm.pas +++ b/A09财务通用管理/U_GetDllForm.pas @@ -18,7 +18,7 @@ uses U_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList, U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList, U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList, - U_OtherPayableList,U_handPayableList,U_ClaimsableList,U_TaxList; + U_OtherPayableList,U_handPayableList,U_ClaimsableList,U_TaxList, U_ZDPrice; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -72,10 +72,15 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; +// server := '101.132.143.144,7781'; +// dtbase := 'BiaoqiData'; +// user := 'rtsa'; +// pswd := 'rightsoft@5740'; + + server := '127.0.0.1'; dtbase := 'BiaoqiData'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'sa'; + pswd := 'root'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DParameters1 := ''; @@ -283,6 +288,18 @@ begin end; end; + 252: //ת۸ + begin + with TfrmZDPrice.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; + 311: //õǼ begin with TfrmExpenseList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/A09财务通用管理/U_InvoiceInList.dfm b/A09财务通用管理/U_InvoiceInList.dfm index 7a1b59a..cfeda89 100644 --- a/A09财务通用管理/U_InvoiceInList.dfm +++ b/A09财务通用管理/U_InvoiceInList.dfm @@ -6,7 +6,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList ClientWidth = 1540 FormStyle = fsMDIChild Visible = True - ExplicitLeft = -23 ExplicitWidth = 1556 ExplicitHeight = 665 PixelsPerInch = 96 @@ -191,19 +190,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList Font.Style = [fsBold] ParentFont = False end - object Label7: TLabel - Left = 537 - Top = 13 - Width = 52 - Height = 12 - Caption = #24320#31080#21333#20301 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end object Label8: TLabel Left = 365 Top = 37 @@ -231,8 +217,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList ParentFont = False end object Label1: TLabel - Left = 537 - Top = 37 + Left = 535 + Top = 13 Width = 52 Height = 12 Caption = #25105#26041#21333#20301 @@ -243,13 +229,13 @@ inherited frmInvoiceInList: TfrmInvoiceInList Font.Style = [fsBold] ParentFont = False end - object P_CodeName: TEdit + object F_Name: TEdit Tag = 2 Left = 259 Top = 33 Width = 89 Height = 20 - TabOrder = 5 + TabOrder = 4 OnChange = IVNoChange end object IVNo: TEdit @@ -277,18 +263,18 @@ inherited frmInvoiceInList: TfrmInvoiceInList Height = 20 Date = 41256.000000000000000000 Time = 0.918237847232376200 - TabOrder = 4 + TabOrder = 3 end - object P_Spec: TEdit + object F_Spec: TEdit Tag = 2 Left = 419 Top = 33 Width = 89 Height = 20 - TabOrder = 6 + TabOrder = 5 OnChange = IVNoChange end - object FactoryName: TEdit + object OppCoName: TEdit Tag = 2 Left = 420 Top = 9 @@ -297,22 +283,13 @@ inherited frmInvoiceInList: TfrmInvoiceInList TabOrder = 2 OnChange = IVNoChange end - object KPFactoryName: TEdit + object OurCoName: TEdit Tag = 2 - Left = 593 + Left = 591 Top = 9 Width = 89 Height = 20 - TabOrder = 3 - OnChange = IVNoChange - end - object SYRName: TEdit - Tag = 2 - Left = 593 - Top = 33 - Width = 89 - Height = 20 - TabOrder = 7 + TabOrder = 6 OnChange = IVNoChange end end @@ -324,8 +301,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 - ExplicitLeft = -8 - ExplicitTop = 44 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False diff --git a/A09财务通用管理/U_InvoiceInList.pas b/A09财务通用管理/U_InvoiceInList.pas index 6c40f3b..fb490a6 100644 --- a/A09财务通用管理/U_InvoiceInList.pas +++ b/A09财务通用管理/U_InvoiceInList.pas @@ -26,7 +26,7 @@ type ADOQueryCmd: TADOQuery; Panel1: TPanel; ToolButton2: TToolButton; - P_CodeName: TEdit; + F_Name: TEdit; ADOQueryMain: TADOQuery; ToolButton1: TToolButton; RM1: TRMGridReport; @@ -51,9 +51,9 @@ type v1InvoiceDate: TcxGridDBColumn; v1FactoryName: TcxGridDBColumn; v1note: TcxGridDBColumn; - P_Spec: TEdit; + F_Spec: TEdit; Label5: TLabel; - FactoryName: TEdit; + OppCoName: TEdit; TCHK: TToolButton; TNOCHK: TToolButton; cxTabControl1: TcxTabControl; @@ -67,12 +67,10 @@ type ToolButton4: TToolButton; v1Column3: TcxGridDBColumn; ADOQueryPrint: TADOQuery; - Label7: TLabel; - KPFactoryName: TEdit; Label8: TLabel; Label9: TLabel; Label1: TLabel; - SYRName: TEdit; + OurCoName: TEdit; v1Column8: TcxGridDBColumn; v1Column9: TcxGridDBColumn; v1Column10: TcxGridDBColumn; diff --git a/A09财务通用管理/U_InvoiceOutList.dfm b/A09财务通用管理/U_InvoiceOutList.dfm index 6767091..65fc619 100644 --- a/A09财务通用管理/U_InvoiceOutList.dfm +++ b/A09财务通用管理/U_InvoiceOutList.dfm @@ -182,19 +182,6 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList Font.Style = [fsBold] ParentFont = False end - object Label7: TLabel - Left = 537 - Top = 13 - Width = 52 - Height = 12 - Caption = #24320#31080#21333#20301 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end object Label8: TLabel Left = 365 Top = 37 @@ -222,8 +209,8 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList ParentFont = False end object Label1: TLabel - Left = 537 - Top = 37 + Left = 535 + Top = 14 Width = 52 Height = 12 Caption = #25105#26041#21333#20301 @@ -234,13 +221,13 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList Font.Style = [fsBold] ParentFont = False end - object P_CodeName: TEdit + object F_Name: TEdit Tag = 2 Left = 259 Top = 33 Width = 89 Height = 20 - TabOrder = 5 + TabOrder = 4 OnChange = IVNoChange end object IVNo: TEdit @@ -268,18 +255,18 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList Height = 20 Date = 41256.000000000000000000 Time = 0.918237847232376200 - TabOrder = 4 + TabOrder = 3 end - object P_Spec: TEdit + object F_Spec: TEdit Tag = 2 Left = 419 Top = 33 Width = 89 Height = 20 - TabOrder = 6 + TabOrder = 5 OnChange = IVNoChange end - object FactoryName: TEdit + object OppCoName: TEdit Tag = 2 Left = 420 Top = 9 @@ -288,22 +275,13 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList TabOrder = 2 OnChange = IVNoChange end - object KPFactoryName: TEdit + object OurCoName: TEdit Tag = 2 Left = 593 Top = 9 Width = 89 Height = 20 - TabOrder = 3 - OnChange = IVNoChange - end - object SYRName: TEdit - Tag = 2 - Left = 593 - Top = 33 - Width = 89 - Height = 20 - TabOrder = 7 + TabOrder = 6 OnChange = IVNoChange end end @@ -315,6 +293,8 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 + ExplicitLeft = -128 + ExplicitTop = 133 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False diff --git a/A09财务通用管理/U_InvoiceOutList.pas b/A09财务通用管理/U_InvoiceOutList.pas index a56f663..c1a4299 100644 --- a/A09财务通用管理/U_InvoiceOutList.pas +++ b/A09财务通用管理/U_InvoiceOutList.pas @@ -26,7 +26,7 @@ type ADOQueryCmd: TADOQuery; Panel1: TPanel; ToolButton2: TToolButton; - P_CodeName: TEdit; + F_Name: TEdit; ADOQueryMain: TADOQuery; ToolButton1: TToolButton; RM1: TRMGridReport; @@ -51,9 +51,9 @@ type v1InvoiceDate: TcxGridDBColumn; v1FactoryName: TcxGridDBColumn; v1note: TcxGridDBColumn; - P_Spec: TEdit; + F_Spec: TEdit; Label5: TLabel; - FactoryName: TEdit; + OppCoName: TEdit; TCHK: TToolButton; TNOCHK: TToolButton; cxTabControl1: TcxTabControl; @@ -67,12 +67,10 @@ type ToolButton4: TToolButton; v1Column3: TcxGridDBColumn; ADOQueryPrint: TADOQuery; - Label7: TLabel; - KPFactoryName: TEdit; Label8: TLabel; Label9: TLabel; Label1: TLabel; - SYRName: TEdit; + OurCoName: TEdit; v1Column8: TcxGridDBColumn; v1Column9: TcxGridDBColumn; v1Column10: TcxGridDBColumn; diff --git a/A09财务通用管理/U_OtherPayableList.dfm b/A09财务通用管理/U_OtherPayableList.dfm index f67b50b..0d9d2d2 100644 --- a/A09财务通用管理/U_OtherPayableList.dfm +++ b/A09财务通用管理/U_OtherPayableList.dfm @@ -213,7 +213,7 @@ inherited frmOtherPayableList: TfrmOtherPayableList State = cbChecked TabOrder = 4 end - object P_Code: TEdit + object F_Code: TEdit Tag = 1 Left = 359 Top = 35 diff --git a/A09财务通用管理/U_OtherPayableList.pas b/A09财务通用管理/U_OtherPayableList.pas index 87a0642..f6292e5 100644 --- a/A09财务通用管理/U_OtherPayableList.pas +++ b/A09财务通用管理/U_OtherPayableList.pas @@ -46,7 +46,7 @@ type Label4: TLabel; CheckBox1: TCheckBox; Label6: TLabel; - P_Code: TEdit; + F_Code: TEdit; v2OrderNo: TcxGridDBColumn; cxTabControl1: TcxTabControl; Label10: TLabel; @@ -117,9 +117,7 @@ type procedure btnEditClick(Sender: TObject); procedure N3Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); - procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); private procedure InitGrid(); procedure SetStatus(); @@ -252,6 +250,21 @@ begin application.MessageBox('ѡ', 'ʾ'); Exit; end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; @@ -477,7 +490,7 @@ begin with frmOtherPayableInput do begin FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); - PState:=''; + PState := ''; if ShowModal = 1 then begin InitGrid(); @@ -501,12 +514,10 @@ begin WriteCxGrid(trim(Self.Caption), Tv1, ''); end; -procedure TfrmOtherPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); +procedure TfrmOtherPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> 'Զ' then - ACanvas.Font.Color := clBlue; + ACanvas.Font.Color := clBlue; // if 'Զ' <> AViewInfo.GridRecord.Values[Tv1Column25.Index] then ACanvas.Font.Color := clBlue; @@ -514,6 +525,19 @@ end; procedure TfrmOtherPayableList.btnEditClick(Sender: TObject); begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; try with ADOQueryCmd do begin diff --git a/A09财务通用管理/U_PayList.dfm b/A09财务通用管理/U_PayList.dfm index 1d677ad..d87bf74 100644 --- a/A09财务通用管理/U_PayList.dfm +++ b/A09财务通用管理/U_PayList.dfm @@ -160,7 +160,6 @@ inherited frmPayList: TfrmPayList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 32 object Label3: TLabel Left = 172 Top = 13 @@ -262,7 +261,7 @@ inherited frmPayList: TfrmPayList State = cbChecked TabOrder = 4 end - object P_Code: TEdit + object F_Code: TEdit Tag = 1 Left = 359 Top = 35 @@ -316,7 +315,6 @@ inherited frmPayList: TfrmPayList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 142 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False diff --git a/A09财务通用管理/U_PayList.pas b/A09财务通用管理/U_PayList.pas index 32bc26c..ce1fc49 100644 --- a/A09财务通用管理/U_PayList.pas +++ b/A09财务通用管理/U_PayList.pas @@ -62,7 +62,7 @@ type Label4: TLabel; CheckBox1: TCheckBox; Label6: TLabel; - P_Code: TEdit; + F_Code: TEdit; v2OrderNo: TcxGridDBColumn; cxTabControl1: TcxTabControl; Label10: TLabel; @@ -145,9 +145,7 @@ type procedure Button4Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject); - procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); private procedure InitGrid(); procedure SetStatus(); @@ -158,7 +156,7 @@ type implementation uses - U_DataLink, U_RTFun, U_PayInput, U_ZDYHelp, U_AttachmentUpload,U_FinFileUp; + U_DataLink, U_RTFun, U_PayInput, U_ZDYHelp, U_AttachmentUpload, U_FinFileUp; {$R *.dfm} procedure TfrmPayList.SetStatus(); @@ -330,6 +328,20 @@ begin Exit; end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; @@ -856,7 +868,7 @@ begin with frmPayInput do begin FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); - ToolButton3.visible:=False; + ToolButton3.visible := False; if ShowModal = 1 then begin InitGrid(); @@ -870,6 +882,20 @@ end; procedure TfrmPayList.btnEditClick(Sender: TObject); begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; + try with ADOQueryCmd do begin @@ -926,14 +952,12 @@ begin end; -procedure TfrmPayList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); +procedure TfrmPayList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('RegType').Index] = 'տ' then - begin - ACanvas.Brush.Color := $00FF8080; - end + begin + ACanvas.Brush.Color := $00FF8080; + end end; diff --git a/A09财务通用管理/U_PayableList.dfm b/A09财务通用管理/U_PayableList.dfm index cc7cad5..5f48803 100644 --- a/A09财务通用管理/U_PayableList.dfm +++ b/A09财务通用管理/U_PayableList.dfm @@ -31,12 +31,12 @@ inherited frmPayableList: TfrmPayableList Left = 0 Top = 0 AutoSize = True - Caption = #21047#26032'a' + Caption = #21047#26032 ImageIndex = 1 OnClick = TBRafreshClick end object btnAdd: TToolButton - Left = 77 + Left = 71 Top = 0 AutoSize = True Caption = #26032#22686 @@ -44,7 +44,7 @@ inherited frmPayableList: TfrmPayableList OnClick = btnAddClick end object btnEdit: TToolButton - Left = 148 + Left = 142 Top = 0 AutoSize = True Caption = #20462#25913 @@ -52,7 +52,7 @@ inherited frmPayableList: TfrmPayableList OnClick = btnEditClick end object ToolButton2: TToolButton - Left = 219 + Left = 213 Top = 0 AutoSize = True Caption = #21333#20215#20462#25913 @@ -60,7 +60,7 @@ inherited frmPayableList: TfrmPayableList OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 314 + Left = 308 Top = 0 AutoSize = True Caption = #22797#21046 @@ -68,7 +68,7 @@ inherited frmPayableList: TfrmPayableList OnClick = ToolButton1Click end object btnDel: TToolButton - Left = 385 + Left = 379 Top = 0 AutoSize = True Caption = #21024#38500 @@ -76,7 +76,7 @@ inherited frmPayableList: TfrmPayableList OnClick = btnDelClick end object btnChk: TToolButton - Left = 456 + Left = 450 Top = 0 AutoSize = True Caption = #23457#26680 @@ -84,7 +84,7 @@ inherited frmPayableList: TfrmPayableList OnClick = btnChkClick end object btnReChk: TToolButton - Left = 527 + Left = 521 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 @@ -92,7 +92,7 @@ inherited frmPayableList: TfrmPayableList OnClick = btnReChkClick end object ToolButton4: TToolButton - Left = 622 + Left = 616 Top = 0 AutoSize = True Caption = #23548#20986 @@ -100,7 +100,7 @@ inherited frmPayableList: TfrmPayableList OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 693 + Left = 687 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -108,7 +108,7 @@ inherited frmPayableList: TfrmPayableList OnClick = ToolButton5Click end object TBClose: TToolButton - Left = 788 + Left = 782 Top = 0 AutoSize = True Caption = #20851#38381 @@ -228,7 +228,7 @@ inherited frmPayableList: TfrmPayableList State = cbChecked TabOrder = 4 end - object P_Code: TEdit + object F_Code: TEdit Tag = 1 Left = 359 Top = 35 diff --git a/A09财务通用管理/U_PayableList.pas b/A09财务通用管理/U_PayableList.pas index d41ea85..67fbde7 100644 --- a/A09财务通用管理/U_PayableList.pas +++ b/A09财务通用管理/U_PayableList.pas @@ -46,7 +46,7 @@ type Label4: TLabel; CheckBox1: TCheckBox; Label6: TLabel; - P_Code: TEdit; + F_Code: TEdit; v2OrderNo: TcxGridDBColumn; cxTabControl1: TcxTabControl; Label10: TLabel; @@ -117,15 +117,13 @@ type procedure btnEditClick(Sender: TObject); procedure N3Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); - procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure ToolButton2Click(Sender: TObject); private procedure InitGrid(); procedure SetStatus(); public - FAuthority,MFFID: string; + FAuthority, MFFID: string; end; implementation @@ -207,7 +205,7 @@ begin end; sql.Add(WSql); sql.Add('Order By FFTime,OppCoName,OrderNo'); - //ShowMessage(sql.text) ; +// ShowMessage(sql.text) ; Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -252,6 +250,7 @@ end; procedure TfrmPayableList.btnDelClick(Sender: TObject); var FFFIDS: string; + MOrderNoS: string; begin if CDS_1.IsEmpty then exit; @@ -261,16 +260,36 @@ begin application.MessageBox('ѡ', 'ʾ'); Exit; end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; while CDS_1.Locate('SSel', True, []) do begin FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + if MOrderNoS <> '' then + MOrderNoS := MOrderNoS + ',' + QuotedStr(CDS_1.fieldbyname('OrderNo').AsString) + else + MOrderNoS := MOrderNoS + QuotedStr(CDS_1.fieldbyname('OrderNo').AsString); CDS_1.Delete; end; EnableControls; end; + try with ADOQueryCmd do begin @@ -285,6 +304,23 @@ begin if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); application.MessageBox('ɾɹ', 'ʾ'); + + with ADOQueryCmd do + begin + close; + sql.clear; + SQL.Add(' UPDATE Costing_Table '); + SQL.Add(' SET COrderSF = cast(( '); + SQL.Add(' (cast(isnull(CCPKPJE,0) as decimal(18,2)) - '); + SQL.Add(' (SELECT ISNULL(SUM(ISNULL(price,0) * ISNULL(qty, 0)),0) '); + SQL.Add(' FROM Finance_Flow X '); + SQL.Add(' WHERE FFType = ''ӦǼ'' '); + SQL.Add(' AND FFAbstract IN (''S1-֧'', ''S2-ӡȾ֧'', ''S3-ӹ'') '); + SQL.Add(' AND X.OrderNo = Costing_Table.COrderNo)) * cast(ISNULL(COrtherRate,0) as decimal(18,2))) as decimal(18, 2)) '); + SQL.Add(' where COrderNo in( ' + MOrderNoS + ')'); +// ShowMessage(sql.Text); + ExecSQL; + end; except application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); InitGrid(); @@ -372,7 +408,9 @@ end; procedure TfrmPayableList.btnChkClick(Sender: TObject); var - FFFIDS: string; + FFFIDS, FFFIDS2: string; + Count: Integer; + Value: string; begin if CDS_1.IsEmpty then exit; @@ -382,16 +420,68 @@ begin application.MessageBox('ѡ', 'ʾ'); Exit; end; - + Count := 1; +// value :=FConNo; + CDS_1.DisableControls; with CDS_1 do begin - DisableControls; - while CDS_1.Locate('SSel', True, []) do + First; + while not Eof do begin - FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; - CDS_1.Delete; + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + if Value = '' then + begin + Value := FieldByName('OrderNo').AsString; + end; + if Value <> '' then + begin + if Value <> FieldByName('OrderNo').AsString then + begin + Count := Count + 1; + end; + end; + end; + + Next; + end; + end; + + CDS_1.EnableControls; + if Count > 1 then + begin + application.MessageBox('ѡIJͬһƻ', 'ʾϢ'); + exit; + end; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select COrderNO from Costing_Table where COrderNO = ' + QuotedStr(CDS_1.FieldByName('OrderNO').AsString)); + Open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + close; + sql.clear; + sql.add(' update Costing_Table set HYStatus = 1 where COrderNo =' + QuotedStr(CDS_1.FieldByName('OrderNO').AsString)); + SQL.Add(' UPDATE Costing_Table '); + SQL.Add(' SET COrderSF = cast(( '); + SQL.Add(' (cast(isnull(CCPKPJE,0) as decimal(18,2)) - '); + SQL.Add(' (SELECT ISNULL(SUM(ISNULL(price,0) * ISNULL(qty, 0)),0) '); + SQL.Add(' FROM Finance_Flow X '); + SQL.Add(' WHERE FFType = ''ӦǼ'' '); + SQL.Add(' AND FFAbstract IN (''S1-֧'', ''S2-ӡȾ֧'', ''S3-ӹ'') '); + SQL.Add(' AND X.OrderNo = Costing_Table.COrderNo)) * cast(ISNULL(COrtherRate,0) as decimal(18,2))) as decimal(18, 2)) '); + SQL.Add(' where COrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString)); +// ShowMessage(sql.Text); + ExecSQL; end; - EnableControls; end; try @@ -409,16 +499,18 @@ begin 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 TfrmPayableList.btnReChkClick(Sender: TObject); var - FFFIDS: string; + FFFIDS, FFFIDS2: string; + Value: string; + count: Integer; begin if CDS_1.IsEmpty then exit; @@ -429,15 +521,60 @@ begin Exit; end; + count := 1; +// value :=FConNo; + CDS_1.DisableControls; with CDS_1 do begin - DisableControls; - while CDS_1.Locate('SSel', True, []) do + First; + while not Eof do begin - FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; - CDS_1.Delete; + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + if Value = '' then + begin + Value := FieldByName('OrderNo').AsString; + end; + if Value <> '' then + begin + if Value <> FieldByName('OrderNo').AsString then + begin + count := count + 1; + end; + end; + end; + + Next; end; - EnableControls; + end; + + CDS_1.EnableControls; + if count > 1 then + begin + application.MessageBox('ѡIJͬһƻ', 'ʾϢ'); + exit; + end; + +// with CDS_1 do +// begin +// DisableControls; +// while CDS_1.Locate('SSel', True, []) do +// begin +// FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; +// CDS_1.Delete; +//// Next; +// end; +// EnableControls; +// end; + + with ADOQueryCmd do + begin + close; + sql.clear; + sql.add(' update Costing_Table set HYStatus = 1 where COrderNo =' + QuotedStr(CDS_1.FieldByName('OrderNO').AsString)); +// ShowMessage(sql.Text); + ExecSQL; end; try @@ -455,9 +592,10 @@ begin 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; @@ -486,7 +624,7 @@ begin with frmPayableInput do begin FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); - PState:=''; + PState := ''; if ShowModal = 1 then begin InitGrid(); @@ -511,6 +649,20 @@ begin Exit; end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; @@ -567,13 +719,10 @@ begin WriteCxGrid(trim(Self.Caption), Tv1, ''); end; -procedure TfrmPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); +procedure TfrmPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin - if (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> 'Զ') - and (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('FFAbstract').Index] <> 'S4-ִ') then - ACanvas.Font.Color := clBlue; + if (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> 'Զ') and (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('FFAbstract').Index] <> 'S4-ִ') then + ACanvas.Font.Color := clBlue; // if 'Զ' <> AViewInfo.GridRecord.Values[Tv1Column25.Index] then ACanvas.Font.Color := clBlue; @@ -581,6 +730,20 @@ end; procedure TfrmPayableList.btnEditClick(Sender: TObject); begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; + try with ADOQueryCmd do begin diff --git a/A09财务通用管理/U_PlanProfitDetails.dfm b/A09财务通用管理/U_PlanProfitDetails.dfm new file mode 100644 index 0000000..8f4ae35 --- /dev/null +++ b/A09财务通用管理/U_PlanProfitDetails.dfm @@ -0,0 +1,1396 @@ +inherited frmPlanProfitDetails: TfrmPlanProfitDetails + Left = 300 + Top = 189 + Caption = #26126#32454#26597#35810 + ClientHeight = 573 + ClientWidth = 981 + WindowState = wsMaximized + OnResize = FormResize + ExplicitWidth = 997 + ExplicitHeight = 612 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 981 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clWhite + Images = DataLink_Financial.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 981 + Height = 46 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label3: TLabel + Left = 22 + Top = 16 + Width = 48 + Height = 13 + Caption = #35745#21010#21333#21495 + end + object Label2: TLabel + Left = 246 + Top = 16 + Width = 48 + Height = 13 + Caption = #26597#35810#26085#26399 + Visible = False + end + object Label6: TLabel + Left = 388 + Top = 16 + Width = 20 + Height = 13 + Caption = '-----' + Visible = False + end + object Label1: TLabel + Left = 890 + Top = 113 + Width = 48 + Height = 13 + Caption = #25903#20184#21488#22836 + end + object OrderNo: TEdit + Tag = 2 + Left = 76 + Top = 12 + Width = 155 + Height = 21 + Enabled = False + TabOrder = 2 + OnChange = OrderNoChange + end + object begdate: TDateTimePicker + Left = 300 + Top = 12 + Width = 97 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + Visible = False + end + object Enddate: TDateTimePicker + Left = 406 + Top = 12 + Width = 97 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 1 + Visible = False + end + object ComTaiTou: TEdit + Tag = 2 + Left = 938 + Top = 109 + Width = 89 + Height = 21 + TabOrder = 3 + OnChange = OrderNoChange + end + end + object cxGrid1: TcxGrid [2] + Left = 508 + Top = 76 + Width = 473 + Height = 301 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv1Column12 + end + item + Kind = skSum + Column = Tv1Column15 + end + item + Kind = skSum + Column = Tv1Column16 + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column11 + end + item + Kind = skSum + Column = Tv1Column25 + end + item + Kind = skSum + Column = Tv1Column30 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v2CRTime: TcxGridDBColumn + Tag = 7 + Caption = #21457#29983#26085#26399 + DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object Tv1Column27: TcxGridDBColumn + Caption = #24212#25910#26085#26399 + DataBinding.FieldName = 'YSDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object Tv1Column23: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'ReconciliationDate' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object Tv1Column19: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'FFType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column2: TcxGridDBColumn + Caption = #25105#26041#21333#20301 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v2FactoryName: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object Tv1Column2: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v2OrderNo: TcxGridDBColumn + Tag = 7 + Caption = #19978#32423#21333#20301 + DataBinding.FieldName = 'OppParentCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20215#26684#26415#35821 + DataBinding.FieldName = 'PayMent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column24: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1Column20: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column21: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column4: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'F_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'F_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column7: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'F_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'F_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'F_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column10: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'F_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column30: TcxGridDBColumn + Caption = #21253#25968 + DataBinding.FieldName = 'PacketNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv1Column11: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column12: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column13: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column14: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column15: TcxGridDBColumn + Caption = #20854#20182#36153 + DataBinding.FieldName = 'OtherFee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column16: TcxGridDBColumn + Caption = #20943#20813 + DataBinding.FieldName = 'Deduction' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column26: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'YJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object Tv1Column17: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column18: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column25: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'FFWoAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object Tv1Column1: TcxGridDBColumn + Caption = #26469#28304 + DataBinding.FieldName = 'FromID1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column28: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object Tv1Column29: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'SailingSchedule' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object Tv1Column22: TcxGridDBColumn + DataBinding.FieldName = 'FFFlag' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column31: TcxGridDBColumn + Caption = #36807#22320#31246 + DataBinding.FieldName = 'GDS' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + end + object Tv1Column32: TcxGridDBColumn + Caption = #20854#20182#31246#36153 + DataBinding.FieldName = 'QTSF' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel [3] + Left = 0 + Top = 377 + Width = 981 + Height = 196 + Align = alBottom + Caption = 'Panel2' + Color = clBtnHighlight + ParentBackground = False + TabOrder = 3 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 544 + Height = 194 + Align = alLeft + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = TV2Column2 + end + item + Kind = skSum + Column = TV2Column1 + end + item + Kind = skSum + Column = TV2Column3 + end + item + Kind = skSum + Column = TV2Column4 + end + item + Kind = skSum + Column = TV2Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn10: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object TV2Column11: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZDTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column7: TcxGridDBColumn + Caption = #20986#21040#35745#21010#21333 + DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 81 + end + object TV2Column9: TcxGridDBColumn + Caption = #36716#21333#31867#22411 + DataBinding.FieldName = 'SDefNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #36716#20986#21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV2Column1: TcxGridDBColumn + Caption = #36716#20986#20928#37325 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 64 + end + object TV2Column2: TcxGridDBColumn + Caption = #36716#20986#27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2Column3: TcxGridDBColumn + Caption = #36716#20986#31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2Column4: TcxGridDBColumn + Caption = #36716#20986#30721#25968 + DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object TV2Column8: TcxGridDBColumn + Caption = #36716#20986#25968#37327 + DataBinding.FieldName = 'qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object TV2Column10: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2Column5: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ZDPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + object TV2Column6: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ZDAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV2 + end + end + object cxGrid3: TcxGrid + Left = 553 + Top = 1 + Width = 427 + Height = 194 + Align = alClient + TabOrder = 1 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn53 + end + item + Kind = skSum + Column = cxGridDBColumn56 + end + item + Kind = skSum + Column = cxGridDBColumn57 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn52 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = TV3Column2 + end + item + Kind = skSum + Column = cxGridDBColumn55 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn42: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object TV3Column7: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZDTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object TV3Column3: TcxGridDBColumn + Caption = #26469#33258#35745#21010#21333 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 72 + end + object TV3Column5: TcxGridDBColumn + Caption = #36716#21333#31867#22411 + DataBinding.FieldName = 'SDefNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object cxGridDBColumn46: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn47: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn50: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn52: TcxGridDBColumn + Caption = #36716#20837#21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn53: TcxGridDBColumn + Caption = #36716#20837#20928#37325 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn55: TcxGridDBColumn + Caption = #36716#20837#27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn56: TcxGridDBColumn + Caption = #36716#20837#31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn57: TcxGridDBColumn + Caption = #36716#20837#30721#25968 + DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column4: TcxGridDBColumn + Caption = #36716#20986#25968#37327 + DataBinding.FieldName = 'qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column6: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3Column1: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ZDPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 50 + end + object TV3Column2: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ZDAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 62 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV3 + end + end + object cxSplitter1: TcxSplitter + Left = 545 + Top = 1 + Width = 8 + Height = 194 + HotZoneClassName = 'TcxMediaPlayer9Style' + end + end + object cxGrid4: TcxGrid [4] + Left = 0 + Top = 76 + Width = 500 + Height = 301 + Align = alLeft + TabOrder = 4 + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_HZ + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn27 + end + item + Kind = skSum + Column = cxGridDBColumn30 + end + item + Kind = skSum + Column = cxGridDBColumn31 + end + item + Kind = skSum + Column = cxGridDBColumn33 + end + item + Kind = skSum + Column = cxGridDBColumn26 + end + item + Kind = skSum + Column = cxGridDBColumn35 + end + item + Kind = skSum + Column = cxGridDBColumn25 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Appending = True + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Tag = 7 + Caption = #21457#29983#26085#26399 + DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #24212#25910#26085#26399 + DataBinding.FieldName = 'YSDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'ReconciliationDate' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'FFType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25105#26041#21333#20301 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 7 + Caption = #19978#32423#21333#20301 + DataBinding.FieldName = 'OppParentCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20215#26684#26415#35821 + DataBinding.FieldName = 'PayMent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'F_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'F_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'F_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'F_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'F_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'F_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #21253#25968 + DataBinding.FieldName = 'PacketNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20854#20182#36153 + DataBinding.FieldName = 'OtherFee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #20943#20813 + DataBinding.FieldName = 'Deduction' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'YJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'FFWoAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #26469#28304 + DataBinding.FieldName = 'FromID1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'SailingSchedule' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object TV4Column1: TcxGridDBColumn + DataBinding.FieldName = 'FFFlag' + DataBinding.IsNullValueType = True + Visible = False + end + object TV4Column2: TcxGridDBColumn + Caption = #22806#24065#25910#30410'RMB' + DataBinding.FieldName = 'WBSJRMB' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV4Column3: TcxGridDBColumn + Caption = #20154#27665#24065#23454#25910#37329#39069 + DataBinding.FieldName = 'RMBSHJE' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV4Column4: TcxGridDBColumn + Caption = #36864#31246#25910#30410 + DataBinding.FieldName = 'TSSJ' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 90 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TV4 + end + end + object cxSplitter2: TcxSplitter [5] + Left = 500 + Top = 76 + Width = 8 + Height = 301 + HotZoneClassName = 'TcxMediaPlayer9Style' + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 81 + Top = 232 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 81 + Top = 177 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 253 + Top = 177 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 341 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 430 + Top = 172 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 370 + Top = 145 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 261 + Top = 334 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 193 + Top = 265 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 404 + Top = 233 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 240 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 77 + Top = 313 + end + object PM_1: TPopupMenu + Left = 568 + Top = 336 + object N1: TMenuItem + Caption = #22797#21046 + OnClick = N1Click + end + end + object ADOQuery3: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 662 + Top = 428 + end + object ADOQuery2: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 230 + Top = 412 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 88 + Top = 424 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 164 + Top = 417 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 596 + Top = 465 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 400 + end + object DataSource1: TDataSource + DataSet = CDS_3 + Left = 740 + Top = 449 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 672 + Top = 152 + end + object DataSource2: TDataSource + DataSet = ClientDataSet1 + Left = 764 + Top = 169 + end + object ADOQuery5: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 638 + Top = 228 + end + object CDS_31: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 176 + end + object CDS_21: TClientDataSet + Aggregates = <> + Params = <> + Left = 600 + Top = 224 + end + object CDS_32: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 272 + end + object CDS_22: TClientDataSet + Aggregates = <> + Params = <> + Left = 640 + Top = 288 + end +end diff --git a/A09财务通用管理/U_PlanProfitDetails.pas b/A09财务通用管理/U_PlanProfitDetails.pas new file mode 100644 index 0000000..0e256d1 --- /dev/null +++ b/A09财务通用管理/U_PlanProfitDetails.pas @@ -0,0 +1,774 @@ +unit U_PlanProfitDetails; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, + U_BaseHelp, Vcl.Menus, Vcl.Clipbrd, DateUtils, dxSkinWXI, + dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList; + +type + TfrmPlanProfitDetails = class(TfrmBasehelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Label3: TLabel; + OrderNo: TEdit; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Label1: TLabel; + ComTaiTou: TEdit; + ADOQueryPrint: TADOQuery; + ToolButton1: TToolButton; + PM_1: TPopupMenu; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v2CRTime: TcxGridDBColumn; + Tv1Column27: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v2FactoryName: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + v2OrderNo: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column24: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column30: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column26: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column25: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column28: TcxGridDBColumn; + Tv1Column29: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn46: TcxGridDBColumn; + cxGridDBColumn47: TcxGridDBColumn; + cxGridDBColumn50: TcxGridDBColumn; + cxGridDBColumn52: TcxGridDBColumn; + cxGridDBColumn53: TcxGridDBColumn; + cxGridDBColumn55: TcxGridDBColumn; + cxGridDBColumn56: TcxGridDBColumn; + cxGridDBColumn57: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + ADOQuery3: TADOQuery; + ADOQuery2: TADOQuery; + CDS_2: TClientDataSet; + DS_2: TDataSource; + DS_3: TDataSource; + CDS_3: TClientDataSet; + TV2Column1: TcxGridDBColumn; + TV2Column2: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + TV2Column5: TcxGridDBColumn; + TV2Column6: TcxGridDBColumn; + TV3Column1: TcxGridDBColumn; + TV3Column2: TcxGridDBColumn; + cxSplitter1: TcxSplitter; + TV2Column7: TcxGridDBColumn; + TV3Column3: TcxGridDBColumn; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource1: TDataSource; + TV4Column1: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + ClientDataSet1: TClientDataSet; + DataSource2: TDataSource; + ADOQuery5: TADOQuery; + TV4Column2: TcxGridDBColumn; + TV4Column3: TcxGridDBColumn; + TV4Column4: TcxGridDBColumn; + Tv1Column31: TcxGridDBColumn; + Tv1Column32: TcxGridDBColumn; + CDS_31: TClientDataSet; + CDS_21: TClientDataSet; + TV2Column8: TcxGridDBColumn; + TV3Column4: TcxGridDBColumn; + TV2Column9: TcxGridDBColumn; + TV3Column5: TcxGridDBColumn; + TV2Column10: TcxGridDBColumn; + TV3Column6: TcxGridDBColumn; + TV2Column11: TcxGridDBColumn; + TV3Column7: TcxGridDBColumn; + CDS_32: TClientDataSet; + CDS_22: TClientDataSet; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + procedure InitYFFGrid(); + procedure InitZD(); + public + fmanage, FZKType, FOrderNo, FMainID, FOrderNo2: string; + { Public declarations } + RKFlag, FCYID, FUnit, FStkName: string; + end; + +var + frmPlanProfitDetails: TfrmPlanProfitDetails; + +implementation + +uses + U_DataLink, U_RtFun, U_ZDYHelp; + + +{$R *.dfm} + +procedure TfrmPlanProfitDetails.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add('Select Amount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)'); +// sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)'); +// sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) '); +// sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)'); + + sql.Add(',WBSJRMB = ISNULL((select sum(cast(CWBSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('RMBSHJE = ISNULL((select sum(cast(CRMBSSJE as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('TSSJ = ISNULL((select sum(cast(CTSSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0)'); + + SQL.Add(',BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))'); + SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)'); + sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo))); + sql.Add(' and FFType = ''应收款登记'' '); +// sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + //ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + if not CDS_HZ.IsEmpty then + begin + with CDS_HZ do + begin + for var i := 0 to 2 do + begin + append; + if i = 0 then + begin + CDS_HZ.FieldByName('FFAbstract').Value := '外币收益RMB'; + CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('WBSJRMB').Value; + end + else if i = 1 then + begin + CDS_HZ.FieldByName('FFAbstract').Value := '人民币实收金额'; + CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('RMBSHJE').Value; + end + else if i = 2 then + begin + CDS_HZ.FieldByName('FFAbstract').Value := '退税收益'; + CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('TSSJ').Value; + end; + post; + end; + end; + end; + + finally + ADOQueryMain.EnableControls; + TV4.DataController.Filter.Clear; + end; +// ToolButton2.Click; +end; + +procedure TfrmPlanProfitDetails.InitYFFGrid(); +begin + try + ADOQuery5.DisableControls; + with ADOQuery5 do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add('Select Amount=(Case when ISNULL(A.RegType,'''')=''付款'' then -1*Amount else Amount end)'); +// sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)'); +// sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) '); +// sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)'); + sql.Add(',GDSs = ISNULL((select sum(cast(GDS as decimal(18, 2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('QTSF = ISNULL((select sum(cast(COrderSF as decimal(18, 2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); + + SQL.Add('BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))'); + SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)'); + sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo))); + sql.Add(' and (FFType = ''应付款登记'' or FFType = ''其他应付款登记'' or FFType = ''手工费用登记'' ) '); +// sql.Add(' and ISNULL(A.FFTime,A.SQDate)>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); +// sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + //ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery5, ClientDataSet1); + SInitCDSData(ADOQuery5, ClientDataSet1); + if not ClientDataSet1.IsEmpty then + begin + with ClientDataSet1 do + begin + for var i := 0 to 1 do + begin + append; + if i = 0 then + begin + FieldByName('FFAbstract').Value := '国地税'; + FieldByName('Amount').Value := ADOQuery5.FieldByName('GDSs').Value; + end + else if i = 1 then + begin + FieldByName('FFAbstract').Value := '其他税费'; + FieldByName('Amount').Value := ADOQuery5.FieldByName('QTSF').Value; + end; + post; + end; + end; + end; + + finally + ADOQuery5.EnableControls; + TV1.DataController.Filter.Clear; + end; +// ToolButton2.Click; +end; + +procedure TfrmPlanProfitDetails.InitZD(); +begin + with ADOQuery2 do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add('select A.OrderNo,C.OrderNo TOOrdNO,A.C_Pattern,A.C_Color,A.C_ColorNo, ISNULL(A.ZDPrice,0) ZDPrice, U.QtyUnit OrdUnit, A.ZDTime '); +// if FUnit = 'M' then +// begin +// sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))') +// end +// else if FUnit = 'Y' then +// begin +// sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))') +// end +// else if FUnit = 'Kg' then +// begin +// sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkNetWeight))') +// end; + SQL.Add(' ,ZDAmount = ISNULL(SUM(ISNULL(A.ZDPrice,0) *'); + SQL.Add(' CASE U.QtyUnit'); + sql.Add(' WHEN ''M'' THEN A.StkMeter'); + SQL.Add(' WHEN ''Y'' THEN A.StkYardage'); + SQL.Add(' ELSE A.StkNetWeight'); + sql.Add(' END), 0) '); + SQL.Add(',COUNT(CIID) Piece,SUM(StkGrossWeight) GrossWeight'); + sql.Add(',SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage'); + SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID'); + sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId'); + sql.add(' OUTER APPLY (SELECT TOP 1 QtyUnit '); + sql.Add(' FROM Trade_Cloth_DR_Sub X'); + sql.add(' WHERE X.DRSID = A.DRSID) AS U'); + sql.Add(' where A.MainID= ' + QuotedStr(Trim(FMainID))); + sql.Add(' and C.OrderNo <> '''' '); + Sql.Add('GROUP BY A.OrderNo,C.OrderNo,A.C_Pattern,A.C_Color,A.C_ColorNo,A.ZDPrice,U.QtyUnit, A.ZDTime'); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery2, CDS_2); + SInitCDSData(ADOQuery2, CDS_2); + with CDS_2 do + begin + first; + while not eof do + begin + Edit; + FieldByName('SDefNote').AsString := '成品转单'; + post; + Next; + end; + end; + + with ADOQuery2 do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add(' select FromOrdNo, stkName, C_Pattern, C_Color, C_ColorNo, sum(qty) as qty, price, sum(piece) as piece, qtyUnit, ZDAmount = (isnull(price, 0) * sum(qty)), qty = sum(qty), iotime, '); + SQL.Add(' (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) ToOrdNo '); + SQL.Add(' from Bs_Cloth_IO A where STKName in (''贸易坯布'', ''贸易待检布'')'); + SQL.Add(' and FromOrdNo <> (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) '); + sql.Add(' and FromOrdNo = ' + quotedstr(FOrderNo)); + SQL.Add(' group by FromOrdNo, ToOrdNo, C_Pattern, C_Color, C_ColorNo, Price, stkName, qtyUnit, iotime '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery2, CDS_21); + SInitCDSData(ADOQuery2, CDS_21); + if not CDS_21.IsEmpty then + begin + CDS_21.First; + with CDS_2 do + begin + for var i := 0 to CDS_21.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := CDS_21.FieldByName('FromOrdNo').AsString; + FieldByName('ToOrdNo').AsString := CDS_21.FieldByName('ToOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_21.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_21.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_21.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_21.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_21.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_21.FieldByName('qtyUnit').AsString; + FieldByName('Piece').AsString := CDS_21.FieldByName('Piece').AsString; + FieldByName('ZDTime').AsString := CDS_21.FieldByName('iotime').AsString; + if CDS_21.FieldByName('stkName').AsString = '贸易坯布' then + FieldByName('SDefNote').AsString := '坯布转单' + else if CDS_21.FieldByName('stkName').AsString = '贸易待检布' then + FieldByName('SDefNote').AsString := '待检布转单'; + if LowerCase(CDS_21.FieldByName('QtyUnit').AsString) = 'kg' then + FieldByName('NetWeight').AsString := CDS_21.FieldByName('qty').AsString + else if LowerCase(CDS_21.FieldByName('QtyUnit').AsString) = 'm' then + FieldByName('Meter').AsString := CDS_21.FieldByName('qty').AsString; + CDS_21.Next; + end; + post; + end; + end; + + with ADOQuery2 do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('SELECT '); + SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,'); + SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,'); + SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS TOOrdNo,'); + SQL.Add(' CAST(ISNULL(Sum('); + SQL.Add(' ISNULL(A.price, sub.price) * '); + SQL.Add(' ISNULL( CASE sub.QtyUnit'); + SQL.Add(' WHEN ''M'' THEN A.Meter'); + SQL.Add(' WHEN ''Kg'' THEN A.NetWeight '); + SQL.Add(' WHEN ''Y'' THEN A.Yardage'); + SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount'); + SQL.Add('FROM Trade_Cloth_IO A '); + SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID '); + SQL.Add('CROSS APPLY ('); + SQL.Add(' SELECT TOP 1 QtyUnit, price '); + SQL.Add(' FROM Trade_Cloth_DR_Sub X '); + SQL.Add(' WHERE X.DRMID = A.IONO'); + SQL.Add(') sub'); + SQL.Add('WHERE B.OrderNo <> (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) '); + SQL.Add(' AND A.IOType IN (''加工出库'', ''回修出库'')'); + SQL.Add(' AND B.OrderNo = ' + QuotedStr(FOrderNo)); + SQL.Add('GROUP BY B.OrderNo, A.IONO, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, sub.price, sub.QtyUnit, A.IOTime, A.price'); + Open; + end; + SCreateCDS(ADOQuery2, CDS_22); + SInitCDSData(ADOQuery2, CDS_22); + if not CDS_22.IsEmpty then + begin + CDS_22.First; + with CDS_2 do + begin + for var i := 0 to CDS_22.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := CDS_22.FieldByName('FromOrdNo').AsString; + FieldByName('ToOrdNo').AsString := CDS_22.FieldByName('ToOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_22.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_22.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_22.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_22.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_22.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_22.FieldByName('qtyUnit').AsString; + FieldByName('Piece').AsString := CDS_22.FieldByName('Piece').AsString; + FieldByName('ZDTime').AsString := CDS_22.FieldByName('iotime').AsString; + FieldByName('Meter').AsString := CDS_22.FieldByName('Meter').AsString; + FieldByName('GrossWeight').AsString := CDS_22.FieldByName('GrossWeight').AsString; + FieldByName('Yardage').AsString := CDS_22.FieldByName('Yardage').AsString; + FieldByName('NetWeight').AsString := CDS_22.FieldByName('NetWeight').AsString; + if CDS_22.FieldByName('IOType').AsString = '加工出库' then + FieldByName('SDefNote').AsString := ' 加工转单' + else if CDS_22.FieldByName('IOType').AsString = '回修出库' then + FieldByName('SDefNote').AsString := ' 回修转单'; + CDS_22.Next; + end; + post; + end; + end; + + with ADOQuery3 do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice, B.OrdUnit, A.ZDTime'); + if FUnit = 'M' then + begin + sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))') + end + else if FUnit = 'Y' then + begin + sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))') + end + else if FUnit = 'Kg' then + begin + sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkNetWeight))') + end; + SQL.Add(',SUM(StkGrossWeight) GrossWeight,SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage'); + SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID'); + sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId where A.ZDMainID= ' + QuotedStr(Trim(FMainID))); + Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice, B.OrdUnit, A.ZDTime'); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery3, CDS_3); + SInitCDSData(ADOQuery3, CDS_3); + with CDS_3 do + begin + first; + while not eof do + begin + Edit; + FieldByName('SDefNote').AsString := '成品转单'; + post; + Next; + end; + end; + with ADOQuery3 do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('select stkName, FromOrdNo, C_Pattern, C_Color, C_ColorNo, Price, qtyUnit, ZDAmount = (isnull(price, 0) * sum(qty)), qty = sum(qty), sum(piece) as piece, iotime, '); + SQL.Add(' (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) ToOrdNo '); + SQL.Add(' from Bs_Cloth_IO A where STKName in (''贸易坯布'', ''贸易待检布'')'); + SQL.Add(' and FromOrdNo <> (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) '); + sql.Add(' and (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) = ' + quotedstr(FOrderNo)); + SQL.Add(' group by FromOrdNo, ToOrdNo, C_Pattern, C_Color, C_ColorNo, Price, stkName, qtyUnit, iotime '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery3, CDS_31); + SInitCDSData(ADOQuery3, CDS_31); + if not CDS_31.IsEmpty then + begin + with CDS_3 do + begin + CDS_31.First; + for var i := 0 to CDS_31.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := OrderNo.Text; + FieldByName('FromOrdNo').AsString := CDS_31.FieldByName('FromOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_31.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_31.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_31.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_31.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_31.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_31.FieldByName('qtyUnit').AsString; + FieldByName('ZDTime').AsString := CDS_31.FieldByName('iotime').AsString; + FieldByName('Piece').AsString := CDS_31.FieldByName('Piece').AsString; + if CDS_31.FieldByName('stkName').AsString = '贸易坯布' then + FieldByName('SDefNote').AsString := '坯布转单' + else if CDS_31.FieldByName('stkName').AsString = '贸易待检布' then + FieldByName('SDefNote').AsString := '待检布转单'; + if LowerCase(CDS_31.FieldByName('QtyUnit').AsString) = 'kg' then + FieldByName('NetWeight').AsString := CDS_31.FieldByName('qty').AsString + else if LowerCase(CDS_31.FieldByName('QtyUnit').AsString) = 'm' then + FieldByName('Meter').AsString := CDS_31.FieldByName('qty').AsString; + + CDS_31.Next; + end; + post; + end; + end; + + with ADOQuery3 do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('SELECT '); + SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,'); + SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,'); + SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS ToOrdNo,'); + SQL.Add(' CAST(ISNULL(Sum('); + SQL.Add(' ISNULL(A.price, sub.price) * '); + SQL.Add(' ISNULL( CASE sub.QtyUnit'); + SQL.Add(' WHEN ''M'' THEN A.Meter'); + SQL.Add(' WHEN ''Kg'' THEN A.NetWeight '); + SQL.Add(' WHEN ''Y'' THEN A.Yardage'); + SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount'); + SQL.Add('FROM Trade_Cloth_IO A '); + SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID '); + SQL.Add('CROSS APPLY ('); + SQL.Add(' SELECT TOP 1 QtyUnit, price '); + SQL.Add(' FROM Trade_Cloth_DR_Sub X '); + SQL.Add(' WHERE X.DRMID = A.IONO'); + SQL.Add(') sub'); + SQL.Add('WHERE B.OrderNo <> (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) '); + SQL.Add(' AND A.IOType IN (''加工出库'', ''回修出库'')'); + SQL.Add(' AND (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ' + QuotedStr(FOrderNo)); + SQL.Add('GROUP BY B.OrderNo, A.IONO, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, sub.price, sub.QtyUnit, A.IOTime, A.price'); + Open; + end; + SCreateCDS(ADOQuery3, CDS_32); + SInitCDSData(ADOQuery3, CDS_32); + if not CDS_32.IsEmpty then + begin + with CDS_3 do + begin + CDS_32.First; + for var i := 0 to CDS_32.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := OrderNo.Text; + FieldByName('FromOrdNo').AsString := CDS_32.FieldByName('FromOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_32.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_32.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_32.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_32.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_32.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_32.FieldByName('qtyUnit').AsString; + FieldByName('ZDTime').AsString := CDS_32.FieldByName('iotime').AsString; + FieldByName('Piece').AsString := CDS_32.FieldByName('Piece').AsString; + FieldByName('Meter').AsString := CDS_32.FieldByName('Meter').AsString; + FieldByName('GrossWeight').AsString := CDS_32.FieldByName('GrossWeight').AsString; + FieldByName('Yardage').AsString := CDS_32.FieldByName('Yardage').AsString; + FieldByName('NetWeight').AsString := CDS_32.FieldByName('NetWeight').AsString; + if CDS_32.FieldByName('IOType').AsString = '加工出库' then + FieldByName('SDefNote').AsString := ' 加工转单' + else if CDS_32.FieldByName('IOType').AsString = '回修出库' then + FieldByName('SDefNote').AsString := ' 回修转单'; + + CDS_32.Next; + end; + post; + end; + end; +// ToolButton2.Click; +end; + +procedure TfrmPlanProfitDetails.N1Click(Sender: TObject); +begin + + Clipboard.SetTextBuf(PChar(Trim(CDS_HZ.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmPlanProfitDetails.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmPlanProfitDetails.FormResize(Sender: TObject); +begin + inherited; + cxGrid4.Width := ClientWidth div 2; + cxGrid2.Width := ClientWidth div 2; +end; + +procedure TfrmPlanProfitDetails.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmPlanProfitDetails.FormShow(Sender: TObject); +begin + inherited; +// cxGrid4.Width := 981; + +// CxSplitter2.Left := cxGrid4.Width; + ReadCxGrid(trim(self.Caption), Tv1, '利润明细'); +// Enddate.DateTime := SGetServerDate(ADOQueryTemp); +//// begdate.DateTime := StartOfTheMonth(Enddate.DateTime); +// begdate.DateTime := EndDate.DateTime - 365; + InitGrid(); + InitYFFGrid(); + InItZD(); +end; + +procedure TfrmPlanProfitDetails.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + InitYFFGrid(); + InitZD(); +end; + +procedure TfrmPlanProfitDetails.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv1, '利润明细'); +end; + +procedure TfrmPlanProfitDetails.ToolButton2Click(Sender: TObject); +var + fsj: string; +begin + if ADOQueryMain.Active = False then + Exit; + + SDofilter(ADOQueryMain, Trim(SGetFilters(Panel1, 1, 2))); + SCreateCDS(ADOQueryMain, CDS_HZ); + SInitCDSData(ADOQueryMain, CDS_HZ); + + SDofilter(ADOQuery5, Trim(SGetFilters(Panel1, 1, 2))); + SCreateCDS(ADOQuery5, ClientDataSet1); + SInitCDSData(ADOQuery5, ClientDataSet1); +end; + +procedure TfrmPlanProfitDetails.OrderNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmPlanProfitDetails.ToolButton4Click(Sender: TObject); +var + filepath: string; + mBegdate, mEnddate: string; +begin + mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date); + mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date); + if CDS_HZ.IsEmpty then + exit; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + Filtered := False; + sql.Add(' exec P_YSSK_List @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))) + ',@Enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))) + ',@flag=''已审核'''); + Open; + end; + Open; + end; + + try + filepath := ExtractFilePath(Application.ExeName) + 'report\应收账款.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError); + exit; + end; + + RmVariables['begDate'] := FormatDateTime('yyyy-mm-dd', begDate.Date); + RmVariables['enddate'] := FormatDateTime('yyyy-mm-dd', enddate.Date); + RMVariables['ZDR'] := trim(DName); + RM1.LoadFromFile(filepath); + RM1.ShowReport; + finally + + end; + +end; + +procedure TfrmPlanProfitDetails.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); + InitYFFGrid(); +end; + +end. + diff --git a/A09财务通用管理/U_ReceivableList.dfm b/A09财务通用管理/U_ReceivableList.dfm index 10e0b00..300e33c 100644 --- a/A09财务通用管理/U_ReceivableList.dfm +++ b/A09财务通用管理/U_ReceivableList.dfm @@ -176,8 +176,8 @@ inherited frmReceivableList: TfrmReceivableList Caption = #19978#32423#21333#20301 end object Label1: TLabel - Left = 630 - Top = 15 + Left = 627 + Top = 13 Width = 48 Height = 12 Caption = #35745#21010#21333#21495 @@ -228,7 +228,7 @@ inherited frmReceivableList: TfrmReceivableList State = cbChecked TabOrder = 4 end - object P_Code: TEdit + object F_Code: TEdit Tag = 1 Left = 359 Top = 35 @@ -607,6 +607,8 @@ inherited frmReceivableList: TfrmReceivableList Caption = #25163#32493#36153 DataBinding.FieldName = 'JHSXF' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCalcEditProperties' + Properties.DisplayFormat = '0.00' HeaderAlignmentHorz = taCenter Width = 73 end @@ -614,6 +616,8 @@ inherited frmReceivableList: TfrmReceivableList Caption = #23454#25910#37329#39069 DataBinding.FieldName = 'SSAmount' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCalcEditProperties' + Properties.DisplayFormat = '0.00' HeaderAlignmentHorz = taCenter Width = 90 end @@ -621,6 +625,8 @@ inherited frmReceivableList: TfrmReceivableList Caption = #23454#25910#20154#27665#24065 DataBinding.FieldName = 'SSCNYAmount' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCalcEditProperties' + Properties.DisplayFormat = '0.00' HeaderAlignmentHorz = taCenter Width = 100 end diff --git a/A09财务通用管理/U_ReceivableList.pas b/A09财务通用管理/U_ReceivableList.pas index 1cb2b35..b4ccf28 100644 --- a/A09财务通用管理/U_ReceivableList.pas +++ b/A09财务通用管理/U_ReceivableList.pas @@ -15,7 +15,7 @@ uses cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI, - dxScrollbarAnnotations; + dxScrollbarAnnotations, cxCalc; type TfrmReceivableList = class(TfrmBaseList) @@ -46,7 +46,7 @@ type Label4: TLabel; CheckBox1: TCheckBox; Label6: TLabel; - P_Code: TEdit; + F_Code: TEdit; v2OrderNo: TcxGridDBColumn; cxTabControl1: TcxTabControl; Label10: TLabel; @@ -226,7 +226,7 @@ begin sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); end; sql.Add(WSql); - //showmessage(sql.text); +// showmessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -238,7 +238,7 @@ begin if MFFIDS <> '' then CDS_1.Locate('FFID', MFFIDS, []); - MFFIDS:=''; + MFFIDS := ''; end; procedure TfrmReceivableList.N1Click(Sender: TObject); @@ -281,6 +281,21 @@ begin application.MessageBox('ѡ', 'ʾ'); Exit; end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; @@ -518,14 +533,28 @@ begin Exit; end; // - MFFIDS:=''; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; + + MFFIDS := ''; with CDS_1 do begin DisableControls; while CDS_1.Locate('SSel', True, []) do begin - MFFIDS :=MFFIDS+ ',' + Trim(CDS_1.fieldbyname('FFID').AsString) ; + MFFIDS := MFFIDS + ',' + Trim(CDS_1.fieldbyname('FFID').AsString); CDS_1.Delete; end; EnableControls; @@ -614,6 +643,20 @@ end; procedure TfrmReceivableList.btnEditClick(Sender: TObject); begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; + try with ADOQueryCmd do begin diff --git a/A09财务通用管理/U_TaxInput.dfm b/A09财务通用管理/U_TaxInput.dfm index 602d4ff..5570d13 100644 --- a/A09财务通用管理/U_TaxInput.dfm +++ b/A09财务通用管理/U_TaxInput.dfm @@ -2,7 +2,7 @@ object frmTaxInput: TfrmTaxInput Left = 261 Top = 149 Caption = #31246#36153#30331#35760 - ClientHeight = 280 + ClientHeight = 352 ClientWidth = 1135 Color = clWhite Font.Charset = GB2312_CHARSET @@ -26,7 +26,7 @@ object frmTaxInput: TfrmTaxInput Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 75 + ButtonWidth = 115 Caption = 'ToolBar1' Color = clWhite DisabledImages = DataLink_Financial.ImageList_new32 @@ -43,10 +43,19 @@ object frmTaxInput: TfrmTaxInput ImageIndex = 16 OnClick = ToolButton3Click end - object TBClose: TToolButton + object ToolButton1: TToolButton Left = 71 Top = 0 AutoSize = True + Caption = #35774#32622#40664#35748#31246#29575 + ImageIndex = 4 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 190 + Top = 0 + AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick @@ -56,7 +65,7 @@ object frmTaxInput: TfrmTaxInput Left = 0 Top = 38 Width = 1135 - Height = 242 + Height = 314 Align = alClient BevelInner = bvNone BevelOuter = bvNone @@ -74,7 +83,7 @@ object frmTaxInput: TfrmTaxInput TabOrder = 1 object Label7: TLabel Left = 30 - Top = 163 + Top = 243 Width = 41 Height = 15 Caption = #22791' '#27880 @@ -151,8 +160,8 @@ object frmTaxInput: TfrmTaxInput ParentFont = False end object Label6: TLabel - Left = 30 - Top = 38 + Left = 31 + Top = 36 Width = 78 Height = 15 Caption = #22806#24065#26680#38144#37329#39069 @@ -204,7 +213,7 @@ object frmTaxInput: TfrmTaxInput end object Label11: TLabel Left = 917 - Top = 37 + Top = 36 Width = 52 Height = 15 Caption = #21046#21333#26085#26399 @@ -217,10 +226,10 @@ object frmTaxInput: TfrmTaxInput end object Label12: TLabel Left = 31 - Top = 66 + Top = 84 Width = 78 Height = 15 - Caption = #22806#24065#23454#26680#21333#20301 + Caption = #22806#24065#23454#26680#37329#39069 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -230,7 +239,7 @@ object frmTaxInput: TfrmTaxInput end object Label13: TLabel Left = 261 - Top = 67 + Top = 85 Width = 78 Height = 15 Caption = #22806#24065#23454#26680#27719#29575 @@ -243,7 +252,7 @@ object frmTaxInput: TfrmTaxInput end object Label14: TLabel Left = 482 - Top = 67 + Top = 86 Width = 91 Height = 15 Caption = #20154#27665#24065#23454#25910#37329#39069 @@ -256,7 +265,7 @@ object frmTaxInput: TfrmTaxInput end object Label15: TLabel Left = 715 - Top = 67 + Top = 86 Width = 52 Height = 15 Caption = #36864#31246#25910#30410 @@ -269,7 +278,7 @@ object frmTaxInput: TfrmTaxInput end object Label16: TLabel Left = 917 - Top = 66 + Top = 86 Width = 78 Height = 15 Caption = #25104#21697#24320#31080#37329#39069 @@ -282,7 +291,7 @@ object frmTaxInput: TfrmTaxInput end object Label17: TLabel Left = 31 - Top = 99 + Top = 119 Width = 52 Height = 15 Caption = #22269#22320#31246#29575 @@ -295,7 +304,7 @@ object frmTaxInput: TfrmTaxInput end object Label18: TLabel Left = 261 - Top = 99 + Top = 118 Width = 52 Height = 15 Caption = #22686#20540#31246#29575 @@ -308,7 +317,7 @@ object frmTaxInput: TfrmTaxInput end object Label19: TLabel Left = 482 - Top = 99 + Top = 119 Width = 52 Height = 15 Caption = #20854#20182#31246#29575 @@ -321,7 +330,7 @@ object frmTaxInput: TfrmTaxInput end object Label22: TLabel Left = 31 - Top = 125 + Top = 166 Width = 87 Height = 15 Caption = #22806#24065#25910#30410'(RMB)' @@ -334,7 +343,7 @@ object frmTaxInput: TfrmTaxInput end object Label23: TLabel Left = 261 - Top = 125 + Top = 166 Width = 78 Height = 15 Caption = #36864#31246#29702#35770#25910#30410 @@ -346,8 +355,8 @@ object frmTaxInput: TfrmTaxInput ParentFont = False end object Label24: TLabel - Left = 482 - Top = 127 + Left = 483 + Top = 166 Width = 39 Height = 15 Caption = #22269#22320#31246 @@ -360,7 +369,7 @@ object frmTaxInput: TfrmTaxInput end object Label25: TLabel Left = 715 - Top = 128 + Top = 165 Width = 52 Height = 15 Caption = #20854#20182#31246#36153 @@ -371,26 +380,41 @@ object frmTaxInput: TfrmTaxInput Font.Style = [fsBold] ParentFont = False end + object Label20: TLabel + Left = 31 + Top = 61 + Width = 39 + Height = 15 + Caption = #25163#32493#36153 + 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 = 93 - Top = 155 + Left = 102 + Top = 225 Width = 1020 Height = 57 ScrollBars = ssVertical TabOrder = 0 end object CBusiness_unit: TEdit - Left = 129 + Left = 128 Top = 6 Width = 121 Height = 18 + ReadOnly = True TabOrder = 1 end object CCustomer: TEdit - Left = 577 + Left = 578 Top = 5 Width = 121 Height = 18 + ReadOnly = True TabOrder = 2 end object CC_Name: TEdit @@ -398,10 +422,11 @@ object frmTaxInput: TfrmTaxInput Top = 5 Width = 121 Height = 18 + ReadOnly = True TabOrder = 3 end object Csalesman: TEdit - Left = 1001 + Left = 1002 Top = 5 Width = 121 Height = 18 @@ -409,9 +434,10 @@ object frmTaxInput: TfrmTaxInput end object C_WBHXJE: TEdit Left = 128 - Top = 37 + Top = 38 Width = 121 Height = 18 + ReadOnly = True TabOrder = 5 end object C_HXrate: TEdit @@ -419,6 +445,7 @@ object frmTaxInput: TfrmTaxInput Top = 37 Width = 121 Height = 18 + ReadOnly = True TabOrder = 6 end object C_RMBHXJE: TEdit @@ -426,46 +453,48 @@ object frmTaxInput: TfrmTaxInput Top = 37 Width = 121 Height = 18 + ReadOnly = True TabOrder = 7 end object SFHS: TEdit Left = 775 - Top = 37 + Top = 36 Width = 121 Height = 18 + ReadOnly = True TabOrder = 8 end object CWBSHJE: TEdit Left = 128 - Top = 66 + Top = 85 Width = 121 Height = 18 TabOrder = 9 end object CWBSHrate: TEdit Left = 346 - Top = 66 + Top = 85 Width = 121 Height = 18 TabOrder = 10 end object CRMBSSJE: TEdit Left = 579 - Top = 67 + Top = 85 Width = 121 Height = 18 TabOrder = 11 end object CTSSY: TEdit Left = 775 - Top = 66 + Top = 85 Width = 121 Height = 18 TabOrder = 12 end object CCPKPJE: TEdit Left = 1002 - Top = 66 + Top = 85 Width = 121 Height = 18 TabOrder = 13 @@ -473,7 +502,7 @@ object frmTaxInput: TfrmTaxInput end object CGDSL: TEdit Left = 128 - Top = 96 + Top = 118 Width = 121 Height = 18 TabOrder = 14 @@ -481,7 +510,7 @@ object frmTaxInput: TfrmTaxInput end object CRate: TEdit Left = 346 - Top = 96 + Top = 118 Width = 121 Height = 18 TabOrder = 15 @@ -489,7 +518,7 @@ object frmTaxInput: TfrmTaxInput end object COrtherRate: TEdit Left = 579 - Top = 99 + Top = 117 Width = 121 Height = 18 TabOrder = 16 @@ -497,35 +526,35 @@ object frmTaxInput: TfrmTaxInput end object CWBSY: TEdit Left = 128 - Top = 125 + Top = 165 Width = 121 Height = 18 TabOrder = 17 end object TSLLSY: TEdit Left = 346 - Top = 125 + Top = 165 Width = 121 Height = 18 TabOrder = 18 end object GDS: TEdit - Left = 578 - Top = 127 + Left = 579 + Top = 163 Width = 121 Height = 18 TabOrder = 19 end object COrderSF: TEdit Left = 773 - Top = 127 + Top = 164 Width = 121 Height = 18 TabOrder = 20 end object CZDDate: TDateTimePicker - Left = 1004 - Top = 36 + Left = 1002 + Top = 33 Width = 121 Height = 20 BevelInner = bvNone @@ -536,7 +565,7 @@ object frmTaxInput: TfrmTaxInput end object COrderNo: TBtnEditC Left = 346 - Top = 5 + Top = 6 Width = 121 Height = 20 Font.Charset = GB2312_CHARSET @@ -546,8 +575,17 @@ object frmTaxInput: TfrmTaxInput Font.Style = [] ParentFont = False TabOrder = 22 + OnChange = COrderNoChange OnBtnUpClick = COrderNoBtnUpClick end + object CSXF: TEdit + Left = 128 + Top = 61 + Width = 121 + Height = 18 + ReadOnly = True + TabOrder = 23 + end end object ADOQueryTemp: TADOQuery Connection = DataLink_Financial.ADOLink @@ -566,7 +604,7 @@ object frmTaxInput: TfrmTaxInput Connection = DataLink_Financial.ADOLink LockType = ltReadOnly Parameters = <> - Left = 709 - Top = 129 + Left = 669 + Top = 241 end end diff --git a/A09财务通用管理/U_TaxInput.pas b/A09财务通用管理/U_TaxInput.pas index 350d8ad..7f15f9f 100644 --- a/A09财务通用管理/U_TaxInput.pas +++ b/A09财务通用管理/U_TaxInput.pas @@ -71,6 +71,9 @@ type Label25: TLabel; CZDDate: TDateTimePicker; COrderNo: TBtnEditC; + ToolButton1: TToolButton; + CSXF: TEdit; + Label20: TLabel; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -91,6 +94,8 @@ type procedure CGDSLChange(Sender: TObject); // procedure COrderSFChange(Sender: TObject); procedure COrtherRateChange(Sender: TObject); + procedure COrderNoChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); //procedure ToolButton1Click(Sender: TObject); //procedure ToolButton2Click(Sender: TObject); private @@ -114,7 +119,7 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_ZDYHelpFY, - U_TradePlanSel, U_FinFileUp, U_FtyFileUp, U_TaxSel; + U_TradePlanSel, U_FinFileUp, U_FtyFileUp, U_TaxSel, U_TaxSet; {$R *.dfm} @@ -260,14 +265,11 @@ end; // end; //end; - - procedure TfrmTaxInput.FormDestroy(Sender: TObject); begin frmTaxInput := nil; end; - procedure TfrmTaxInput.PayMentBtnUpClick(Sender: TObject); var fsj: string; @@ -336,16 +338,18 @@ begin COrderNo.Text := Trim(CDS_1.fieldbyname('OrderNo').AsString); CCustomer.Text := Trim(CDS_1.fieldbyname('CustName').AsString); CC_Name.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); - CZDDate.Date := CDS_1.fieldbyname('OrdDate').AsDateTime; C_WBHXJE.Text := Trim(CDS_1.fieldbyname('SumUSD').AsString); C_RMBHXJE.Text := Trim(CDS_1.fieldbyname('SumCNY').AsString); C_HXrate.Text := Trim(CDS_1.fieldbyname('HXHV').AsString); + Csalesman.Text := Trim(CDS_1.fieldbyname('Saleser').AsString); + SFHS.Text := Trim(CDS_1.fieldbyname('ISTax').AsString); + CSXF.Text := Trim(CDS_1.fieldbyname('SXF').AsString); with ADOQueryTemp do begin close; sql.Clear; sql.Add(' SELECT STUFF('); - sql.Add(' (SELECT '','' + CAST(CAST(A.WoJHExchangeRate AS DECIMAL(18, 2)) AS VARCHAR)'); + sql.Add(' (SELECT distinct '','' + CAST(CAST(A.WoJHExchangeRate AS DECIMAL(18, 2)) AS VARCHAR)'); sql.Add(' FROM Finance_WriteOff A'); sql.Add(' INNER JOIN Finance_Flow B ON A.FromId = B.FFID'); sql.Add(' INNER JOIN Finance_Flow C ON A.ToId = C.FFID'); @@ -354,7 +358,7 @@ begin sql.Add('1, 1, '''') AS WoJHExchangeRates'); open; end; - C_HXrate.Text := ADOQueryTemp.FieldByName('WoJHExchangeRates').AsString; +// C_HXrate.Text := ADOQueryTemp.FieldByName('WoJHExchangeRates').AsString; end; end; finally @@ -362,8 +366,10 @@ begin end; end; - - +procedure TfrmTaxInput.COrderNoChange(Sender: TObject); +begin + CalculateProduct4(Sender); +end; procedure TfrmTaxInput.COrtherRateChange(Sender: TObject); begin @@ -383,8 +389,8 @@ end; procedure TfrmTaxInput.FormCreate(Sender: TObject); begin - C_HXrate.OnChange := CalculateProduct; - C_WBHXJE.OnChange := CalculateProduct; + CWBSHJE.OnChange := CalculateProduct; + CWBSHrate.OnChange := CalculateProduct; end; procedure TfrmTaxInput.TBCloseClick(Sender: TObject); @@ -407,9 +413,34 @@ begin // OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString); // OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString); // end; - CGDSL.text := '0.028'; - CRate.text := '0.13'; - COrtherRate.text := '0.07'; + if PState = '' then + ToolButton1.Visible := True + else + ToolButton1.Visible := False; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('select * from SY_Tax'); + open; + First; + while not eof do + begin + if FieldByName('type').AsString = 'CGDSL' then + CGDSL.text := FieldByName('value').AsString + else if FieldByName('type').AsString = 'CRate' then + CRate.text := FieldByName('value').AsString + else if FieldByName('type').AsString = 'COrtherRate' then + COrtherRate.text := FieldByName('value').AsString; + Next; + end; + + end; +// CGDSL.text := '0.028'; +// CRate.text := '0.13'; +// COrtherRate.text := '0.07'; + CZDDate.date := DServerDate; InitGrid(); end; @@ -464,6 +495,7 @@ begin //// FieldByName('OppBanKID FieldByName('CostMID').Value := Trim(MaxId); RTSetsavedata(ADOQueryCmd, 'Costing_table', ScrollBox1, 0); + FieldByName('HYStatus').Value := 0; Post; end; @@ -526,75 +558,112 @@ procedure TfrmTaxInput.CalculateProduct(Sender: TObject);// var AValue, BValue, CValue: Double; begin - try - AValue := StrToFloatDef(C_HXrate.Text, 0); - BValue := StrToFloatDef(C_WBHXJE.Text, 0); - CValue := AValue * BValue; - CWBSY.Text := FormatFloat('0.00', CValue); - except - on E: Exception do - CWBSY.Text := ''; + if (PState = '') or (PState = '޸') then + begin + try + if (CWBSHrate.Text = '') or (CWBSHJE.Text = '') then + begin + CWBSY.Text := ''; + exit; + end; + + AValue := StrToFloatDef(CWBSHrate.Text, 0); + BValue := StrToFloatDef(CWBSHJE.Text, 0); + CValue := AValue * BValue; + CWBSY.Text := FormatFloat('0.00', CValue); + except + on E: Exception do + CWBSY.Text := ''; + end; end; + end; procedure TfrmTaxInput.CalculateProduct2(Sender: TObject);//˰ var AValue, BValue, CValue, DValue: Double; begin - try - AValue := StrToFloatDef(CCPKPJE.Text, 0); - BValue := StrToFloatDef(CRate.Text, 0); - CValue := AValue/(1 + BValue) * BVALUE; - TSLLSY.Text := FormatFloat('0.00', CValue); - except - on E: Exception do - TSLLSY.Text := ''; + if (PState = '') or (PState = '޸') then + begin + if (CCPKPJE.Text = '') or (CRate.Text = '') then + begin + TSLLSY.Text := ''; + exit; + end; + try + AValue := StrToFloatDef(CCPKPJE.Text, 0); + BValue := StrToFloatDef(CRate.Text, 0); + CValue := AValue / (1 + BValue) * BValue; + TSLLSY.Text := FormatFloat('0.00', CValue); + except + on E: Exception do + TSLLSY.Text := ''; + end; end; + end; procedure TfrmTaxInput.CalculateProduct3(Sender: TObject); //˰ var AValue, BValue, CValue, DValue: Double; begin - try - AValue := StrToFloatDef(CCPKPJE.Text, 0); - BValue := StrToFloatDef(CGDSL.Text, 0); - CValue := AValue * BValue; - GDS.Text := FormatFloat('0.00', CValue); - except - on E: Exception do - GDS.Text := ''; + if (PState = '') or (PState = '޸') then + begin + if (CCPKPJE.Text = '') or (CGDSL.Text = '') then + begin + GDS.Text := ''; + exit; + end; + try + AValue := StrToFloatDef(CCPKPJE.Text, 0); + BValue := StrToFloatDef(CGDSL.Text, 0); + CValue := AValue * BValue; + GDS.Text := FormatFloat('0.00', CValue); + except + on E: Exception do + GDS.Text := ''; + end; end; + end; procedure TfrmTaxInput.CalculateProduct4(Sender: TObject); //˰ var AValue, BValue, CValue, DValue: Double; begin - try - AValue := StrToFloatDef(COrtherRate.Text, 0); - BValue := 0; - with ADOQueryTemp do + if (PState = '') or (PState = '޸') then + begin + if (COrtherRate.Text = '') or (CCPKPJE.Text = '') or (COrderNo.Text = '') then begin - Close; - SQL.Clear; - SQL.Text := 'SELECT TotalAmount FROM V_SF_YFK WHERE OrderNo = :OrderNo'; - Parameters.ParamByName('OrderNo').Value := COrderNo.Text; - Open; - if not IsEmpty then - BValue := FieldByName('TotalAmount').AsFloat; - Close; + COrderSF.Text := ''; + exit; end; - CValue := StrToFloatDef(CCPKPJE.Text, 0); - DValue := (CValue - BValue) * AValue; - COrderSF.Text := FormatFloat('0.00', DValue); - except - on E: Exception do - COrderSF.Text := ': ' + E.Message; - end; -end; + try + AValue := StrToFloatDef(COrtherRate.Text, 0); + BValue := 0; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Text := 'SELECT TotalAmount FROM V_SF_YFK WHERE OrderNo = :OrderNo'; + Parameters.ParamByName('OrderNo').Value := COrderNo.Text; + Open; + if not IsEmpty then + BValue := FieldByName('TotalAmount').AsFloat; + Close; + end; + CValue := StrToFloatDef(CCPKPJE.Text, 0); + DValue := (CValue - BValue) * AValue; + COrderSF.Text := FormatFloat('0.00', DValue); + except + on E: Exception do + COrderSF.Text := ': ' + E.Message; + end; + end; + +end; procedure TfrmTaxInput.CCPKPJEChange(Sender: TObject); begin @@ -608,6 +677,24 @@ begin CalculateProduct3(Sender); end; +procedure TfrmTaxInput.ToolButton1Click(Sender: TObject); +begin + try + frmTaxSet := TfrmTaxSet.Create(Application); + with frmTaxSet do + begin + if ShowModal = 1 then + begin + Self.CGDSL.Text := CGDSL.Text; + Self.CRate.Text := CRate.Text; + Self.COrtherRate.Text := COrtherRate.Text; + end; + end; + finally + frmTaxSet.Free; + end; +end; + procedure TfrmTaxInput.ToolButton3Click(Sender: TObject); begin ToolBar1.SetFocus; diff --git a/A09财务通用管理/U_TaxList.dfm b/A09财务通用管理/U_TaxList.dfm index 196f031..513caa8 100644 --- a/A09财务通用管理/U_TaxList.dfm +++ b/A09财务通用管理/U_TaxList.dfm @@ -6,6 +6,7 @@ inherited frmTaxList: TfrmTaxList ClientWidth = 1284 FormStyle = fsMDIChild Visible = True + ExplicitLeft = -433 ExplicitWidth = 1300 ExplicitHeight = 629 PixelsPerInch = 96 @@ -15,14 +16,14 @@ inherited frmTaxList: TfrmTaxList Left = 0 Top = 0 Width = 1284 - Height = 38 + Height = 60 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 95 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_Financial.ImageList_new32 - Images = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.cxImageList_bar List = True ParentColor = False ShowCaptions = True @@ -35,8 +36,17 @@ inherited frmTaxList: TfrmTaxList ImageIndex = 1 OnClick = TBRafreshClick end + object ToolButton8: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + OnClick = ToolButton8Click + end object btnAdd: TToolButton - Left = 71 + Left = 126 Top = 0 AutoSize = True Caption = #26032#22686 @@ -44,7 +54,7 @@ inherited frmTaxList: TfrmTaxList OnClick = btnAddClick end object btnEdit: TToolButton - Left = 142 + Left = 189 Top = 0 AutoSize = True Caption = #20462#25913 @@ -52,7 +62,7 @@ inherited frmTaxList: TfrmTaxList OnClick = btnEditClick end object ToolButton7: TToolButton - Left = 213 + Left = 252 Top = 0 AutoSize = True Caption = #26597#30475 @@ -60,7 +70,7 @@ inherited frmTaxList: TfrmTaxList OnClick = ToolButton7Click end object ToolButton3: TToolButton - Left = 284 + Left = 315 Top = 0 AutoSize = True Caption = #22797#21046 @@ -68,7 +78,7 @@ inherited frmTaxList: TfrmTaxList OnClick = ToolButton3Click end object btnDel: TToolButton - Left = 355 + Left = 378 Top = 0 AutoSize = True Caption = #21024#38500 @@ -76,7 +86,7 @@ inherited frmTaxList: TfrmTaxList OnClick = btnDelClick end object btnChk: TToolButton - Left = 426 + Left = 441 Top = 0 AutoSize = True Caption = #23457#26680 @@ -85,7 +95,7 @@ inherited frmTaxList: TfrmTaxList OnClick = btnChkClick end object btnReChk: TToolButton - Left = 497 + Left = 504 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 @@ -93,18 +103,35 @@ inherited frmTaxList: TfrmTaxList Visible = False OnClick = btnReChkClick end + object ToolButton10: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #24453#26680#39564 + ImageIndex = 12 + OnClick = ToolButton10Click + end + object ToolButton11: TToolButton + Left = 666 + Top = 0 + AutoSize = True + Caption = #21462#28040#24453#26680#39564 + ImageIndex = 5 + OnClick = ToolButton11Click + end object ToolButton1: TToolButton - Left = 592 + Left = 765 Top = 0 AutoSize = True Caption = #20184#27454 ImageIndex = 12 + Wrap = True Visible = False OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 663 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #25764#38144#20184#27454 ImageIndex = 11 @@ -112,8 +139,8 @@ inherited frmTaxList: TfrmTaxList OnClick = ToolButton2Click end object ToolButton9: TToolButton - Left = 758 - Top = 0 + Left = 87 + Top = 30 AutoSize = True Caption = #38468#20214#19978#20256 ImageIndex = 22 @@ -121,8 +148,8 @@ inherited frmTaxList: TfrmTaxList OnClick = ToolButton9Click end object ToolButton4: TToolButton - Left = 853 - Top = 0 + Left = 174 + Top = 30 AutoSize = True Caption = #23548#20986 ImageIndex = 20 @@ -130,24 +157,24 @@ inherited frmTaxList: TfrmTaxList OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 924 - Top = 0 + Left = 237 + Top = 30 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton5Click end object TBClose: TToolButton - Left = 1019 - Top = 0 + Left = 324 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end object ToolButton6: TToolButton - Left = 1090 - Top = 0 + Left = 387 + Top = 30 AutoSize = True Caption = #22270#29255#19978#20256 ImageIndex = 19 @@ -157,7 +184,7 @@ inherited frmTaxList: TfrmTaxList end object Panel1: TPanel [1] Left = 0 - Top = 38 + Top = 60 Width = 1284 Height = 43 Align = alTop @@ -194,6 +221,13 @@ inherited frmTaxList: TfrmTaxList Height = 12 Caption = #23458#25143 end + object Label4: TLabel + Left = 739 + Top = 12 + Width = 48 + Height = 12 + Caption = #23458#25143#21333#21495 + end object begdate: TDateTimePicker Left = 77 Top = 9 @@ -213,7 +247,7 @@ inherited frmTaxList: TfrmTaxList TabOrder = 1 end object CheckBox1: TCheckBox - Left = 5 + Left = 0 Top = 10 Width = 71 Height = 17 @@ -249,16 +283,24 @@ inherited frmTaxList: TfrmTaxList TabOrder = 5 OnKeyPress = OppCoNameKeyPress end + object BuyConNo: TEdit + Tag = 2 + Left = 793 + Top = 8 + Width = 87 + Height = 20 + TabOrder = 6 + OnKeyPress = OppCoNameKeyPress + end end object cxGrid1: TcxGrid [2] Left = 0 - Top = 81 + Top = 103 Width = 1284 - Height = 509 + Height = 487 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 73 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -320,6 +362,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CBusiness_unit' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column2: TcxGridDBColumn @@ -327,13 +370,23 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'COrderNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end + object Tv1Column26: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end object Tv1Column3: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CCustomer' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column4: TcxGridDBColumn @@ -341,6 +394,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'Csalesman' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column5: TcxGridDBColumn @@ -348,6 +402,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'C_WBHXJE' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv1Column6: TcxGridDBColumn @@ -355,6 +410,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'C_HXrate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column7: TcxGridDBColumn @@ -362,6 +418,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'C_RMBHXJE' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 100 end object Tv1Column8: TcxGridDBColumn @@ -369,6 +426,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'SFHS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column9: TcxGridDBColumn @@ -376,13 +434,23 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CZDDate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end + object Tv1Column25: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'OrdDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end object Tv1Column10: TcxGridDBColumn Caption = #22806#24065#23454#26680#37329#39069 DataBinding.FieldName = 'CWBSHJE' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv1Column11: TcxGridDBColumn @@ -390,6 +458,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CWBSHrate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv1Column13: TcxGridDBColumn @@ -397,6 +466,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CRMBSSJE' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 100 end object Tv1Column14: TcxGridDBColumn @@ -404,6 +474,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CTSSY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column15: TcxGridDBColumn @@ -411,13 +482,15 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CCPKPJE' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv1Column16: TcxGridDBColumn - Caption = #36807#22320#31246#29575 + Caption = #22269#22320#31246#29575 DataBinding.FieldName = 'CGDSL' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column17: TcxGridDBColumn @@ -425,6 +498,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CRate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column18: TcxGridDBColumn @@ -432,6 +506,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'COrtherRate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column19: TcxGridDBColumn @@ -439,6 +514,7 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'CWBSY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column20: TcxGridDBColumn @@ -446,13 +522,22 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'TSLLSY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end + object Tv1Column27: TcxGridDBColumn + Caption = #25163#32493#36153 + DataBinding.FieldName = 'CSXF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 72 + end object Tv1Column21: TcxGridDBColumn Caption = #22269#22320#31246 DataBinding.FieldName = 'GDS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column23: TcxGridDBColumn @@ -460,13 +545,23 @@ inherited frmTaxList: TfrmTaxList DataBinding.FieldName = 'COrderSF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end + object Tv1Column28: TcxGridDBColumn + Caption = #24453#26680#39564 + DataBinding.FieldName = 'HYStatus' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end object Tv1Column24: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end end @@ -634,6 +729,7 @@ inherited frmTaxList: TfrmTaxList Top = 280 end object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 PopupMenus = <> Left = 472 Top = 360 diff --git a/A09财务通用管理/U_TaxList.pas b/A09财务通用管理/U_TaxList.pas index 3292ca3..22ba389 100644 --- a/A09财务通用管理/U_TaxList.pas +++ b/A09财务通用管理/U_TaxList.pas @@ -111,6 +111,15 @@ type COrderNo: TEdit; CBusiness_unit: TEdit; CCustomer: TEdit; + Tv1Column25: TcxGridDBColumn; + BuyConNo: TEdit; + Label4: TLabel; + Tv1Column26: TcxGridDBColumn; + ToolButton8: TToolButton; + Tv1Column27: TcxGridDBColumn; + ToolButton10: TToolButton; + ToolButton11: TToolButton; + Tv1Column28: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -138,9 +147,10 @@ type procedure Button4Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject); - procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure ToolButton8Click(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); private procedure InitGrid(); procedure SetStatus(); @@ -156,18 +166,15 @@ uses {$R *.dfm} procedure TfrmTaxList.SetStatus(); begin - + ToolButton3.Visible := false; end; procedure TfrmTaxList.InitGrid(); var WSql: string; begin - WSql := SGetFilters(Panel1, 1, 2); - if Trim(WSql) <> '' then - WSql := ' and ' + WSql - else - CheckBox1.Checked := True; +// else +// CheckBox1.Checked := True; try ADOQueryMain.DisableControls; @@ -181,14 +188,15 @@ begin // sql.Add(' Left join BS_Company_Bank B on A.OppBankID=B.CBID '); // sql.Add(' where (A.FFType=''Ǽ'' Or ISNULL(A.RegType,'''')=''տ'')'); - SQL.add('select * from Costing_Table'); + SQL.add('select *, OrdDate = (select OrdDate from Trade_Plan_Main x where x.OrderNo = a.COrderNo) '); + SQL.Add(' ,BuyConNo = (select BuyConNo from V_Trade_Plan_Single_2 X where COrderNo = X.OrderNo )'); + SQL.Add(' from Costing_Table a '); SQL.add('where 1=1'); if CheckBox1.Checked then begin sql.Add(' and CZDDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); sql.Add(' and CZDDate<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); end; - sql.Add(WSql); // showmessage(sql.text); Open; end; @@ -293,6 +301,24 @@ begin Application.MessageBox('ѡ', 'ʾ', MB_OK); Exit; end; + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷ɾ', 'ʾ'); + Exit; + end; + with CDS_1 do begin DisableControls; @@ -338,7 +364,6 @@ begin Application.MessageBox('ɾɹ', 'ʾ', MB_OK); end; - procedure TfrmTaxList.FormShow(Sender: TObject); begin inherited; @@ -348,7 +373,7 @@ begin SetDate2.DateTime := SGetServerDate(ADOQueryTemp); //begdate.DateTime := Enddate.DateTime - 91; EndDate.DateTime := SGetServerDate(ADOQueryTemp); - BegDate.DateTime := SGetServerDate(ADOQueryTemp)-91; + BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 91; FAuthority := self.fParameters1; SetStatus(); InitGrid(); @@ -402,10 +427,10 @@ begin begin Close; SQL.Clear; - sql.Add('update Finance_Flow set ' + FFieldName + '=' + Trim(mvalue)); + SQL.Add('update Finance_Flow set ' + FFieldName + '=' + Trim(mvalue)); if Trim(FFieldName) <> 'Money' then - sql.Add(' ,Money=' + FloatToStr(FMoney)); - sql.Add('where FFID=' + quotedstr(Trim(CDS_1.fieldbyname('FFID').AsString))); + SQL.Add(' ,Money=' + FloatToStr(FMoney)); + SQL.Add('where FFID=' + quotedstr(Trim(CDS_1.fieldbyname('FFID').AsString))); ExecSQL; end; @@ -445,13 +470,13 @@ begin with ADOQueryCmd do begin Close; - sql.Clear; - sql.Add(' exec P_Fin_Flow_SetStatus_1 '); - sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - sql.Add(',@Operation='''' '); - Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); + SQL.Clear; + SQL.Add(' exec P_Fin_Flow_SetStatus_1 '); + SQL.Add(' @FFIDS=' + QuotedStr(FFFIDS)); + SQL.Add(',@Operation='''' '); + SQL.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); + SQL.Add(',@DCode=' + quotedstr(Trim(DCode))); + SQL.Add(',@DName=' + quotedstr(Trim(DName))); open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then @@ -510,13 +535,13 @@ begin with ADOQueryCmd do begin Close; - sql.Clear; - sql.Add(' exec P_Fin_Flow_SetStatus_1 '); - sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - sql.Add(',@Operation='''' '); - Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); + SQL.Clear; + SQL.Add(' exec P_Fin_Flow_SetStatus_1 '); + SQL.Add(' @FFIDS=' + QuotedStr(FFFIDS)); + SQL.Add(',@Operation='''' '); + SQL.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); + SQL.Add(',@DCode=' + quotedstr(Trim(DCode))); + SQL.Add(',@DName=' + quotedstr(Trim(DName))); open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then @@ -573,13 +598,13 @@ begin with ADOQueryCmd do begin Close; - sql.Clear; - sql.Add(' exec P_Fin_Flow_SetStatus_1 '); - sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - sql.Add(',@Operation='''' '); - Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); + SQL.Clear; + SQL.Add(' exec P_Fin_Flow_SetStatus_1 '); + SQL.Add(' @FFIDS=' + QuotedStr(FFFIDS)); + SQL.Add(',@Operation='''' '); + SQL.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); + SQL.Add(',@DCode=' + quotedstr(Trim(DCode))); + SQL.Add(',@DName=' + quotedstr(Trim(DName))); open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then @@ -638,13 +663,13 @@ begin with ADOQueryCmd do begin Close; - sql.Clear; - sql.Add(' exec P_Fin_Flow_SetStatus_1 '); - sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - sql.Add(',@Operation='''' '); - Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate2.DateTime) + ''' '); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); + SQL.Clear; + SQL.Add(' exec P_Fin_Flow_SetStatus_1 '); + SQL.Add(' @FFIDS=' + QuotedStr(FFFIDS)); + SQL.Add(',@Operation='''' '); + SQL.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate2.DateTime) + ''' '); + SQL.Add(',@DCode=' + quotedstr(Trim(DCode))); + SQL.Add(',@DName=' + quotedstr(Trim(DName))); open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then @@ -653,11 +678,11 @@ begin with ADOQueryCmd do begin Close; - sql.Clear; - sql.Add(' exec P_Fin_In_Bank_Flow '); - sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); + SQL.Clear; + SQL.Add(' exec P_Fin_In_Bank_Flow '); + SQL.Add(' @FFIDS=' + QuotedStr(FFFIDS)); + SQL.Add(',@DCode=' + quotedstr(Trim(DCode))); + SQL.Add(',@DName=' + quotedstr(Trim(DName))); open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then @@ -693,6 +718,7 @@ begin frmTaxInput := TfrmTaxInput.Create(Application); with frmTaxInput do begin + PState := ''; FFFID := ''; if ShowModal = 1 then begin @@ -704,6 +730,32 @@ begin end; end; +procedure TfrmTaxList.ToolButton10Click(Sender: TObject); +begin + inherited; + with ADOQueryCmd do + begin + close; + SQL.Clear; + SQL.add(' update Costing_Table set HYStatus = 1 where CostMid = ' + quotedstr(CDS_1.FieldByName('CostMid').AsString)); + ExecSQL; + end; + InitGrid(); +end; + +procedure TfrmTaxList.ToolButton11Click(Sender: TObject); +begin + inherited; + with ADOQueryCmd do + begin + close; + SQL.Clear; + SQL.add(' update Costing_Table set HYStatus = 0 where CostMid = ' + quotedstr(CDS_1.FieldByName('CostMid').AsString)); + ExecSQL; + end; + InitGrid(); +end; + procedure TfrmTaxList.ToolButton1Click(Sender: TObject); begin Panel4.Left := (self.width - Panel4.width) div 2; @@ -831,8 +883,7 @@ begin frmTaxInput := TfrmTaxInput.Create(Application); with frmTaxInput do begin - FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); - ToolButton3.visible:=False; + FFFID := Trim(SELF.CDS_1.fieldbyname('CostMID').AsString); if ShowModal = 1 then begin InitGrid(); @@ -844,6 +895,17 @@ begin end; +procedure TfrmTaxList.ToolButton8Click(Sender: TObject); +begin + inherited; + if CDS_1.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + end; +end; + procedure TfrmTaxList.btnEditClick(Sender: TObject); begin // try @@ -864,11 +926,26 @@ begin // Exit; // end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('COrderNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('ƻɣ޷޸', 'ʾ'); + Exit; + end; + try frmTaxInput := TfrmTaxInput.Create(Application); with frmTaxInput do begin FFFID := Trim(SELF.CDS_1.fieldbyname('CostMID').AsString); + PState := '޸'; if ShowModal = 1 then begin InitGrid(); @@ -902,22 +979,33 @@ begin end; -procedure TfrmTaxList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); +procedure TfrmTaxList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + mColumn: TcxGridDBColumn; + mvalue: Variant; begin if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('RegType').Index] = 'տ' then - begin - ACanvas.Brush.Color := $00FF8080; - end + begin + ACanvas.Brush.Color := $00FF8080; + end; + mColumn := Tv1.GetColumnByFieldName('HYStatus'); + if mColumn = nil then + exit; + mvalue := AViewInfo.GridRecord.Values[mColumn.index]; + if mvalue = true then + begin + ACanvas.Font.Color := clBlue; + Exit; + end; end; procedure TfrmTaxList.OppCoNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin - InitGrid(); +// InitGrid(); + ToolButton8.Click; end; end; diff --git a/A09财务通用管理/U_TaxSel.dfm b/A09财务通用管理/U_TaxSel.dfm index 67b8dd5..0b4b210 100644 --- a/A09财务通用管理/U_TaxSel.dfm +++ b/A09财务通用管理/U_TaxSel.dfm @@ -3,14 +3,15 @@ inherited frmTaxSel: TfrmTaxSel Top = 106 Caption = #35745#21010#21333#21495#36873#25321 ClientHeight = 558 - ClientWidth = 893 + ClientWidth = 1149 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -12 Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose - ExplicitWidth = 909 + ExplicitLeft = -298 + ExplicitWidth = 1165 ExplicitHeight = 597 PixelsPerInch = 96 TextHeight = 12 @@ -18,7 +19,7 @@ inherited frmTaxSel: TfrmTaxSel Tag = 1 Left = 0 Top = 0 - Width = 893 + Width = 1149 Height = 38 AutoSize = True ButtonHeight = 38 @@ -64,38 +65,53 @@ inherited frmTaxSel: TfrmTaxSel object Panel1: TPanel [1] Left = 0 Top = 38 - Width = 893 + Width = 1149 Height = 44 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label1: TLabel - Left = 18 - Top = 17 + Left = 14 + Top = 15 Width = 48 Height = 12 Caption = #35745#21010#21333#21495 end + object Label2: TLabel + Left = 263 + Top = 15 + Width = 48 + Height = 12 + Caption = #23458#25143#21333#21495 + end object OrderNo: TEdit Tag = 2 - Left = 71 - Top = 12 + Left = 69 + Top = 10 Width = 169 Height = 20 TabOrder = 0 OnChange = OrderNoChange end + object BuyConNo: TEdit + Tag = 2 + Left = 317 + Top = 10 + Width = 169 + Height = 20 + TabOrder = 1 + OnChange = OrderNoChange + end end object cxGrid2: TcxGrid [2] Left = 0 Top = 82 - Width = 893 + Width = 1149 Height = 476 Align = alClient + PopupMenu = PM_1 TabOrder = 2 - ExplicitLeft = 8 - ExplicitTop = 76 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -139,7 +155,9 @@ inherited frmTaxSel: TfrmTaxSel end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False - OptionsSelection.CellSelect = False + OptionsSelection.MultiSelect = True + OptionsSelection.CellMultiSelect = True + OptionsSelection.InvertSelect = False OptionsView.GroupByBox = False object v1Column1: TcxGridDBColumn Caption = #37319#36141#21512#21516#21495 @@ -156,13 +174,23 @@ inherited frmTaxSel: TfrmTaxSel DataBinding.FieldName = 'OrderNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 79 end + object Tv1Column7: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end object Tv1Column1: TcxGridDBColumn Caption = #32463#33829#21333#20301 DataBinding.FieldName = 'OurCoName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 78 end object v2Column1: TcxGridDBColumn @@ -177,6 +205,7 @@ inherited frmTaxSel: TfrmTaxSel Kind = bkEllipsis end> HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 85 end object Tv1Column3: TcxGridDBColumn @@ -184,6 +213,7 @@ inherited frmTaxSel: TfrmTaxSel DataBinding.FieldName = 'ISTax' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False end object v1Column8: TcxGridDBColumn Tag = 2 @@ -192,6 +222,7 @@ inherited frmTaxSel: TfrmTaxSel DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False Width = 65 end object v1Column10: TcxGridDBColumn @@ -217,18 +248,21 @@ inherited frmTaxSel: TfrmTaxSel DataBinding.FieldName = 'OrdDate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False end object Tv1Column6: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False end object v1Column9: TcxGridDBColumn Caption = #32654#37329#26680#38144#37329#39069 DataBinding.FieldName = 'SumUSD' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object v1Column17: TcxGridDBColumn @@ -246,13 +280,59 @@ inherited frmTaxSel: TfrmTaxSel DataBinding.FieldName = 'SumCNY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv1Column5: TcxGridDBColumn Caption = #26680#38144#27719#29575 DataBinding.FieldName = 'HXHV' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCalcEditProperties' + Properties.DisplayFormat = '#,##0.####' HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object Tv1Column12: TcxGridDBColumn + Caption = #23454#25910#37329#39069 + DataBinding.FieldName = 'ssje' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 73 + end + object Tv1Column13: TcxGridDBColumn + Caption = #25163#32493#36153 + DataBinding.FieldName = 'SXF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column8: TcxGridDBColumn + Caption = #24212#25910#37329#39069 + DataBinding.FieldName = 'YSJE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = 'S1-'#38754#26009#25903#20986 + DataBinding.FieldName = 'S1JE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = 'S2-'#21360#26579#25903#20986 + DataBinding.FieldName = 'S2JE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column11: TcxGridDBColumn + Caption = 'S3-'#21518#21152#24037#36153#29992 + DataBinding.FieldName = 'S3JE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 end end object cxGrid2Level1: TcxGridLevel @@ -4685,4 +4765,12 @@ inherited frmTaxSel: TfrmTaxSel TextColor = clRed end end + object PM_1: TPopupMenu + Left = 568 + Top = 336 + object MenuItem1: TMenuItem + Caption = #22797#21046 + OnClick = N1Click + end + end end diff --git a/A09财务通用管理/U_TaxSel.pas b/A09财务通用管理/U_TaxSel.pas index 0ebbdae..c023bfa 100644 --- a/A09财务通用管理/U_TaxSel.pas +++ b/A09财务通用管理/U_TaxSel.pas @@ -11,7 +11,8 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, - cxDropDownEdit, dxSkinWXI, dxScrollbarAnnotations; + cxDropDownEdit, dxSkinWXI, dxScrollbarAnnotations, Vcl.Menus, Vcl.Clipbrd, + cxCalc; type TfrmTaxSel = class(TfrmBaseHelp) @@ -62,6 +63,17 @@ type Tv1Column4: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; + BuyConNo: TEdit; + Label2: TLabel; + Tv1Column7: TcxGridDBColumn; + PM_1: TPopupMenu; + MenuItem1: TMenuItem; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); @@ -71,6 +83,7 @@ type procedure TV1DblClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure OrderNoChange(Sender: TObject); + procedure N1Click(Sender: TObject); private procedure InitGrid(); { Private declarations } @@ -157,6 +170,12 @@ begin ADOQueryMain.EnableControls; end; end; + +procedure TfrmTaxSel.N1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + //procedure TfrmTaxSel.InitGrid(); //begin // try diff --git a/A09财务通用管理/U_TaxSet.dfm b/A09财务通用管理/U_TaxSet.dfm new file mode 100644 index 0000000..a778a6c --- /dev/null +++ b/A09财务通用管理/U_TaxSet.dfm @@ -0,0 +1,89 @@ +object frmTaxSet: TfrmTaxSet + Left = 0 + Top = 0 + Caption = #40664#35748#31246#29575 + ClientHeight = 204 + ClientWidth = 621 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object CGDSL: TcxTextEdit + Left = 60 + Top = 80 + TabOrder = 0 + Width = 121 + end + object CRate: TcxTextEdit + Left = 260 + Top = 79 + TabOrder = 1 + Width = 121 + end + object COrtherRate: TcxTextEdit + Left = 456 + Top = 80 + TabOrder = 2 + Width = 121 + end + object cxLabel1: TcxLabel + Left = 8 + Top = 81 + Caption = #22269#22320#31246#29575 + end + object cxLabel2: TcxLabel + Left = 204 + Top = 81 + Caption = #22686#20540#31246#29575 + end + object cxLabel3: TcxLabel + Left = 398 + Top = 81 + Caption = #20854#20182#31246#29575 + end + object ToolBar1: TToolBar + Tag = 1 + Left = 0 + Top = 0 + Width = 621 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 6 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 408 + Top = 152 + end +end diff --git a/A09财务通用管理/U_TaxSet.pas b/A09财务通用管理/U_TaxSet.pas new file mode 100644 index 0000000..34b440a --- /dev/null +++ b/A09财务通用管理/U_TaxSet.pas @@ -0,0 +1,75 @@ +unit U_TaxSet; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, + System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, + cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, + dxSkinsCore, dxSkinWXI, Vcl.ComCtrls, Vcl.ToolWin, cxLabel, cxTextEdit, + U_DataLink, Data.DB, Data.Win.ADODB; + +type + TfrmTaxSet = class(TForm) + CGDSL: TcxTextEdit; + CRate: TcxTextEdit; + COrtherRate: TcxTextEdit; + cxLabel1: TcxLabel; + cxLabel2: TcxLabel; + cxLabel3: TcxLabel; + ToolBar1: TToolBar; + ToolButton3: TToolButton; + TBClose: TToolButton; + ADOQuery1: TADOQuery; + procedure ToolButton3Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmTaxSet: TfrmTaxSet; + +implementation + +{$R *.dfm} + +procedure TfrmTaxSet.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmTaxSet.ToolButton3Click(Sender: TObject); +var + value: Double; +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + + for var i := 0 to ControlCount - 1 do + begin + if Controls[i] is TcxTextEdit then + begin + if TcxTextEdit(Controls[i]).Text <> '' then + begin + if not TryStrToFloat(TcxTextEdit(Controls[i]).Text, value) then + begin + Application.MessageBox('Ч', 'ʾ', 0); + Exit; + end; + end; + + SQL.Add(' update sy_tax set value=' + QuotedStr(TcxTextEdit(Controls[i]).Text) + ' where type =' + QuotedStr(TcxTextEdit(Controls[i]).Name)); + end; + end; + ExecSQL; + end; + ModalResult := 1; +end; + +end. + diff --git a/A09财务通用管理/U_ZDPrice.dfm b/A09财务通用管理/U_ZDPrice.dfm new file mode 100644 index 0000000..21909d9 --- /dev/null +++ b/A09财务通用管理/U_ZDPrice.dfm @@ -0,0 +1,935 @@ +inherited frmZDPrice: TfrmZDPrice + Left = 300 + Top = 189 + Caption = #24212#20184#24050#20184#27719#24635 + ClientHeight = 519 + ClientWidth = 1247 + FormStyle = fsMDIChild + Visible = True + ExplicitLeft = -396 + ExplicitTop = -115 + ExplicitWidth = 1263 + ExplicitHeight = 558 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1247 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clWhite + Images = DataLink_Financial.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26356#26032#20215#26684 + ImageIndex = 3 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 213 + Top = 0 + Caption = #26597#30475#26126#32454 + ImageIndex = 8 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 296 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton6: TToolButton + Left = 359 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = ToolButton6Click + end + object ToolButton1: TToolButton + Left = 446 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 533 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1247 + Height = 46 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 22 + Top = 13 + Width = 48 + Height = 12 + Caption = #26597#35810#26085#26399 + end + object Label6: TLabel + Left = 164 + Top = 13 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label1: TLabel + Left = 889 + Top = 113 + Width = 48 + Height = 12 + Caption = #25903#20184#21488#22836 + end + object begdate: TDateTimePicker + Left = 79 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + end + object Enddate: TDateTimePicker + Left = 197 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 1 + end + object ComTaiTou: TEdit + Tag = 2 + Left = 938 + Top = 109 + Width = 89 + Height = 20 + TabOrder = 2 + end + object FromOrdNo: TcxTextEdit + Tag = 2 + Left = 381 + Top = 9 + TabOrder = 3 + OnKeyPress = FromOrdNoKeyPress + Width = 121 + end + object cxLabel1: TcxLabel + Left = 311 + Top = 10 + Caption = #26469#33258#35745#21010#21333 + end + object ToOrdNo: TcxTextEdit + Tag = 2 + Left = 595 + Top = 9 + TabOrder = 5 + OnKeyPress = FromOrdNoKeyPress + Width = 121 + end + object cxLabel2: TcxLabel + Left = 525 + Top = 10 + Caption = #20986#21040#35745#21010#21333 + end + end + object cxGrid2: TcxGrid [2] + Left = 0 + Top = 110 + Width = 1247 + Height = 409 + Align = alClient + PopupMenu = PM_2 + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = Tv2CustomDrawCell + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv2Column8 + end + item + Kind = skSum + Column = Tv2Column10 + end> + DataController.Summary.SummaryGroups = <> + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 50 + object Tv2Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object Tv2Column13: TcxGridDBColumn + Caption = #20986#20837#24211#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object Tv2Column2: TcxGridDBColumn + Caption = #20986#20837#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object Tv2Column7: TcxGridDBColumn + Caption = #26469#33258#35745#21010#21333 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object Tv2Column6: TcxGridDBColumn + Caption = #20986#21040#35745#21010#21333 + DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object Tv2Column3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv2Column4: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv2Column9: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object Tv2Column11: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object Tv2Column12: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv2Column14: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv2Column1: TcxGridDBColumn + Caption = #20215#26684 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object Tv2Column15: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 72 + end + object Tv2Column10: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object Tv2Column8: TcxGridDBColumn + Caption = #36716#21333#37329#39069 + DataBinding.FieldName = 'ZDAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv2Column16: TcxGridDBColumn + AlternateCaption = #23457#26680#20154 + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Column17: TcxGridDBColumn + AlternateCaption = #23457#26680#20154 + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ChkTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = Tv3CustomDrawCell + DataController.DataSource = DS_2 + DataController.Filter.OnChanged = Tv3DataControllerFilterChanged + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = Tv3Column13 + end + item + Kind = skSum + Column = Tv3Column17 + end + item + Kind = skSum + Column = Tv3Column11 + end + item + Kind = skSum + Column = Tv3Column10 + end + item + Kind = skSum + Column = Tv3Column9 + end + item + Kind = skCount + Column = Tv3Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv3Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 53 + end + object Tv3Column1: TcxGridDBColumn + Caption = #20986#20837#24211#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object Tv3Column2: TcxGridDBColumn + Caption = #26469#33258#35745#21010#21333 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 95 + end + object Tv3Column12: TcxGridDBColumn + Caption = #20986#20837#24211#26102#38388 + DataBinding.FieldName = 'ZDTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object Tv3Column5: TcxGridDBColumn + Caption = #20986#21040#35745#21010#21333 + DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv3Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv3Column7: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object Tv3Column14: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object Tv3Column9: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv3Column10: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'StkYardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object Tv3Column11: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv3Column17: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'StkNetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + object Tv3Column18: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv3Column8: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object Tv3Column15: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object Tv3Column16: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object Tv3Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ZDPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv3Column13: TcxGridDBColumn + Caption = #36716#21333#37329#39069 + DataBinding.FieldName = 'ZDAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object Tv3Column19: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'ConMID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv3Column20: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ConSID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object Tv4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = Tv4CustomDrawCell + DataController.DataSource = DS_3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + object Tv4Column1: TcxGridDBColumn + AlternateCaption = #36873#25321 + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv4Column2: TcxGridDBColumn + AlternateCaption = #20986#20837#24211#21333#21495 + Caption = #20986#20837#24211#21333#21495 + DataBinding.FieldName = 'IOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv4Column3: TcxGridDBColumn + Caption = #26469#33258#35745#21010#21333 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column4: TcxGridDBColumn + Caption = #21457#36135#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column5: TcxGridDBColumn + Caption = #20986#21333#35745#21010#21333 + DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column6: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column7: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column8: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column9: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column10: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'StkYardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column11: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column12: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'StkNetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column13: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column14: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column15: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column16: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column17: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column18: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ZDAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column19: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'ConMid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv4Column20: TcxGridDBColumn + Caption = #23457#26680#26102#38388 + DataBinding.FieldName = 'ConSid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + object cxGridLevel3: TcxGridLevel + GridView = Tv4 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 76 + Width = 1247 + Height = 34 + Align = alTop + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 2 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #22383#24067 + #24453#26816#24067 + #25104#21697#36716#21333 + #21152#24037#36716#21333) + OnChange = cxTabControl1Change + ClientRectBottom = 36 + ClientRectRight = 1247 + ClientRectTop = 36 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 81 + Top = 232 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 81 + Top = 177 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 253 + Top = 177 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 325 + Top = 177 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 398 + Top = 180 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 386 + Top = 321 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_1 + Left = 261 + Top = 334 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 193 + Top = 265 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 372 + Top = 233 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 240 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 77 + Top = 313 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 656 + Top = 272 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 672 + Top = 416 + end + object PM_2: TPopupMenu + Left = 480 + Top = 384 + object N5: TMenuItem + Caption = #20840#36873 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20840#24323 + OnClick = N6Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 232 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 624 + Top = 192 + end +end diff --git a/A09财务通用管理/U_ZDPrice.pas b/A09财务通用管理/U_ZDPrice.pas new file mode 100644 index 0000000..beee1f6 --- /dev/null +++ b/A09财务通用管理/U_ZDPrice.pas @@ -0,0 +1,969 @@ +unit U_ZDPrice; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, + U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, dxSkinWXI, + dxScrollbarAnnotations, cxContainer, cxProgressBar, cxLabel; + +type + TfrmZDPrice = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + Label1: TLabel; + ComTaiTou: TEdit; + ADOQueryPrint: TADOQuery; + cxTabControl1: TcxTabControl; + ToolButton1: TToolButton; + Tv2Column2: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; + Tv2Column4: TcxGridDBColumn; + Tv2Column9: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column10: TcxGridDBColumn; + Tv2Column5: TcxGridDBColumn; + ToolButton3: TToolButton; + Tv2Column6: TcxGridDBColumn; + Tv2Column7: TcxGridDBColumn; + ToolButton4: TToolButton; + cxGridLevel2: TcxGridLevel; + Tv3: TcxGridDBTableView; + Tv3Column1: TcxGridDBColumn; + Tv3Column2: TcxGridDBColumn; + Tv3Column3: TcxGridDBColumn; + DS_2: TDataSource; + CDS_2: TClientDataSet; + ToolButton2: TToolButton; + Tv3Column4: TcxGridDBColumn; + Tv3Column5: TcxGridDBColumn; + Tv3Column6: TcxGridDBColumn; + Tv3Column7: TcxGridDBColumn; + Tv3Column8: TcxGridDBColumn; + Tv3Column9: TcxGridDBColumn; + Tv3Column10: TcxGridDBColumn; + Tv3Column11: TcxGridDBColumn; + Tv3Column12: TcxGridDBColumn; + Tv3Column13: TcxGridDBColumn; + Tv2Column8: TcxGridDBColumn; + FromOrdNo: TcxTextEdit; + cxLabel1: TcxLabel; + PM_2: TPopupMenu; + N2: TMenuItem; + Tv3Column14: TcxGridDBColumn; + Tv2Column11: TcxGridDBColumn; + Tv2Column12: TcxGridDBColumn; + Tv3Column15: TcxGridDBColumn; + Tv3Column16: TcxGridDBColumn; + Tv2Column13: TcxGridDBColumn; + ToOrdNo: TcxTextEdit; + cxLabel2: TcxLabel; + Tv3Column17: TcxGridDBColumn; + Tv3Column18: TcxGridDBColumn; + Tv2Column14: TcxGridDBColumn; + Tv2Column15: TcxGridDBColumn; + N5: TMenuItem; + N6: TMenuItem; + ToolButton5: TToolButton; + ToolButton6: TToolButton; + Tv4: TcxGridDBTableView; + cxGridLevel3: TcxGridLevel; + Tv4Column1: TcxGridDBColumn; + Tv4Column2: TcxGridDBColumn; + Tv4Column3: TcxGridDBColumn; + Tv4Column4: TcxGridDBColumn; + Tv4Column5: TcxGridDBColumn; + Tv4Column6: TcxGridDBColumn; + Tv4Column7: TcxGridDBColumn; + Tv4Column8: TcxGridDBColumn; + Tv4Column9: TcxGridDBColumn; + Tv4Column10: TcxGridDBColumn; + Tv4Column11: TcxGridDBColumn; + Tv4Column12: TcxGridDBColumn; + Tv4Column13: TcxGridDBColumn; + Tv4Column14: TcxGridDBColumn; + Tv4Column15: TcxGridDBColumn; + Tv4Column16: TcxGridDBColumn; + Tv4Column17: TcxGridDBColumn; + Tv4Column18: TcxGridDBColumn; + CDS_3: TClientDataSet; + DS_3: TDataSource; + Tv2Column16: TcxGridDBColumn; + Tv2Column17: TcxGridDBColumn; + Tv3Column19: TcxGridDBColumn; + Tv3Column20: TcxGridDBColumn; + Tv4Column19: TcxGridDBColumn; + Tv4Column20: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FromOrdNoKeyPress(Sender: TObject; var Key: Char); + procedure N2Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure Tv3DataControllerFilterChanged(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure ToolButton6Click(Sender: TObject); + procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv4CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + private + { Private declarations } + procedure InitGrid(); + public + fmanage, FZKType: string; + { Public declarations } + RKFlag, FCYID: string; + end; + +implementation + +uses + U_DataLink, U_RtFun, U_BatchEdit, U_ZDPriceDetails, U_PlanProfitDetails; + + +{$R *.dfm} + +procedure TfrmZDPrice.InitGrid(); +begin + try +// Tv2.BeginUpdate; +// Tv3.BeginUpdate; + with ADOQueryMain do + begin + ADOQueryMain.Filtered := false; + Close; + SQL.Clear; + case cxTabControl1.TabIndex of + 0: + begin + sql.Add(' select BCIOID,IOTime,FromOrdNo, C_Code, C_Name, C_Color, Price, QtyUnit, qty, Piece, ToOrdNo = (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)),ZDAmount = (isnull(price, 0) * qty) '); + sql.Add(' ,stkName, QtyUnit, FromMainId, C_ColorNo, C_Pattern, Chker, ChkTime'); + sql.Add(' from Bs_Cloth_IO A'); + sql.Add(' where IOTime >= ' + quotedStr(FormatDateTime('yyyy-MM-dd', begdate.DateTime))); + sql.Add(' and IOTime <= ' + quotedStr(FormatDateTime('yyyy-MM-dd', enddate.DateTime))); + sql.Add(' and STKName = ''贸易坯布'' and FromOrdNo <> (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo))'); + sql.Add(' order by iotime desc'); + Open; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + cxGrid2.ActiveLevel := cxGridLevel1; + end; + 1: + begin + sql.Add(' select BCIOID,IOTime,FromOrdNo, C_Code, C_Name, C_Color, Price, QtyUnit, qty, Piece, ToOrdNo = (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)),ZDAmount = (isnull(price, 0) * qty) '); + sql.Add(' ,stkName, QtyUnit, FromMainId, C_ColorNo, C_Pattern, Chker, ChkTime '); + sql.Add(' from Bs_Cloth_IO A'); + sql.Add(' where IOTime >= ' + quotedStr(FormatDateTime('yyyy-MM-dd', begdate.DateTime))); + sql.Add(' and IOTime <= ' + quotedStr(FormatDateTime('yyyy-MM-dd', enddate.DateTime))); + sql.Add(' and STKName = ''贸易待检布'' and FromOrdNo <> (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) '); + sql.Add(' order by iotime desc'); + Open; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + cxGrid2.ActiveLevel := cxGridLevel1; + end; + 2: + begin + sql.Add(' select *,A.OrderNo as FromOrdNo, B.OrderNo as ToOrdNo, DlyDate = (select DlyDate from Trade_Cloth_DR_Main X where X.DRMID = B.DRMID) '); + sql.Add(' ,ZDAmount = (case when QtyUnit = ''M'' then isnull(ZDPrice, 0) * StkMeter when QtyUnit = ''Y'' then isnull(ZDPrice, 0) * StkYardage when QtyUnit = ''Kg'' then isnull(ZDPrice, 0) * StkNetWeight else 0 end) '); + sql.Add(' from Trade_Cloth_Stock_ZD A join Trade_Cloth_DR_Sub B on A.DRSID=B.DRSID '); + sql.Add(' where (select DlyDate from Trade_Cloth_DR_Main X where X.DRMID = B.DRMID) >= ' + quotedStr(FormatDateTime('yyyy-MM-dd', begdate.DateTime))); + sql.Add(' and (select DlyDate from Trade_Cloth_DR_Main X where X.DRMID = B.DRMID) <= ' + quotedStr(FormatDateTime('yyyy-MM-dd', enddate.DateTime))); + sql.add(' order by ZDTime desc '); + Open; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + cxGrid2.ActiveLevel := cxGridLevel2; + end; + 3: + begin + sql.Add(' select B.stkid,B.ConMid,B.ConSid,B.OrderNo fromordno,A.IOID,A.IOTime,B.C_Code,B.C_Name,B.PieceNo,B.StkMeter,B.StkYardage,B.StkGrossWeight,'); + SQL.Add(' B.StkNetWeight,B.C_Color,B.C_Pattern,B.C_ColorNo,B.MainID,'); + SQL.Add(' iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) price, '); + sql.Add(' (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS QtyUnit, '); + sql.Add(' cast (case when (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ''M'' '); + sql.Add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) * StkMeter'); + SQL.Add(' when (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ''Kg'' '); + SQL.Add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) * StkNetWeight'); + SQL.Add(' when (SELECT TOP 1 QtyUnit FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ''Y'' '); + sql.add(' then iif(A.price is null, (select top 1 price from Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO), A.price) * StkYardage'); + SQL.Add(' end as DECIMAL(18,2)) as zdamount,'); + sql.Add(' STUFF('); + sql.Add(' (SELECT DISTINCT '', '' + OrderNo '); + sql.Add(' FROM Trade_Cloth_DR_Sub X '); + sql.Add(' WHERE X.DRMID = A.IONO '); + sql.Add(' FOR XML PATH('''')), '); + sql.Add(' 1, 2, '''') AS ToOrdNo '); + sql.Add('FROM '); + sql.Add(' Trade_Cloth_IO A '); + sql.Add('JOIN '); + sql.Add(' Trade_Cloth_Stock B '); + sql.Add(' ON A.StkID = B.StkID '); + sql.Add('WHERE '); + sql.Add(' B.OrderNo <> STUFF('); + sql.Add(' (SELECT DISTINCT '', '' + OrderNo '); + sql.Add(' FROM Trade_Cloth_DR_Sub X '); + sql.Add(' WHERE X.DRMID = A.IONO '); + sql.Add(' FOR XML PATH('''')), '); + sql.Add(' 1, 2, '''') '); + sql.Add(' AND A.IOType IN (''加工出库'', ''回修出库'')'); + sql.Add(' order by iotime desc'); +// ShowMessage(sql.Text); + Open; + SCreateCDS(ADOQueryMain, CDS_3); + SInitCDSData(ADOQueryMain, CDS_3); + cxGrid2.ActiveLevel := cxGridLevel3; + end; + end; + end; + finally + +// Tv2.EndUpdate; +// Tv3.EndUpdate; + end; +end; + +procedure TfrmZDPrice.N2Click(Sender: TObject); +begin + inherited; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))) + else if cxTabControl1.TabIndex = 2 then + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV3.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))) + else if cxTabControl1.TabIndex = 3 then + Clipboard.SetTextBuf(PChar(Trim(CDS_3.fieldbyname(TV4.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))) +end; + +procedure TfrmZDPrice.N5Click(Sender: TObject); +begin + inherited; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + SelOKNo(CDS_1, true) + else if cxTabControl1.TabIndex = 2 then + SelOKNo(CDS_2, true) + else if cxTabControl1.TabIndex = 3 then + SelOKNo(CDS_3, true); +end; + +procedure TfrmZDPrice.N6Click(Sender: TObject); +begin + inherited; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + SelOKNo(CDS_1, false) + else if cxTabControl1.TabIndex = 2 then + SelOKNo(CDS_2, false) + else if cxTabControl1.TabIndex = 3 then + SelOKNo(CDS_3, false); +end; + +procedure TfrmZDPrice.FromOrdNoKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + ToolButton2.Click; + end; +end; + +procedure TfrmZDPrice.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmZDPrice.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmZDPrice.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(self.Caption), Tv2, '转单价格管理'); + ReadCxGrid(trim(self.Caption), Tv3, '转单价格管理'); + Enddate.DateTime := SGetServerDate(ADOQueryTemp); +// begdate.DateTime := StartOfTheMonth(Enddate.DateTime); + begdate.DateTime := EndDate.DateTime - 365; + cxTabControl1.TabIndex := 0; + InitGrid(); +end; + +procedure TfrmZDPrice.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZDPrice.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv2, '转单价格管理'); + WriteCxGrid(trim(self.Caption), Tv3, '转单价格管理'); +end; + +procedure TfrmZDPrice.ToolButton2Click(Sender: TObject); +begin + inherited; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + end; + end + else if cxTabControl1.TabIndex = 2 then + begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + end; + end; + +end; + +procedure TfrmZDPrice.ToolButton3Click(Sender: TObject); +var + PBCIOID, PStkId, PIOID: string; + Bookmark: TBookmark; +begin + inherited; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('FromOrdNo').AsString) + ' and status = ''10'' ') + else if cxTabControl1.TabIndex = 2 then + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_2.FieldByName('FromOrdNo').AsString) + ' and status = ''10'' ') + else if cxTabControl1.TabIndex = 3 then + sql.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_3.FieldByName('FromOrdNo').AsString) + ' and status = ''10'' '); + open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + application.MessageBox('计划单已完成，无法删除', '提示'); + Exit; + end; + + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + Bookmark := CDS_1.GetBookmark + else if cxTabControl1.TabIndex = 2 then + Bookmark := CDS_2.GetBookmark + else if cxTabControl1.TabIndex = 3 then + Bookmark := CDS_3.GetBookmark; + PBCIOID := ''; + PStkId := ''; + if cxGrid2.ActiveLevel = cxGridLevel1 then + begin + if CDS_1.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + CDS_1.DisableConstraints; + Tv2.BeginUpdate; + with CDS_1 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PBCIOID = '' then + begin + PBCIOID := PBCIOID + '''' + FieldByName('BCIOID').AsString + ''''; + end + else + begin + PBCIOID := PBCIOID + ',''' + FieldByName('BCIOID').AsString + ''''; + end; + end; + Next; + end; + end; + + CDS_1.EnableConstraints; + Tv2.EndUpdate; + + end + else if cxGrid2.ActiveLevel = cxGridLevel2 then + begin + if CDS_2.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + CDS_2.DisableConstraints; + Tv3.BeginUpdate; + with CDS_2 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PStkId = '' then + begin + PStkId := PStkId + '''' + FieldByName('StkId').AsString + ''''; + end + else + begin + PStkId := PStkId + ',''' + FieldByName('StkId').AsString + ''''; + end; + end; + Next; + end; + end; + CDS_2.EnableControls; + Tv3.endUpdate; + end + else if cxGrid2.ActiveLevel = cxGridLevel3 then + begin + if CDS_3.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + CDS_3.DisableConstraints; + Tv4.BeginUpdate; + with CDS_3 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PIOID = '' then + begin + PIOID := PIOID + '''' + FieldByName('IOID').AsString + ''''; + end + else + begin + PIOID := PIOID + ',''' + FieldByName('IOID').AsString + ''''; + end; + end; + Next; + end; + end; + CDS_3.EnableControls; + Tv4.endUpdate; + end; + + try + frmBatchEdit := TfrmBatchEdit.Create(Application); + with frmBatchEdit do + begin + FBCIOID := PBCIOID; + FStkId := PStkId; + FIOID := PIOID; + Fflag := cxTabControl1.TabIndex; + if ShowModal = mrOk then + begin + self.InitGrid(); + end; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + begin + if CDS_1.BookmarkValid(Bookmark) then + begin + CDS_1.GotoBookmark(Bookmark); + end; + end + else if cxTabControl1.TabIndex = 2 then + begin + if CDS_2.BookmarkValid(Bookmark) then + begin + CDS_2.GotoBookmark(Bookmark); + end; + end + else if cxTabControl1.TabIndex = 3 then + begin + if CDS_3.BookmarkValid(Bookmark) then + begin + CDS_3.GotoBookmark(Bookmark); + end; + end; + end; + finally + frmBatchEdit.Free; + end; +end; + +procedure TfrmZDPrice.ToolButton4Click(Sender: TObject); +begin +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('select Top 1 OrdUnit from Trade_Plan_Sub A left join Trade_Plan_Main B on A.MainID=B.MainID '); +// SQL.Add('where OrderNO=''' + Trim(CDS_1.fieldbyname('FromOrdNo').AsString) + ''''); +// open; +// end; + + try + frmPlanProfitDetails := TfrmPlanProfitDetails.Create(Application); + with frmPlanProfitDetails do + begin +// begdate.DateTime := self.begdate.DateTime; +// enddate.DateTime := self.Enddate.DateTime; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + begin + FMainID := self.CDS_1.fieldbyname('FromMainID').AsString; + OrderNo.Text := self.CDS_1.fieldbyname('FromOrdNo').AsString; + FOrderNo := self.CDS_1.fieldbyname('FromOrdNo').AsString; + FUnit := Self.CDS_1.FieldByName('QtyUnit').ASString; + FOrderNo2 := self.CDS_1.fieldbyname('ToOrdNo').AsString; + end + else if cxTabControl1.TabIndex = 2 then + begin + FMainID := self.CDS_2.fieldbyname('MainID').AsString; + OrderNo.Text := self.CDS_2.fieldbyname('fromOrdNo').AsString; + FOrderNo := self.CDS_2.fieldbyname('fromOrdNo').AsString; + FUnit := Self.CDS_2.FieldByName('QtyUnit').ASString; + end + else if cxTabControl1.TabIndex = 3 then + begin + FMainID := self.CDS_3.fieldbyname('MainID').AsString; + OrderNo.Text := self.CDS_3.fieldbyname('fromOrdNo').AsString; + FOrderNo := self.CDS_3.fieldbyname('fromOrdNo').AsString; + FUnit := Self.CDS_3.FieldByName('QtyUnit').ASString; + end; + if ShowModal = 1 then + begin + + end; + end; + finally + frmPlanProfitDetails.Free; + end; +end; + +procedure TfrmZDPrice.ToolButton5Click(Sender: TObject); +var + PBCIOID, PStkId: string; + Bookmark: TBookmark; +begin + inherited; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + Bookmark := CDS_1.GetBookmark + else if cxTabControl1.TabIndex = 2 then + Bookmark := CDS_2.GetBookmark + else if cxTabControl1.TabIndex = 3 then + Bookmark := CDS_3.GetBookmark; + PBCIOID := ''; + PStkId := ''; + if cxGrid2.ActiveLevel = cxGridLevel1 then + begin + if CDS_1.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + Tv2.BeginUpdate; + with CDS_1 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PBCIOID = '' then + begin + PBCIOID := PBCIOID + '''' + FieldByName('BCIOID').AsString + ''''; + end + else + begin + PBCIOID := PBCIOID + ',''' + FieldByName('BCIOID').AsString + ''''; + end; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + close; + SQL.Clear; + sql.add('update bs_cloth_io set chker = ' + QuotedStr(DName) + 'where bcioid in (' + PBCIOID + ')'); + sql.add('update bs_cloth_io set Chktime = getdate() where bcioid in (' + PBCIOID + ')'); + ExecSQL; +// ShowMessage(sql.text); + end; + + Tv2.EndUpdate; + end + else if cxGrid2.ActiveLevel = cxGridLevel2 then + begin + if CDS_2.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + Tv3.BeginUpdate; + with CDS_2 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PStkId = '' then + begin + PStkId := PStkId + '''' + FieldByName('StkId').AsString + ''''; + end + else + begin + PStkId := PStkId + ',''' + FieldByName('StkId').AsString + ''''; + end; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + close; + SQL.Clear; + sql.add('update Trade_Cloth_Stock_ZD set ConMID = ' + QuotedStr(DName) + 'where stkid in (' + PStkId + ')'); + sql.add('update Trade_Cloth_Stock_ZD set ConSID = CONVERT(VARCHAR(10), GETDATE(), 23) where stkid in (' + PStkId + ')'); +// ShowMessage(sql.text); + ExecSQL; + end; + + Tv3.endUpdate; + end + else if cxGrid2.ActiveLevel = cxGridLevel3 then + begin + if CDS_3.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + Tv4.BeginUpdate; + with CDS_3 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PStkId = '' then + begin + PStkId := PStkId + '''' + FieldByName('StkId').AsString + ''''; + end + else + begin + PStkId := PStkId + ',''' + FieldByName('StkId').AsString + ''''; + end; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + close; + SQL.Clear; + sql.add('update Trade_Cloth_Stock set ConMID = ' + QuotedStr(DName) + 'where stkid in (' + PStkId + ')'); + sql.add('update Trade_Cloth_Stock set ConSID = CONVERT(VARCHAR(10), GETDATE(), 23) where stkid in (' + PStkId + ')'); +// ShowMessage(sql.text); + ExecSQL; + end; + + Tv4.endUpdate; + end; + InitGrid(); + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + begin + if CDS_1.BookmarkValid(Bookmark) then + begin + CDS_1.GotoBookmark(Bookmark); + end + end + else if cxTabControl1.TabIndex = 2 then + begin + if CDS_2.BookmarkValid(Bookmark) then + begin + CDS_2.GotoBookmark(Bookmark); + end + end + else if cxTabControl1.TabIndex = 3 then + begin + if CDS_3.BookmarkValid(Bookmark) then + begin + CDS_3.GotoBookmark(Bookmark); + end + end; +end; + +procedure TfrmZDPrice.ToolButton6Click(Sender: TObject); +var + PBCIOID, PStkId: string; + Bookmark: TBookmark; +begin + inherited; + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + Bookmark := CDS_1.GetBookmark + else if cxTabControl1.TabIndex = 2 then + Bookmark := CDS_2.GetBookmark + else if cxTabControl1.TabIndex = 3 then + Bookmark := CDS_2.GetBookmark; + PBCIOID := ''; + PStkId := ''; + if cxGrid2.ActiveLevel = cxGridLevel1 then + begin + if CDS_1.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + Tv2.BeginUpdate; + with CDS_1 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PBCIOID = '' then + begin + PBCIOID := PBCIOID + '''' + FieldByName('BCIOID').AsString + ''''; + end + else + begin + PBCIOID := PBCIOID + ',''' + FieldByName('BCIOID').AsString + ''''; + end; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + close; + SQL.Clear; + sql.add('update bs_cloth_io set chker = null where bcioid in (' + PBCIOID + ')'); + sql.add('update bs_cloth_io set Chktime = null where bcioid in (' + PBCIOID + ')'); + ExecSQL; +// ShowMessage(sql.text); + end; + + Tv2.EndUpdate; + end + else if cxGrid2.ActiveLevel = cxGridLevel2 then + begin + if CDS_2.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + Tv3.BeginUpdate; + with CDS_2 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PStkId = '' then + begin + PStkId := PStkId + '''' + FieldByName('StkId').AsString + ''''; + end + else + begin + PStkId := PStkId + ',''' + FieldByName('StkId').AsString + ''''; + end; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + close; + SQL.Clear; + sql.add('update Trade_Cloth_Stock_ZD set ConMID = null where stkid in (' + PStkId + ')'); + sql.add('update Trade_Cloth_Stock_ZD set ConSID = null where stkid in (' + PStkId + ')'); + ExecSQL; + end; + + Tv3.endUpdate; + end + else if cxGrid2.ActiveLevel = cxGridLevel3 then + begin + if CDS_3.locate('ssel', true, []) = false then + begin + Application.MessageBox('请选择数据', '提示信息', 0); + exit; + end; + + Tv4.BeginUpdate; + with CDS_3 do + begin + first; + while not eof do + begin + if FieldByName('ssel').AsBoolean = true then + begin + if PStkId = '' then + begin + PStkId := PStkId + '''' + FieldByName('StkId').AsString + ''''; + end + else + begin + PStkId := PStkId + ',''' + FieldByName('StkId').AsString + ''''; + end; + end; + Next; + end; + end; + + with ADOQueryCmd do + begin + close; + SQL.Clear; + sql.add('update Trade_Cloth_Stock set ConMID = null where stkid in (' + PStkId + ')'); + sql.add('update Trade_Cloth_Stock set ConSID = null where stkid in (' + PStkId + ')'); + ExecSQL; + end; + + Tv4.endUpdate; + end; + InitGrid(); + if (cxTabControl1.TabIndex = 0) or (cxTabControl1.TabIndex = 1) then + begin + if CDS_1.BookmarkValid(Bookmark) then + begin + CDS_1.GotoBookmark(Bookmark); + end + end + else if cxTabControl1.TabIndex = 2 then + begin + if CDS_2.BookmarkValid(Bookmark) then + begin + CDS_2.GotoBookmark(Bookmark); + end + end + else if cxTabControl1.TabIndex = 3 then + begin + if CDS_3.BookmarkValid(Bookmark) then + begin + CDS_3.GotoBookmark(Bookmark); + end + end; +end; + +procedure TfrmZDPrice.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + mColumn: TcxGridDBColumn; + mvalue: Variant; +begin + inherited; + + mColumn := Tv2.GetColumnByFieldName('chker'); + if mColumn = nil then + exit; + mvalue := AViewInfo.GridRecord.Values[mColumn.index]; + if (mvalue <> null) and (mvalue <> '') then + begin + ACanvas.Font.Color := clBlue; + Exit; + end; + +end; + +procedure TfrmZDPrice.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + mColumn: TcxGridDBColumn; + mvalue: Variant; +begin + inherited; + mColumn := Tv3.GetColumnByFieldName('ConMID'); + if mColumn = nil then + exit; + mvalue := AViewInfo.GridRecord.Values[mColumn.index]; + if (mvalue <> null) and (mvalue <> '') then + begin + ACanvas.Font.Color := clBlue; + Exit; + end; +end; + +procedure TfrmZDPrice.Tv3DataControllerFilterChanged(Sender: TObject); +begin + inherited; + CDS_2.Filtered := false; + CDS_2.Filter := TV3.DataController.Filter.FilterText; + CDS_2.Filtered := true; + +end; + +procedure TfrmZDPrice.Tv4CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + mColumn: TcxGridDBColumn; + mvalue: Variant; +begin + inherited; + mColumn := Tv4.GetColumnByFieldName('ConMID'); + if mColumn = nil then + exit; + mvalue := AViewInfo.GridRecord.Values[mColumn.index]; + if (mvalue <> null) and (mvalue <> '') then + begin + ACanvas.Font.Color := clBlue; + Exit; + end; +end; + +procedure TfrmZDPrice.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. + diff --git a/A09财务通用管理/U_ZDPriceDetails.dfm b/A09财务通用管理/U_ZDPriceDetails.dfm new file mode 100644 index 0000000..f470769 --- /dev/null +++ b/A09财务通用管理/U_ZDPriceDetails.dfm @@ -0,0 +1,592 @@ +inherited frmZDPriceDetails: TfrmZDPriceDetails + Left = 300 + Top = 189 + Caption = #26126#32454#26597#35810 + ClientHeight = 572 + ClientWidth = 981 + WindowState = wsMaximized + ExplicitLeft = -136 + ExplicitWidth = 997 + ExplicitHeight = 611 + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 981 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid4: TcxGrid [1] + Left = 0 + Top = 30 + Width = 981 + Height = 542 + Align = alClient + PopupMenu = PM_1 + TabOrder = 1 + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Appending = True + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.IncSearch = DataLink_Financial.SHuangSe + Styles.Footer = DataLink_Financial.Default + Styles.Header = DataLink_Financial.Default + Styles.Inactive = DataLink_Financial.SHuangSe + Styles.Selection = DataLink_Financial.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Tag = 7 + Caption = #20986#20837#24211#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20986#20837#24211#26102#38388 + DataBinding.FieldName = 'IOTIme' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'ReconciliationDate' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20986#20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 78 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 7 + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #26469#33258#21333#20301 + DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20986#21040#21333#20301 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #23384#25918#21333#20301 + DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #26469#33258#35745#21010#21333 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #20986#21040#35745#21010#21333 + DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #30331#35760#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #30331#35760#26102#38388 + DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'Editer' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'Edittime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object TV4Column1: TcxGridDBColumn + DataBinding.FieldName = 'FFFlag' + DataBinding.IsNullValueType = True + Visible = False + end + object TV4Column2: TcxGridDBColumn + Caption = #22806#24065#25910#30410'RMB' + DataBinding.FieldName = 'WBSJRMB' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV4Column3: TcxGridDBColumn + Caption = #20154#27665#24065#23454#25910#37329#39069 + DataBinding.FieldName = 'RMBSHJE' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV4Column4: TcxGridDBColumn + Caption = #36864#31246#25910#30410 + DataBinding.FieldName = 'TSSJ' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 90 + end + end + object Tv5: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + object Tv5Column1: TcxGridDBColumn + Caption = #20986#20837#24211#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 107 + end + object Tv5Column2: TcxGridDBColumn + Caption = #26469#33258#35745#21010#21333 + DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 122 + end + object Tv5Column22: TcxGridDBColumn + Caption = #20986#21040#35745#21010#21333 + DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 96 + end + object Tv5Column3: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'ZDPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 104 + end + object Tv5Column21: TcxGridDBColumn + Caption = #21457#36135#26102#38388 + DataBinding.FieldName = 'Dlydate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 78 + end + object Tv5Column4: TcxGridDBColumn + Caption = #23384#25918#21333#20301 + DataBinding.FieldName = 'StkPosition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column5: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column6: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'StkTare' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column7: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'StkNetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column8: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column9: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'StkYardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column10: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column11: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column12: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column13: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column14: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column16: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column17: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column18: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column19: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv5Column20: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TV4 + end + object cxGridLevel5: TcxGridLevel + GridView = Tv5 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 81 + Top = 232 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 81 + Top = 177 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 253 + Top = 177 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 341 + Top = 169 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 430 + Top = 172 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 370 + Top = 145 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = CDS_1 + Left = 261 + Top = 334 + end + object cxGridPopupMenu2: TcxGridPopupMenu + PopupMenus = <> + Left = 193 + Top = 265 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 404 + Top = 233 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 240 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 77 + Top = 313 + end + object PM_1: TPopupMenu + Left = 568 + Top = 336 + object N1: TMenuItem + Caption = #22797#21046 + OnClick = N1Click + end + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 624 + Top = 273 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 696 + Top = 240 + end +end diff --git a/A09财务通用管理/U_ZDPriceDetails.pas b/A09财务通用管理/U_ZDPriceDetails.pas new file mode 100644 index 0000000..7709074 --- /dev/null +++ b/A09财务通用管理/U_ZDPriceDetails.pas @@ -0,0 +1,193 @@ +unit U_ZDPriceDetails; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, + U_BaseHelp, Vcl.Menus, Vcl.Clipbrd, DateUtils, dxSkinWXI, + dxScrollbarAnnotations, U_BaseList, System.ImageList, Vcl.ImgList; + +type + TfrmZDPriceDetails = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + ADOQueryPrint: TADOQuery; + ToolButton1: TToolButton; + PM_1: TPopupMenu; + N1: TMenuItem; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + TV4Column1: TcxGridDBColumn; + TV4Column2: TcxGridDBColumn; + TV4Column3: TcxGridDBColumn; + TV4Column4: TcxGridDBColumn; + cxGridLevel5: TcxGridLevel; + Tv5: TcxGridDBTableView; + Tv5Column1: TcxGridDBColumn; + Tv5Column2: TcxGridDBColumn; + Tv5Column3: TcxGridDBColumn; + DS_2: TDataSource; + CDS_2: TClientDataSet; + Tv5Column4: TcxGridDBColumn; + Tv5Column5: TcxGridDBColumn; + Tv5Column6: TcxGridDBColumn; + Tv5Column7: TcxGridDBColumn; + Tv5Column8: TcxGridDBColumn; + Tv5Column9: TcxGridDBColumn; + Tv5Column10: TcxGridDBColumn; + Tv5Column11: TcxGridDBColumn; + Tv5Column12: TcxGridDBColumn; + Tv5Column13: TcxGridDBColumn; + Tv5Column14: TcxGridDBColumn; + Tv5Column15: TcxGridDBColumn; + Tv5Column16: TcxGridDBColumn; + Tv5Column17: TcxGridDBColumn; + Tv5Column18: TcxGridDBColumn; + Tv5Column19: TcxGridDBColumn; + Tv5Column20: TcxGridDBColumn; + Tv5Column21: TcxGridDBColumn; + Tv5Column22: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N1Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + FBCIOID, FStkId: string; + FType: Integer; + { Public declarations } + end; + +var + frmZDPriceDetails: TfrmZDPriceDetails; + +implementation + +uses + U_DataLink, U_RtFun; + + +{$R *.dfm} + +procedure TfrmZDPriceDetails.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + case FType of + 0: + begin + sql.Add('Select * from bs_cloth_io where BCIOID in (' + FBCIOID + ')' ); + Open; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + cxGrid4.ActiveLevel := cxGridLevel4; + end; + 1: + begin + sql.Add('Select *, A.OrderNo as ToOrdNo, B.OrderNo as FromOrdNo, DlyDate = (select DlyDate from Trade_Cloth_DR_Main X where X.DRMID = B.DRMID) from Trade_Cloth_Stock_ZD A join Trade_Cloth_DR_Sub B on A.DRSID=B.DRSID where StkId in (' + FStkId + ')' ); + Open; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + cxGrid4.ActiveLevel := cxGridLevel5; + end; + end; + + end; + + + finally + ADOQueryMain.EnableControls; + end; +end; + + +procedure TfrmZDPriceDetails.N1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV4.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmZDPriceDetails.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmZDPriceDetails.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmZDPriceDetails.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(self.Caption), Tv4, '转单价格信息明细'); + InitGrid(); +end; + +procedure TfrmZDPriceDetails.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZDPriceDetails.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv4, '转单价格信息明细'); +end; + +end. + diff --git a/A09财务通用管理/testDll.identcache b/A09财务通用管理/testDll.identcache index 3d94071..63e25af 100644 Binary files a/A09财务通用管理/testDll.identcache and b/A09财务通用管理/testDll.identcache differ diff --git a/B01基础合同管理/Contract.dproj b/B01基础合同管理/Contract.dproj index 3ceb56a..c7e181c 100644 --- a/B01基础合同管理/Contract.dproj +++ b/B01基础合同管理/Contract.dproj @@ -4,7 +4,7 @@ Contract.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,18 +78,9 @@ false true - - Debug - - - Debug - - - Debug - 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\项目代码\D10myBiaoqi\B01基础合同管理\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\B01基础合同管理\testDll.exe @@ -240,10 +196,6 @@ - True - True - True - True True False diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 612b436..3901908 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -25,7 +25,7 @@ 1899-12-30 00:00:00.000.063,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas 1899-12-30 00:00:00.000.564,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.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas @@ -36,21 +36,21 @@ 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 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.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas + 1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas 1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas 1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899-12-30 00:00:00.000.630,=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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.569,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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= @@ -72,16 +72,16 @@ 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.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899-12-30 00:00:00.000.630,=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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.pas + 1899-12-30 00:00:00.000.520,=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.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= @@ -100,7 +100,7 @@ - + diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index 7459668..4f92e62 100644 Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ diff --git a/B01基础合同管理/Contract.skincfg b/B01基础合同管理/Contract.skincfg index f0fe216..0849faf 100644 --- a/B01基础合同管理/Contract.skincfg +++ b/B01基础合同管理/Contract.skincfg @@ -1,5 +1,5 @@ [ExpressSkins] -Default=0 +Default=1 ShowNotifications=1 Enabled=1 dxSkinBasic=0 diff --git a/B01基础合同管理/ProjectGroup1.groupproj.local b/B01基础合同管理/ProjectGroup1.groupproj.local index c0c6ae0..042c722 100644 --- a/B01基础合同管理/ProjectGroup1.groupproj.local +++ b/B01基础合同管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/B01基础合同管理/U_ContractList.dfm b/B01基础合同管理/U_ContractList.dfm index 497850c..2319680 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 = -383 ExplicitWidth = 1541 ExplicitHeight = 775 PixelsPerInch = 96 @@ -217,8 +216,6 @@ inherited frmContractList: TfrmContractList Align = alClient PopupMenu = pm1 TabOrder = 3 - ExplicitTop = 161 - ExplicitHeight = 305 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -226,6 +223,7 @@ inherited frmContractList: TfrmContractList OnCustomDrawCell = Tv1CustomDrawCell OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DS_1 + DataController.Filter.OnChanged = Tv1DataControllerFilterChanged DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -613,7 +611,6 @@ inherited frmContractList: TfrmContractList Color = 16242829 ParentBackground = False TabOrder = 1 - ExplicitTop = 82 object Label4: TLabel Left = 435 Top = 18 @@ -889,7 +886,6 @@ inherited frmContractList: TfrmContractList #24050#21462#28040 #20840#37096) OnChange = cxTabControl1Change - ExplicitTop = 137 ClientRectBottom = 22 ClientRectRight = 1525 ClientRectTop = 19 diff --git a/B01基础合同管理/U_ContractList.pas b/B01基础合同管理/U_ContractList.pas index a28e4d1..b02f468 100644 --- a/B01基础合同管理/U_ContractList.pas +++ b/B01基础合同管理/U_ContractList.pas @@ -189,6 +189,7 @@ type procedure N6Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); + procedure Tv1DataControllerFilterChanged(Sender: TObject); private fFlileFlag: string; procedure InitGrid(); @@ -1188,6 +1189,23 @@ begin end; end; + +procedure TfrmContractList.Tv1DataControllerFilterChanged(Sender: TObject); +var + FZMQty, FZKg, FCNYAmount, FUSDAmount: Double; +begin + if ADOQueryMain.IsEmpty = False then + begin + FZMQty := tv1.DataController.Summary.FooterSummaryValues[2]; + FZKg := tv1.DataController.Summary.FooterSummaryValues[3]; + FCNYAmount := tv1.DataController.Summary.FooterSummaryValues[4]; + FUSDAmount := tv1.DataController.Summary.FooterSummaryValues[5]; + + Label1.Caption := '' + FloatToStr(FZMQty) + ' ܹ' + FloattoStr(FZKg) + ' CNY' + FloattoStr(FCNYAmount)+ ' USD' + FloattoStr(FUSDAmount); + end; + +end; + procedure TfrmContractList.btnTijiaoClick(Sender: TObject); var MConMIDS: string; diff --git a/B01基础合同管理/testDll.identcache b/B01基础合同管理/testDll.identcache index d781eb1..e8412d3 100644 Binary files a/B01基础合同管理/testDll.identcache and b/B01基础合同管理/testDll.identcache differ diff --git a/B04采购计划管理/ProjectGroup1.groupproj.local b/B04采购计划管理/ProjectGroup1.groupproj.local index c117c1f..585217b 100644 --- a/B04采购计划管理/ProjectGroup1.groupproj.local +++ b/B04采购计划管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/B04采购计划管理/PurchasePlan.dproj b/B04采购计划管理/PurchasePlan.dproj index 8c02df1..6f5dc62 100644 --- a/B04采购计划管理/PurchasePlan.dproj +++ b/B04采购计划管理/PurchasePlan.dproj @@ -80,7 +80,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\项目代码\D10zzbiaoqi\B04采购计划管理\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\B04采购计划管理\testDll.exe diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index bf9eb12..12ca8f2 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -1,64 +1,64 @@  - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.857,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanPut.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.pas - 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas - 1899/12/30 00:00:00.000.953,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.pas - 1899/12/30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.dfm - 1899/12/30 00:00:00.000.954,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.dfm - 1899/12/30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.dfm - 1899/12/30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.dfm - 1899/12/30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.488,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanList.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas - 1899/12/30 00:00:00.000.450,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas - 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas - 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj - 1899/12/30 00:00:00.000.110,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanList.pas - 1899/12/30 00:00:00.000.059,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanPut.pas - 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.985,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_CLNoteEdit.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.931,=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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.pas - 1899/12/30 00:00:00.000.781,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_HJGTradePlanSel.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.dfm - 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\项目代码\骉骐\A00通用窗体\U_UserSel.pas - 1899/12/30 00:00:00.000.606,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_TradeDefectKCListSel.pas - 1899/12/30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas - 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm - 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= + 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.857,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanPut.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.630,=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.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.pas + 1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas + 1899-12-30 00:00:00.000.953,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.pas + 1899-12-30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.dfm + 1899-12-30 00:00:00.000.954,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.dfm + 1899-12-30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.dfm + 1899-12-30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.dfm + 1899-12-30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.488,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanList.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas + 1899-12-30 00:00:00.000.450,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj + 1899-12-30 00:00:00.000.110,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanList.pas + 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanPut.pas + 1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.985,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_CLNoteEdit.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.931,=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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.pas + 1899-12-30 00:00:00.000.781,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_HJGTradePlanSel.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.dfm + 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\项目代码\骉骐\A00通用窗体\U_UserSel.pas + 1899-12-30 00:00:00.000.606,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_TradeDefectKCListSel.pas + 1899-12-30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas + 1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas + 1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas + 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm + 1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= @@ -79,7 +79,7 @@ - + diff --git a/B04采购计划管理/PurchasePlan.identcache b/B04采购计划管理/PurchasePlan.identcache index b7ca501..34db458 100644 Binary files a/B04采购计划管理/PurchasePlan.identcache and b/B04采购计划管理/PurchasePlan.identcache differ diff --git a/B04采购计划管理/U_ClaimsList.dfm b/B04采购计划管理/U_ClaimsList.dfm index c93a665..c793970 100644 --- a/B04采购计划管理/U_ClaimsList.dfm +++ b/B04采购计划管理/U_ClaimsList.dfm @@ -162,7 +162,6 @@ inherited frmClaimsList: TfrmClaimsList Align = alClient PopupMenu = pm1 TabOrder = 3 - ExplicitTop = 121 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -440,14 +439,14 @@ inherited frmClaimsList: TfrmClaimsList Time = 0.464761099538009100 TabOrder = 1 end - object BuyName: TEdit + object OurCoName: TEdit Tag = 2 Left = 296 Top = 31 Width = 78 Height = 20 TabOrder = 2 - OnKeyPress = PurNoKeyPress + OnKeyPress = ClaNoKeyPress end object MPRTCodeName: TEdit Tag = 2 @@ -458,14 +457,14 @@ inherited frmClaimsList: TfrmClaimsList TabOrder = 6 OnChange = BuyNameChange end - object PurNo: TEdit + object ClaNo: TEdit Tag = 2 Left = 296 Top = 7 Width = 77 Height = 20 TabOrder = 3 - OnKeyPress = PurNoKeyPress + OnKeyPress = ClaNoKeyPress end object MPRTKZ: TEdit Tag = 2 @@ -485,14 +484,14 @@ inherited frmClaimsList: TfrmClaimsList TabOrder = 7 OnChange = BuyNameChange end - object SellName: TEdit + object OppCoName: TEdit Tag = 2 Left = 448 Top = 7 Width = 77 Height = 20 TabOrder = 4 - OnKeyPress = PurNoKeyPress + OnKeyPress = ClaNoKeyPress end object IsJYTime: TCheckBox Left = 23 diff --git a/B04采购计划管理/U_ClaimsList.pas b/B04采购计划管理/U_ClaimsList.pas index b673c85..e84794d 100644 --- a/B04采购计划管理/U_ClaimsList.pas +++ b/B04采购计划管理/U_ClaimsList.pas @@ -65,9 +65,9 @@ type Label13: TLabel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; - BuyName: TEdit; + OurCoName: TEdit; MPRTCodeName: TEdit; - PurNo: TEdit; + ClaNo: TEdit; MPRTKZ: TEdit; MPRTMF: TEdit; cxTabControl1: TcxTabControl; @@ -84,7 +84,7 @@ type btnCXTijiao: TToolButton; v1Column13: TcxGridDBColumn; Label3: TLabel; - SellName: TEdit; + OppCoName: TEdit; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; @@ -158,7 +158,7 @@ type procedure N2Click(Sender: TObject); procedure btnWCClick(Sender: TObject); procedure btnWCCXClick(Sender: TObject); - procedure PurNoKeyPress(Sender: TObject; var Key: Char); + procedure ClaNoKeyPress(Sender: TObject; var Key: Char); procedure ToolButton7Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); @@ -540,7 +540,7 @@ begin TBRafresh.Click; end; -procedure TfrmClaimsList.PurNoKeyPress(Sender: TObject; var Key: Char); +procedure TfrmClaimsList.ClaNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin diff --git a/B04采购计划管理/testDll.identcache b/B04采购计划管理/testDll.identcache index 6c23b0c..ab71f98 100644 Binary files a/B04采购计划管理/testDll.identcache and b/B04采购计划管理/testDll.identcache differ diff --git a/T01贸易生产计划/ProjectGroup1.groupproj.local b/T01贸易生产计划/ProjectGroup1.groupproj.local index 9861d18..944833a 100644 --- a/T01贸易生产计划/ProjectGroup1.groupproj.local +++ b/T01贸易生产计划/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/T01贸易生产计划/TradePlan.dproj b/T01贸易生产计划/TradePlan.dproj index 23cb081..5cb8af4 100644 --- a/T01贸易生产计划/TradePlan.dproj +++ b/T01贸易生产计划/TradePlan.dproj @@ -80,7 +80,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\项目代码\D10zzbiaoqi\T01贸易生产计划\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\testDll.exe diff --git a/T01贸易生产计划/TradePlan.dproj.local b/T01贸易生产计划/TradePlan.dproj.local index 5012e49..8d06c2a 100644 --- a/T01贸易生产计划/TradePlan.dproj.local +++ b/T01贸易生产计划/TradePlan.dproj.local @@ -1,53 +1,53 @@  - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas - 1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.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.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas= 1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas - 1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas + 1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj + 1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm 1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.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.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas - 1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.734,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas @@ -69,7 +69,7 @@ - + diff --git a/T01贸易生产计划/TradePlan.identcache b/T01贸易生产计划/TradePlan.identcache index 8564eb2..880c975 100644 Binary files a/T01贸易生产计划/TradePlan.identcache and b/T01贸易生产计划/TradePlan.identcache differ diff --git a/T01贸易生产计划/U_GetDllForm.pas b/T01贸易生产计划/U_GetDllForm.pas index 0958f69..ea2ab3b 100644 --- a/T01贸易生产计划/U_GetDllForm.pas +++ b/T01贸易生产计划/U_GetDllForm.pas @@ -70,10 +70,15 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; +// server := '101.132.143.144,7781'; +// dtbase := 'BiaoqiData'; +// user := 'rtsa'; +// pswd := 'rightsoft@5740'; + + server := '127.0.0.1'; dtbase := 'BiaoqiData'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'sa'; + pswd := 'root'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; // Parameters1 := '¼'; diff --git a/T01贸易生产计划/U_PlanProfit.dfm b/T01贸易生产计划/U_PlanProfit.dfm index 8468f0e..91f094d 100644 --- a/T01贸易生产计划/U_PlanProfit.dfm +++ b/T01贸易生产计划/U_PlanProfit.dfm @@ -269,6 +269,19 @@ inherited frmPlanProfit: TfrmPlanProfit ParentFont = False Visible = False end + object Label5: TLabel + Left = 646 + Top = 20 + Width = 52 + Height = 12 + Caption = #23458#25143#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 128 Top = 16 @@ -308,7 +321,7 @@ inherited frmPlanProfit: TfrmPlanProfit OnChange = OrderNoMChange end object ComboBox1: TComboBox - Left = 49 + Left = 51 Top = 16 Width = 71 Height = 20 @@ -316,8 +329,7 @@ inherited frmPlanProfit: TfrmPlanProfit Text = #21046#21333#26085#26399 OnChange = ComboBox1Change Items.Strings = ( - #21046#21333#26085#26399 - #20132#36135#26085#26399) + #21046#21333#26085#26399) end object CustName: TEdit Tag = 2 @@ -349,14 +361,21 @@ inherited frmPlanProfit: TfrmPlanProfit OnChange = OrderNoChange end object CheckBox1: TCheckBox - Left = 28 - Top = 18 + Left = 26 + Top = 17 Width = 19 Height = 17 - Checked = True - State = cbChecked TabOrder = 8 end + object BuyConNo: TEdit + Tag = 2 + Left = 704 + Top = 16 + Width = 80 + Height = 20 + TabOrder = 9 + OnKeyPress = OrderNoKeyPress + end end object cxGrid1: TcxGrid [2] Left = 0 @@ -382,6 +401,54 @@ inherited frmPlanProfit: TfrmPlanProfit item Kind = skSum Column = Tv1Column10 + end + item + Kind = skSum + Column = Tv1Column12 + end + item + Kind = skSum + Column = Tv1Column15 + end + item + Kind = skSum + Column = Tv1Column16 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column5 + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column7 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -413,6 +480,13 @@ inherited frmPlanProfit: TfrmPlanProfit Styles.Header = DataLink_TradePlan.Default Width = 80 end + object Tv1Column19: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 93 + end object Tv1Column4: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' @@ -491,11 +565,18 @@ inherited frmPlanProfit: TfrmPlanProfit Width = 72 end object Tv1Column16: TcxGridDBColumn - Caption = #23454#25910#37329#39069 + Caption = #23454#25910#26680#38144#37329#39069 DataBinding.FieldName = 'HXAmount' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Width = 92 + end + object Tv1Column18: TcxGridDBColumn + Caption = #22806#24065#23454#26680#37329#39069 + DataBinding.FieldName = 'WBSHJE' + DataBinding.IsNullValueType = True + Width = 75 end object Tv1Column11: TcxGridDBColumn Caption = #26410#25910#37329#39069 @@ -523,14 +604,6 @@ inherited frmPlanProfit: TfrmPlanProfit Options.Editing = False Width = 111 end - object Tv1Column6: TcxGridDBColumn - Caption = #21033#28070 - DataBinding.FieldName = 'SJLRAMount' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 72 - end object Tv1Column1: TcxGridDBColumn Caption = #20854#20182#24212#20184 DataBinding.FieldName = 'OtherYFAmount' @@ -548,7 +621,9 @@ inherited frmPlanProfit: TfrmPlanProfit Caption = #23454#25910#20154#27665#24065 DataBinding.FieldName = 'SSCNYAmount' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter + VisibleForEditForm = bTrue Width = 86 end object Tv1Column8: TcxGridDBColumn @@ -557,18 +632,33 @@ inherited frmPlanProfit: TfrmPlanProfit DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end + object Tv1Column6: TcxGridDBColumn + Caption = #21033#28070 + DataBinding.FieldName = 'SJLRAMount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end object Tv1Column9: TcxGridDBColumn - Caption = #23454#38469#31246#25910 - DataBinding.FieldName = 'SJSS' + Caption = #23454#38469#24635#25910 + DataBinding.FieldName = 'SJZS' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object Tv1Column17: TcxGridDBColumn - Caption = #31246#25910#25903#20986 + Caption = #31246#36153#25903#20986 DataBinding.FieldName = 'SFZC' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end + object Tv1Column20: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -636,7 +726,7 @@ inherited frmPlanProfit: TfrmPlanProfit object Order_Main: TClientDataSet Aggregates = <> Params = <> - Left = 724 + Left = 708 Top = 432 end object ADOQuerySub: TADOQuery diff --git a/T01贸易生产计划/U_PlanProfit.pas b/T01贸易生产计划/U_PlanProfit.pas index 4c57e47..0fe416d 100644 --- a/T01贸易生产计划/U_PlanProfit.pas +++ b/T01贸易生产计划/U_PlanProfit.pas @@ -104,6 +104,11 @@ type ADOQuery1: TADOQuery; Tv1Column9: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + BuyConNo: TEdit; + Label5: TLabel; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -116,7 +121,6 @@ type procedure OrderNoMChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBTPClick(Sender: TObject); - procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); @@ -279,8 +283,17 @@ begin SQL.Clear; Filtered := False; sql.Add(' exec P_Trade_Profit_Plan '); - sql.Add(' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime)))); - sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1)))); + if CheckBox1.Checked = true then + begin + sql.Add(' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime)))); + sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1)))); + end + else + begin + sql.Add(' @begdate=' + QuotedStr('')); + sql.Add(' ,@Enddate=' + QuotedStr('')); + end; + case cxTabControl1.TabIndex of 0: begin @@ -648,10 +661,6 @@ var begin end; -procedure TfrmPlanProfit.CheckBox1Click(Sender: TObject); -begin - InitGrid(); -end; procedure TfrmPlanProfit.CheckBox2Click(Sender: TObject); begin @@ -1134,10 +1143,21 @@ begin end; procedure TfrmPlanProfit.ToolButton3Click(Sender: TObject); +var + wsql: string; begin + wsql := ''; + if CheckBox1.Checked = true then + begin + if SGetFilters(Panel1, 1, 2) <> '' then + wsql := ' and '; + wsql := wsql + ' (OrdDate >= ' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))); + wsql := wsql + ' and OrdDate <= ' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime))) + ')'; + end; + if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2) + wsql); SCreateCDS(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main); end; diff --git a/T01贸易生产计划/U_PlanProfitDetails.dfm b/T01贸易生产计划/U_PlanProfitDetails.dfm index 434190e..d57999d 100644 --- a/T01贸易生产计划/U_PlanProfitDetails.dfm +++ b/T01贸易生产计划/U_PlanProfitDetails.dfm @@ -4,6 +4,8 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Caption = #26126#32454#26597#35810 ClientHeight = 572 ClientWidth = 981 + WindowState = wsMaximized + OnResize = FormResize ExplicitWidth = 997 ExplicitHeight = 611 PixelsPerInch = 96 @@ -42,16 +44,24 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Visible = False OnClick = ToolButton2Click end - object ToolButton1: TToolButton + object ToolButton3: TToolButton Left = 142 Top = 0 AutoSize = True + Caption = #25171#21360#26126#32454 + ImageIndex = 21 + OnClick = ToolButton3Click + end + object ToolButton1: TToolButton + Left = 237 + Top = 0 + AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 237 + Left = 332 Top = 0 AutoSize = True Caption = #20851#38381 @@ -106,6 +116,7 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Top = 12 Width = 155 Height = 21 + Enabled = False TabOrder = 2 OnChange = OrderNoChange end @@ -140,14 +151,12 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails end end object cxGrid1: TcxGrid [2] - Left = 546 + Left = 508 Top = 84 - Width = 435 + Width = 473 Height = 292 - Align = alRight + Align = alClient TabOrder = 2 - ExplicitLeft = 544 - ExplicitTop = 79 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -465,15 +474,17 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Visible = False end object Tv1Column31: TcxGridDBColumn - Caption = #22269#22320#31246 - DataBinding.FieldName = 'DDD' + Caption = #36807#22320#31246 + DataBinding.FieldName = 'GDS' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter end object Tv1Column32: TcxGridDBColumn Caption = #20854#20182#31246#36153 - DataBinding.FieldName = 'EEE' + DataBinding.FieldName = 'QTSF' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter end end @@ -573,6 +584,13 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Options.Editing = False Width = 79 end + object TV2Column10: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZDTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 67 + end object TV2Column7: TcxGridDBColumn Caption = #20986#21040#35745#21010#21333 DataBinding.FieldName = 'ToOrdNo' @@ -580,6 +598,13 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails HeaderAlignmentHorz = taCenter Width = 81 end + object TV2Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'SDefNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end object cxGridDBColumn14: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' @@ -617,7 +642,7 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails DataBinding.FieldName = 'NetWeight' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 64 + Width = 65 end object TV2Column2: TcxGridDBColumn Caption = #36716#20986#27611#37325 @@ -640,6 +665,13 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails HeaderAlignmentHorz = taCenter Width = 71 end + object TV2Column9: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 75 + end object TV2Column5: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'ZDPrice' @@ -729,6 +761,12 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Options.Editing = False Width = 83 end + object TV3Column6: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'ZDTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end object TV3Column3: TcxGridDBColumn Caption = #26469#33258#35745#21010#21333 DataBinding.FieldName = 'FromOrdNo' @@ -736,6 +774,13 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails HeaderAlignmentHorz = taCenter Width = 72 end + object TV3Column4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'SDefNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end object cxGridDBColumn46: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' @@ -800,10 +845,18 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Options.Editing = False Width = 66 end + object TV3Column5: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end object TV3Column1: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'ZDPrice' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter Width = 48 end object TV3Column2: TcxGridDBColumn @@ -829,9 +882,9 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails object cxGrid4: TcxGrid [4] Left = 0 Top = 84 - Width = 538 + Width = 500 Height = 292 - Align = alClient + Align = alLeft TabOrder = 4 object TV4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -874,6 +927,7 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False + OptionsData.Appending = True OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.Footer = True @@ -1151,22 +1205,25 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails end object TV4Column2: TcxGridDBColumn Caption = #22806#24065#25910#30410'RMB' - DataBinding.FieldName = 'AAA' + DataBinding.FieldName = 'WBSJRMB' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 100 end object TV4Column3: TcxGridDBColumn Caption = #20154#27665#24065#23454#25910#37329#39069 - DataBinding.FieldName = 'BBB' + DataBinding.FieldName = 'RMBSHJE' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 100 end object TV4Column4: TcxGridDBColumn Caption = #36864#31246#25910#30410 - DataBinding.FieldName = 'CCC' + DataBinding.FieldName = 'TSSJ' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 90 end @@ -1176,14 +1233,11 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails end end object cxSplitter2: TcxSplitter [5] - Left = 538 + Left = 500 Top = 84 Width = 8 Height = 292 HotZoneClassName = 'TcxMediaPlayer9Style' - Control = cxGrid1 - ExplicitLeft = 544 - ExplicitTop = 90 end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradePlan.ADOLink @@ -1248,7 +1302,7 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails end object DS_HZ: TDataSource DataSet = CDS_HZ - Left = 372 + Left = 404 Top = 233 end object CDS_HZ: TClientDataSet @@ -1331,4 +1385,28 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Left = 638 Top = 228 end + object CDS_31: TClientDataSet + Aggregates = <> + Params = <> + Left = 528 + Top = 176 + end + object CDS_21: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 208 + end + object CDS_32: TClientDataSet + Aggregates = <> + Params = <> + Left = 520 + Top = 256 + end + object CDS_22: TClientDataSet + Aggregates = <> + Params = <> + Left = 592 + Top = 280 + end end diff --git a/T01贸易生产计划/U_PlanProfitDetails.pas b/T01贸易生产计划/U_PlanProfitDetails.pas index c2dd975..e9fafe9 100644 --- a/T01贸易生产计划/U_PlanProfitDetails.pas +++ b/T01贸易生产计划/U_PlanProfitDetails.pas @@ -166,6 +166,17 @@ type TV4Column4: TcxGridDBColumn; Tv1Column31: TcxGridDBColumn; Tv1Column32: TcxGridDBColumn; + CDS_31: TClientDataSet; + CDS_21: TClientDataSet; + TV2Column8: TcxGridDBColumn; + TV3Column4: TcxGridDBColumn; + TV2Column9: TcxGridDBColumn; + TV3Column5: TcxGridDBColumn; + TV2Column10: TcxGridDBColumn; + TV3Column6: TcxGridDBColumn; + ToolButton3: TToolButton; + CDS_32: TClientDataSet; + CDS_22: TClientDataSet; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); @@ -176,6 +187,8 @@ type procedure cxTabControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure N1Click(Sender: TObject); + procedure FormResize(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); private { Private declarations } procedure InitGrid(); @@ -193,7 +206,7 @@ var implementation uses - U_DataLink, U_RtFun, U_ZDYHelp; + U_DataLink, U_RtFun, U_ZDYHelp, U_LabelPrint; {$R *.dfm} @@ -212,22 +225,47 @@ begin // sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) '); // sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)'); - sql.Add(',AAA = ISNULL((select CWBSY from Costing_Table where COrderNo = A.OrderNo), 0),'); - sql.Add('BBB = ISNULL((select CRMBSSJE from Costing_Table where COrderNo = A.OrderNo), 0),'); - sql.Add('CCC = ISNULL((select CTSSY from Costing_Table where COrderNo = A.OrderNo), 0)'); - - + sql.Add(',WBSJRMB = ISNULL((select sum(cast(CWBSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('RMBSHJE = ISNULL((select sum(cast(CRMBSSJE as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('TSSJ = ISNULL((select sum(cast(CTSSY as decimal(18,2))) from Costing_Table where COrderNo = A.OrderNo), 0)'); SQL.Add(',BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))'); SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)'); sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo))); - sql.Add(' and FFFlag = ''应收收'' '); + sql.Add(' and FFType = ''应收款登记'' '); // sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); //ShowMessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_HZ); SInitCDSData(ADOQueryMain, CDS_HZ); + if not CDS_HZ.IsEmpty then + begin + with CDS_HZ do + begin + for var i := 0 to 2 do + begin + append; + if i = 0 then + begin + CDS_HZ.FieldByName('FFAbstract').Value := '外币收益RMB'; + CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('WBSJRMB').Value; + end + else if i = 1 then + begin + CDS_HZ.FieldByName('FFAbstract').Value := '人民币实收金额'; + CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('RMBSHJE').Value; + end + else if i = 2 then + begin + CDS_HZ.FieldByName('FFAbstract').Value := '退税收益'; + CDS_HZ.FieldByName('Amount').Value := ADOQueryMain.FieldByName('TSSJ').Value; + end; + post; + end; + end; + end; + finally ADOQueryMain.EnableControls; TV4.DataController.Filter.Clear; @@ -248,15 +286,13 @@ begin // sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)'); // sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) '); // sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)'); - - sql.Add(',DDD = ISNULL((select GDS from Costing_Table where COrderNo = A.OrderNo), 0),'); - sql.Add('EEE = ISNULL((select COrderSF from Costing_Table where COrderNo = A.OrderNo), 0),'); - + sql.Add(',GDSs = ISNULL((select sum(cast(GDS as decimal(18, 2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('QTSF = ISNULL((select sum(cast(COrderSF as decimal(18, 2))) from Costing_Table where COrderNo = A.OrderNo), 0),'); SQL.Add('BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))'); SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)'); sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo))); - sql.Add(' and FFFlag = ''应付付'' '); + sql.Add(' and (FFType = ''应付款登记'' or FFType = ''其他应付款登记'' or FFType = ''手工费用登记'' ) '); // sql.Add(' and ISNULL(A.FFTime,A.SQDate)>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); // sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); //ShowMessage(sql.text); @@ -264,6 +300,28 @@ begin end; SCreateCDS(ADOQuery5, ClientDataSet1); SInitCDSData(ADOQuery5, ClientDataSet1); + if not ClientDataSet1.IsEmpty then + begin + with ClientDataSet1 do + begin + for var i := 0 to 1 do + begin + append; + if i = 0 then + begin + FieldByName('FFAbstract').Value := '国地税'; + FieldByName('Amount').Value := ADOQuery5.FieldByName('GDSs').Value; + end + else if i = 1 then + begin + FieldByName('FFAbstract').Value := '其他税费'; + FieldByName('Amount').Value := ADOQuery5.FieldByName('QTSF').Value; + end; + post; + end; + end; + end; + finally ADOQuery5.EnableControls; TV1.DataController.Filter.Clear; @@ -279,7 +337,169 @@ begin Filtered := False; Close; SQL.Clear; - sql.Add('select A.OrderNo,C.OrderNo TOOrdNO,A.C_Pattern,A.C_Color,A.C_ColorNo,ISNULL(A.ZDPrice,0) ZDPrice'); + sql.Add('select A.OrderNo,C.OrderNo TOOrdNO,A.C_Pattern,A.C_Color,A.C_ColorNo, ISNULL(A.ZDPrice,0) ZDPrice, U.QtyUnit OrdUnit, A.ZDTime '); +// if FUnit = 'M' then +// begin +// sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))') +// end +// else if FUnit = 'Y' then +// begin +// sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))') +// end +// else if FUnit = 'Kg' then +// begin +// sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkNetWeight))') +// end; + SQL.Add(' ,ZDAmount = ISNULL(SUM(ISNULL(A.ZDPrice,0) *'); + SQL.Add(' CASE U.QtyUnit'); + sql.Add(' WHEN ''M'' THEN A.StkMeter'); + SQL.Add(' WHEN ''Y'' THEN A.StkYardage'); + SQL.Add(' ELSE A.StkNetWeight'); + sql.Add(' END), 0) '); + SQL.Add(',COUNT(CIID) Piece,SUM(StkGrossWeight) GrossWeight'); + sql.Add(',SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage'); + SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID'); + sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId'); + sql.add(' OUTER APPLY (SELECT TOP 1 QtyUnit '); + sql.Add(' FROM Trade_Cloth_DR_Sub X'); + sql.add(' WHERE X.DRSID = A.DRSID) AS U'); + sql.Add(' where A.MainID= ' + QuotedStr(Trim(FMainID))); + sql.Add(' and C.OrderNo <> '''' '); + Sql.Add('GROUP BY A.OrderNo,C.OrderNo,A.C_Pattern,A.C_Color,A.C_ColorNo,A.ZDPrice,U.QtyUnit, A.ZDTime'); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery2, CDS_2); + SInitCDSData(ADOQuery2, CDS_2); + with CDS_2 do + begin + first; + while not eof do + begin + Edit; + FieldByName('SDefNote').AsString := '成品转单'; + post; + Next; + end; + end; + + with ADOQuery2 do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add(' select FromOrdNo, stkName, C_Pattern, C_Color, C_ColorNo, sum(qty) as qty, price, sum(piece) as piece, qtyUnit, ZDAmount = (isnull(price, 0) * sum(qty)), qty = sum(qty), iotime, '); + SQL.Add(' (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) ToOrdNo '); + SQL.Add(' from Bs_Cloth_IO A where STKName in (''贸易坯布'', ''贸易待检布'')'); + SQL.Add(' and FromOrdNo <> (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) '); + sql.Add(' and FromOrdNo = ' + quotedstr(FOrderNo)); + SQL.Add(' group by FromOrdNo, ToOrdNo, C_Pattern, C_Color, C_ColorNo, Price, stkName, qtyUnit, iotime '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery2, CDS_21); + SInitCDSData(ADOQuery2, CDS_21); + if not CDS_21.IsEmpty then + begin + CDS_21.First; + with CDS_2 do + begin + for var i := 0 to CDS_21.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := CDS_21.FieldByName('FromOrdNo').AsString; + FieldByName('ToOrdNo').AsString := CDS_21.FieldByName('ToOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_21.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_21.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_21.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_21.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_21.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_21.FieldByName('qtyUnit').AsString; + FieldByName('Piece').AsString := CDS_21.FieldByName('Piece').AsString; + FieldByName('ZDTime').AsString := CDS_21.FieldByName('iotime').AsString; + if CDS_21.FieldByName('stkName').AsString = '贸易坯布' then + FieldByName('SDefNote').AsString := '坯布转单' + else if CDS_21.FieldByName('stkName').AsString = '贸易待检布' then + FieldByName('SDefNote').AsString := '待检布转单'; + if LowerCase(CDS_21.FieldByName('QtyUnit').AsString) = 'kg' then + FieldByName('NetWeight').AsString := CDS_21.FieldByName('qty').AsString + else if LowerCase(CDS_21.FieldByName('QtyUnit').AsString) = 'm' then + FieldByName('Meter').AsString := CDS_21.FieldByName('qty').AsString; + CDS_21.Next; + end; + post; + end; + end; + + with ADOQuery2 do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('SELECT '); + SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,'); + SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,'); + SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS TOOrdNo,'); + SQL.Add(' CAST(ISNULL(Sum('); + SQL.Add(' ISNULL(A.price, sub.price) * '); + SQL.Add(' ISNULL( CASE sub.QtyUnit'); + SQL.Add(' WHEN ''M'' THEN A.Meter'); + SQL.Add(' WHEN ''Kg'' THEN A.NetWeight '); + SQL.Add(' WHEN ''Y'' THEN A.Yardage'); + SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount'); + SQL.Add('FROM Trade_Cloth_IO A '); + SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID '); + SQL.Add('CROSS APPLY ('); + SQL.Add(' SELECT TOP 1 QtyUnit, price '); + SQL.Add(' FROM Trade_Cloth_DR_Sub X '); + SQL.Add(' WHERE X.DRMID = A.IONO'); + SQL.Add(') sub'); + SQL.Add('WHERE B.OrderNo <> (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) '); + SQL.Add(' AND A.IOType IN (''加工出库'', ''回修出库'')'); + SQL.Add(' AND B.OrderNo = ' + QuotedStr(FOrderNo)); + SQL.Add('GROUP BY B.OrderNo, A.IONO, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, sub.price, sub.QtyUnit, A.IOTime, A.price'); + Open; + end; + SCreateCDS(ADOQuery2, CDS_22); + SInitCDSData(ADOQuery2, CDS_22); + if not CDS_22.IsEmpty then + begin + CDS_22.First; + with CDS_2 do + begin + for var i := 0 to CDS_22.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := CDS_22.FieldByName('FromOrdNo').AsString; + FieldByName('ToOrdNo').AsString := CDS_22.FieldByName('ToOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_22.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_22.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_22.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_22.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_22.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_22.FieldByName('qtyUnit').AsString; + FieldByName('Piece').AsString := CDS_22.FieldByName('Piece').AsString; + FieldByName('ZDTime').AsString := CDS_22.FieldByName('iotime').AsString; + FieldByName('Meter').AsString := CDS_22.FieldByName('Meter').AsString; + FieldByName('GrossWeight').AsString := CDS_22.FieldByName('GrossWeight').AsString; + FieldByName('Yardage').AsString := CDS_22.FieldByName('Yardage').AsString; + FieldByName('NetWeight').AsString := CDS_22.FieldByName('NetWeight').AsString; + if CDS_22.FieldByName('IOType').AsString = '加工出库' then + FieldByName('SDefNote').AsString := ' 加工转单' + else if CDS_22.FieldByName('IOType').AsString = '回修出库' then + FieldByName('SDefNote').AsString := ' 回修转单'; + CDS_22.Next; + end; + post; + end; + end; + + with ADOQuery3 do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice, B.OrdUnit, A.ZDTime'); if FUnit = 'M' then begin sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))') @@ -290,47 +510,140 @@ begin end else if FUnit = 'Kg' then begin - sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkGrossWeight))') + sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkNetWeight))') end; - SQL.Add(',COUNT(CIID) Piece,SUM(StkGrossWeight) GrossWeight'); - sql.Add(',SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage'); + SQL.Add(',SUM(StkGrossWeight) GrossWeight,SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage'); SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID'); - sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId'); - sql.Add(' where A.MainID= ' + QuotedStr(Trim(FMainID))); - Sql.Add('GROUP BY A.OrderNo,C.OrderNo,A.C_Pattern,A.C_Color,A.C_ColorNo,A.ZDPrice'); + sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId where A.ZDMainID= ' + QuotedStr(Trim(FMainID))); + Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice, B.OrdUnit, A.ZDTime'); // ShowMessage(sql.text); Open; end; - SCreateCDS(ADOQuery2, CDS_2); - SInitCDSData(ADOQuery2, CDS_2); + SCreateCDS(ADOQuery3, CDS_3); + SInitCDSData(ADOQuery3, CDS_3); + with CDS_3 do + begin + first; + while not eof do + begin + Edit; + FieldByName('SDefNote').AsString := '成品转单'; + post; + Next; + end; + end; + with ADOQuery3 do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('select stkName, FromOrdNo, C_Pattern, C_Color, C_ColorNo, Price, qtyUnit, ZDAmount = (isnull(price, 0) * sum(qty)), qty = sum(qty), sum(piece) as piece, iotime, '); + SQL.Add(' (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) ToOrdNo '); + SQL.Add(' from Bs_Cloth_IO A where STKName in (''贸易坯布'', ''贸易待检布'')'); + SQL.Add(' and FromOrdNo <> (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) '); + sql.Add(' and (select OrderNo from Trade_Plan_Main where MainID in(select MainID from Pur_ClothPlan_Main X where X.PurNo = A.ToOrdNo)) = ' + quotedstr(FOrderNo)); + SQL.Add(' group by FromOrdNo, ToOrdNo, C_Pattern, C_Color, C_ColorNo, Price, stkName, qtyUnit, iotime '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery3, CDS_31); + SInitCDSData(ADOQuery3, CDS_31); + if not CDS_31.IsEmpty then + begin + with CDS_3 do + begin + CDS_31.First; + for var i := 0 to CDS_31.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := OrderNo.Text; + FieldByName('FromOrdNo').AsString := CDS_31.FieldByName('FromOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_31.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_31.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_31.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_31.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_31.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_31.FieldByName('qtyUnit').AsString; + FieldByName('ZDTime').AsString := CDS_31.FieldByName('iotime').AsString; + FieldByName('Piece').AsString := CDS_31.FieldByName('Piece').AsString; + if CDS_31.FieldByName('stkName').AsString = '贸易坯布' then + FieldByName('SDefNote').AsString := '坯布转单' + else if CDS_31.FieldByName('stkName').AsString = '贸易待检布' then + FieldByName('SDefNote').AsString := '待检布转单'; + if LowerCase(CDS_31.FieldByName('QtyUnit').AsString) = 'kg' then + FieldByName('NetWeight').AsString := CDS_31.FieldByName('qty').AsString + else if LowerCase(CDS_31.FieldByName('QtyUnit').AsString) = 'm' then + FieldByName('Meter').AsString := CDS_31.FieldByName('qty').AsString; + + CDS_31.Next; + end; + post; + end; + end; with ADOQuery3 do begin Filtered := False; Close; SQL.Clear; - sql.Add('select A.OrderNo FromOrdNo,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,COUNT(CIID) Piece,ISNULL(A.ZDPrice,0) ZDPrice'); - if FUnit = 'M' then - begin - sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkMeter))') - end - else if FUnit = 'Y' then - begin - sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkYardage))') - end - else if FUnit = 'Kg' then - begin - sql.Add(',ZDAmount=(ISNULL(A.ZDPrice,0)*SUM(StkGrossWeight))') - end; - SQL.Add(',SUM(StkGrossWeight) GrossWeight,SUM(StkNetWeight) NetWeight,SUM(StkMeter) Meter,SUM(StkYardage) Yardage'); - SQL.Add('from Trade_Cloth_Stock_ZD A left join Trade_Plan_Sub B on A.ZDSubId=B.SubID'); - sql.Add('left join Trade_Plan_Main C on C.MainId=B.MainId where A.ZDMainID= ' + QuotedStr(Trim(FMainID))); - Sql.Add('GROUP BY A.OrderNO,C.OrderNo,B.C_Pattern,B.C_Color,B.C_ColorNo,A.ZDPrice'); -// ShowMessage(sql.text); + SQL.Add('SELECT '); + SQL.Add(' B.OrderNo AS FromOrdNo, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, ISNULL(A.price, sub.price) price, sub.QtyUnit, A.IOTime,COUNT(*) Piece, A.IOType,'); + SQL.Add(' Sum(A.Meter) Meter, Sum(A.NetWeight) NetWeight, Sum(A.GrossWeight) GrossWeight, Sum(A.Yardage) Yardage,'); + SQL.Add(' (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) AS ToOrdNo,'); + SQL.Add(' CAST(ISNULL(Sum('); + SQL.Add(' ISNULL(A.price, sub.price) * '); + SQL.Add(' ISNULL( CASE sub.QtyUnit'); + SQL.Add(' WHEN ''M'' THEN A.Meter'); + SQL.Add(' WHEN ''Kg'' THEN A.NetWeight '); + SQL.Add(' WHEN ''Y'' THEN A.Yardage'); + SQL.Add(' END, 0)),0) AS DECIMAL(18,2)) AS zdamount'); + SQL.Add('FROM Trade_Cloth_IO A '); + SQL.Add('JOIN Trade_Cloth_Stock B ON A.StkID = B.StkID '); + SQL.Add('CROSS APPLY ('); + SQL.Add(' SELECT TOP 1 QtyUnit, price '); + SQL.Add(' FROM Trade_Cloth_DR_Sub X '); + SQL.Add(' WHERE X.DRMID = A.IONO'); + SQL.Add(') sub'); + SQL.Add('WHERE B.OrderNo <> (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) '); + SQL.Add(' AND A.IOType IN (''加工出库'', ''回修出库'')'); + SQL.Add(' AND (SELECT top 1 OrderNo FROM Trade_Cloth_DR_Sub X WHERE X.DRMID = A.IONO) = ' + QuotedStr(FOrderNo)); + SQL.Add('GROUP BY B.OrderNo, A.IONO, B.C_Pattern, A.IOType, B.C_Color, B.C_ColorNo, sub.price, sub.QtyUnit, A.IOTime, A.price'); Open; end; - SCreateCDS(ADOQuery3, CDS_3); - SInitCDSData(ADOQuery3, CDS_3); + SCreateCDS(ADOQuery3, CDS_32); + SInitCDSData(ADOQuery3, CDS_32); + if not CDS_32.IsEmpty then + begin + with CDS_3 do + begin + CDS_32.First; + for var i := 0 to CDS_32.RecordCount - 1 do + begin + append; + FieldByName('OrderNo').AsString := OrderNo.Text; + FieldByName('FromOrdNo').AsString := CDS_32.FieldByName('FromOrdNo').AsString; + FieldByName('C_Pattern').AsString := CDS_32.FieldByName('C_Pattern').AsString; + FieldByName('C_Color').AsString := CDS_32.FieldByName('C_Color').AsString; + FieldByName('ZDAmount').AsString := CDS_32.FieldByName('ZDAmount').AsString; + FieldByName('C_ColorNo').AsString := CDS_32.FieldByName('C_ColorNo').AsString; + FieldByName('ZDPrice').AsString := CDS_32.FieldByName('Price').AsString; + FieldByName('OrdUnit').AsString := CDS_32.FieldByName('qtyUnit').AsString; + FieldByName('ZDTime').AsString := CDS_32.FieldByName('iotime').AsString; + FieldByName('Piece').AsString := CDS_32.FieldByName('Piece').AsString; + FieldByName('Meter').AsString := CDS_32.FieldByName('Meter').AsString; + FieldByName('GrossWeight').AsString := CDS_32.FieldByName('GrossWeight').AsString; + FieldByName('Yardage').AsString := CDS_32.FieldByName('Yardage').AsString; + FieldByName('NetWeight').AsString := CDS_32.FieldByName('NetWeight').AsString; + if CDS_32.FieldByName('IOType').AsString = '加工出库' then + FieldByName('SDefNote').AsString := ' 加工转单' + else if CDS_32.FieldByName('IOType').AsString = '回修出库' then + FieldByName('SDefNote').AsString := ' 回修转单'; + + CDS_32.Next; + end; + post; + end; + end; // ToolButton2.Click; end; @@ -348,6 +661,13 @@ begin Action := caFree; end; +procedure TfrmPlanProfitDetails.FormResize(Sender: TObject); +begin + inherited; + cxGrid4.Width := ClientWidth div 2; + cxGrid2.Width := ClientWidth div 2; +end; + procedure TfrmPlanProfitDetails.TBCloseClick(Sender: TObject); begin @@ -357,6 +677,9 @@ end; procedure TfrmPlanProfitDetails.FormShow(Sender: TObject); begin inherited; +// cxGrid4.Width := 981; + +// CxSplitter2.Left := cxGrid4.Width; ReadCxGrid(trim(self.Caption), Tv1, '利润明细'); // Enddate.DateTime := SGetServerDate(ADOQueryTemp); //// begdate.DateTime := StartOfTheMonth(Enddate.DateTime); @@ -390,6 +713,25 @@ begin SInitCDSData(ADOQueryMain, CDS_HZ); end; +procedure TfrmPlanProfitDetails.ToolButton3Click(Sender: TObject); +begin + inherited; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradePlanProfitPrint'; + FFiltration1 := FOrderNo + ',' + FMainID + ',' + FUnit; + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; +end; + procedure TfrmPlanProfitDetails.OrderNoChange(Sender: TObject); begin ToolButton2.Click; diff --git a/T01贸易生产计划/U_TradePlanInPut.dfm b/T01贸易生产计划/U_TradePlanInPut.dfm index 57d413e..9af3642 100644 --- a/T01贸易生产计划/U_TradePlanInPut.dfm +++ b/T01贸易生产计划/U_TradePlanInPut.dfm @@ -781,6 +781,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True + StyleReadOnly.LookAndFeel.NativeStyle = True TabOrder = 3 Visible = False OnDblClick = cxDBImage1DblClick diff --git a/T01贸易生产计划/U_TradePlanInPut.pas b/T01贸易生产计划/U_TradePlanInPut.pas index ee94351..1e71b20 100644 --- a/T01贸易生产计划/U_TradePlanInPut.pas +++ b/T01贸易生产计划/U_TradePlanInPut.pas @@ -230,6 +230,7 @@ type function getOrderNo(fconNo: string): string; procedure InitImageHX(); procedure LookImage(FileName: string); + function CheckData():Boolean; { Private declarations } public PState, CopyInt, PriceFlag: Integer; @@ -533,29 +534,29 @@ begin begin // if (FProcessingType <> '(Ʒ)') then // begin - if GetLSNo(ADOCmd, maxno, 'FDH', 'Trade_Plan_Main', 5, 0) = False then - raise Exception.Create('ȡʧ!'); - with ADOQuery1 do - begin - Close; - sql.Clear; - SQL.Add('select Right(''' + Trim(maxno) + ''',Len(''' + Trim(maxno) + ''')-3) AS S'); - Open; - end; - FOrderNo := Trim(Fdate) + ADOQuery1.FieldByName('S').ASString; + if GetLSNo(ADOCmd, maxno, 'FDH', 'Trade_Plan_Main', 5, 0) = False then + raise Exception.Create('ȡʧ!'); + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select Right(''' + Trim(maxno) + ''',Len(''' + Trim(maxno) + ''')-3) AS S'); + Open; + end; + FOrderNo := Trim(Fdate) + ADOQuery1.FieldByName('S').ASString; - if FProcessingType = '˾' then - begin - OrderNo.text := 'BH' + Trim(FOrderNo); - end - else if FProcessingType = '' then - begin - OrderNo.text := 'KF' + Trim(FOrderNo); - end - else if FProcessingType = '迪' then - begin - OrderNo.text := 'KX' + Trim(FOrderNo); - end; + if FProcessingType = '˾' then + begin + OrderNo.text := 'BH' + Trim(FOrderNo); + end + else if FProcessingType = '' then + begin + OrderNo.text := 'KF' + Trim(FOrderNo); + end + else if FProcessingType = '迪' then + begin + OrderNo.text := 'KX' + Trim(FOrderNo); + end; // end // else // begin @@ -589,7 +590,7 @@ begin end else begin - ForderNo := Trim(ConNo.Text) + '-' + ADOQuery1.FieldByName('S').ASString; + ForderNo := Trim(ConNo.Text) + '-' + ADOQuery1.FieldByName('S').ASString; end; OrderNo.text := Trim(FOrderNo); end; @@ -772,6 +773,83 @@ begin end; end; +function TfrmTradePlanInPut.CheckData():Boolean; +begin + Result := true; + if CDS_1.IsEmpty then + begin + Application.MessageBox('ϸΪ!', 'ʾ', 0); + Result := false; + exit; + end; + + if ProcessingType.Text = '' then + begin + Application.MessageBox('ӹͲΪ!', 'ʾ', 0); + Result := false; + exit; + end; + + if OrdUnit.Text = '' then + begin + Application.MessageBox('λΪ!', 'ʾ', 0); + Result := false; + exit; + end; + + if ProcessingType.text = '' then + begin + if ConNo.Text = '' then + begin + Application.MessageBox('ͬŲΪ!', 'ʾ', 0); + Result := false; + exit; + end; + end; + + if OurCoName.Text = '' then + begin + Application.MessageBox('ӪλΪ!', 'ʾ', 0); + Result := false; + exit; + end; + + if CPMC.Text = '' then + begin + Application.MessageBox('Ʒ׳Ϊ!', 'ʾ', 0); + Result := false; + exit; + end; + + if OrderNo.Text = '' then + begin + Application.MessageBox('ƻŲΪ!', 'ʾ', 0); + Result := false; + exit; + end; + + if Currency.Text = '' then + begin + Application.MessageBox('ֲΪ!', 'ʾ', 0); + Result := false; + exit; + end; + + if IsTax.Text = '' then + begin + Application.MessageBox('Ƿ˰Ϊ!', 'ʾ', 0); + Result := false; + exit; + end; + + if CDS_1.Locate('OrdQty', null, []) then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Result := false; + exit; + end; +end; + procedure TfrmTradePlanInPut.TBSaveClick(Sender: TObject); var MAXNO1: string; @@ -781,72 +859,15 @@ begin OrdDate.SetFocus; end; - if CDS_1.IsEmpty then - begin - Application.MessageBox('ϸΪ!', 'ʾ', 0); - Exit; - end; + if CheckData() = false then + exit; - if ProcessingType.Text = '' then - begin - Application.MessageBox('ӹͲΪ!', 'ʾ', 0); - Exit; - end; - - if OrdUnit.Text = '' then - begin - Application.MessageBox('λΪ!', 'ʾ', 0); - Exit; - end; - - if ProcessingType.text = '' then - begin - if ConNo.Text = '' then - begin - Application.MessageBox('ͬŲΪ!', 'ʾ', 0); - Exit; - end; - end; - - if OurCoName.Text = '' then - begin - Application.MessageBox('ӪλΪ!', 'ʾ', 0); - Exit; - end; - - if OrderNo.Text = '' then - begin - Application.MessageBox('ƻŲΪ!', 'ʾ', 0); - Exit; - end; - - if Currency.Text = '' then - begin - Application.MessageBox('ֲΪ!', 'ʾ', 0); - Exit; - end; - - if IsTax.Text = '' then - begin - Application.MessageBox('Ƿ˰Ϊ!', 'ʾ', 0); - Exit; - end; - - if CDS_1.Locate('OrdQty', null, []) then - begin - Application.MessageBox('Ϊ!', 'ʾ', 0); - Exit; - end; // if CDS_1.Locate('C_Color', null, []) then // begin // Application.MessageBox('ɫΪ!', 'ʾ', 0); // Exit; // end; - with ADOQuery1 do - begin - - end; if SaveData() then begin diff --git a/T01贸易生产计划/U_TradePlanSchedule.dfm b/T01贸易生产计划/U_TradePlanSchedule.dfm index 3b4703d..4f74e9d 100644 --- a/T01贸易生产计划/U_TradePlanSchedule.dfm +++ b/T01贸易生产计划/U_TradePlanSchedule.dfm @@ -6,7 +6,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule ClientWidth = 1540 Position = poScreenCenter WindowState = wsMaximized - ExplicitLeft = -398 + ExplicitLeft = -30 ExplicitWidth = 1556 ExplicitHeight = 663 PixelsPerInch = 96 @@ -111,7 +111,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule end object Label7: TLabel Left = 176 - Top = 36 + Top = 35 Width = 36 Height = 12 Caption = #35746#21333#21495 @@ -124,11 +124,11 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule Caption = #23458#25143#21333#21495 end object Label9: TLabel - Left = 358 - Top = 36 - Width = 78 + Left = 384 + Top = 34 + Width = 48 Height = 12 - Caption = #20135#21697#21517#31216'/'#24037#33402 + Caption = #20135#21697#21517#31216 end object Label1: TLabel Left = 603 @@ -204,14 +204,14 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule TabOrder = 0 end object Enddate: TDateTimePicker - Left = 72 + Left = 73 Top = 32 Width = 97 Height = 20 Date = 41256.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.918237847232376200 - TabOrder = 1 + TabOrder = 8 end object CustName: TEdit Tag = 2 @@ -219,35 +219,35 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule Top = 6 Width = 135 Height = 20 - TabOrder = 2 - OnChange = CustNameChange + TabOrder = 1 + OnKeyPress = CustNameKeyPress end object OrderNo: TEdit Tag = 2 - Left = 221 + Left = 219 Top = 32 Width = 135 Height = 20 - TabOrder = 3 - OnChange = CustNameChange + TabOrder = 7 + OnKeyPress = CustNameKeyPress end object BuyConNo: TEdit Tag = 2 - Left = 436 - Top = 7 + Left = 440 + Top = 4 Width = 135 Height = 20 - TabOrder = 4 - OnChange = OrderNoChange + TabOrder = 2 + OnKeyPress = CustNameKeyPress end - object PMGY: TEdit + object C_Name: TEdit Tag = 2 - Left = 438 - Top = 34 + Left = 440 + Top = 30 Width = 135 Height = 20 - TabOrder = 5 - OnChange = OrderNoChange + TabOrder = 3 + OnKeyPress = CustNameKeyPress end object Panel2: TPanel Left = 1112 @@ -256,7 +256,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule Height = 29 Color = clYellow ParentBackground = False - TabOrder = 6 + TabOrder = 4 end object Panel3: TPanel Left = 1268 @@ -265,7 +265,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule Height = 29 Color = 36095 ParentBackground = False - TabOrder = 7 + TabOrder = 5 end object Panel4: TPanel Left = 1420 @@ -274,7 +274,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule Height = 29 Color = 4678655 ParentBackground = False - TabOrder = 8 + TabOrder = 6 end end object cxGrid1: TcxGrid [2] @@ -550,7 +550,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 110 + Width = 92 Position.BandIndex = 0 Position.ColIndex = 19 Position.RowIndex = 0 @@ -814,7 +814,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule DataBinding.FieldName = 'FZR' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 43 + Width = 61 Position.BandIndex = 0 Position.ColIndex = 18 Position.RowIndex = 0 diff --git a/T01贸易生产计划/U_TradePlanSchedule.pas b/T01贸易生产计划/U_TradePlanSchedule.pas index b160116..cf439a4 100644 --- a/T01贸易生产计划/U_TradePlanSchedule.pas +++ b/T01贸易生产计划/U_TradePlanSchedule.pas @@ -76,7 +76,7 @@ type TV1Column32: TcxGridDBBandedColumn; TV1Column33: TcxGridDBBandedColumn; Label9: TLabel; - PMGY: TEdit; + C_Name: TEdit; TV1Column27: TcxGridDBBandedColumn; TV1Column3: TcxGridDBBandedColumn; TV1Column2: TcxGridDBBandedColumn; @@ -129,13 +129,13 @@ type procedure MPRTCodeNameChange(Sender: TObject); procedure FormCreate(Sender: TObject); procedure ToolButton3Click(Sender: TObject); - procedure CustNameChange(Sender: TObject); procedure OrderNoChange(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure TV1DblClick(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure CustNameKeyPress(Sender: TObject; var Key: Char); private { Private declarations } @@ -238,16 +238,23 @@ begin ToolButton2.Click; end; +procedure TfrmTradePlanSchedule.CustNameKeyPress(Sender: TObject; + var Key: Char); +begin + inherited; + if Key = #13 then + begin + Key := #0; + ToolButton2.Click; + end; +end; + procedure TfrmTradePlanSchedule.cxTabControl1Change(Sender: TObject); begin InitGrid(); end; -procedure TfrmTradePlanSchedule.CustNameChange(Sender: TObject); -begin - ToolButton2.Click; -end; procedure TfrmTradePlanSchedule.FormClose(Sender: TObject; var Action: TCloseAction); begin diff --git a/T01贸易生产计划/U_TradePlanScheduleDetail.dfm b/T01贸易生产计划/U_TradePlanScheduleDetail.dfm index 7619661..7e1c2ff 100644 --- a/T01贸易生产计划/U_TradePlanScheduleDetail.dfm +++ b/T01贸易生产计划/U_TradePlanScheduleDetail.dfm @@ -36,6 +36,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 0 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -77,6 +78,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #26816#39564#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -88,6 +90,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -101,6 +104,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn7: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'JYPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -109,6 +113,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #31859#25968 DataBinding.FieldName = 'JYMeter' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -117,12 +122,14 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object TV1Column1: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'JYGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 73 end object TV1Column2: TcxGridDBColumn Caption = #37325#37327 DataBinding.FieldName = 'JYGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end @@ -140,6 +147,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 1 object TV8: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_8 DataController.Summary.DefaultGroupSummaryItems = < item @@ -180,6 +188,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn58: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'IONo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -188,6 +197,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -199,6 +209,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -213,6 +224,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -226,6 +238,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn63: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'CPCKPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -234,6 +247,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #31859#25968 DataBinding.FieldName = 'CPCKMeter' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -243,6 +257,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #30721#25968 DataBinding.FieldName = 'CPCKYardage' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -256,6 +271,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object TV8Column1: TcxGridDBColumn Caption = #37325#37327 DataBinding.FieldName = 'CPCKGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end end @@ -281,6 +297,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 0 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_3 DataController.Summary.DefaultGroupSummaryItems = < item @@ -321,6 +338,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn1: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -329,6 +347,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -340,6 +359,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -354,6 +374,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -370,6 +391,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -383,6 +405,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object v1Column15: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -391,6 +414,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -400,6 +424,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -414,6 +439,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -432,6 +458,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 1 object TV5: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_5 DataController.Summary.DefaultGroupSummaryItems = < item @@ -472,6 +499,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn13: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -480,6 +508,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -491,6 +520,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -505,6 +535,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#21040#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -521,6 +552,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -534,6 +566,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn18: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -542,6 +575,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -551,6 +585,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -565,6 +600,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -864,6 +900,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 0 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Summary.DefaultGroupSummaryItems = < item @@ -904,6 +941,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn22: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -912,6 +950,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -923,6 +962,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -937,6 +977,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -953,6 +994,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -966,6 +1008,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn27: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -974,6 +1017,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -983,6 +1027,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -997,6 +1042,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -1015,6 +1061,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 1 object TV6: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_6 DataController.Summary.DefaultGroupSummaryItems = < item @@ -1055,6 +1102,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn39: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -1063,6 +1111,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -1074,6 +1123,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -1088,6 +1138,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#21040#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -1104,6 +1155,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1117,6 +1169,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn44: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -1125,6 +1178,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -1134,6 +1188,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -1148,6 +1203,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -1175,6 +1231,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 0 object TV4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_4 DataController.Summary.DefaultGroupSummaryItems = < item @@ -1215,6 +1272,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn28: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -1223,6 +1281,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -1234,6 +1293,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -1248,6 +1308,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -1264,6 +1325,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1277,6 +1339,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn33: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -1285,6 +1348,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -1294,6 +1358,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -1308,6 +1373,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -1326,6 +1392,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail TabOrder = 1 object TV7: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_7 DataController.Summary.DefaultGroupSummaryItems = < item @@ -1366,6 +1433,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn49: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -1374,6 +1442,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -1385,6 +1454,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -1399,6 +1469,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #20986#21040#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -1415,6 +1486,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -1428,6 +1500,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail object cxGridDBColumn54: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -1436,6 +1509,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -1445,6 +1519,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -1459,6 +1534,7 @@ object frmTradePlanScheduleDetail: TfrmTradePlanScheduleDetail Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 diff --git a/T01贸易生产计划/U_TradePlanScheduleDetail.pas b/T01贸易生产计划/U_TradePlanScheduleDetail.pas index 4b8b9c6..724ddf8 100644 --- a/T01贸易生产计划/U_TradePlanScheduleDetail.pas +++ b/T01贸易生产计划/U_TradePlanScheduleDetail.pas @@ -11,7 +11,8 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, Menus, cxTextEdit, cxButtonEdit, ComCtrls, cxContainer, cxMaskEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, cxDropDownEdit, BtnEdit, Vcl.ToolWin, math; + dxBarBuiltInMenu, cxDropDownEdit, BtnEdit, Vcl.ToolWin, math, dxSkinWXI, + dxScrollbarAnnotations; type TfrmTradePlanScheduleDetail = class(TForm) diff --git a/T01贸易生产计划/testDll.identcache b/T01贸易生产计划/testDll.identcache index 153c334..fb8f4e8 100644 Binary files a/T01贸易生产计划/testDll.identcache and b/T01贸易生产计划/testDll.identcache differ diff --git a/T02贸易汇总仓库/ProjectGroup1.groupproj.local b/T02贸易汇总仓库/ProjectGroup1.groupproj.local index e44cc12..fbd9772 100644 --- a/T02贸易汇总仓库/ProjectGroup1.groupproj.local +++ b/T02贸易汇总仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dpr b/T02贸易汇总仓库/TradeTotalClothStk.dpr index 9b4f0c8..0023451 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dpr +++ b/T02贸易汇总仓库/TradeTotalClothStk.dpr @@ -30,7 +30,8 @@ uses U_TPUp in 'U_TPUp.pas' {frmTPUp}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_SLT in '..\A02Ʒ\U_SLT.pas' {frmSLT: TFrame}, - U_ClothTotalFileUp in 'U_ClothTotalFileUp.pas' {frmClothTotalFileUp}; + U_ClothTotalFileUp in 'U_ClothTotalFileUp.pas' {frmClothTotalFileUp}, + U_LabelPrintPV in 'U_LabelPrintPV.pas' {frmLabelPrintPV}; {$R *.res} diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj b/T02贸易汇总仓库/TradeTotalClothStk.dproj index b83a336..93cb54f 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj @@ -80,7 +80,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\项目代码\D10zzbiaoqi\T02贸易汇总仓库\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T02贸易汇总仓库\testDll.exe @@ -163,6 +163,10 @@
frmClothTotalFileUp
dfm + +
frmLabelPrintPV
+ dfm + Cfg_2 Base diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local index 9048adc..cac986b 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local @@ -1,45 +1,46 @@  - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.147,D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas= - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.475,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas - 1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas 1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.719,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T02贸易汇总仓库\U_LabelPrintPV.pas + 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.217,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas + 1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.974,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\D10myBiaoqi\A02基础产品管理\U_SLT.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm + 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj - 1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj + 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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.478,=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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.475,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas + 1899-12-30 00:00:00.000.147,D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.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.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= @@ -64,7 +65,7 @@ - + @@ -93,5 +94,7 @@ + + diff --git a/T02贸易汇总仓库/TradeTotalClothStk.identcache b/T02贸易汇总仓库/TradeTotalClothStk.identcache index 289aa3f..9798fe7 100644 Binary files a/T02贸易汇总仓库/TradeTotalClothStk.identcache and b/T02贸易汇总仓库/TradeTotalClothStk.identcache differ diff --git a/T02贸易汇总仓库/U_GetDllForm.pas b/T02贸易汇总仓库/U_GetDllForm.pas index 8d498bd..fe09d14 100644 --- a/T02贸易汇总仓库/U_GetDllForm.pas +++ b/T02贸易汇总仓库/U_GetDllForm.pas @@ -75,10 +75,15 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; +// server := '101.132.143.144,7781'; +// dtbase := 'BiaoqiData'; +// user := 'rtsa'; +// pswd := 'rightsoft@5740'; + + server := '127.0.0.1'; dtbase := 'BiaoqiData'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'sa'; + pswd := 'root'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; // DParameters1:='Ȩ'; diff --git a/T02贸易汇总仓库/U_LabelPrintPV.dfm b/T02贸易汇总仓库/U_LabelPrintPV.dfm new file mode 100644 index 0000000..a195054 --- /dev/null +++ b/T02贸易汇总仓库/U_LabelPrintPV.dfm @@ -0,0 +1,4574 @@ +inherited frmLabelPrintPV: TfrmLabelPrintPV + Left = 372 + Top = 106 + Caption = #25253#34920#25171#21360 + ClientHeight = 272 + ClientWidth = 291 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -12 + Font.Name = #23435#20307 + Position = poMainFormCenter + OnClose = FormClose + ExplicitWidth = 307 + ExplicitHeight = 311 + PixelsPerInch = 96 + TextHeight = 12 + object Panel1: TPanel [0] + Left = 0 + Top = 0 + Width = 291 + Height = 272 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + Ctl3D = True + FullRepaint = False + ParentCtl3D = False + TabOrder = 0 + object btnPrint: TSpeedButton + Left = 162 + Top = 128 + Width = 105 + Height = 49 + Caption = #25171#21360 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = btnPrintClick + end + object btnShow: TSpeedButton + Left = 18 + Top = 128 + Width = 105 + Height = 49 + Caption = #39044#35272 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = btnShowClick + end + object Label1: TLabel + Left = 18 + Top = 71 + Width = 50 + Height = 24 + Caption = #20221#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 29 + Top = 192 + Width = 68 + Height = 17 + Caption = #23458#25143#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label4: TLabel + Left = 63 + Top = 225 + Width = 34 + Height = 17 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object CheckBox1: TCheckBox + Left = 162 + Top = 58 + Width = 105 + Height = 29 + Caption = #25171#21360#36873#39033 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + TabOrder = 0 + end + object ComboBox1: TComboBox + Left = 74 + Top = 65 + Width = 49 + Height = 37 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + ParentFont = False + TabOrder = 1 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4' + '5' + '6') + end + object cbbLab: TcxMRUEdit + Left = 25 + Top = 28 + ParentFont = False + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.ReadOnly = False + Properties.OnButtonClick = cbbLabPropertiesButtonClick + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #23435#20307 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 2 + Width = 242 + end + object CheckBox2: TCheckBox + Left = 162 + Top = 93 + Width = 105 + Height = 29 + Caption = #23548#20986#36873#39033 + Checked = True + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentColor = False + ParentFont = False + State = cbChecked + TabOrder = 3 + end + object inputCode: TEdit + Tag = 2 + Left = 103 + Top = 191 + Width = 153 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 4 + Visible = False + end + object inputNote: TEdit + Tag = 2 + Left = 103 + Top = 222 + Width = 153 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + Visible = False + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = ADOConnection1 + Left = 513 + Top = 48 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = ADOConnection1 + Left = 625 + Top = 57 + end + inherited ImageList_new32: TImageList + Left = 368 + Top = 64 + Bitmap = { + 494C010100000C00040020002000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000800000002000000001002000000000000040 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000080000000200000000100010000000000000200000000000000000000 + 000000000000000000000000FFFFFF0000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000} + end + object ADOQueryTemp: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 64 + Top = 248 + end + object ADOConnection1: TADOConnection + LoginPrompt = False + Left = 448 + Top = 120 + end + object ImageList1: TImageList + DrawingStyle = dsTransparent + Height = 32 + Width = 32 + Left = 328 + Top = 168 + Bitmap = { + 494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 000000000000360000002800000080000000E0000000010020000000000000C0 + 0100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFE2C400EDD19300FAEFD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1D69B00EAA30000F0C76B00F6EEDC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EAB02D00E9A20000E7A30900EFC56800FAEF + D600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F6DCA200EBA30000E9A20000E9A20000E9A3 + 0500E5BC5F00F8ECD40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E3AA2900EAA30000E9A20000E9A2 + 0000EBA30000E8A20600EFC25A00F6EBD4000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DCC89F00EFA70000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E49F0300E9BD5800F9EBCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E9AD2700E9A20000E9A2 + 0000E9A20000E9A20000E9A20000EAA20000EAA30000E7A10100EDBD4F00F3E6 + C800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3D79A00E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E8A0 + 0000EDBC4E00F7E7C30000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ECAF2400E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E7B44300F6E3B7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EDD6A000EAA3 + 0000E8A61100E8A61100E8A61100E8A61100E8A61100E8A61100E8A61100E8A6 + 1100E8A61100E8A61100E8A61100E8A50D00EAB33300F0DEB500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E6CC9400F5C6 + 5D00000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F5DA9D00EAAF2900EFB53100EDDCB600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EAAF2900EBE5 + D700000000000000000000000000000000000000000000000000000000000000 + 0000F2DCAC00E8B54300E5B54500F5E0B3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3D38D00E9BA57000000 + 0000000000000000000000000000000000000000000000000000F1DAA300EDB5 + 3600EDB84400F8E3B70000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E9AF2A00F8EDD4000000 + 000000000000000000000000000000000000F5DBA100E7B13400E8B74500F0DF + BC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E5CA9100F1C25A00000000000000 + 00000000000000000000E9CF9700E9B13000EABA4E00F8E7C300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E1AB2B00FAEDD200000000000000 + 0000F6D89400EBB02E00F1BE4E00F5E7C9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F9DA9600D4AF5D0000000000F3D38F00E7AE + 2D00E3B75100F6E8CA0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBB02B00E0B85E00E8B23600EEC15A00F9EB + CC00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3D79B00E9A20000F2C66300F4EBD300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F3E4C500ECD19400F9EFD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EEC9 + 7400EFC46200EFC56500EFC56500EFC56500EFC56500EFC56500EFC56500EFC4 + 6300F0C86F000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E2B86700DFAB460000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F6E8CC00F2CE8200EEBE5200ECB63A00ECB53900EDBD5100ECCA7F00F8E9 + C900000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F2D69A00F9EDD40000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F0D28A00ECBA + 4C00F5DA9F00F4D99A00F5DDA600F5DDA600F5DDA600F5DDA600F4D99B00F5DA + 9F00EEBF5400F0CD7E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E5B9 + 6300D9900000D8900000DCA33300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F6EBD200ECBB + 4C00EAA20000EAA30000E9A20000E9A20000E9A20000E9A20000EBA30000E9A2 + 0000EDBA4700F5E8CD0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EED7A500E8A30600F3D89C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F0C97300F4D7 + 98000000000000000000F2CD7D00F2CE7F00F2CE7F00F2CD7B00000000000000 + 0000F5DDA600F1C7690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E5B86200D78F + 0000DDAD4F00DCAA4500D8900000DDA436000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F8DEA200E8A50C00EBA3 + 0000E5A71900EDCA7A00F5E3BD00F9F0DC00F8EFDC00F7E5BF00F1CD7D00E8AA + 1C00EAA30000E6A30800F1D79C00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E9AB1D00EAA30000EAB84B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EFC76C00F4D7 + 98000000000000000000F8EACB00F8EACC00F8EACC00F8EACB00000000000000 + 0000F5DDA600F0C4620000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E4B86100D88F0000E3B6 + 5D000000000000000000E1AF4F00D78F0000DEA3330000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D6C6A400F2A90000EDA50000EEC7 + 71000000000000000000F3D89D00EFC46400EDC36400F4D89B00000000000000 + 0000EECB7900EDA50000ECA40000E7D39C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7C27000EBA40000EAA30000E4A61400EED6A300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EAD1A700EBB22D00EBB63D00ECB74100E8A61000F5DB + A100000000000000000000000000000000000000000000000000000000000000 + 0000F6DFAD00E8A50E00ECB74100ECB63D00E7AF2D00F2D89D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E5B86200DB920000E5BA65000000 + 0000000000000000000000000000E0AC4700D78F0000DEA93F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F8ECD600ECA80C00EFA70000DFC994000000 + 0000F3CB7100E9A30200E7A40C00E9B23400ECB43600E7A50E00E7A00000EDC5 + 6A0000000000E9D29D00E7A00000EBA40800F7E9CF0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F6E8CA00EBA30000E9A20000EAA20000EBA40000EEBE53000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F3D28E00EDB12A00F8EFDE000000000000000000F0C87100F4D7 + 9800000000000000000000000000000000000000000000000000000000000000 + 0000F5DDA500F0C66800000000000000000000000000E8AF2C00F1CE85000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E6BB6300DC930000D9B46900E5DCCA00EAC7 + 8100000000000000000000000000E2B25500D88F0000E2B65E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBB84C00EEA60000E1BB700000000000CEA6 + 4300ECA60700EED59D0000000000000000000000000000000000F4DBA300EBA6 + 0B00EAB33B0000000000E8CA7B00EDA50000EBB5420000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E5AE3400EAA30000E9A20000E9A20000E9A20000E8A7 + 1200F4DBA2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC05800EDBB4A00000000000000000000000000F0C97300F4D6 + 97000000000000000000F0C76900F0C76B00F0C76B00F0C66700FAF1DE000000 + 0000F5DDA500F0C76900000000000000000000000000EEC15B00EFC35E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DAB26F00DE940000D8AA4A00E3DBCE00C2881600DB92 + 0000E8C37C0000000000E5B96600D78F0000E3B45B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F5E9D200E7A20100E9A9190000000000E6C77500ECA4 + 0400F4E8D000000000000000000000000000000000000000000000000000F6EC + D700E29F0800ECC6690000000000E2A61F00EAA30000F3E5CA00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1D18F00EAA30000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000EDBE520000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC05700EEBC4C00000000000000000000000000F0C97300F4D6 + 9700000000000000000000000000000000000000000000000000000000000000 + 0000F5DDA500F0C76900000000000000000000000000EFC25D00EFC25D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E2B35900D9950D00D1B88600C78E1F00DF940000D894 + 1200F4E4C700E6BD6E00D78F0000E2B459000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F0CC8100EAA30000EFC9740000000000EDA40000F4D5 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000E9D5A000F0A6000000000000E6C77F00EDA40000F1CA7700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3D28700EBB02C00ECB53800ECB53800ECB53800ECB5 + 3800ECB53800EDB73A00EBB22E00E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A81600F2D7A0000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC05700EEBC4C00000000000000000000000000F0CA7400F4D7 + 9800000000000000000000000000000000000000000000000000000000000000 + 0000F5DDA600F0C76A00000000000000000000000000EFC25D00EFC35E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E5BC6D00DFAE4F00F5EAD600D5BD8F00CC911E00DD930000DA9A1C00F5E6 + CA00E6BE7200D78F0000E3B45A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEBD4F00E9A30000F5E2B900EFD69F00E5A209000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E8A50E00F0D59400F6E7C300EBA30000E6B44400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F0C56400E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000EBA30000E3B44400F2EBDB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC05700EEBC4C00000000000000000000000000EBB13100EBB1 + 2E00EEBF5500EEBD5100EEBD5100EEBD5100EEBD5100EEBD5100EEBD5100EEBE + 5400EBB33200EBB02B00FAF0DA000000000000000000EFC25D00EFC35E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E5B8 + 6200DA910000D9920600D3BB8B00C7912400DD930000D8981A00E9C78500E2B2 + 5500D78F0000E3B55B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EBAF2800E9A20000F9EED600F2CB7300E5AE29000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7B03200EFC56800F9F1DE00E9A20000E7AD2400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F0C56400E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000EDBA4700F9EFDB00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC05700EEBC4C00000000000000000000000000F9EBCC00F9EB + CA00F8E8C500F8E9C600F8E9C600F8E9C600F8E9C600F8E9C600F8E9C600F8E8 + C500F9EACA00F9EAC800000000000000000000000000EFC25D00EFC35E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E5B86200DC92 + 0000DEAE5100D3B98700CC911E00DD930000D99B1F00EBCA8E00D6920A00D890 + 0000E3B45A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EAB02A00E9A20000F9EDD500F2CB7500E5AC27000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E8B03000EEC56A00F9F1DE00E9A20000E8AD2500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3D28800EBB12E00ECB63A00ECB63A00ECB63A00ECB6 + 3A00ECB63A00EDB73C00EAB22F00E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000ECA40000E9A91700F5DBA2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC05700EEBC4C0000000000EFD39600EEC36200000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFC25D00EFC35E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E5B86200DB920000DAB4 + 6900E3DDCE00C8902100DD930000D9991B00E9C98800F7EBD700DFB15600E2B8 + 6700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EEBD5100E9A20000F6E1B600F5DCA400E4A106000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E8A30B00EDD39800F6E4C000EBA40000E7B54600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACE8E00EBA30000E9A20000E9A20000E9A20000E9A2 + 0000EAA30000E2B6540000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC05700EEBD4E0000000000EEBE5300EECC8100EACF93000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFC25D00F0C35D000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E4B86100D8900000E5BA6600E5DD + CC00C2881600DE940000D8981A00E8C88700D6951000E0AC4C00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFCE8600EBA40000EAC36E0000000000F1A70200EFD1 + 8B00000000000000000000000000000000000000000000000000000000000000 + 0000EED29600F0A7000000000000EAC77900ECA40000EECB7B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E9B13300E9A20000E9A20000E9A20000E9A30000E8A7 + 1400ECD8A4000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC35E00EBB7440000000000F5DDA800EEC97300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E5B85300EFC361000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E5B96300D7900000E5B85D0000000000E7C8 + 8C00DD930000D7951100F4E6CB00E1B25400D8900000E4B46500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F9EED700EBA40100DEA0140000000000D8BF8000EFA5 + 0000F6E7C800000000000000000000000000000000000000000000000000F7EA + CF00E8A20200DFBD740000000000E9AA1A00EBA30000F7EBCF00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F1E5C900EAA30000E9A20000E9A20000E9A20000EEBE56000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F6E5BE00EBB33600F0CD8400F8E9C700F7E7C400F6E6C200F9E9 + C600F8E8C500F8E8C500F8E8C500F8E8C500F8E8C500F8E8C500F8E8C500F8E8 + C500F8E9C600F7E6BF00F7E3B700F7E5BC00EFD08D00E1AE3100ECDDB3000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E5BA6800D8900000DEAB4C0000000000000000000000 + 0000E9C98700F4E4C600E6BF7100D78F0000E3B55B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E4B75500F0A60000E9C2650000000000CBA6 + 5200F0A70200EDCE8B0000000000000000000000000000000000F3D59100EAA3 + 0600EABB4A0000000000E4C16F00EEA50000EBBA4B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EDC76F00EAA20000E9A20000E8A81500F5DBA500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBC56D00EFC05600F0C35E00ECB12D00E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000EAAF2900EFC35E00EFC05700F2C7690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E1AD4D00D8900000DDA63C0000000000000000000000 + 000000000000E5BD6E00D78F0000E3B45A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F4EDDD00E3A61000EFA50000EACA88000000 + 0000F2CE8100E9A30500E6A20400E9AC2100EBAD2200E7A30500E7A00300F0CB + 7A0000000000EED49100E9A30000EFAA0B00F6EAD60000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E5A81C00EAA30000EDBC4D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F0CB7700F2CC + 7900FAF0DA00F9ECD000F9ECD000F9ECD000F9ECD000F9ECD000F9ECD000FAF0 + D900F3D18500F0C86C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000DFA93E00D88F0000DDAB4300000000000000 + 0000E4B86500D7900000E2B35900000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EEDAAF00EBA30200ECA40000F1C4 + 61000000000000000000F5E0B200F1CC7D00EDCB7C00F3DEB000000000000000 + 0000EFC56700EBA30000EFA40000D7CBA7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F2D9A400EAA50800F4DA9F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F2CB7300F4D7 + 9800000000000000000000000000000000000000000000000000000000000000 + 0000F5DDA600F1C7690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DFAA4100D78F0000DEA83C00E1B1 + 5200D78F0000E3B45A0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3DEB000E7A61100EAA3 + 0000E8A50D00EBC26700F5E0B100F8EFDA00F8EFDA00F4E0B300ECC46B00E8A5 + 1000EAA30000E9A60E00F5DDA800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E9D09A00F4EBD60000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E6CA8B00EFBC + 4A00F4D99C00F3D69400F3D69400F3D69400F3D69400F3D69400F3D69400F4D9 + 9B00EEBE5100F0CC7F0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFA93E00D78F0000D78F + 0000E3B45B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F9F0DC00EBBE + 5C00E8A30400EBA30000EAA20000E9A20000E9A20000EAA30000EAA30000E7A1 + 0200EBBD5600F7EDD80000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F3C9 + 6B00EEBF5500EFC05800EFC05800EFC05800EFC05800EFC05800EFC05800EEBF + 5500F0C666000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DFAC4900E3B5 + 5E00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F9EFDB00F0D39300EEC15C00ECB53C00ECB63B00EEC15B00F4D59000F7ED + D800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFE8C37900E5BA6600E5BA6600E5BA6600E5BA + 6600E5BA6600E5BA6600E5BA6600E5BA6600E5BA6600E5BA6600E5BA6600E5BA + 6600E5BA6600E5BA6600E5BA6600E5BA6600E8C37900000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F8EDDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3D48F00F0C76C00F2C86C00F0D18A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFD8961400D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D8961400000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D3B04F00EFB8430000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F8EFDA00E8CE + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EBB13100E9A20000EAA30000E8AC2800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EED6AC00EEA40000EAA30000F2D8A000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F5DCA400E9A60A00ECD1 + 9800000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB63D00E9A20000EAA30000E9B13400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E8AC1D00EAA20000E9A20000E8A81600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EDBE5300E9A20000E8A814000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB63D00E9A20000EAA30000E9B13400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EEC15F00E9A30000E9A20000E9A20000E9A20000EDBD52000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F5DDAB00E9A91900E9A20000EBA40000E9BE63000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB63D00E9A20000EAA30000E9B13400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F3DCAB00EAA20000E9A20000E9A20000E9A20000E9A20000EDA50000EAD3 + 9F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EEC05B00E9A20000E9A20000E9A20000E9A20000F3E2BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB63D00E9A20000EAA30000E9B13400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E9A91700E9A20000E9A20000E9A20000E9A20000E9A20000EDA50000D89A + 1100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E9D6 + AA00E8A91700EAA30000E9A20000E9A20000EAA30000E8AD2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F1D39A00F2D69A0000000000000000000000 + 00000000000000000000ECB63D00E9A20000EAA30000E9B13400000000000000 + 0000000000000000000000000000F0D8A000F1D4950000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EEC1 + 5D00E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000EFA6 + 0000E2B850000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EEC15A00EAA3 + 0000EAA30000E9A20000E9A20000E9A20000E9A20000EFCC8100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F0EBDD00E2A40C00EBA91500EAC16500F6E5 + C0000000000000000000EDB84000E9A20000EAA30000E9B23600000000000000 + 0000F6E7C500ECC46A00E9A91800E8A20600F9ECD40000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D6961500ECCE9300EDD09800D6981B00D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DECFAD00F2A8 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000EDA30000F0D7A00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F5DDA800E9AA1A00E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E7AD2A00ECB73B00ECB5 + 3800ECB53800ECB53800ECB53800ECB53800EBB02C00F3D28900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000CCC2A800F2A80000EBA30000E9A2 + 0000E8AE2B00F2D08500EBB22F00E9A20000E9A20000E9AE2900EFCF8700E7B0 + 2F00EAA30000EAA20000EBA50000F1D69C000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D9900000E6D4A500000000FF000000FFEEDCB400D88F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D39A1A00EEA5 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E8A6130000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EEBC4C00E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000EAA20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000F0C66700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EDBF5700E9A20000E9A2 + 0000EAA20000E9A20000E9A20000E9A20000E9A20000E9A20000EAA30000EAA2 + 0000E9A20000EDA60000E8B34B00000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D8900000EDDBB600000000FF000000FFF3E3C400D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 00000000000000000000000000000000000000000000E7BA5700EEA60000E8A2 + 0000E9A20000EAA30000E9A20000E9A20000E9A20000E9A20000EAA30000E9A2 + 0000E9A20000E9A30000EDB94B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000DFB44F00ECA40000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000F0C66700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E9AA1B00E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000ECA40000D99E140000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D79E2800F3E2C200F4E5C800D7A23200D88F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 000000000000000000000000000000000000F2DBA800ECA40000EAA20000EAA3 + 0000E8AE2C00F1D08800EBB23000E9A20000E9A20000EAAE2900EED08A00EBB1 + 3100E9A20000E9A20000EAA30000F1D79B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F2DCAA00EAAB1C00E9A20000E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000EBB02C00EEB73D00ECB6 + 3A00ECB63A00ECB63A00ECB63A00ECB63A00EBB12E00F3D38A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F3DFAF00E9A2 + 0000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000F2A80000DBCAA30000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDA9B1E00D78F0000D78F0000D78F0000D691 + 0700D7940E00D6900600D7910900D6910700D6910800D7910800D7940E00D894 + 0F00D6910700D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000F9EFDC00E8A50C00E9A81600ECC26500F6E5 + C0000000000000000000EDB84000E9A20000E9A20000E9B23600000000000000 + 0000F5E6C500EFC66A00E6A81A00E8A30600F9EDD40000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EEC25D00E9A2 + 0000E9A20000E9A20000E9A20000E9A20000EAA30000ECCC8100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EEC1 + 6000E9A30000E9A20000E9A20000E9A20000E9A20000E9A20000E9A20000E9A2 + 0000EEBD53000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFD99A1D00D78F0000D78F0000D78F0000E7C2 + 7800000000FFE7C07300000000FF000000FF000000FF000000FF000000FF0000 + 00FFE9C68300D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000F2D59A00F1D79B0000000000000000000000 + 00000000000000000000ECB73D00E9A20000E9A20000EAB23400000000000000 + 0000000000000000000000000000F4DAA000F1D4940000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F5DF + AD00E9A91900E9A20000E9A20000E9A20000EAA30000E4AB2900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E9A91A00E9A30000E9A20000E9A20000E9A20000E9A20000E9A20000E8A7 + 1200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFDB991900D78F0000D78F0000D78F0000E8C5 + 7F00000000FFE8C37A00000000FF000000FF000000FF000000FF000000FF0000 + 00FFEACA8A00D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB73D00E9A20000E9A20000EAB23400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFC25E00EAA20000EBA30000E9A20000ECA40000F2E2BD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F0DAAE00ECA30000E9A20000E9A20000E9A20000E9A20000EAA20000F2DA + A200000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FFEBD6B100D5900900D78F0000D78F0000E8C6 + 8000000000FFE8C37B00000000FF000000FF000000FF000000FF000000FF0000 + 00FFEBCA8B00D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB73D00E9A20000E9A20000EAB23400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F4DFAE00E3A51A00EBA30000EAA30000EAC062000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E2BB5E00F0A70000E9A20000E9A20000E9A30000EDBC52000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FFF1E1C200D6941000D8900000E7BF + 7400000000FFE7BD6F00000000FF000000FF000000FF000000FF000000FF0000 + 00FFE8C37E00D7900000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB73D00E9A20000E9A20000EAB23400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E9BC5500EBA30000E7A713000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D0981D00EFA60000E9A20000E9A91600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FFF4E7CD00D7971900D78F + 0000D58E0400D58D0100D68F0500D6900500D6900500D6900500D6900500D68F + 0500D58D0200D78F0000D78F0000D78F0000DA9B1E00000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB73D00E9A20000E9A20000EAB23400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F3DBA700E9A40B00EFD4 + 9700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EAD6AC00EEA60000EDA40000EDD1A000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FFF3E9D900DD9E + 2400D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D9981700000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECB33200EAA30000EAA30000E9AE2800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FAF0DC00EFD3 + 9500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F0BE5100D8B0440000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFF1DB + B100E7BE6F00E7BE6F00E7BE6F00E7BE6F00E7BE6F00E7BE6F00E7BE6F00E7BE + 6F00E7BE6F00E7BE6F00E7BE6F00E7BE6F00E9C68100000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000ECD19500EDC77400ECC77400F0D19000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E4E1DB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000 + 00FF000000FF000000FF000000FF000000FF0000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F2DDB500EFD9AE00EFD9AF00EFD9AF00EFD9 + AF00EFD9AF00EFD9AF00EFD9AF00EFD9AF00EFD9AF00EFD7AA00F4E5C9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F1CE8200EFC1 + 5800EFC25B00EFC25B00EFC25B00EFC25B00EFC25B00EFC25B00EFC25B00EFC2 + 5B00EFC05800F3CF7D0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000DDA22F00D8951100D8951100D8951100D895 + 1100D8951100D8951100D8951100D8940C00D9950C00D8951100D8951100D895 + 1100D8951100D8951100D8951100D8951100DA9D230000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E5C38000F3E0BC0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EDD19D00ECD4AA000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7CB94000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E9B64800E8A71000EEBB + 4B00EFBB4900EFBB4900EDBA4900EDBA4900EEBB4A00EEBC4D00EEBB4900EDBB + 4900EDBB4C00E6A71500E8B23F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D79D2A00D8900000D78F0000D78F0000D78F + 0000D78F0000D78F0000D9910000DEAE5500D9B26600D9910000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000DA9B1D0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E2BD + 7500D8900000D7920B00F4E3C400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACC9800EBD7C1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EED5A6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F8F0DE00EAA20000F8EBCE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F5ECDA00E9A20000F9EDD1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000DCB16300DA910000D78F0000D78F0000D78F + 0000D78F0000D8900000D5951A000000000000000000DA9D2600D78F0000D78F + 0000D78F0000D78F0000D78F0000D8900000DDAF550000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E1BB6F00D890 + 0000D78F0000D78F0000D7930C00F4E3C3000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACC9800EBD7C1000000000000000000000000000000 + 000000000000F5E9D300EFD5A400F0D8A900F0D8A900F1DAAF00E7BE6F00EED4 + A100F0D8AA00F0D7A900F0D7A900EFD6A700F0DBB40000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FAEDD200E7A10300000000000000 + 000000000000E8CE8D00EFBC4A00F4D38C00F3E0B800E7AC2500EDC56B000000 + 00000000000000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBD7B300D9910000D78F0000D78F0000D78F + 0000D78F0000D78F0000DCA338000000000000000000E1AE4E00D78F0000D78F + 0000D78F0000D78F0000D78F0000D9900000E6D1A80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E2BC7200D9900000D78F + 0000D78F0000D78F0000D78F0000D7930D00F4E3C30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACC9800EBD7C1000000000000000000000000000000 + 000000000000ECCF960000000000000000000000000000000000EFD4A2000000 + 000000000000000000000000000000000000EFDBB500EDD29F00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E7A10200000000000000 + 0000F5EBD400ECA81000ECA40000E8B84F00EDC57300ECA40000EFA60000DDC5 + 8A000000000000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D69D3000D9900000D78F0000D78F + 0000D78F0000D78F0000D58F0300F7ECD80000000000D7920B00D78F0000D78F + 0000D78F0000D78F0000D88F0000D89D25000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E2BC7200D8900000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D7930C00F4E3C300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACC9800EBD7C1000000000000000000000000000000 + 000000000000EFD5A30000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00F0D7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E7A10200000000000000 + 0000DFAA3800EAC56F00F1D8A100EBDEB800EEE7D300F0CB7900EED39400ECB0 + 29000000000000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EBDDBC00D68E0100D78F0000D78F + 0000D78F0000D78F0000D7900000EBCE9700EFD8AD00D78F0000D78F0000D78F + 0000D78F0000D78F0000D88F0000E6D9B1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E1BC7100D8900000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D7930D00F4E4C7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACC9800EBD7C1000000000000000000000000000000 + 000000000000EFD5A30000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E8A1020000000000F3E3 + C400F0A70000DAA83A00F1EADA00000000000000000000000000E9C16100EBA3 + 0000F1D38B0000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000EBCB9500D7910000D78F + 0000D78F0000D78F0000D78F0000DCA03000E0A73C00D78F0000D78F0000D78F + 0000D78F0000DA900000E4C88A00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E4BE7300D8900000D78F0000D78F0000D78F0000D78F + 0000DCA33000D8951200D78F0000D78F0000D78F0000D78F0000D7930C00F4E2 + C200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACC9800EBD7C1000000000000000000000000000000 + 000000000000EFD5A30000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E7A10200000000000000 + 0000E6A40D00F1A70000EFE0C500000000000000000000000000E7AB2100E9A2 + 0000F9EDD60000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EDD6A700D997 + 1800D88F0000D78F0000D9900000D3992500C3912E00DB920000D78F0000D88F + 0000D8961300EAD19E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DEC89700DC910000D78F0000D78F0000D78F0000D78F0000DDA5 + 370000000000F2DFB900D6900600D78F0000D78F0000D78F0000D78F0000D793 + 0C00F4E4C5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACC9800EBD7C1000000000000000000000000000000 + 000000000000EFD5A30000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E7A10200000000000000 + 0000F7E5BD00F3D69400E4B64D00F2E8D500F8EBCF00ECB63800EEC77100F6E4 + BD000000000000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E6C37D00DB9E2700DB9E2400F4E7CD00EBE4D800C8942E00DC9D2300E6C1 + 7800F6EEDD000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D3C07B00DC900000D78F0000D78F0000DDA639000000 + 00000000000000000000F1DCB300D6900500D78F0000D78F0000D78F0000D78F + 0000D8940F00F4E4C50000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E9CB9800EBD7C1000000000000000000000000000000 + 000000000000EFD5A30000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E7A10200000000000000 + 000000000000EFC26400EEA50000EABD5400EED7A100ECA40000E8A819000000 + 00000000000000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F8EFDE0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D4C07B00DC900000DDA63900000000000000 + 0000000000000000000000000000F1DCB300D6900500D78F0000D78F0000D78F + 0000D78F0000D7920B00F4E3C400000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EBCC9400E9CA9400F4E4C600F2E1C200F1E1C200F0DF + BB0000000000EFD6A50000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E7A10200000000000000 + 00000000000000000000E4A91C00E6AB2700E4A82100E6A40D00F1DCAA000000 + 00000000000000000000E7A20400F8E9C6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F3E5CB00E3B86300DCA22E00DCA12D00E1B55E00F3E3C6000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E1CE9E0000000000000000000000 + 000000000000000000000000000000000000F2DEB700D6900600D78F0000D78F + 0000D78F0000D78F0000D7940E00F4E4C5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F7EDDB00E9C68300E3B96800E6BE7000E7BD6C00ECD4 + A800EDD4A500F0D9AB0000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F9EDD300E7A10300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E7A20400F8E9C7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000ECD09C00D5900500D88F0000D78F0000D78F0000D8900000D5900200EAC9 + 9200000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F1DDB500D58F0400D78F + 0000D78F0000D78F0000D78F0000D7920B00F4E2C20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F1DEBD00D7910600D78F0000D78F0000DFA9 + 4600EFD8AC00EFD7A70000000000000000000000000000000000EFD6A6000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F8EACB00E7A10100F9ECD0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FAF0DC00E7A10200F7E6BE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EEE4 + D100D6900300D7900000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000F3E4C7000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F1DCB300D691 + 0700D78F0000D78F0000D78F0000D78F0000D7930D00F3E3C400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E5C300E1990900D88F0000DEA6 + 3900F0DAAE00EDCE9200F4E3C400F3E2C100F3E2C100F4E3C300EBC886000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F5E2B700E8A91900E9A20000E7A40900E8A4 + 0A00E8A40A00E8A40A00E8A40A00E8A40A00E8A40A00E8A40A00E8A40A00E8A4 + 0A00E8A40A00E7A40900E9A20000E9A71300DECBA10000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E0B8 + 6900D8900000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000E3B45B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F1DD + B600D6900500D78F0000D78F0000D78F0000D78F0000D8961500E8C585000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DFD4BF00D28D0000DFA6 + 3700F1DEB800EAD7B600E4B35900E6B96900E4B76400E8CB9500E4C486000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F0C56600E8A81400F9EED500F9ECD000F9EC + CF00F9ECCF00F9ECCF00F9ECCF00F9ECCF00F9ECCF00F9ECCF00F9ECCF00F9EC + CF00F9ECCF00F9ECCF00FAF0DB00EAAB1C00F4C2520000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000DCA4 + 3300D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000DB9F29000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F1DBB100D6900500D78F0000D78F0000D78F0000E5BE6F00F5E9D2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000EAD7B300E1AB + 3F00F0D9AC0000000000DDA33500D78F0000D78F0000D5920E00DFB461000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F0C97000E8A50E0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7A61700EBBE5A0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D69F + 3500D8900000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D990 + 0000D69C2B000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F2DEB800D6900500D78F0000E6BF700000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F8EF + DE00F0DBB000F2DAAC00F0D9AB00DDA63600D8900000D58F0400E4BF75000000 + 000000000000000000000000000000000000F5E7CD00EFD7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F9EED800E9B03000E7A10200E9A50A00E9A6 + 0C00E9A60C00E8A40A00E8A40A00E8A40A00E8A40A00E8A40A00E8A40A00E8A5 + 0C00E9A50C00E9A50A00E8A10200E8AD2800F0E2C30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E2BD + 7100DA910000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D991 + 0000E2B663000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F0DAAF00E8C47E000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DFA83B00D68F0200EDD29B000000 + 000000000000000000000000000000000000F5E7CD00F0D7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F8EACC00F7ECD200E7AA + 2200EBC46D0000000000FAEFD800FAEFD800FAEFD800FAEFD80000000000F1CC + 7700E3A51B00F7EBD100F9EBCB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFE7 + DA00D18E0B00D9910000D78F0000D78F0000D78F0000D78F0000D8900000D28D + 0600EFE5D2000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCA74100ECCE9200F7ED + DA0000000000000000000000000000000000F0DAB100EDD2A000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EBC2 + 6800E3A31100EEC05600EEBE5200EEBE5200EEBE5200EEBE5200EFC05600EAA9 + 1600E9BB5D000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E0D3AE00DC951000D88F0000D78F0000D78F0000D78F0000DC970C00E3CE + A500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F3E0BC00ECCF + 9600EED4A100EED4A000EED4A000EED39E00EFD8AC00F7EDDC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F2D18500EEC15A00EFC25E00EFC25E00EFC25E00EFC25E00EFC15A00EECD + 8000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F5EBD900E4BD7100DDA22E00DB9F2B00E5BC6C00F7EBD4000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E6BF7300F6EAD2000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7ECD900E4BE7300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EFD59D00F0CA7600F4E9D900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F1DDB800EED39E00EFD5 + A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5 + A200EFD5A200EED39F00EED9B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAD09C00D6910800E5BC6B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7BF7300D9910700D4C590000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1E2C300ECBB4E00E9A20000EEC66E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EBCB9100E9C58600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E4C89000E8CC95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBCE9C00D88F0000D78F0000D78F0000E4BC + 6900000000000000000000000000000000000000000000000000000000000000 + 0000E7C07400D78F0000D78F0000E0940000B9AB900000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F0DFBE00F1CD7B00EAAF2900E7A20500F2D69700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EBC88600F0D7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1DDB800ECCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EACE9C00D8900000D78F0000D78F0000D78F0000D78F + 0000E4BB6800000000000000000000000000000000000000000000000000E7C0 + 7400D78F0000D78F0000D78F0000D88F0000E4970000BAAD9100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EFDEBB00F1CD7C00EAAE2500E7A10100F7E3B70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E1C07F00D58E0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000E4BB680000000000000000000000000000000000E7C07400D78F + 0000D78F0000D78F0000D78F0000D78F0000D88F0000DD930000E4BA66000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000EFDE + BA00F1CD7B00EAAE2600E7A00000F7E3B7000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E6C07500D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000E5BB68000000000000000000E7C07400D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000E5BB6A00F5E8D0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F0DEBB00EDD6AC00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F0DFBD00F1CD + 7B00EAAE2500E9A20000F6E2B300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7C17600D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000E6C07200E9C47C00D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000E5BB6B0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EAC78800DAA23400EAD09D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F5EBD9000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F0E0BF00F1CD7B00EAAE + 2600E9A20000F6E0B00000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7C17700D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000E5BB6B000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EDD29E00D78F0000D8900000D6900600E1B05200F1DDB9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E2C89600DB920000DDA63C00ECD7AC00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F1CE8000EAAF + 2900E8A51000EAA81400EBB74500F6E2B700F1E0BE00F0CA7500EAAE2500E7A0 + 0000F6E2B5000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E7C17700D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000E5BB6B00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F2DEBA00D6920A00D78F0000D78F0000D78F0000D78F0000D792 + 0B00DFB15600EFDDB90000000000000000000000000000000000000000000000 + 00000000000000000000DC9C1F00D78F0000D78F0000D78F0000E8CD95000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E8DCC400F1AB1200E9AA1500EDCA + 7B00F1D59600ECD09000EEBC4B00EAA20000EAA20000E8A50D00E7A10100F6E3 + B700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7C07500D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000E5BB6B0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F1E7D300D4961900D78F0000D78F0000D78F0000D78F0000D78F + 0000D9920600E8D3AB0000000000000000000000000000000000000000000000 + 000000000000DCBE8700D9900000D78F0000D8900000E0B55E00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F3EADB00E5A10400EAC25E0000000000ECC8 + 7400EDCA7B000000000000000000F7E8C600DFA21700EBA40000F6E3B9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E9C4 + 7E00D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000E7BF73000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DBA02C00D78F0000D78F0000D78F0000D78F0000DBA1 + 3200000000000000000000000000000000000000000000000000000000000000 + 0000ECDCB700D88F0000D78F0000D88F0000D28E080000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E0AF4300EAB1330000000000E2B64F00F6E2 + B90000000000000000000000000000000000EBE1CC00E59F0000F6E3BA000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E9C3 + 7C00D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000E6C072000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DEA73D00D78F0000D78F0000D78F0000D78F0000D490 + 0900E2BA6A00000000000000000000000000000000000000000000000000EDD7 + A900D78F0400D78F0000D78F0000DB910000EAC88A0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F4E1B900ECA40000F7E8C900EAC37200F6E5C3000000 + 00000000000000000000000000000000000000000000E7B84D00EDB73E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E7C07200D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000E4BB680000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E1B15300D78F0000D78F0000D78F0000D78F0000D78F + 0000D88F0000D78F0000DEA63700E5C17B00EBCF9600E8C37B00DCA02B00D78F + 0000D78F0000D78F0000DB910000CCA34C000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E9C57400E5A20500F8EBD100EAC16100000000000000 + 00000000000000000000000000000000000000000000EDD39900E9A60E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EBC98800E8C37B00F2DDB500F0DA + AF00F0DAB000F0DBB000EFD6A700000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E7C07400D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000E4BB6800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E5BB6400D8981A00F2E0BE00E5BB6B00D78F0000D78F + 0000D78F0000D78F0000D78F0000D88F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D88F0000E2A63700000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EFC66800E7A40900F9EFD800EBDAB700000000000000 + 00000000000000000000000000000000000000000000F5DCA500E8A40A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F1D6A100EBC88500EBCB + 8C00EBCA8B00E9CA8C00F3E3C400E9C889000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7C07400D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000E4BB68000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EDE5D60000000000000000000000000000000000E4B9 + 6400D58F0400D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D9900000E0B8690000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3D69500E9A200000000000000000000000000000000 + 00000000000000000000000000000000000000000000EFCB7800E5A91F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E2D7C000CC8B0800D890 + 0000D78F0000D7900000E2B66200EED3A1000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E8C17500D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000E7BF7300E8C37D00D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000E6BC690000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCF9600DFAA4200D8961400D58E0200D58F0300D9981B00E3B6 + 5F00F3E7D1000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E5A41000E8C5770000000000000000000000 + 00000000000000000000000000000000000000000000E7A71500E9C676000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ECE0CB00DC96 + 0E00D78F0000D78F0000E1AE4900EED4A0000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F8EEDE00E7C07500D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000E5BA69000000000000000000E7C07500D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D9900000DDB76A00EAE0CF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DFBD00E9C78400E5B96400E5BA6600E9CB8F00F6EA + D500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EFD59A00EAA20000F1E0BC00000000000000 + 000000000000000000000000000000000000EEC36100E8A40A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F5E5 + C700D8930A00D8900000E1AD4900EED4A1000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E3C18000D68F0000D88F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000E5BB6B0000000000000000000000000000000000E7C17700D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D68E0000E2B867000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E8C26700EDA40000EECA7C00F7EF + DD000000000000000000F7E5C000EAB53B00E8A20100F6E4BD00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F2E1C100D38C0000E0AD4700EFD5A2000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000DBC29F00DD940000D78F0000D78F0000D78F0000D78F + 0000E5BB6B00000000000000000000000000000000000000000000000000E7C1 + 7700D78F0000D78F0000D78F0000D78F0000D78F0000ECCD9300000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F2D69600E8A71300E9A2 + 0000E7A40900E7A20400EAA20000EAB53F00F9EDD20000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D6CBB500E8B44F00ECD09D000000000000000000000000000000 + 00000000000000000000E9CB8F00E9CD95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E6C79F00D9910000D78F0000D78F0000E6BC + 6C00000000000000000000000000000000000000000000000000000000000000 + 0000E8C17600D78F0000D78F0000D78F0000ECCE930000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F9F1DE00F3D5 + 9200F0C46300EFC86F00F6E1B100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EED9B000EBCE9300EDD09800EDD09800EDD0 + 9800EDD09800EBCE9500EFDCBA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E4C69F00D6910500E6BC6C000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E8C07600D58F0500ECCE93000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E6C37E00F8EEDD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E5C27D00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F2E5CC00EBCC8F00E6BF7200E6BF7100E6C88D00F3E4C8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F1DDB800EED39E00EFD5 + A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5A200EFD5 + A200EFD5A200EED39F00EED9B200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F2E8D800EFC15700ECB5 + 3900ECB63C00ECB63C00ECB63C00ECB63C00ECB63C00ECB63C00ECB63C00ECB6 + 3C00ECB53900F1C15300F3E8D100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000E8CE9D00DAA63E00D7930D00D78F0000D78F0000D5920C00DFA73A00E4CA + 9700000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EBCB9100E9C58600000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E4C89000E8CC95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E6A71D00EDB43300F2CC + 7900F1CC7A00F3CB7300F3CA6E00F1CC7800F2CC7900F1C96F00F1CA7200F2CC + 7A00F1CC7A00ECB63900E0A31500000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F7EBD600D8A0 + 3300D9910000D8900000D78F0000D78F0000D78F0000D78F0000D88F0000D890 + 0000DCA02C00F5E8CF0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EBC88600F0D7A800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1DDB800ECCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E3B900EAA50700000000000000 + 0000FAE5B9000000000000000000F8E9C700F8E8C5000000000000000000F8E4 + BA00FAF0DB0000000000E5A30E00F4DFAD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E2DCD000E19B1000D890 + 0000D88F0000D89D2800E8C58000EFD8AA00EFD8AB00E9C68300D9A02D00D890 + 0000D88F0000DC960A00DFD6C600000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A90000000000EFD5 + A400D8951100DA9A1C00DA9A1C00DA9A1C00DA9A1C00DA9A1C00DA9A1C00D895 + 1100E8C98C0000000000F2DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E9A6100000000000ECC0 + 5B00F0D18A00EDCA7C00F6ECD700EDC36300EDC46700F8EACD00EFCF8500F0D0 + 8900EEC05A0000000000E8A91900F6DDA5000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DD9D2000D78F0000D990 + 0000EAC88800000000000000000000000000000000000000000000000000E5CA + 9200D48D0100D78F0000E29D1800000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A90000000000F3E2 + C300E1AF5000E3B45700E3B45700E3B45700E3B45700E3B45700E3B45700E3B2 + 4F00EBD4B20000000000F3DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A6100000000000F1C9 + 700000000000F2CF7E00F9ECCF00F4D99A00F5DBA200F8E8C400F3D185000000 + 0000F1CA730000000000E9A91900F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E8C37C00D88F0000DB930000D9C2 + 9400000000000000000000000000000000000000000000000000000000000000 + 0000E8CFA100D8900000D9910000D9B46D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A6100000000000F1C9 + 700000000000F2CE7E00F9ECCF00F4D99A00F5DBA200F8E7C400F3D085000000 + 0000F1CA730000000000E9A91900F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D8961500D8900000DDA844000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000DFB05000D88F0000D9950E00F7EDDB0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A90000000000EDDB + B300D8A13300D8A43C00D8A43C00D8A43C00D8A43C00D8A43C00D8A43C00D8A1 + 3300EBD29F0000000000F2DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A6100000000000F1C9 + 700000000000F2CE7E00F9ECCF00F4D99A00F5DBA200F8E7C400F3D085000000 + 0000F1CA730000000000E9A91900F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000ECD3A000D78F0000D78F0000EFD9B1000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EEDDBF00D9900000D78F0000ECCE950000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A90000000000EFD8 + B200DEA12B00DEA53500DEA53500DEA53500DEA53500DEA53500DEA53500DCA0 + 2C00E9D09D0000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A6100000000000F1C9 + 700000000000F2CE7E00F9ECCF00F4D99A00F5DBA200F8E7C400F3D085000000 + 0000F1CA730000000000E9A91900F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EDE5CA00E5C17700E6BB6800E6BC6900E6BC6900E6BC6900E6BC + 6900E6BC6900E6BC6900E6BC6900E6BC6900E6BC6900E6BC6900E6BC6900E6BC + 6900E6BC6900E6BC6900E6BC6900E6BC6900E5BB6800E7C07400F4E4C5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E6BE6F00D78F0000D58F0400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D6910B00D78F0000E5BD6E0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A6100000000000F1C9 + 700000000000F2CE7E00F9ECCF00F4D99A00F5DBA200F8E7C400F3D085000000 + 0000F1CA730000000000E9A91900F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7BB6A00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E2B769000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E5BA6400D78F0000D6920B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D8961300D78F0000E5BA660000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F2D9A90000000000DAD5 + CA00E9BB6000E5BA6600E5BA6600E5BA6600E5BA6600E5BA6600E5BA6600E5B8 + 5F00EEDDBB0000000000F3DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A6100000000000F1C9 + 700000000000F2CE7E00F9ECCF00F4D99A00F5DBA200F8E7C400F3D085000000 + 0000F1CA730000000000E9A91900F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7BE6F00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E2B96E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E4C27E00D88F0000D58E0100F5EBD8000000 + 000000000000000000000000000000000000F5EAD30000000000000000000000 + 00000000000000000000D58F0400D78F0000E7C2790000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A90000000000F1D5 + A200D5910B00D8971700D8971700D8971700D8971700D8971700D8971700D794 + 0C00E4C48A0000000000F3DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A6100000000000F1C8 + 6F0000000000F2CE7E00F9ECCF00F4D89900F5DBA200F8E8C400F3D184000000 + 0000F1C9720000000000E9A91900F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7BE6F00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E2B96E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EDDBBB00D78E0000D9910000E4C78E000000 + 00000000000000000000F2E4D000D6941000D8910000E4BF8100000000000000 + 000000000000ECCF9C00D78F0000D78F0000EFD8AD0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC88600F0D8A900000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F2DFB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6E1B200E8A60F0000000000F1CE + 7E00EFC46300F4DBA30000000000EEC26400EEC3620000000000F2DCAB00EFC4 + 6300F0CB780000000000E9A91800F5DDA6000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E6BB6B00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E0B669000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D69F3200D9900000D3961B000000 + 00000000000000000000EAC78300D78F0000D78F0000DC9E2300000000000000 + 000000000000DC9E2300D78F0000DC9F27000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EBC98800E8C37B00F2DDB500F0DA + AF00F1DBB200F1DCB200EFD6A800000000000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F8E1AD00E8A50D00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E9A81500F5DAA1000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F5E9D300E8C58200E6BE6F00E6BF7000E6BF7000E6BF7000E6BF + 7000E6BF7000E6BF7000E6BF7000E6BF7000E6BF7000E6BF7000E6BF7000E6BF + 7000E6BF7000E6BF7000E6BF7000E6BF7000E6BE6F00E8C47E00F5E7CE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E3D2B000DC930000D98F0000D8AD + 4A000000000000000000EAC68200D78F0000D78F0000DA9F2800000000000000 + 0000C59E5500DA910000DC920000EED2A2000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000F1D6A100EBC88500EBCB + 8C00EBCA8B00E9CA8C00F3E3C400E9C889000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D9D0BC00F3AE1400E9A20000E8A50C00E8A5 + 0E00E8A50E00E8A50D00E9A70D00E8A50E00E8A50E00E8A50D00E8A50D00E8A5 + 0E00E8A50E00E8A50D00E9A20000E8A61000F4E1B50000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D1A75C00DB920000D98F + 0000EAC9880000000000EAC68300D78F0000D78F0000DA9F280000000000F7EC + D700DC920000DD930000C19B4F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E2D7C000CC8B0800D890 + 0000D78F0000D7900000E2B66200EED3A1000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F2C56200E9AF2700F8EAC900F7E5BC00F7E5 + BC00F7E5BC00F7E5BC00F7E5BC00F7E5BC00F7E5BC00F7E5BC00F7E5BC00F7E5 + BC00F7E5BC00F7E5BC00F9EACB00EBB23000F0C5620000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000E0B04E00D88F + 0000E8C47C0000000000EAC68300D78F0000D78F0000DA9F280000000000F7EB + D500D7900000E7AF430000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000ECE0CB00DC96 + 0E00D78F0000D78F0000E1AE4900EED4A0000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F6CA6600E8B02E0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E9B23800EDC4640000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7C2 + 7F00EBCC8E0000000000EAC68300D78F0000D78F0000DA9F280000000000F7ED + DA00E9C683000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000F5E5 + C700D8930A00D8900000E1AD4900EED4A1000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E7DCC500E6A30C00E8A60F00E9A81500E9AC + 2000E8AA1A00E8A81400E8A81500E8A81500E8A81500E8A81500E8A81400E8AA + 1A00E9AC2000E9A81500E6A61100E8A40800F2E1BC0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EAC68300D78F0000D78F0000DA9F2800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F2E1C100D38C0000E0AD4700EFD5A2000000000000000000000000000000 + 00000000000000000000F2DEB800EDCF95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F8EFDC00F6DDA600F5DDA700E8A6 + 1100EFC56700F7E6C000F7E3B600F7E3B600F7E3B600F7E3B600F7E6BF00F0CA + 7200E9A60D00F6DDA400F5DDA500F9EED8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EAC68200D78F0000D78F0000DB9F2700000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D6CBB500E8B44F00ECD09D000000000000000000000000000000 + 00000000000000000000E9CB8F00E9CD95000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000ECB8 + 4300EAB23300F3D59100F3D38A00F3D38A00F3D38A00F3D38A00F3D59100EAB5 + 3B00EAB238000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000EBC88400D78F0000D78F0000DB9D2400000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EED9B000EBCE9300EDD09800EDD09800EDD0 + 9800EDD09800EBCE9500EFDCBA00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EBBB5000EBB12C00EBB23000EBB23000EBB23000EBB23000EBB02C00F5C1 + 4B00E9E3DA000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F3E7D400D7961600D8900000E7C78800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBCE9400E7BF700000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EFE9D400E5BA6600E5B96300E5B96300E5BA6500F5E7CD000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F5EAD40000000000000000000000 + 000000000000F7EDDB00EED3A100E8C27900E5B96300E5BA6600E9C78400F2E3 + C500000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBD19B00D78F0000D78F0000D78F0000D78F0000EBCC8F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7BE7000ECD19A00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F5E8CF00DEA53500E2C284000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E1B05200EACC930000000000F3E3 + C800E4BD6F00DB9F2700D58D0000D78F0000D78F0000D78F0000D78F0000D897 + 1600E3BD74000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCB8D00D78F0000D78F0000D78F0000D78F0000E9C681000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000DEA84200D9A13100E1B86800E4BB + 6C00EED8AC000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F4E5C800D78F0000D8900000DA9D2300F1E0BE00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D8981A00D78F0000DBA02C00D88F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D8900000D78F0000D78F + 0000D8900000D99C2600F6ECDB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E4B96700F4E4C60000000000F0E4 + CA00E6C27D00E3B55C00E8C47E00F4E7CD000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F4E6C900D78F0000D78F0000D78F0000D7920B00F7EBD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F0E5D100D58D0000D78F0000D78F0000D78F + 0000D8900000D78F0000D7961600DEAB4400E2B35800DBA84400D7930D00D78F + 0000D78F0000D8900000D89A2300000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E7BF7300ECD6AB00000000000000 + 00000000000000000000E5BD7000D7940E00F5EBD80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F4E6C900D78F0000D78F0000D78F0000D78F0000F2DFB9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EED19C00D78F0000D78F0000D78F0000D88F + 0000D89C2900F1DFBE000000000000000000000000000000000000000000E2B7 + 6200D7900000D78F0000DA910000D9AF56000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAC68400E6CB9300000000000000 + 000000000000E2C27F00D6941000D88F0000DFA9430000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F4E6CA00D78F0000D78F0000D78F0000D78F0000F3E1BE000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E1B35B00D7900000D78F0000D78F0000D78F + 0000D5920F00F0DCB60000000000000000000000000000000000000000000000 + 0000E1B76400D7900000D78F0000D68E0000F0E1C30000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000ECCF9700E7C7810000000000F2E4 + CA00DFA63700D8900000D78F0000D78F0000D78F0000EBCC9100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F4E7CC00D78F0000D78F0000D78F0000D78F0000F3E1C0000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D79C2700D8900000D88F0000D8900000D890 + 0000D78F0000D9991B00F5E9D300000000000000000000000000000000000000 + 000000000000DC9B2000D78F0000D8900000DEAD4C0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000ECD09700D78F0000D78F0000D78F0000D78F0000EBCA8B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000EAD5AD00E4B76100EACA8D00D490 + 0700D88F0000D78F0000D78F0000D78F0000D78F0000D7940E00F7ECD9000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E3BA6A00D8900000D78F0000D78F0000DA920000D6AC5E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000F1E3CC00D78F0000D8951100DDA73B00E3BB6E00ECD3 + A300F5EAD4000000000000000000000000000000000000000000000000000000 + 000000000000E0C59500D9910000D78F0000D48E0400F3E9D500000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F1ECDB00EACF9700EAC88600EAC88600EAC88600EAC88600EAC8 + 8600EAC88700E1AE4B00D78F0000D78F0000D78F0000D78F0000E0AC4500EAC8 + 8700EAC88600EAC88600EAC88600EAC88600EAC88600ECCE9300F7EBD7000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F6EAD500D9910500D88F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000DA910000D5A443000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000EED8AD00D8900000D78F0000D78F0000D78F0000D78F0000DA910000E5D1 + A100000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F3E5CC000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000D7920800D78F0000D78F0000EBC98800000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E7BD6D00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E2B86A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D8BB7900D9900000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D88F0000DE930000BAAC + 8F00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000D7971700D8900000D78F0000D78F0000D78F0000D78F0000D88F0000D694 + 1000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E1B76400E5BB6A00EFD7A80000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E6BE6E00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E2B96E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000D5A13C00DB92 + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D88F0000D896 + 0B00EEE9D8000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D2A4 + 5200DB920000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D990 + 0000DEA847000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EFD8A900E6BB6A00D9AE5B00000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E6BE6E00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E2B96E000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000F5ECDA00DB97 + 0F00D88F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000DA91 + 0000DBA343000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DBC39800DE94 + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D9910000E6C68C0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E8CB9100D88F0000D78F0000D8900100000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F3E5CA0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000E6BC6D00D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78E0000E1B76B000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000D7C5 + A200D8900000D88F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D9920000EAC7900000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E9E2D500D6920C00D990 + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D6900800F2E3CB00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D5910A00D88F0000DA910000DBBF87000000 + 000000000000000000000000000000000000000000000000000000000000F4E9 + D500ECD3A200E3BC7000DCA53900D8961300D78F0000F2E0C000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F6EDDD00ECD09C00EBCB8C00EACB8D00EACB8D00EACB8D00EACB + 8D00EBCC8E00E1B04F00D78F0000D78F0000D78F0000D78F0000E0AD4800EBCC + 8E00EACB8D00EACB8D00EACB8D00EACB8D00EACB8C00ECD09900F7ECD8000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000DFB15D00DA910000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D68F0600F3E6CE00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D39E3A00DB920000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D88F0000DDA32F00000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000E3B45A00D78F0000D8900000D49517000000 + 00000000000000000000000000000000000000000000F7EDDA00D99B2000D78F + 0000D8900000D8900000D78F0000D78F0000DA9B1E0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000ECD09700D78F0000D78F0000D78F0000D78F0000EBCA8A000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000D39B2500D8900000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000DF9E1E0000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000D8B97F00DD930000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000DC930000CFAE72000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBE2D000D78F0000D78F0000DC920000D1A8 + 5500000000000000000000000000000000000000000000000000F3E2C300D694 + 1400D78F0000D78F0000D78F0000D8900000DAAA4F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EADCC400DB910600D78F0000D78F0000D78F0000D78F0000D88F + 0000DBA2310000000000E6CEA100E5C68D000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000EBDDC200D68F0400D88F0000D58E0100D58F + 0300D58F0300D58F0300D58F0300D58F0300D58F0300D58F0300D58F0300D58F + 0300D58F0300D58E0100D78F0000D98F0000E1D1B70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000E3B76500D8900000D78F0000DB91 + 0000E1B257000000000000000000000000000000000000000000F0E0C000D89F + 3000D78F0000D78F0000D78F0000D88F0000E8CB8F0000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000E4C58100DA920000D78F0000D8900000D9900000E2B7 + 5F0000000000EBD09E00D9900000D79719000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000DBA02900D8900000D78F0000DFA83D00E5B9 + 6300E5B86200E5B86200E5B86200E5B86200E5B86200E5B86200E5B86200E5B8 + 6200E5B96300E0AA4200D78F0000D9900000D69B260000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000D79C2D00D9900000D78F + 0000D8900000D5900900DAA53C00E3B35600DFA94100D7951600D8900000D88F + 0000D78F0000D78F0000D78F0000D88F0000F4E5C70000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000CA9B3E00DD930000D99F2E00EDDAB6000000 + 0000E3BB6C00D8900000D8900000E2B153000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000D7930D00D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F0000D78F + 0000D78F0000D78F0000D78F0000D78F0000D996110000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000DCA23000D88F + 0000D88F0000D78F0000D8900000D78F0000D78F0000D78F0000D78F0000D88F + 0000D8900000DBA02C00D58E0000D59310000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCC8F00D78F0000D78F0000D78F0000D78F0000EAC783000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000F5EBDB00EFD4A00000000000EED8AF00DCA0 + 2A00D78F0000D8900000D9981900F5EBD8000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000DB9E2600D8951100D8951100D8951100D895 + 1100D8951100D8951100D8951100D8951100D8951100D8951100D8951100D895 + 1100D8951100D8951100D8951100D8951100DB9F290000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000E7C4 + 7E00D6971B00D88F0000D78F0000D78F0000D78F0000D58E0100DA9E2500E4BC + 6E00F0E2C60000000000E9D1A100DDAC4A000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EBCB8D00D78F0000D78F0000D78F0000D78F0000EAC681000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000DCA43800D9900000D88F + 0000D8900000D9A13400F5E8D200000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000F3ECDA00EDCF9600E6BD6D00E5BB6700E9C68300F1DBB300000000000000 + 0000000000000000000000000000F6EEDE000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000EDD29C00D78F0000D78F0000D78F0000D78F0000EACC8F000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000E1BF7F00DD9F2700DEAA + 4300EDD09A000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000F7EDDB00E6BC6C00E5BB6800E5BB6800E6BC6B00F5EBD5000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000080000000E00000000100010000000000000E00000000000000000000 + 000000000000000000000000FFFFFF00FFFFFFFF000000000000000000000000 + FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000 + FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000 + FFFFFFFF000000000000000000000000F8FFFFFF000000000000000000000000 + FC3FFFFF000000000000000000000000FE0FFFFF000000000000000000000000 + FE03FFFF000000000000000000000000FF00FFFF000000000000000000000000 + FF003FFF000000000000000000000000FF800FFF000000000000000000000000 + FF8003FF000000000000000000000000FFC000FF000000000000000000000000 + FFC0003F000000000000000000000000FFCFFC3F000000000000000000000000 + FFCFF0FF000000000000000000000000FF9FC3FF000000000000000000000000 + FF9F0FFF000000000000000000000000FF3C3FFF000000000000000000000000 + FF30FFFF000000000000000000000000FE43FFFF000000000000000000000000 + FE0FFFFF000000000000000000000000FC3FFFFF000000000000000000000000 + F8FFFFFF000000000000000000000000FFFFFFFF000000000000000000000000 + FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000 + FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000 + FFFFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE007FFFFFFF3FFFFF00FFF + FFF3FFFFFFC003FFFFFFE1FFFFC003FFFFF1FFFFFFCC33FFFFFFC0FFFF8001FF + FFF8FFFFFFCC33FFFFFF8C7FFF0C30FFFFF83FFFFC0FF03FFFFF1E3FFE10087F + FFF81FFFF8CFF39FFFFE0E3FFE23C47FFFFC07FFF9CC139FFFFC047FFC47E23F + FFFC03FFF9CFF39FFFFC00FFFC4FF23FFC0000FFF9CFF39FFFF001FFFC1FF83F + FC00003FF9C0019FFFE003FFFC1FF83FFC00003FF9C0039FFFC007FFFC1FF83F + FC0000FFF93FFF9FFF800FFFFC1FF83FFFFC03FFF91FFF9FFF003FFFFC4FF23F + FFFC07FFF93FFF9FFE203FFFFC47E23FFFF81FFFF800001FFC707FFFFE23C47F + FFF83FFFFE00007FFC78FFFFFE10087FFFF8FFFFFFC003FFFE31FFFFFF0C30FF + FFF1FFFFFFCFF3FFFF03FFFFFF8001FFFFF3FFFFFFC003FFFF87FFFFFFC003FF + FFFFFFFFFFE007FFFFCFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE00007FFFFF7FFFFFFFFFFFFFFC3FFF + FE00007FFFFE7FFFFFFFCFFFFFFC3FFFFE00007FFFFC3FFFFFFF8FFFFFFC3FFF + FE00007FFFFC3FFFFFFF1FFFFFFC3FFFFE00007FFFF81FFFFFFC1FFFFFFC3FFF + FE00007FFFF00FFFFFF81FFFFFFC3FFFFE00007FFFF00FFFFFE03FFFFE7C3E7F + FE00007FFFE007FFFFC03FFFFE0C307FFE00007FFFC003FFFF00003FFF0000FF + FE01807FFFC003FFFE00003FFF8001FFFE01807FFF8001FFFE00003FFFC003FF + FE00007FFF0000FFFF00003FFFC003FFFE00007FFE0C307FFFC03FFFFFE007FF + FE0BF07FFE7C3E7FFFE03FFFFFF00FFFFE0BF07FFFFC3FFFFFF81FFFFFF00FFF + FE0BF07FFFFC3FFFFFFC1FFFFFF81FFFFF0BF07FFFFC3FFFFFFF1FFFFFFC3FFF + FF80007FFFFC3FFFFFFF8FFFFFFC3FFFFFC0007FFFFC3FFFFFFFCFFFFFFE7FFF + FFE0007FFFFC3FFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE001FFFFFC003FFFE00007F + FFF3FFFFFCFFDFFFFF8001FFFE00007FFFE1FFFFFCFFDFFFFF1FF8FFFE01807F + FFC0FFFFFCF8007FFF381CFFFE01807FFF807FFFFCFBDF3FFF300CFFFF0080FF + FF003FFFFCFBDF3FFF300CFFFF0000FFFE001FFFFCFBDF3FFF21C4FFFF8001FF + FC000FFFFCFBDF3FFF31C4FFFFC003FFF80807FFFCFBDF3FFF300CFFFFF007FF + FC1C03FFFCFBDF3FFF381CFFFFFF7FFFFE3E01FFFC0BDF3FFF3C1CFFFFF81FFF + FF7F00FFFC03DF3FFF3FFCFFFFF00FFFFFFF807FFE03DF3FFF1FF8FFFFE007FF + FFFFC03FFF001F3FFE00007FFFE007FFFFFFE01FFF801F3FFE00007FFFE007FF + FFFFF01FFFC41F3FFE7FFE7FFFE007FFFFFFF87FFFE01F3FFE00007FFFE007FF + FFFFFCFFFFFF1F3FFF8421FFFFE007FFFFFFFFFFFFFF8F3FFFE007FFFFF00FFF + FFFFFFFFFFFFC03FFFF00FFFFFF81FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFF9FF9FFFFFFFFFFFFFFFE3FFF8001FFFF1FF8FFFFFFFFFF + FFFFFC3FFF3FFCFFFE0FF07FFFFFFFFFFFFFF83FFF3FFCFFFC07E03FFFFFFFFF + FFFFF07FFF3FFCFFF803C01FFFFFFFFFFFFFE0FFFF3FFCFFFC01801FF9FFFFFF + FFFFC1FFFF3FFCFFFE00007FF8FFFEFFFFFF83FFFF3FFCFFFF0000FFF81FFC3F + FFC007FFFF3FFCFFFF8001FFF803FC1FFF000FFFFF3FFCFFFFC003FFF803F83F + FE261FFFFF3FFCFFFFE007FFFC0FF07FFE4F1FFFFF3FFCFFFFE007FFFC07E07F + FC1F9FFFFF3FFCFFFFC003FFFC0000FFFC3F9FFFFF01FCFFFF8001FFFC0001FF + FC3F9FFFFF80FCFFFF0000FFFDE003FFFCFF9FFFFF80FCFFFE00007FFFF807FF + FE7F9FFFFFC0FCFFF801801FFFFC0FFFFE3F3FFFFFE0FCFFF803C01FFFFFFFFF + FF0C3FFFFFF0FCFFFC07E03FFFFFFFFFFF807FFFFFF8FCFFFE0FF07FFFFFFFFF + FFC1FFFFFFFE01FFFF1FF8FFFFFFFFFFFFFFFFFFFFFFFFFFFF9FFDFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFF81FFFFF8001FFFF8001FFFFFFFFFFFFF00FFF + FF3FFCFFFF8001FFFFFFFFFFFFC003FFFF3FFCFFFF3664FFFFFFFFFFFF8001FF + FF2004FFFF2004FFFFFFFFFFFF87E1FFFF2004FFFF2814FFFFFFFFFFFF0FF0FF + FF3FFCFFFF2814FFFFFFFFFFFF1FF87FFF2004FFFF2814FFFFFFFFFFFE1FF87F + FF2004FFFF2814FFF800001FFE3FFC7FFF3FFCFFFF2814FFF800001FFE3FFC7F + FF2004FFFF2814FFF800001FFE1F7C7FFF2004FFFF2814FFF800001FFE1C387F + FF3FFCFFFF2244FFF800001FFF1C38FFFF01FCFFFF3FFCFFF800001FFF0C30FF + FF80FCFFFE00007FFFFFFFFFFF8421FFFF80FCFFFE00007FFFFFFFFFFFC423FF + FFC0FCFFFE7FFE7FFFFFFFFFFFE427FFFFE0FCFFFE00007FFFFFFFFFFFFC3FFF + FFF0FCFFFF0000FFFFFFFFFFFFFC3FFFFFF8FCFFFFE007FFFFFFFFFFFFFC3FFF + FFFE01FFFFF007FFFFFFFFFFFFFC3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7FFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFF81FFFFFFFFFFFFFFFFFFFFF780FFFFFF81FFFFF3FFFFF + FFF8FFFFFF2007FFFFF81FFFFF07FFFFFFF83FFFFF0001FFFFF81FFFFF20FFFF + FFF81FFFFE0001FFFFF81FFFFF3C7FFFFFF81FFFFE03E0FFFFF81FFFFF387FFF + FFF81FFFFE03F07FFFF81FFFFF203FFFFFF81FFFFE01F87FFFF81FFFFF001FFF + FFF81FFFFC07F83FF800001FFF001FFFFFF00FFFFEFFFC3FF800001FFF800FFF + FFF00FFFFFFFFC7FF800001FFFC007FFFFE007FFFE3FFFFFF800001FFFC007FF + FFC003FFFC3FFF7FF800001FFFE003FFFF8001FFFE1FE03FF800001FFFF001FF + FF8001FFFE1F807FFFF81FFFFFF803FFFF0000FFFE0FC07FFFF81FFFFFF804FF + FE00007FFF07C07FFFF81FFFFFFC08FFFE00007FFF80007FFFF81FFFFFFE10FF + FE00007FFFC000FFFFF81FFFFFFE40FFFE00007FFFE004FFFFF81FFFFFFF81FF + FFFFFFFFFFF03EFFFFF81FFFFFFF87FFFFFFFFFFFFFFFFFFFFF81FFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000 + 000000000000} + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADO_1 + Left = 316 + Top = 320 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 368 + Top = 320 + ReportData = {} + end + object RMDB_2: TRMDBDataSet + Visible = True + DataSet = ADO_2 + Left = 316 + Top = 388 + end + object CDS_Label: TClientDataSet + Aggregates = <> + Params = <> + Left = 280 + Top = 226 + end + object ADO_1: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 272 + Top = 324 + end + object ADO_2: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 264 + Top = 388 + end + object RMDB_3: TRMDBDataSet + Visible = True + DataSet = ADO_3 + Left = 308 + Top = 444 + end + object ADO_3: TADOQuery + Connection = ADOConnection1 + LockType = ltReadOnly + Parameters = <> + Left = 272 + Top = 436 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 360 + Top = 396 + end + object RMJPEGExport1: TRMJPEGExport + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + ExportToOneFile = False + Left = 360 + Top = 440 + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 72 + Top = 360 + end + object RMllPDFExport1: TRMllPDFExport + ShowDialog = False + ShowAfterExport = True + ShowBackPicture = True + Left = 160 + Top = 376 + end + object RMRichObject1: TRMRichObject + Left = 379 + Top = 253 + end +end diff --git a/T02贸易汇总仓库/U_LabelPrintPV.pas b/T02贸易汇总仓库/U_LabelPrintPV.pas new file mode 100644 index 0000000..2b93d9e --- /dev/null +++ b/T02贸易汇总仓库/U_LabelPrintPV.pas @@ -0,0 +1,381 @@ +unit U_LabelPrintPV; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, + cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, + dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, RM_Common, + RM_Class, RM_GridReport, RM_Dataset, Vcl.Buttons, RM_E_llPDF, RM_BarCode, + RM_e_Graphic, RM_e_Jpeg, RM_e_Xls, cxContainer, cxMaskEdit, cxDropDownEdit, + cxMRUEdit, RM_RichEdit, dxSkinWXI, System.Generics.Collections; + +type + TfrmLabelPrintPV = class(TfrmBaseHelp) + ADOQueryTemp: TADOQuery; + ADOConnection1: TADOConnection; + Panel1: TPanel; + ImageList1: TImageList; + RMDB_1: TRMDBDataSet; + RM1: TRMGridReport; + RMDB_2: TRMDBDataSet; + CDS_Label: TClientDataSet; + ADO_1: TADOQuery; + btnPrint: TSpeedButton; + btnShow: TSpeedButton; + ADO_2: TADOQuery; + RMDB_3: TRMDBDataSet; + ADO_3: TADOQuery; + RMXLSExport1: TRMXLSExport; + RMJPEGExport1: TRMJPEGExport; + RMBarCodeObject1: TRMBarCodeObject; + RMllPDFExport1: TRMllPDFExport; + CheckBox1: TCheckBox; + ComboBox1: TComboBox; + Label1: TLabel; + cbbLab: TcxMRUEdit; + CheckBox2: TCheckBox; + Label3: TLabel; + Label4: TLabel; + inputCode: TEdit; + inputNote: TEdit; + RMRichObject1: TRMRichObject; + procedure FormCreate(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure TV1DblClick(Sender: TObject); + procedure btnPrintClick(Sender: TObject); + procedure btnShowClick(Sender: TObject); + procedure cbbLabPropertiesButtonClick(Sender: TObject); + private + procedure InitGrid(); + procedure PrintLabel(MIsShow: Boolean); + function IsFieldUnique(AQuery: TADOQuery; const FieldName: string): Boolean; + { Private declarations } + public + FPreviewPrint: Boolean; + FLMType: string; //ǩ + FFiltration1, FFiltration2, FFiltration3: string; + { Public declarations } + end; + +var + frmLabelPrintPV: TfrmLabelPrintPV; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelMapSet; + +{$R *.dfm} +procedure TfrmLabelPrintPV.PrintLabel(MIsShow: Boolean); +var + fPrintFile, fPrintFile10, FMainID, LBName: string; +begin + if CDS_Label.IsEmpty then + begin + Application.MessageBox(PChar('' + FLMType + 'ûñǩ!'), 'ʾ', 0); + Exit; + end; + RMllPDFExport1.ShowDialog := CheckBox2.Checked; + RMJPEGExport1.ShowDialog := CheckBox2.Checked; + RMXLSExport1.ShowDialog := CheckBox2.Checked; + RM1.ShowPrintDialog := CheckBox1.Checked; + + LBName := cbbLab.text; + ExportFtErpFile(LBName + '.rmf', ADOQueryTemp); + + if CDS_Label.Locate('LMName', LBName, []) then + begin + + if trim(CDS_Label.fieldbyname('LMSql1').AsString) <> '' then + begin + with ADO_1 do + begin + Close; + sql.Clear; + sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1))); + Open; + end; + end; + if trim(CDS_Label.fieldbyname('LMSql2').AsString) <> '' then + begin + with ADO_2 do + begin + Close; + sql.Clear; + sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql2').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1))); + Open; + end; + end; + if trim(CDS_Label.fieldbyname('LMSql3').AsString) <> '' then + begin + with ADO_3 do + begin + Close; + sql.Clear; + sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql3').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1))); + Open; + end; + end; + end; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + LBName + '.rmf'; + if FileExists(fPrintFile) then + begin + + RM1.LoadFromFile(fPrintFile); + RM1.DefaultCopies := StrToIntDef(ComboBox1.Text, 1); + + RMVariables['inputNote'] := Trim(inputNote.Text); + RMVariables['inputcode'] := Trim(inputcode.Text); + if MIsShow then + RM1.ShowReport + else + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; +end; + +procedure TfrmLabelPrintPV.FormCreate(Sender: TObject); +begin + inherited; + FPreviewPrint := True; + try + with ADOConnection1 do + begin + Connected := false; + ConnectionString := DConString; + Connected := true; + end; + ADOQueryBaseCmd.Connection := ADOConnection1; + ADOQueryBaseTemp.Connection := ADOConnection1; + except + {if Application.MessageBox('ʧ,ǷҪٴ?','ʾ',32+4)=IDYES then + begin + try + with ADOConnection1 do + begin + Connected:=false; + ConnectionString:=DConString; + //ConnectionString:='23242'; + Connected:=true; + end; + except + end; + end; } + end; +end; + +procedure TfrmLabelPrintPV.btnPrintClick(Sender: TObject); +var + LBName: string; +begin + LBName := cbbLab.text; + if CDS_Label.Locate('LMName', LBName, []) then + begin + if trim(CDS_Label.fieldbyname('LMSql1').AsString) = 'P_Trade_FinishCloth_Out_Prt2' then + begin + with ADOQueryBaseTemp do + begin + close; + SQL.Clear; + SQL.Add(' exec P_Trade_FinishCloth_Out_Prt2 @Filtration=' + QuotedStr(FFiltration1)); + Open; +// showmessage(IntToStr(ADOQueryBaseTemp.RecordCount)); + end; + if not IsFieldUnique(ADOQueryBaseTemp, 'IOTime') then + begin + Application.MessageBox('ʱ䲻Ψһ', 'ʾ', 0); + exit; + end; + if not IsFieldUnique(ADOQueryBaseTemp, 'IOType') then + begin + Application.MessageBox('ͲΨһ', 'ʾ', 0); + exit; + end; + if not IsFieldUnique(ADOQueryBaseTemp, 'ToCoName') then + begin + Application.MessageBox('λΨһ', 'ʾ', 0); + exit; + end + end; + end; + + PrintLabel(False); + ModalResult := 1; +end; + +function TfrmLabelPrintPV.IsFieldUnique(AQuery: TADOQuery; const FieldName: string): Boolean; +var + FirstValue: string; + CurrentValue: string; +begin + Result := True; // Ĭϼֵһ + + // ֶǷ + if AQuery.FindField(FieldName) = nil then + Exit(False); // ֶβڣFalse + + // ݼΪգΪһµģûвֵͬ + if AQuery.IsEmpty then + Exit(True); + + // ȡһ¼ֵΪ׼ + AQuery.First; + FirstValue := AQuery.FieldByName(FieldName).AsString; + + // ӵڶ¼ʼȽ + AQuery.Next; + while not AQuery.Eof do + begin + CurrentValue := AQuery.FieldByName(FieldName).AsString; + + // һֵͬͷFalse + if CurrentValue <> FirstValue then + begin + Result := False; + Exit; + end; + + AQuery.Next; + end +end; + +procedure TfrmLabelPrintPV.btnShowClick(Sender: TObject); +var + LBName: string; +begin + LBName := cbbLab.text; + if CDS_Label.Locate('LMName', LBName, []) then + begin + if trim(CDS_Label.fieldbyname('LMSql1').AsString) = 'P_Trade_FinishCloth_Out_Prt2' then + begin + with ADOQueryBaseTemp do + begin + close; + SQL.Clear; + SQL.Add(' exec P_Trade_FinishCloth_Out_Prt2 @Filtration=' + QuotedStr(FFiltration1)); + Open; +// showmessage(IntToStr(ADOQueryBaseTemp.RecordCount)); + end; + if not IsFieldUnique(ADOQueryBaseTemp, 'IOTime') then + begin + Application.MessageBox('ʱ䲻Ψһ', 'ʾ', 0); + exit; + end; + if not IsFieldUnique(ADOQueryBaseTemp, 'IOType') then + begin + Application.MessageBox('ͲΨһ', 'ʾ', 0); + exit; + end; + if not IsFieldUnique(ADOQueryBaseTemp, 'ToCoName') then + begin + Application.MessageBox('λΨһ', 'ʾ', 0); + exit; + end + end; + end; + PrintLabel(true); +end; + +procedure TfrmLabelPrintPV.cbbLabPropertiesButtonClick(Sender: TObject); +begin + + try + frmLabelMapSet := TfrmLabelMapSet.Create(Application); + with frmLabelMapSet do + begin + FFiltration1 := self.FFiltration1; + FFiltration2 := self.FFiltration2; + FFiltration3 := self.FFiltration3; + FLMType := self.FLMType; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmLabelMapSet.Free; + end; +end; + +procedure TfrmLabelPrintPV.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := cahide; +end; + +procedure TfrmLabelPrintPV.InitGrid(); +begin + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select distinct(LMName) name from BS_Label_Map where LMType=' + QuotedStr(TRIM(FLMType))); + Open; + if isEmpty then + begin + exit; + end; + cbbLab.Properties.LookupItems.Clear; + while not Eof do + begin + + cbbLab.Properties.LookupItems.Add(Trim(fieldByName('Name').AsString)); + Next; + end; + + cbbLab.ItemIndex := 0; + end; + + with ADOQueryTemp do + begin + Filtered := False; + Close; + sql.Clear; + Sql.Add('select * from BS_Label_Map where LMType=' + QuotedStr(TRIM(FLMType))); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_Label); + SInitCDSData(ADOQueryTemp, CDS_Label); + if CDS_Label.IsEmpty then + begin + Application.MessageBox(PChar('' + FLMType + 'ûñǩ!'), 'ʾ', 0); + Exit; + end; +end; + +procedure TfrmLabelPrintPV.FormShow(Sender: TObject); +begin + inherited; + if FPreviewPrint then + RM1.PreviewButtons := [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator] + else + RM1.PreviewButtons := [rmpbZoom, rmpbLoad, rmpbSave, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]; + + InitGrid(); +end; + +procedure TfrmLabelPrintPV.TV1DblClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmLabelPrintPV.FormDestroy(Sender: TObject); +begin + inherited; + frmLabelPrintPV := nil; +end; + +end. + diff --git a/T02贸易汇总仓库/U_TradeFinishClothOutList.pas b/T02贸易汇总仓库/U_TradeFinishClothOutList.pas index c07a963..c89ecaa 100644 --- a/T02贸易汇总仓库/U_TradeFinishClothOutList.pas +++ b/T02贸易汇总仓库/U_TradeFinishClothOutList.pas @@ -126,7 +126,7 @@ type implementation uses - U_DataLink, U_RTFun, U_TradeFinishClothOutEdit, U_LabelPrint; + U_DataLink, U_RTFun, U_TradeFinishClothOutEdit, U_LabelPrintPV; {$R *.dfm} @@ -210,8 +210,8 @@ begin CDS_Main.EnableControls; try - frmLabelPrint := TfrmLabelPrint.Create(Application); - with frmLabelPrint do + frmLabelPrintPV := TfrmLabelPrintPV.Create(Application); + with frmLabelPrintPV do begin FLMType := 'TradeFinishClothOutPrt1'; FFiltration1 := MBCIOID; @@ -221,7 +221,7 @@ begin end; end; finally - frmLabelPrint.Free; + frmLabelPrintPV.Free; end; end; diff --git a/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm b/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm index feaf22a..c77ceda 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradeFtyClothOutList.dfm @@ -5,7 +5,6 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList ClientHeight = 537 ClientWidth = 1540 Position = poScreenCenter - ExplicitLeft = -341 ExplicitWidth = 1556 ExplicitHeight = 576 PixelsPerInch = 96 @@ -149,13 +148,6 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Height = 12 Caption = #21697#21517 end - object Label4: TLabel - Left = 443 - Top = 12 - Width = 36 - Height = 12 - Caption = #23458' '#25143 - end object Label5: TLabel Left = 178 Top = 12 @@ -178,7 +170,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Caption = #20986#24211#31867#22411 end object Label9: TLabel - Left = 443 + Left = 446 Top = 39 Width = 36 Height = 12 @@ -192,12 +184,19 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Caption = #20986#21040#35745#21010#21333 end object Label7: TLabel - Left = 599 - Top = 12 + Left = 437 + Top = 13 Width = 48 Height = 12 Caption = #23458#25143#21333#21495 end + object Label10: TLabel + Left = 608 + Top = 13 + Width = 36 + Height = 18 + Caption = #21152#24037#21378 + end object BegDate: TDateTimePicker Left = 77 Top = 8 @@ -225,22 +224,13 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList TabOrder = 2 OnChange = TBFindClick end - object FTYName: TEdit - Tag = 2 - Left = 483 - Top = 8 - Width = 80 - Height = 20 - TabOrder = 3 - OnChange = C_specChange - end object BCIOID: TEdit Tag = 2 Left = 228 Top = 8 Width = 80 Height = 20 - TabOrder = 4 + TabOrder = 3 OnChange = BCIOIDChange end object C_spec: TEdit @@ -249,7 +239,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Top = 35 Width = 80 Height = 20 - TabOrder = 5 + TabOrder = 4 OnChange = C_specChange end object IOType: TComboBox @@ -260,7 +250,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Height = 20 Style = csDropDownList DropDownCount = 20 - TabOrder = 6 + TabOrder = 5 OnChange = TBFindClick Items.Strings = ( '' @@ -271,13 +261,13 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList #35843#25320#20986#24211 #30424#20111#20986#24211) end - object CheJian: TEdit + object Workshop: TEdit Tag = 2 - Left = 483 + Left = 489 Top = 35 Width = 80 Height = 20 - TabOrder = 7 + TabOrder = 6 OnChange = C_specChange end object ToOrdNo: TEdit @@ -286,10 +276,19 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Top = 35 Width = 80 Height = 20 + TabOrder = 7 + OnChange = C_specChange + end + object BuyConNo: TEdit + Tag = 2 + Left = 489 + Top = 8 + Width = 80 + Height = 20 TabOrder = 8 OnChange = C_specChange end - object FTYNo: TEdit + object StkCoName: TEdit Tag = 2 Left = 653 Top = 8 @@ -307,6 +306,8 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitLeft = 71 + ExplicitTop = 105 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/T02贸易汇总仓库/U_TradeFtyClothOutList.pas b/T02贸易汇总仓库/U_TradeFtyClothOutList.pas index a2c5fab..83ffa03 100644 --- a/T02贸易汇总仓库/U_TradeFtyClothOutList.pas +++ b/T02贸易汇总仓库/U_TradeFtyClothOutList.pas @@ -53,12 +53,10 @@ type v1Column12: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; Label3: TLabel; - Label4: TLabel; Label5: TLabel; Label8: TLabel; Label12: TLabel; C_NAME: TEdit; - FTYName: TEdit; BCIOID: TEdit; C_spec: TEdit; IOType: TComboBox; @@ -67,7 +65,7 @@ type v1Column10: TcxGridDBColumn; v1Column17: TcxGridDBColumn; Label9: TLabel; - CheJian: TEdit; + Workshop: TEdit; v1Column5: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1Column13: TcxGridDBColumn; @@ -77,7 +75,7 @@ type Label6: TLabel; ToOrdNo: TEdit; Label7: TLabel; - FTYNo: TEdit; + BuyConNo: TEdit; Tv1Column2: TcxGridDBColumn; ToolButton1: TToolButton; Tv1Column3: TcxGridDBColumn; @@ -100,6 +98,8 @@ type Tv1Column18: TcxGridDBColumn; ToolButton3: TToolButton; Tv1Column19: TcxGridDBColumn; + StkCoName: TEdit; + Label10: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/T02贸易汇总仓库/U_TradePackClothInList.dfm b/T02贸易汇总仓库/U_TradePackClothInList.dfm index 3a27af9..c2d0211 100644 --- a/T02贸易汇总仓库/U_TradePackClothInList.dfm +++ b/T02贸易汇总仓库/U_TradePackClothInList.dfm @@ -263,6 +263,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -303,6 +304,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column7: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -311,6 +313,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object v1Column6: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 @@ -319,6 +322,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -329,6 +333,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -342,6 +347,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -357,6 +363,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -370,6 +377,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 79 @@ -377,6 +385,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter VisibleForCustomization = False Width = 89 @@ -384,12 +393,14 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column4: TcxGridDBColumn Caption = #26579#21378#32568#21495 DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end object v1Column13: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 67 @@ -397,6 +408,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object v1Column11: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -404,6 +416,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column6: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -411,6 +424,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object v1Column15: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -419,6 +433,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 85 @@ -427,6 +442,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -440,6 +456,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #24211#20301 DataBinding.FieldName = 'StkPosition' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -453,6 +470,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object v1Column19: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -461,12 +479,14 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object v1Column20: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 63 @@ -474,6 +494,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column3: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -481,6 +502,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column5: TcxGridDBColumn Caption = #30721#23610 DataBinding.FieldName = 'Yardstick' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -488,6 +510,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column1: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -495,12 +518,14 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column2: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 67 end object Tv1Column10: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -508,6 +533,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column8: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -515,6 +541,7 @@ inherited frmTradePackClothInList: TfrmTradePackClothInList object Tv1Column9: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 diff --git a/T02贸易汇总仓库/U_TradePackClothInList.pas b/T02贸易汇总仓库/U_TradePackClothInList.pas index f563f97..26028c7 100644 --- a/T02贸易汇总仓库/U_TradePackClothInList.pas +++ b/T02贸易汇总仓库/U_TradePackClothInList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, + dxScrollbarAnnotations; type TfrmTradePackClothInList = class(TfrmBaseList) diff --git a/T02贸易汇总仓库/U_TradePackClothOutList.dfm b/T02贸易汇总仓库/U_TradePackClothOutList.dfm index 59405ba..6b7a792 100644 --- a/T02贸易汇总仓库/U_TradePackClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradePackClothOutList.dfm @@ -127,7 +127,6 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 - ExplicitTop = 32 object Label1: TLabel Left = 28 Top = 12 diff --git a/T02贸易汇总仓库/U_TradeSampleClothInEdit.dfm b/T02贸易汇总仓库/U_TradeSampleClothInEdit.dfm index 4ba9079..470893b 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothInEdit.dfm +++ b/T02贸易汇总仓库/U_TradeSampleClothInEdit.dfm @@ -82,6 +82,7 @@ inherited frmTradeSampleClothInEdit: TfrmTradeSampleClothInEdit #23458#38656#24320#21457 #33258#20027#24320#21457 #22823#36135#30041#26679 + #26679#24067#21152#24037#20837#24211 #20854#23427#30041#26679) HeaderAlignmentHorz = taCenter Width = 87 diff --git a/T02贸易汇总仓库/U_TradeSampleClothInEdit.pas b/T02贸易汇总仓库/U_TradeSampleClothInEdit.pas index d7caf95..f63e7ec 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothInEdit.pas +++ b/T02贸易汇总仓库/U_TradeSampleClothInEdit.pas @@ -251,6 +251,7 @@ begin sql.Add(' where BCIOID=''' + Trim(Maxno) + ''''); ExecSQL; end; + with ADOQueryTemp do begin Close; @@ -263,6 +264,42 @@ begin if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then raise Exception.Create('ƥСڳƥܱ!'); + if FieldByName('IOtype').AsString = 'ӹ' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values('''' '); + sql.Add(',' + quotedstr(Maxno)); + sql.Add(',''޸'' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(Maxno)); + sql.Add(') '); + ExecSQL; + end; + end; + + if PState = '޸' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values('''' '); + sql.Add(',' + quotedstr(MBCIOID)); + sql.Add(',''ɾ'' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(MBCIOID)); + sql.Add(') '); + ExecSQL; + end; + end; + Edit; FieldByName('BCIOID').Value := Trim(Maxno); Post; @@ -396,6 +433,16 @@ begin Exit; end; + if CDS_Sub.Locate('IOType', 'ӹ', []) then + begin + if CDS_Sub.FieldByName('FromCoName').AsString = '' then + begin + Application.MessageBox('Ϊӹʱ,ԵλΪ!', 'ʾ', 0); + Exit; + end; + + end; + if SaveCKData() then begin Application.MessageBox('ɹ!', 'ʾ', 0); diff --git a/T02贸易汇总仓库/U_TradeSampleClothInList.dfm b/T02贸易汇总仓库/U_TradeSampleClothInList.dfm index 14fc069..ed239dd 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothInList.dfm +++ b/T02贸易汇总仓库/U_TradeSampleClothInList.dfm @@ -253,11 +253,11 @@ inherited frmTradeSampleClothInList: TfrmTradeSampleClothInList OnChange = TBFindClick Items.Strings = ( '' - #37319#36141#20837#24211 - #21152#24037#20837#24211 - #29983#20135#36864#22238 - #30424#30408#20837#24211 - #38144#21806#36864#22238) + #23458#38656#24320#21457 + #33258#20027#24320#21457 + #22823#36135#30041#26679 + #26679#24067#21152#24037#20837#24211 + #20854#23427#30041#26679) end object BatchNo: TEdit Tag = 2 diff --git a/T02贸易汇总仓库/U_TradeSampleClothInList.pas b/T02贸易汇总仓库/U_TradeSampleClothInList.pas index c998928..eee86c1 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothInList.pas +++ b/T02贸易汇总仓库/U_TradeSampleClothInList.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, - dxScrollbarAnnotations, jpeg, Math,U_SLT; + dxScrollbarAnnotations, jpeg, Math, U_SLT; type TfrmTradeSampleClothInList = class(TfrmBaseList) @@ -109,8 +109,7 @@ type procedure cxTabControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); private @@ -124,13 +123,14 @@ type { Public declarations } end; - var +var Mach: array of TfrmSlt; implementation uses - U_DataLink, U_RTFun, U_LabelPrint, U_TradeSampleClothInEdit,U_ClothTotalFileUp; + U_DataLink, U_RTFun, U_LabelPrint, U_TradeSampleClothInEdit, + U_ClothTotalFileUp; {$R *.dfm} procedure TfrmTradeSampleClothInList.setStatus(); @@ -340,8 +340,7 @@ begin InitImage(); end; -procedure TfrmTradeSampleClothInList.Tv1MouseDown(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +procedure TfrmTradeSampleClothInList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inherited; InitImage(); @@ -415,6 +414,35 @@ begin Exit; end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); + sql.Add('values('''' '); + sql.Add(',' + quotedstr(CDS_Main.FieldByName('BCIOID').AsString)); + sql.Add(',''ɾ'' '); + sql.Add(',' + quotedstr(DName)); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(CDS_Main.FieldByName('BCIOID').AsString)); + sql.Add(') '); + ExecSQL; + end; + + with ADOQueryTemp do + begin + close; + sql.Clear; + SQL.Add(' select * from Finance_Flow where FFID = ' + QuotedStr(CDS_Main.FieldByName('BCIOID').AsString) + ' and status = 9 '); + Open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ӦӦˣɾ¼', 'ʾ', 0); + Exit; + end; + MBCIOID := ''; CDS_Main.DisableControls; with CDS_Main do @@ -445,7 +473,7 @@ begin if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; - CDS_Main.Delete; +// CDS_Main.Delete; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); @@ -478,6 +506,20 @@ begin if CDS_Main.IsEmpty then Exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + SQL.Add(' select * from Finance_Flow where FFID = ' + QuotedStr(CDS_Main.FieldByName('BCIOID').AsString) + ' and status = 9 '); + Open; + end; + + if not ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ӦӦˣ޸¼', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do begin Close; @@ -501,6 +543,7 @@ begin FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString); TBDel.Visible := False; TBAdd.Visible := False; + PState := '޸'; FSTKName := Self.FSTKName; if ShowModal = 1 then begin diff --git a/T02贸易汇总仓库/U_TradeSampleClothOutEdit.dfm b/T02贸易汇总仓库/U_TradeSampleClothOutEdit.dfm index 65fcebe..2a27782 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothOutEdit.dfm +++ b/T02贸易汇总仓库/U_TradeSampleClothOutEdit.dfm @@ -163,7 +163,7 @@ inherited frmTradeSampleClothOutEdit: TfrmTradeSampleClothOutEdit #36864#36135#20986#24211 #35843#25320#20986#24211 #30424#20111#20986#24211 - '') + #21152#24037#20986#24211) HeaderAlignmentHorz = taCenter Width = 79 end diff --git a/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas b/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas index df3cc7f..cf13b4c 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas +++ b/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas @@ -257,6 +257,7 @@ begin if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then raise Exception.Create('ƥƥܱ棡'); + with ADOQueryCmd do begin Close; diff --git a/T02贸易汇总仓库/U_TradeSampleClothOutList.dfm b/T02贸易汇总仓库/U_TradeSampleClothOutList.dfm index 9956c04..ff77c4e 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradeSampleClothOutList.dfm @@ -279,7 +279,8 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList #38144#21806#20986#24211 #36864#36135#20986#24211 #35843#25320#20986#24211 - #30424#20111#20986#24211) + #30424#20111#20986#24211 + #21152#24037#20986#24211) end object CheJian: TEdit Tag = 2 @@ -680,6 +681,13 @@ inherited frmTradeSampleClothOutList: TfrmTradeSampleClothOutList HeaderAlignmentHorz = taCenter Width = 66 end + object Tv1Column19: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end object Tv1Column15: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' diff --git a/T02贸易汇总仓库/U_TradeSampleClothOutList.pas b/T02贸易汇总仓库/U_TradeSampleClothOutList.pas index 9053af9..3a3e1fb 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothOutList.pas +++ b/T02贸易汇总仓库/U_TradeSampleClothOutList.pas @@ -100,6 +100,7 @@ type ToolButton4: TToolButton; ToolButton5: TToolButton; Tv1Column8: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/T02贸易汇总仓库/U_TradeSampleClothStkList.dfm b/T02贸易汇总仓库/U_TradeSampleClothStkList.dfm index e65e627..0b14948 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothStkList.dfm +++ b/T02贸易汇总仓库/U_TradeSampleClothStkList.dfm @@ -17,7 +17,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 91 + ButtonWidth = 115 Caption = 'ToolBar1' Color = clSkyBlue Font.Charset = GB2312_CHARSET @@ -48,16 +48,32 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList Visible = False OnClick = TBFindClick end - object ToolButton2: TToolButton + object ToolButton1: TToolButton Left = 142 Top = 0 AutoSize = True + Caption = #24211#20301#35843#25972 + ImageIndex = 3 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #25171#21360#24211#23384#26631#31614 + ImageIndex = 21 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 356 + Top = 0 + AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 237 + Left = 451 Top = 0 AutoSize = True Caption = #20851#38381 @@ -76,7 +92,6 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 34 object Label3: TLabel Left = 207 Top = 11 @@ -181,6 +196,8 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitLeft = -2 + ExplicitTop = 71 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> @@ -249,6 +266,13 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList Styles.Header = DataLink_TradeTotalClothStk.Default Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe + object Tv1Column14: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end object v1Column6: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' @@ -583,4 +607,37 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList Left = 792 Top = 224 end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeTotalClothStk.ADOLink + Parameters = <> + Left = 504 + Top = 320 + end + object Rm1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 632 + Top = 336 + ReportData = {} + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 264 + Top = 304 + end end diff --git a/T02贸易汇总仓库/U_TradeSampleClothStkList.pas b/T02贸易汇总仓库/U_TradeSampleClothStkList.pas index 7533516..c1904e3 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothStkList.pas +++ b/T02贸易汇总仓库/U_TradeSampleClothStkList.pas @@ -79,6 +79,12 @@ type ADOQuery2: TADOQuery; C_Code: TEdit; Label5: TLabel; + ToolButton1: TToolButton; + ToolButton3: TToolButton; + Tv1Column14: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + RMDB_1: TRMDBDataSet; + Rm1: TRMGridReport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBRafreshClick(Sender: TObject); @@ -95,6 +101,7 @@ type procedure ToolButton2Click(Sender: TObject); procedure BCIIDKeyPress(Sender: TObject; var Key: Char); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton3Click(Sender: TObject); private procedure InitGrid(); procedure InitImage(); @@ -111,7 +118,7 @@ var implementation uses - U_DataLink, U_RTFun; + U_DataLink, U_RTFun, U_ZDYHelp; {$R *.dfm} @@ -286,6 +293,74 @@ begin end; procedure TfrmTradeSampleClothStkList.ToolButton1Click(Sender: TObject); +var + SavedTopRowIndex: Integer; + PBCIOIDS: string; +begin + if CDS_Main.IsEmpty then + Exit; + + if CDS_Main.Locate('ssel', true, []) = False then + begin + Application.MessageBox('ѡ', 'ʾ', 0); + exit; + end; + + try + SavedTopRowIndex := Self.Tv1.Controller.TopRowIndex; + Self.CDS_Main.First; + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'StkPosition'; + flagname := 'λ'; + MainType := FSTKName; + if ShowModal = 1 then + begin + Self.CDS_Main.DisableControls; + with Self.CDS_Main do + begin + First; + while not eof do + begin + if FieldByName('ssel').value = true then + begin + if PBCIOIDS = '' then + PBCIOIDS := PBCIOIDS + '''' + CDS_Main.FieldByName('BCIOID').AsString + '''' + else + PBCIOIDS := PBCIOIDS + ',''' + CDS_Main.FieldByName('BCIOID').AsString + ''''; + end; + Next; + end; + end; + Self.CDS_Main.EnableControls; + + with ADOQueryBaseCmd do + begin + close; + sql.Clear; + SQL.Add('update BS_Cloth_IO set stkposition = ' + QuotedStr(Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString)) + ' where BCIOID in (' + PBCIOIDS + ')'); + ExecSQL; + end; + Self.InitGrid(); + if SavedTopRowIndex < self.Tv1.DataController.RowCount then + self.Tv1.Controller.TopRowIndex := SavedTopRowIndex; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTradeSampleClothStkList.ToolButton2Click(Sender: TObject); +begin + WriteCxGrid(trim(Self.Caption), Tv1, 'ó׻ֿܲ'); +end; + +procedure TfrmTradeSampleClothStkList.ToolButton3Click(Sender: TObject); +var + fPrintFile, FLabVolume: string; + SavedTopRowIndex: Integer; begin if CDS_Main.IsEmpty then Exit; @@ -294,12 +369,52 @@ begin Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; - ModalResult := 1; -end; + SavedTopRowIndex := Self.Tv1.Controller.TopRowIndex; + CDS_Main.DisableControls; + with CDS_Main do + begin + First; + while not Eof do + begin + if CDS_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' EXEC P_BS_SampleCloth_In_Prt1 '); + SQL.Add(' @Filtration=''' + Trim(CDS_Main.fieldbyname('BCIOID').AsString) + ''''); + Open; + end; + if ADOQueryPrint.IsEmpty then + begin + application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + FLabVolume := 'Ʒǩ'; + ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; -procedure TfrmTradeSampleClothStkList.ToolButton2Click(Sender: TObject); -begin - WriteCxGrid(trim(Self.Caption), Tv1, 'ó׻ֿܲ'); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); +// if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then +// Rm1.DefaultCopies := 2 +// else + Rm1.DefaultCopies := 1; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + end; + Next; + end; + end; + CDS_Main.EnableControls; + if SavedTopRowIndex < self.Tv1.DataController.RowCount then + self.Tv1.Controller.TopRowIndex := SavedTopRowIndex; end; procedure TfrmTradeSampleClothStkList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); @@ -310,7 +425,7 @@ end; procedure TfrmTradeSampleClothStkList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin inherited; - InitImage(); + InitImage(); end; end. diff --git a/T02贸易汇总仓库/U_TradeSampleClothStkSel.dfm b/T02贸易汇总仓库/U_TradeSampleClothStkSel.dfm index 70772ea..7d6e006 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothStkSel.dfm +++ b/T02贸易汇总仓库/U_TradeSampleClothStkSel.dfm @@ -82,7 +82,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel Left = 0 Top = 38 Width = 1165 - Height = 36 + Height = 69 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -90,45 +90,51 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel ParentBackground = False TabOrder = 1 object Label3: TLabel - Left = 174 - Top = 10 + Left = 199 + Top = 11 Width = 24 Height = 12 Caption = #21697#21517 end object Label4: TLabel - Left = 27 - Top = 10 + Left = 12 + Top = 41 Width = 48 Height = 12 Caption = #26469#33258#21333#20301 end object Label8: TLabel - Left = 316 - Top = 10 + Left = 198 + Top = 41 Width = 24 Height = 12 Caption = #35268#26684 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False end object Label2: TLabel - Left = 457 - Top = 10 - Width = 36 + Left = 355 + Top = 11 + Width = 24 Height = 12 - Caption = #25209' '#21495 + Caption = #38376#24133 end object Label5: TLabel - Left = 585 + Left = 513 Top = 10 - Width = 48 + Width = 24 Height = 12 - Caption = #35745#21010#21333#21495 + Caption = #20811#37325 end object Label1: TLabel - Left = 729 + Left = 665 Top = 10 Width = 26 - Height = 12 + Height = 20 Caption = #25195#25551 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -137,9 +143,37 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel Font.Style = [fsBold] ParentFont = False end + object Label6: TLabel + Left = 356 + Top = 41 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label7: TLabel + Left = 665 + Top = 40 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label9: TLabel + Left = 514 + Top = 40 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label10: TLabel + Left = 36 + Top = 10 + Width = 38 + Height = 12 + Caption = #32534#21495 + end object C_name: TEdit Tag = 2 - Left = 204 + Left = 229 Top = 6 Width = 100 Height = 20 @@ -148,59 +182,95 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel end object FromCoName: TEdit Tag = 2 - Left = 81 - Top = 6 - Width = 78 + Left = 68 + Top = 37 + Width = 100 Height = 20 TabOrder = 1 OnChange = FromCoNameChange end object C_Spec: TEdit Tag = 2 - Left = 343 - Top = 6 + Left = 229 + Top = 37 Width = 100 Height = 20 TabOrder = 2 OnChange = TBFindClick end - object BatchNo: TEdit + object C_Width: TEdit Tag = 2 - Left = 496 + Left = 388 Top = 6 - Width = 78 + Width = 100 Height = 20 TabOrder = 3 OnChange = FromCoNameChange end - object OrderNo: TEdit + object C_GramWeight: TEdit Tag = 2 - Left = 633 + Left = 543 Top = 6 - Width = 78 + Width = 100 Height = 20 TabOrder = 4 OnChange = FromCoNameChange end object BCIID: TEdit - Left = 761 + Left = 697 Top = 6 Width = 106 Height = 20 TabOrder = 5 OnKeyPress = BCIIDKeyPress end + object C_Color: TEdit + Tag = 2 + Left = 388 + Top = 37 + Width = 100 + Height = 20 + TabOrder = 6 + OnChange = TBFindClick + end + object C_ColorNo: TEdit + Tag = 2 + Left = 543 + Top = 36 + Width = 100 + Height = 20 + TabOrder = 7 + OnChange = TBFindClick + end + object C_Pattern: TEdit + Tag = 2 + Left = 697 + Top = 36 + Width = 106 + Height = 20 + TabOrder = 8 + OnChange = TBFindClick + end + object C_Code: TEdit + Tag = 2 + Left = 68 + Top = 6 + Width = 100 + Height = 20 + TabOrder = 9 + OnChange = TBFindClick + end end object cxGrid2: TcxGrid [2] Left = 0 - Top = 74 + Top = 107 Width = 847 - Height = 398 + Height = 365 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = -2 - ExplicitTop = 70 + ExplicitTop = 74 + ExplicitHeight = 398 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> @@ -503,39 +573,42 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel end object Panel9: TPanel [3] Left = 847 - Top = 74 + Top = 107 Width = 318 - Height = 398 + Height = 365 Align = alRight Caption = 'Panel9' TabOrder = 3 + ExplicitTop = 74 + ExplicitHeight = 398 object Panel10: TPanel Left = 1 Top = 1 Width = 316 - Height = 396 + Height = 363 Align = alClient Caption = 'Panel9' TabOrder = 0 + ExplicitHeight = 396 object GroupBox1: TGroupBox Left = 1 Top = 1 Width = 314 - Height = 394 + Height = 361 Align = alClient Caption = #26679#21697#32553#30053#22270 TabOrder = 0 + ExplicitHeight = 394 object ScrollBox1: TScrollBox Left = 2 Top = 14 Width = 310 - Height = 378 + Height = 345 Align = alClient BevelInner = bvLowered BorderStyle = bsNone TabOrder = 0 - ExplicitLeft = 4 - ExplicitTop = 13 + ExplicitHeight = 378 end end end @@ -578,7 +651,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel object cxGridPopupMenu1: TcxGridPopupMenu PopupMenus = <> Left = 520 - Top = 232 + Top = 288 end object CDS_Main: TClientDataSet Aggregates = <> @@ -595,6 +668,10 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel object PopupMenu1: TPopupMenu Left = 456 Top = 232 + object N3: TMenuItem + Caption = #22797#21046 + OnClick = N3Click + end object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click @@ -605,6 +682,8 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel end end object cxStyleRepository1: TcxStyleRepository + Left = 40 + Top = 248 PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svTextColor] @@ -612,6 +691,8 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel end end object cxStyleRepository2: TcxStyleRepository + Left = 56 + Top = 176 PixelsPerInch = 96 object cxStyle2: TcxStyle end diff --git a/T02贸易汇总仓库/U_TradeSampleClothStkSel.pas b/T02贸易汇总仓库/U_TradeSampleClothStkSel.pas index e901fa0..96c32bb 100644 --- a/T02贸易汇总仓库/U_TradeSampleClothStkSel.pas +++ b/T02贸易汇总仓库/U_TradeSampleClothStkSel.pas @@ -53,13 +53,13 @@ type C_name: TEdit; FromCoName: TEdit; C_Spec: TEdit; - BatchNo: TEdit; + C_Width: TEdit; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1Column9: TcxGridDBColumn; v1Column11: TcxGridDBColumn; Label5: TLabel; - OrderNo: TEdit; + C_GramWeight: TEdit; Tv1Column1: TcxGridDBColumn; ToolButton2: TToolButton; Tv1Column2: TcxGridDBColumn; @@ -84,6 +84,15 @@ type Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; + C_Color: TEdit; + C_ColorNo: TEdit; + C_Pattern: TEdit; + Label6: TLabel; + Label7: TLabel; + Label9: TLabel; + C_Code: TEdit; + Label10: TLabel; + N3: TMenuItem; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBRafreshClick(Sender: TObject); @@ -101,6 +110,7 @@ type procedure ToolButton2Click(Sender: TObject); procedure BCIIDKeyPress(Sender: TObject; var Key: Char); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure N3Click(Sender: TObject); private procedure InitGrid(); procedure InitImage(); @@ -117,7 +127,7 @@ var implementation uses - U_DataLink, U_RTFun; + U_DataLink, U_RTFun, Vcl.Clipbrd; {$R *.dfm} @@ -294,6 +304,13 @@ begin SelOKNo(CDS_Main, False); end; +procedure TfrmTradeSampleClothStkSel.N3Click(Sender: TObject); +begin + inherited; + Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + procedure TfrmTradeSampleClothStkSel.SXBatchNOChange(Sender: TObject); begin TBFind.Click; diff --git a/T02贸易汇总仓库/testDll.identcache b/T02贸易汇总仓库/testDll.identcache index a58693f..e96d4e6 100644 Binary files a/T02贸易汇总仓库/testDll.identcache and b/T02贸易汇总仓库/testDll.identcache differ diff --git a/T03贸易布匹检验/ProjectGroup1.groupproj.local b/T03贸易布匹检验/ProjectGroup1.groupproj.local index 3720508..80e1284 100644 --- a/T03贸易布匹检验/ProjectGroup1.groupproj.local +++ b/T03贸易布匹检验/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/T03贸易布匹检验/TradeInsp.dproj b/T03贸易布匹检验/TradeInsp.dproj index c61f95e..4804b70 100644 --- a/T03贸易布匹检验/TradeInsp.dproj +++ b/T03贸易布匹检验/TradeInsp.dproj @@ -80,7 +80,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\项目代码\D10zzbiaoqi\T03贸易布匹检验\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T03贸易布匹检验\testDll.exe diff --git a/T03贸易布匹检验/TradeInsp.dproj.local b/T03贸易布匹检验/TradeInsp.dproj.local index 36218ea..2f93b8b 100644 --- a/T03贸易布匹检验/TradeInsp.dproj.local +++ b/T03贸易布匹检验/TradeInsp.dproj.local @@ -1,43 +1,43 @@  - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas 1899-12-30 00:00:00.000.453,=D:\Dp10Repo\项目代码\D10myBiaoqi\T03贸易布匹检验\U_TradeClothDefectiveList.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.966,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradePack.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj 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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.966,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradePack.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.589,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas 1899-12-30 00:00:00.000.136,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.888,=D:\Dp10Repo\项目代码\D10myBiaoqi\T03贸易布匹检验\U_ProcessTypeEdit.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.174,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradeClothWaitPack.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.174,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradeClothWaitPack.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas @@ -54,7 +54,7 @@ - + diff --git a/T03贸易布匹检验/TradeInsp.identcache b/T03贸易布匹检验/TradeInsp.identcache index 3236277..675f8de 100644 Binary files a/T03贸易布匹检验/TradeInsp.identcache and b/T03贸易布匹检验/TradeInsp.identcache differ diff --git a/T03贸易布匹检验/U_TradeClothDefectiveList.pas b/T03贸易布匹检验/U_TradeClothDefectiveList.pas index 86f9302..74d3e6c 100644 --- a/T03贸易布匹检验/U_TradeClothDefectiveList.pas +++ b/T03贸易布匹检验/U_TradeClothDefectiveList.pas @@ -336,7 +336,7 @@ begin // SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj); // Filler.ItemIndex := Filler.Items.IndexOf(trim(DName)); - InitGrid(); +// InitGrid(); SetStatus(); InitGrid(); end; diff --git a/T03贸易布匹检验/U_TradeClothInspList.dfm b/T03贸易布匹检验/U_TradeClothInspList.dfm index bb9ed2b..6c9c169 100644 --- a/T03贸易布匹检验/U_TradeClothInspList.dfm +++ b/T03贸易布匹检验/U_TradeClothInspList.dfm @@ -127,7 +127,6 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList ParentFont = False PopupMenu = PM_1 TabOrder = 3 - ExplicitTop = 136 object Tv1: TcxGridDBTableView OnMouseUp = Tv1MouseUp Navigator.Buttons.CustomButtons = <> diff --git a/T03贸易布匹检验/U_TradeClothInspList.pas b/T03贸易布匹检验/U_TradeClothInspList.pas index 0575de9..9ed95a4 100644 --- a/T03贸易布匹检验/U_TradeClothInspList.pas +++ b/T03贸易布匹检验/U_TradeClothInspList.pas @@ -306,7 +306,7 @@ begin // Filler.ItemIndex := Filler.Items.IndexOf(trim(DName)); - InitGrid(); +// InitGrid(); SetStatus(); InitGrid(); end; diff --git a/T03贸易布匹检验/U_TradeClothWaitPack.dfm b/T03贸易布匹检验/U_TradeClothWaitPack.dfm index eed2d89..b01112f 100644 --- a/T03贸易布匹检验/U_TradeClothWaitPack.dfm +++ b/T03贸易布匹检验/U_TradeClothWaitPack.dfm @@ -88,9 +88,9 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack Height = 464 Align = alClient TabOrder = 1 - ExplicitLeft = 1 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -128,6 +128,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object v2Column3: TcxGridDBColumn Caption = #36873#20013 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -137,6 +138,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object v2Column2: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -144,18 +146,21 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object Tv2Column5: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 74 end object Tv2Column2: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object cxGridDBColumn2: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -163,18 +168,21 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object Tv2Column3: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv2Column4: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object v2Column8: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -182,6 +190,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object cxGridDBColumn3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -189,6 +198,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object Tv2Column1: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -196,6 +206,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object v1Column10: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -203,6 +214,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object v1Column14: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -210,6 +222,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object v1PRTMF: TcxGridDBColumn Caption = #26410#20837#24211#21305#25968 DataBinding.FieldName = 'ZPPS' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 97 @@ -217,6 +230,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object v1PRTKZ: TcxGridDBColumn Caption = #26410#20837#24211#25968#37327 DataBinding.FieldName = 'ZPQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 117 @@ -224,6 +238,7 @@ object frmTradeClothWaitPack: TfrmTradeClothWaitPack object Tv2Column6: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 44 end diff --git a/T03贸易布匹检验/U_TradeClothWaitPack.pas b/T03贸易布匹检验/U_TradeClothWaitPack.pas index 403b538..8ab036b 100644 --- a/T03贸易布匹检验/U_TradeClothWaitPack.pas +++ b/T03贸易布匹检验/U_TradeClothWaitPack.pas @@ -10,7 +10,7 @@ uses cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, - dxBarBuiltInMenu, Vcl.ToolWin; + dxBarBuiltInMenu, Vcl.ToolWin, dxSkinWXI, dxScrollbarAnnotations; type TfrmTradeClothWaitPack = class(TForm) diff --git a/T03贸易布匹检验/U_TradeMachInsp.dfm b/T03贸易布匹检验/U_TradeMachInsp.dfm index 17632a1..479eed2 100644 --- a/T03贸易布匹检验/U_TradeMachInsp.dfm +++ b/T03贸易布匹检验/U_TradeMachInsp.dfm @@ -7,7 +7,8 @@ FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -689 + ExplicitLeft = -28 + ExplicitTop = -149 ExplicitWidth = 1556 ExplicitHeight = 809 PixelsPerInch = 96 @@ -1696,7 +1697,7 @@ end object MovePanel1: TMovePanel Left = 4 - Top = 235 + Top = 233 Width = 391 Height = 368 BevelInner = bvLowered @@ -1924,7 +1925,7 @@ end object FwNote: TEdit Left = 65 - Top = 94 + Top = 96 Width = 275 Height = 32 Font.Charset = GB2312_CHARSET @@ -1963,6 +1964,8 @@ ScrollBars = ssVertical TabOrder = 0 Zoom = 100 + ExplicitLeft = 1 + ExplicitTop = 46 end object Panel1: TPanel Left = 6 @@ -2082,8 +2085,6 @@ Height = 461 Align = alClient TabOrder = 0 - ExplicitLeft = 0 - ExplicitTop = 109 object Tv3: TcxGridDBTableView OnMouseDown = Tv3MouseDown Navigator.Buttons.CustomButtons = <> @@ -2735,6 +2736,8 @@ ParentBackground = False TabOrder = 5 Visible = False + ExplicitLeft = 387 + ExplicitTop = -8 object Label35: TLabel Left = 27 Top = 55 diff --git a/T03贸易布匹检验/U_TradeMachInsp.pas b/T03贸易布匹检验/U_TradeMachInsp.pas index 0ec285f..7a8877f 100644 --- a/T03贸易布匹检验/U_TradeMachInsp.pas +++ b/T03贸易布匹检验/U_TradeMachInsp.pas @@ -1752,6 +1752,10 @@ begin else if RadioGroup1.ItemIndex = 4 then begin FieldByName('FwNote').Value := 'ƥ' + Trim(FwNote.Text); + end + else + begin + FieldByName('FwNote').Value := FwNote.Text; end; FieldByName('CIFPoints').Value := 0; diff --git a/T03贸易布匹检验/testDll.identcache b/T03贸易布匹检验/testDll.identcache index e70de67..a2ba6a8 100644 Binary files a/T03贸易布匹检验/testDll.identcache and b/T03贸易布匹检验/testDll.identcache differ diff --git a/T04贸易明细仓库/ProjectGroup1.groupproj.local b/T04贸易明细仓库/ProjectGroup1.groupproj.local index 79d28c3..dcea94b 100644 --- a/T04贸易明细仓库/ProjectGroup1.groupproj.local +++ b/T04贸易明细仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/T04贸易明细仓库/TradeClothStk.dproj b/T04贸易明细仓库/TradeClothStk.dproj index d917d70..6a0917b 100644 --- a/T04贸易明细仓库/TradeClothStk.dproj +++ b/T04贸易明细仓库/TradeClothStk.dproj @@ -4,7 +4,7 @@ TradeClothStk.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,18 +78,9 @@ false true - - Debug - - - Debug - - - Debug - 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\项目代码\D10myBiaoqi\T04贸易明细仓库\testDll.exe + E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T04贸易明细仓库\testDll.exe @@ -247,10 +203,6 @@ - True - True - True - True True False diff --git a/T04贸易明细仓库/TradeClothStk.dproj.local b/T04贸易明细仓库/TradeClothStk.dproj.local index 001b899..8d73905 100644 --- a/T04贸易明细仓库/TradeClothStk.dproj.local +++ b/T04贸易明细仓库/TradeClothStk.dproj.local @@ -4,51 +4,53 @@ 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj 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.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.890,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothInListNew.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.355,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeKCListSel.pas 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm - 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.296,=D:\Dp10Repo\项目代码\D10myBiaoqi\T04贸易明细仓库\U_TradeClothSplitWeight.pas 1899-12-30 00:00:00.000.527,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_DeliTradePlanSel.pas - 1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas= + 1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas 1899-12-30 00:00:00.000.733,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeStockListSel.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.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.808,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas= + 1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.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.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothStkListNew.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas 1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothStkListNew.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas= + 1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas 1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.520,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothOutListNew.pas 1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas= 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.163,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothOutListNew.pas + 1899-12-30 00:00:00.000.882,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T04贸易明细仓库\U_TradeClothInspList.pas= 1899-12-30 00:00:00.000.630,=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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.406,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T04贸易明细仓库\U_TradeClothInspList.pas 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas @@ -72,7 +74,7 @@ - + diff --git a/T04贸易明细仓库/TradeClothStk.identcache b/T04贸易明细仓库/TradeClothStk.identcache index c786a0b..7b1ffb3 100644 Binary files a/T04贸易明细仓库/TradeClothStk.identcache and b/T04贸易明细仓库/TradeClothStk.identcache differ diff --git a/T04贸易明细仓库/TradeClothStk.skincfg b/T04贸易明细仓库/TradeClothStk.skincfg index f0fe216..0849faf 100644 --- a/T04贸易明细仓库/TradeClothStk.skincfg +++ b/T04贸易明细仓库/TradeClothStk.skincfg @@ -1,5 +1,5 @@ [ExpressSkins] -Default=0 +Default=1 ShowNotifications=1 Enabled=1 dxSkinBasic=0 diff --git a/T04贸易明细仓库/U_GetDllForm.pas b/T04贸易明细仓库/U_GetDllForm.pas index f41dd48..c03435a 100644 --- a/T04贸易明细仓库/U_GetDllForm.pas +++ b/T04贸易明细仓库/U_GetDllForm.pas @@ -72,10 +72,15 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; +// server := '101.132.143.144,7781'; +// dtbase := 'BiaoqiData'; +// user := 'rtsa'; +// pswd := 'rightsoft@5740'; + + server := '127.0.0.1'; dtbase := 'BiaoqiData'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'sa'; + pswd := 'root'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; diff --git a/T04贸易明细仓库/U_TradeClothDROutEdit.dfm b/T04贸易明细仓库/U_TradeClothDROutEdit.dfm index 08526a3..ac743e4 100644 --- a/T04贸易明细仓库/U_TradeClothDROutEdit.dfm +++ b/T04贸易明细仓库/U_TradeClothDROutEdit.dfm @@ -198,7 +198,7 @@ inherited frmTradeClothDROutEdit: TfrmTradeClothDROutEdit end object btn1: TButton Left = 693 - Top = 21 + Top = 18 Width = 100 Height = 76 Caption = #24211#23384 diff --git a/T04贸易明细仓库/U_TradeClothInspList.dfm b/T04贸易明细仓库/U_TradeClothInspList.dfm new file mode 100644 index 0000000..bb9ed2b --- /dev/null +++ b/T04贸易明细仓库/U_TradeClothInspList.dfm @@ -0,0 +1,1106 @@ +inherited frmTradeClothInspList: TfrmTradeClothInspList + Left = 160 + Top = 87 + Caption = #26816#39564#25253#21578 + ClientHeight = 554 + ClientWidth = 1472 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1488 + ExplicitHeight = 593 + PixelsPerInch = 96 + TextHeight = 12 + object Panel6: TPanel [0] + Left = 0 + Top = 107 + Width = 1472 + Height = 28 + Align = alTop + AutoSize = True + BorderStyle = bsSingle + TabOrder = 4 + DesignSize = ( + 1468 + 24) + object Label31: TLabel + Left = 22 + Top = 5 + Width = 84 + Height = 13 + Alignment = taCenter + Anchors = [akLeft] + Caption = #27599#39029#35760#24405#26465#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Layout = tlCenter + end + object LBCPAP: TLabel + Left = 483 + Top = 1 + Width = 85 + Height = 20 + Alignment = taCenter + Anchors = [akLeft] + AutoSize = False + Caption = #24403#21069#39029'/'#24635#39029#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Layout = tlCenter + end + object BTLP: TButton + Left = 404 + Top = 1 + Width = 78 + Height = 22 + Anchors = [akLeft] + Caption = #19978#19968#39029 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = BTLPClick + end + object BTNP: TButton + Left = 569 + Top = 1 + Width = 78 + Height = 22 + Anchors = [akLeft] + Caption = #19979#19968#39029 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = BTNPClick + end + object TCBNOR: TComboBox + Tag = 2 + Left = 110 + Top = 2 + Width = 78 + Height = 20 + Anchors = [akLeft] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemIndex = 0 + ParentFont = False + TabOrder = 2 + Text = '500' + OnChange = TCBNORChange + Items.Strings = ( + '500' + '1000' + '5000' + '10000') + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 135 + Width = 1472 + Height = 419 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 3 + ExplicitTop = 136 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + FieldName = 'CIFNumber' + end + item + Kind = skCount + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column27 + end + item + Kind = skSum + Column = v1Column28 + end + item + Kind = skSum + Column = v1Column14 + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + Column = v1MKXS + end + item + Kind = skCount + Column = v1Column23 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TradeInsp.SHuangSe + Styles.Footer = DataLink_TradeInsp.Default + Styles.Header = DataLink_TradeInsp.Default + Styles.Inactive = DataLink_TradeInsp.SHuangSe + Styles.Selection = DataLink_TradeInsp.SHuangSe + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 45 + end + object v1Column21: TcxGridDBColumn + Caption = #25171#30721#26102#38388 + DataBinding.FieldName = 'FillTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column32: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'conNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column1: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column9: TcxGridDBColumn + Caption = #30133#28857#25968#37327 + DataBinding.FieldName = 'CIFNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column7: TcxGridDBColumn + Caption = #30133#28857#24773#20917 + DataBinding.FieldName = 'FlawList' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 122 + end + object Tv1Column9: TcxGridDBColumn + Caption = #30133#28857#22791#27880 + DataBinding.FieldName = 'FFwNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 108 + end + object v1Column17: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'CIIOFlag' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column18: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column23: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column8: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column27: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column28: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column10: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column20: TcxGridDBColumn + Caption = #25171#30721#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column14: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'KouFenQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #21697#36136 + DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column42: TcxGridDBColumn + Caption = #24635#35760#24405#25968 + DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column6: TcxGridDBColumn + Caption = #21367#26465#30721 + DataBinding.FieldName = 'CIID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column7: TcxGridDBColumn + Caption = #23458#25143#33457#22411 + DataBinding.FieldName = 'C_CustPattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1MKXS: TcxGridDBColumn + Caption = #25442#31639#31995#25968 + DataBinding.FieldName = 'Coefficient' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column34: TcxGridDBColumn + Caption = #32568#26465#30721 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column40: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column46: TcxGridDBColumn + Caption = #26816#39564#26426#21488 + DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'PacketNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column8: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column1: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column2: TcxGridDBColumn + Caption = #33521#25991#39068#33394 + DataBinding.FieldName = 'C_EColor' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 59 + end + object Tv1Column11: TcxGridDBColumn + DataBinding.FieldName = 'SubId' + DataBinding.IsNullValueType = True + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar [2] + Tag = 1 + Left = 0 + Top = 0 + Width = 1472 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 103 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeInsp.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 btnEdit: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #32534#36753 + ImageIndex = 3 + OnClick = btnEditClick + end + object ToolButton2: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20462#25913#25209#21495 + ImageIndex = 3 + OnClick = ToolButton2Click + end + object TBZF: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBZFClick + end + object btnJBQ: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #25171#21360#21367#26631#31614 + ImageIndex = 21 + OnClick = btnJBQClick + end + object btnJYBG: TToolButton + Left = 415 + Top = 0 + AutoSize = True + Caption = #21333#25454#25171#21360 + ImageIndex = 21 + OnClick = btnJYBGClick + end + object TBExport: TToolButton + Left = 510 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 581 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 676 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [3] + Left = 0 + Top = 38 + Width = 1472 + Height = 69 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = 16242829 + ParentBackground = False + TabOrder = 1 + object Label3: TLabel + Left = 195 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #35745#21010#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TLabel + Left = 356 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #23458#25143#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 525 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 1187 + Top = 10 + Width = 39 + Height = 12 + Hint = '1' + Caption = #25171#30721#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label10: TLabel + Left = 678 + Top = 40 + Width = 39 + Height = 12 + Hint = '1' + Caption = #21367#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 1024 + Top = 40 + Width = 26 + Height = 12 + Hint = '1' + Caption = #21697#36136 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 356 + Top = 40 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 1024 + Top = 10 + Width = 26 + Height = 12 + Hint = '1' + Caption = #29366#24577 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object lbl1: TLabel + Left = 678 + Top = 10 + Width = 39 + Height = 12 + Hint = '0' + Caption = #32568#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 842 + Top = 40 + Width = 52 + Height = 12 + Hint = '1' + Caption = #26816#39564#26426#21488 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 525 + Top = 40 + Width = 26 + Height = 12 + Hint = '0' + Caption = #33457#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 195 + Top = 40 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20135#21697#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 842 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #26579#21378#32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 93 + Top = 8 + Width = 85 + Height = 20 + Date = 44774.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 93 + Top = 36 + Width = 86 + Height = 20 + Date = 44774.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464761099538009100 + TabOrder = 6 + end + object OrderNo: TEdit + Tag = 2 + Left = 250 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 1 + OnKeyPress = OrderNoKeyPress + end + object BuyConNo: TEdit + Tag = 2 + Left = 406 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 7 + OnKeyPress = BuyConNoKeyPress + end + object CIID: TEdit + Tag = 2 + Left = 718 + Top = 36 + Width = 100 + Height = 20 + Hint = '1' + TabOrder = 3 + OnKeyPress = KHConNOKeyPress + end + object Grade: TComboBox + Tag = 2 + Left = 1053 + Top = 36 + Width = 100 + Height = 20 + Hint = '1' + Style = csDropDownList + TabOrder = 10 + OnChange = GradeChange + OnKeyPress = KHConNOKeyPress + Items.Strings = ( + #27491#21697 + #27425#21697 + #22810#25340 + #24453#23450 + '') + end + object C_Name: TEdit + Tag = 2 + Left = 406 + Top = 36 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 2 + OnKeyPress = BuyConNoKeyPress + end + object CIIOFlag: TComboBox + Tag = 2 + Left = 1053 + Top = 6 + Width = 100 + Height = 20 + Hint = '1' + Style = csDropDownList + TabOrder = 9 + OnChange = CIIOFlagChange + OnKeyPress = KHConNOKeyPress + Items.Strings = ( + #26410#20837#24211 + #24050#20837#24211 + #24050#20986#24211 + '') + end + object Filler: TComboBox + Tag = 2 + Left = 1232 + Top = 6 + Width = 100 + Height = 20 + Hint = '1' + Style = csDropDownList + TabOrder = 4 + Visible = False + OnKeyPress = KHConNOKeyPress + end + object C_Color: TEdit + Tag = 2 + Left = 553 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 8 + OnKeyPress = BuyConNoKeyPress + end + object IsJYTime: TCheckBox + Left = 9 + Top = 9 + Width = 81 + Height = 17 + Caption = #26816#39564#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 5 + end + object BCIOID: TEdit + Tag = 2 + Left = 718 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 11 + OnKeyPress = KHConNOKeyPress + end + object CIMachNo: TEdit + Tag = 2 + Left = 895 + Top = 36 + Width = 100 + Height = 20 + Hint = '1' + TabOrder = 12 + OnKeyPress = KHConNOKeyPress + end + object C_Pattern: TEdit + Tag = 2 + Left = 553 + Top = 36 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 13 + OnKeyPress = KHConNOKeyPress + end + object C_Code: TEdit + Tag = 2 + Left = 250 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 14 + OnKeyPress = KHConNOKeyPress + end + object FtyPCId: TEdit + Tag = 2 + Left = 895 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 15 + OnKeyPress = KHConNOKeyPress + end + end + object MovePanel2: TMovePanel [4] + Left = 592 + Top = 216 + Width = 289 + Height = 49 + BevelInner = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Left = 201 + Top = 224 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Left = 81 + Top = 225 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 532 + Top = 320 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Parameters = <> + Left = 40 + Top = 296 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 120 + Top = 296 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 216 + Top = 296 + end + object DS_1: TDataSource + DataSet = Order_Main + Left = 680 + Top = 324 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 608 + Top = 320 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 708 + Top = 392 + ReportData = {} + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 644 + Top = 392 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 569 + Top = 384 + end + object PM_1: TPopupMenu + Left = 748 + Top = 324 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #20840#24323 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #22797#21046 + OnClick = N4Click + end + end + object RMRichObject1: TRMRichObject + Left = 399 + Top = 268 + end + object RMRichObject2: TRMRichObject + Left = 521 + Top = 218 + end +end diff --git a/T04贸易明细仓库/U_TradeClothInspList.pas b/T04贸易明细仓库/U_TradeClothInspList.pas new file mode 100644 index 0000000..0575de9 --- /dev/null +++ b/T04贸易明细仓库/U_TradeClothInspList.pas @@ -0,0 +1,782 @@ +unit U_TradeClothInspList; + +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, MovePanel, cxTextEdit, + cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, + RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker, + RM_RichEdit, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations; + +type + TfrmTradeClothInspList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + GPM_1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + Label3: TLabel; + OrderNo: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + BuyConNo: TEdit; + Label7: TLabel; + Label8: TLabel; + Label10: TLabel; + Label4: TLabel; + Grade: TComboBox; + Label5: TLabel; + C_Name: TEdit; + Label6: TLabel; + CIIOFlag: TComboBox; + Filler: TComboBox; + btnEdit: TToolButton; + TBZF: TToolButton; + btnJBQ: TToolButton; + RM1: TRMGridReport; + RMDB_1: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + MovePanel2: TMovePanel; + C_Color: TEdit; + IsJYTime: TCheckBox; + lbl1: TLabel; + BCIOID: TEdit; + btnJYBG: TToolButton; + Label16: TLabel; + CIMachNo: TEdit; + Label20: TLabel; + C_Pattern: TEdit; + Label23: TLabel; + C_Code: TEdit; + Label1: TLabel; + FtyPCId: TEdit; + ToolButton1: TToolButton; + PM_1: TPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v1Column42: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1MKXS: TcxGridDBColumn; + v1Column34: TcxGridDBColumn; + v1Column40: TcxGridDBColumn; + v1Column46: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel6: TPanel; + Label31: TLabel; + LBCPAP: TLabel; + BTLP: TButton; + BTNP: TButton; + TCBNOR: TComboBox; + Tv1Column10: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; + N4: TMenuItem; + ToolButton2: TToolButton; + RMRichObject1: TRMRichObject; + RMRichObject2: TRMRichObject; + Tv1Column9: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure btnEditClick(Sender: TObject); + procedure TBZFClick(Sender: TObject); + procedure btnJBQClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTLPClick(Sender: TObject); + procedure BTNPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure BuyConNoKeyPress(Sender: TObject; var Key: Char); + procedure CIIOFlagChange(Sender: TObject); + procedure GradeChange(Sender: TObject); + procedure KHConNOKeyPress(Sender: TObject; var Key: Char); + procedure RKOrdIDKeyPress(Sender: TObject; var Key: Char); + procedure btnJYBGClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure cxPageControl1Change(Sender: TObject); + procedure chkZFClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + DQdate: TDateTime; + FLeft, FTop: Integer; + CurrentPage, RecordsNumber: Integer; + procedure InitGrid(); + function Savedata(): Boolean; + procedure SetStatus(); + procedure PrintCKMDG(MRKOrdID: string); + { Private declarations } + public + FFInt: Integer; + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_TradeInspEdit, U_ZDYHelp, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTradeClothInspList.SetStatus(); +begin +// btnEdit.Enabled := False; +// TBZF.Enabled := False; +// btnHY.Enabled := False; +// btnJBQ.Enabled := False; +// btnJYBG.Enabled := False; +// +// btnEdit.Enabled := True; +// TBZF.Enabled := True; +// btnJBQ.Enabled := True; +// btnJYBG.Enabled := True; + +end; + +procedure TfrmTradeClothInspList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTradeClothInspList.FormCreate(Sender: TObject); +begin + inherited; + cxgrid1.Align := alClient; + DQdate := SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmTradeClothInspList.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTradeClothInspList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid1); +end; + +procedure TfrmTradeClothInspList.PrintCKMDG(MRKOrdID: string); +begin + +end; + +procedure TfrmTradeClothInspList.InitGrid(); +var + WSql: string; +begin + MovePanel2.Left := (self.Width - MovePanel2.Width) div 2; + MovePanel2.Visible := True; + MovePanel2.Refresh; + WSql := SGetFilters(Panel1, 1, 2); + if trim(WSql) <> '' then + begin + WSql := ' and ' + trim(WSql); + end; + + if IsJYTime.Checked then + begin + WSql := WSql + ' and Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and Filltime<=' + 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('exec P_Trade_Insp_Get_Page1 '); + sql.Add('@pageIndex=' + inttostr(CurrentPage)); + sql.Add(',@pageSize=' + inttostr(RecordsNumber)); + sql.Add(',@criteria= ' + quotedstr(WSql)); +// showmessage(SQL.text); + Open; + end; + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber)); + + MovePanel2.Visible := false; + finally + ADOQueryMain.EnableControls; + MovePanel2.Visible := false; + TV1.DataController.Filter.Clear; + end; +end; + +procedure TfrmTradeClothInspList.TBRafreshClick(Sender: TObject); +begin + OrderNo.SetFocus; + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspList.FormShow(Sender: TObject); +begin + inherited; + canshu1 := self.fParameters1; + CurrentPage := 1; + RecordsNumber := 500; + ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, 'ó׼'); + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; +// fsj := 'select distinct(Filler) name from Trade_Cloth_Inspect '; +// SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj); +// Filler.ItemIndex := Filler.Items.IndexOf(trim(DName)); + + + InitGrid(); + SetStatus(); + InitGrid(); +end; + +procedure TfrmTradeClothInspList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft := X; + FTop := Y; +end; + +procedure TfrmTradeClothInspList.btnEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_Cloth_IO where IOFlag='''' and stkid=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Order_Main.EnableControls; + Application.MessageBox('Ѳݲܱ༭!', 'ʾ', 0); + Exit; + end; + try + frmTradeInspEdit := TfrmTradeInspEdit.Create(Application); + with frmTradeInspEdit do + begin + CIID.Text := Trim(Self.Order_Main.fieldbyname('CIID').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmTradeInspEdit.Free; + end; +end; + +procedure TfrmTradeClothInspList.TBZFClick(Sender: TObject); +var + MCIIDS: string; +begin + if Order_Main.Locate('ssel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪϺݲָܻ', 'ʾ', 32 + 4) <> IDYES then + Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + + MCIIDS := MCIIDS + Trim(Order_Main.fieldbyname('CIID').AsString) + ','; + Order_Main.Delete; + end + else + Next; + end; + end; + Order_Main.EnableControls; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into Trade_Need_Up(UOperation,UType,UDataId) values('''',''ɾ'',' + quotedstr(MCIIDS) + ') '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_Trade_Insp_Del '); + Sql.Add('@CIIDS=' + quotedstr(Trim(MCIIDS))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + end; + ADOQueryCmd.Connection.CommitTrans; + CurrentPage := 1; + InitGrid(); + application.MessageBox('ɾɹ', 'ʾϢ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + +end; + +procedure TfrmTradeClothInspList.btnJBQClick(Sender: TObject); +var + fPrintFile, FLabVolume: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + ''''); + sql.Add(' where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + ExecSQL; + end; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' EXEC P_Trade_Insp_Prt_Lab '); + SQL.Add(' @CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + Open; + end; + if ADOQueryPrint.IsEmpty then + begin + application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = 'Ʒ' then + FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) + else + FLabVolume := 'Ʒǩ'; + + ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); +// if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then +// Rm1.DefaultCopies := 2 +// else + Rm1.DefaultCopies := 1; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + end; + Next; + end; + end; + Order_Main.EnableControls; +end; + +function TfrmTradeClothInspList.Savedata(): Boolean; +var + maxno, LLID: string; + HXPS: Integer; + HXQty, HXMQty: Double; +begin + HXPS := 0; + HXQty := 0; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from Contract_Cloth_LL where OrdSubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); + sql.Add(' and FirstName=''' + Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) + ''''); + Open; + end; + LLID := Trim(ADOQueryTemp.fieldbyname('LLID').AsString); + if Trim(LLID) = '' then + begin + Result := False; + Application.MessageBox('ûӦļӹ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd, maxno, 'HX', 'Contract_Cloth_BefChkHX', 2, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + HXPS := HXPS + 1; + HXQty := HXQty + Order_Main.FieldByName('MJLen').Value; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(''); + Open; + end; + except + end; +end; + +procedure TfrmTradeClothInspList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspList.BTNPClick(Sender: TObject); +begin + if CurrentPage < Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspList.TCBNORChange(Sender: TObject); +begin + RecordsNumber := StrToInt(TCBNOR.Text); + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspList.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(Trim(self.Caption) + 'Tv1', Tv1, 'ó׼'); +end; + +procedure TfrmTradeClothInspList.ToolButton2Click(Sender: TObject); +var + MStrsql, MStrIn: string; +begin + + if Order_Main.IsEmpty then + Exit; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪ޸', 'ʾ', 32 + 4) <> IDYES then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + Order_Main.DisableControls; + with Order_Main do + begin + MStrsql := ''; + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean then + begin + if MStrsql = '' then + MStrsql := Quotedstr(trim(Order_Main.FieldByName('CIID').AsString)) + else + MStrsql := MStrsql + ',' + Quotedstr(trim(Order_Main.FieldByName('CIID').AsString)); + end; + Next; + end; + end; + Order_Main.EnableControls; + MovePanel2.Visible := False; + except + MovePanel2.Visible := False; + Order_Main.EnableControls; + end; + + if InputQuery('', '', MStrIn) then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set BatchNO=' + QuotedStr(MStrIn)); + sql.Add(' where CIID in (' + MStrsql + ')'); + + sql.Add('Update Trade_Cloth_Stock Set BatchNO=' + QuotedStr(MStrIn)); + sql.Add(' where CIID in (' + MStrsql + ')'); + ExecSQL; + end; + + end; + InitGrid(); +end; + +procedure TfrmTradeClothInspList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeClothInspList.chkZFClick(Sender: TObject); +begin + inherited; + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTradeClothInspList.BuyConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTradeClothInspList.CIIOFlagChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspList.GradeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspList.KHConNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspList.N2Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, True); //ȫѡ +end; + +procedure TfrmTradeClothInspList.N3Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, False); //ȫ +end; + +procedure TfrmTradeClothInspList.N4Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeClothInspList.RKOrdIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspList.btnJYBGClick(Sender: TObject); +var + WSql: string; +begin + if Order_Main.IsEmpty then + Exit; + WSql := ''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + Trim(Order_Main.fieldbyname('CIID').AsString); + end + else + begin + WSql := Trim(Order_Main.fieldbyname('CIID').AsString); + end; + end; + Next; + end; + end; + Order_Main.Locate('SSel', True, []); + Order_Main.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeInsp'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + +end; + +procedure TfrmTradeClothInspList.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + FBounds := AViewInfo.Bounds; + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1); + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux. + ACanvas.Font.Color := clBlack; + ACanvas.Brush.Style := bsClear; + ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); + ADone := True; + end; +end; + +end. + diff --git a/T04贸易明细仓库/U_TradeClothOutEdit.dfm b/T04贸易明细仓库/U_TradeClothOutEdit.dfm index cf6de35..2df7826 100644 --- a/T04贸易明细仓库/U_TradeClothOutEdit.dfm +++ b/T04贸易明细仓库/U_TradeClothOutEdit.dfm @@ -2,7 +2,7 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit Caption = #25104#21697#20986#24211#25195#25551 ClientHeight = 632 ClientWidth = 1350 - ExplicitTop = -62 + ExplicitLeft = -499 ExplicitWidth = 1366 ExplicitHeight = 671 PixelsPerInch = 96 @@ -411,12 +411,20 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit ParentFont = False end object Label1: TLabel - Left = 386 - Top = 92 + Left = 402 + Top = 124 Width = 24 Height = 12 Caption = #22791#27880 end + object Label2: TLabel + Left = 386 + Top = 80 + Width = 48 + Height = 12 + Caption = #20986#21040#21333#20301 + Visible = False + end object CRTime: TDateTimePicker Left = 253 Top = 51 @@ -441,14 +449,12 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit Height = 20 Style = csDropDownList TabOrder = 2 + OnChange = CRTypeChange Items.Strings = ( #38144#21806#20986#24211 - #21152#24037#20986#24211 #37325#26816#20986#24211 - #22238#20462#20986#24211 #25439#32791#20986#24211 - #27425#21697#20986#24211 - #20854#20182#20986#24211) + #21098#26679#20986#24211) end object ToolBar3: TToolBar Tag = 1 @@ -520,12 +526,25 @@ inherited frmTradeClothOutEdit: TfrmTradeClothOutEdit OnKeyPress = edtScanKeyPress end object IONote: TMemo - Left = 416 - Top = 89 + Left = 440 + Top = 103 Width = 189 Height = 59 TabOrder = 5 end + object ToCoName: TcxButtonEdit + Left = 440 + Top = 77 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + TabOrder = 6 + Visible = False + Width = 121 + end end end object Panel2: TPanel [2] diff --git a/T04贸易明细仓库/U_TradeClothOutEdit.pas b/T04贸易明细仓库/U_TradeClothOutEdit.pas index 4c59603..d438523 100644 --- a/T04贸易明细仓库/U_TradeClothOutEdit.pas +++ b/T04贸易明细仓库/U_TradeClothOutEdit.pas @@ -12,7 +12,8 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class, RM_GridReport, RM_Dataset, Vcl.ToolWin, BtnEdit, dxSkinWXI, - dxScrollbarAnnotations; + dxScrollbarAnnotations, cxContainer, dxCoreGraphics, cxTextEdit, cxMaskEdit, + cxButtonEdit; type TfrmTradeClothOutEdit = class(TfrmBaseList) @@ -102,6 +103,8 @@ type ToolButton5: TToolButton; IOPosition: TBtnEditC; Tv1Column5: TcxGridDBColumn; + Label2: TLabel; + ToCoName: TcxButtonEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); @@ -121,6 +124,8 @@ type procedure ToolButton4Click(Sender: TObject); procedure IOPositionBtnUpClick(Sender: TObject); procedure IOPositionBtnDnClick(Sender: TObject); + procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure CRTypeChange(Sender: TObject); private { Private declarations } FScan, FSubIds: string; @@ -141,7 +146,8 @@ var implementation uses - U_DataLink, U_RTFun, U_TradeClothWaitReleased, U_LabelPrint, U_ZDYHelp; + U_DataLink, U_RTFun, U_TradeClothWaitReleased, U_LabelPrint, U_ZDYHelp, + U_CompanySel; {$R *.dfm} procedure TfrmTradeClothOutEdit.PlayWav(MWav: string); @@ -407,6 +413,37 @@ begin CDS_2.Delete; end; +procedure TfrmTradeClothOutEdit.CRTypeChange(Sender: TObject); +begin + inherited; + if CRType.Text = '' then + begin + Label2.Visible := true; + ToCoName.Visible := true; + end + else + begin + Label2.Visible := false; + ToCoName.Visible := false; + ToCoName.Text := ''; + end + +end; + +procedure TfrmTradeClothOutEdit.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin + ToCoName.Text := CDS_1.FieldByName('CoName').AsString; + end; + end; +end; + procedure TfrmTradeClothOutEdit.edtScanKeyPress(Sender: TObject; var Key: Char); var maxno, SMFlag, KYCKFlag, FMainId, ff: string; @@ -529,12 +566,16 @@ begin if Trim(CRType.Text) = '' then raise Exception.Create('ͲΪ!'); + if (Trim(CRType.Text) = '') and (ToCoName.Text = '') then + raise Exception.Create('λΪ!'); + if Trim(OutNo.Text) = '' then raise Exception.Create('ⵥŲΪ!'); if CDS_2.IsEmpty then raise Exception.Create('δѡɨ!'); + if not CDS_1.Locate('SSel', True, []) then raise Exception.Create('ѡ'); @@ -553,7 +594,7 @@ begin begin Close; sql.Clear; - sql.Add('exec P_Fin_Flow_Judge '); + sql.Add('exec P_Fin_Flow_Judge'); Sql.Add(' @FFIDS=' + quotedstr(OutNo.Text)); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); @@ -586,13 +627,14 @@ begin Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime))); Sql.Add(',@IOType=' + Quotedstr(crtype.Text)); Sql.Add(',@IONO=' + Quotedstr(OutNo.Text)); + Sql.Add(',@ToCoName=' + Quotedstr(ToCoName.Text)); Sql.Add(',@IONote=' + Quotedstr(IONote.Text)); Sql.Add(',@IOPosition=' + Quotedstr(IOPosition.Text)); Sql.Add(',@FillId=' + Quotedstr(DCode)); Sql.Add(',@Filler=' + Quotedstr(DName)); Open; end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then begin raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); end; diff --git a/T04贸易明细仓库/U_TradeClothOutList.dfm b/T04贸易明细仓库/U_TradeClothOutList.dfm index 5f8c129..aab4d67 100644 --- a/T04贸易明细仓库/U_TradeClothOutList.dfm +++ b/T04贸易明细仓库/U_TradeClothOutList.dfm @@ -445,6 +445,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList ParentFont = False PopupMenu = PM_1 TabOrder = 3 + ExplicitTop = 134 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -722,6 +723,13 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList Options.Editing = False Width = 66 end + object Tv1Column13: TcxGridDBColumn + Caption = #20986#21040#21333#20301 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end object Tv1Column3: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' diff --git a/T04贸易明细仓库/U_TradeClothOutList.pas b/T04贸易明细仓库/U_TradeClothOutList.pas index 7aa2992..414d880 100644 --- a/T04贸易明细仓库/U_TradeClothOutList.pas +++ b/T04贸易明细仓库/U_TradeClothOutList.pas @@ -94,6 +94,7 @@ type ToolButton1: TToolButton; N3: TMenuItem; Tv1Column6: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/T04贸易明细仓库/U_TradeClothOutListNew.dfm b/T04贸易明细仓库/U_TradeClothOutListNew.dfm index cd1ccd0..ff19d04 100644 --- a/T04贸易明细仓库/U_TradeClothOutListNew.dfm +++ b/T04贸易明细仓库/U_TradeClothOutListNew.dfm @@ -7,6 +7,8 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -9 + ExplicitTop = -32 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -788,6 +790,13 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end + object TV2Column13: TcxGridDBColumn + Caption = #20986#21040#21333#20301 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object TV2Column11: TcxGridDBColumn Caption = #20986#24211#22791#27880 DataBinding.FieldName = 'IONote' @@ -1637,6 +1646,13 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew Options.Editing = False Width = 66 end + object Tv1Column15: TcxGridDBColumn + Caption = #20986#21040#21333#20301 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1Column13: TcxGridDBColumn Caption = #20986#24211#22791#27880 DataBinding.FieldName = 'IONote' @@ -1695,8 +1711,8 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew ParentFont = False PopupMenu = PM_2 TabOrder = 0 - ExplicitLeft = -134 - ExplicitTop = 66 + ExplicitLeft = 97 + ExplicitTop = 47 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1965,6 +1981,9 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew HeaderAlignmentHorz = taCenter Width = 163 end + object TV3Column2: TcxGridDBColumn + DataBinding.IsNullValueType = True + end end object cxGridLevel2: TcxGridLevel GridView = TV3 @@ -1980,8 +1999,6 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew Color = clHighlight ParentBackground = False TabOrder = 1 - ExplicitLeft = -7 - ExplicitTop = 2 object Button1: TButton Left = 769 Top = 1 diff --git a/T04贸易明细仓库/U_TradeClothOutListNew.pas b/T04贸易明细仓库/U_TradeClothOutListNew.pas index c122c6b..266c95c 100644 --- a/T04贸易明细仓库/U_TradeClothOutListNew.pas +++ b/T04贸易明细仓库/U_TradeClothOutListNew.pas @@ -202,6 +202,9 @@ type Tv1Column13: TcxGridDBColumn; TV2Column12: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; + TV3Column2: TcxGridDBColumn; + TV2Column13: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -332,7 +335,7 @@ begin // sql.Add(WSql); // sql.Add(')'); - sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight'); + sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight,ToCoName'); sql.Add(' ,CIMachNo,Workshop,BatchNo,IOPosition,IONote,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code,IoNo,Filler '); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); @@ -342,7 +345,7 @@ begin if trim(FWorkshop) <> '' then sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); - sql.Add(' GROUP BY CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight'); + sql.Add(' GROUP BY CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight,ToCoName'); sql.Add(' ,CIMachNo,Workshop,BatchNo,IOPosition,IONOte,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code,IONo,Filler '); // showmessage(sql.text); Open; diff --git a/T04贸易明细仓库/U_TradeClothStkListNew.dfm b/T04贸易明细仓库/U_TradeClothStkListNew.dfm index 748dbf1..fac6c07 100644 --- a/T04贸易明细仓库/U_TradeClothStkListNew.dfm +++ b/T04贸易明细仓库/U_TradeClothStkListNew.dfm @@ -7,6 +7,7 @@ FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -685 ExplicitWidth = 1556 ExplicitHeight = 631 PixelsPerInch = 96 @@ -141,6 +142,15 @@ Visible = False OnClick = ToolButton8Click end + object ToolButton11: TToolButton + Left = 1135 + Top = 0 + AutoSize = True + Caption = #25171#21360#21367#26631#31614 + ImageIndex = 21 + Visible = False + OnClick = ToolButton11Click + end end object cxPageControl1: TcxPageControl [1] Left = 0 @@ -159,6 +169,7 @@ Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change + ExplicitTop = 44 ClientRectBottom = 554 ClientRectRight = 1540 ClientRectTop = 32 @@ -925,6 +936,7 @@ Align = alTop BorderStyle = bsSingle TabOrder = 0 + ExplicitTop = 61 DesignSize = ( 1536 29) @@ -1424,7 +1436,8 @@ ParentFont = False PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 98 + ExplicitLeft = -352 + ExplicitTop = 75 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -2009,4 +2022,38 @@ OnClick = MenuItem1Click end end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 145 + Top = 256 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 244 + Top = 304 + ReportData = {} + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 220 + Top = 264 + end end diff --git a/T04贸易明细仓库/U_TradeClothStkListNew.pas b/T04贸易明细仓库/U_TradeClothStkListNew.pas index b1c4991..50b19c9 100644 --- a/T04贸易明细仓库/U_TradeClothStkListNew.pas +++ b/T04贸易明细仓库/U_TradeClothStkListNew.pas @@ -198,6 +198,10 @@ type ToolButton10: TToolButton; TV2Column15: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; + ToolButton11: TToolButton; + ADOQueryPrint: TADOQuery; + RM1: TRMGridReport; + RMDB_1: TRMDBDataSet; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -235,6 +239,7 @@ type procedure BitBtn1Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject); + procedure ToolButton11Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstPacketId: TStringList; @@ -303,13 +308,14 @@ procedure TfrmTradeClothStkListNew.SetStatus(); begin if cxPageControl1.ActivePageIndex = 1 then begin - + if self.fParameters2 = 'ӡ' then + ToolButton11.Visible := true; ToolButton1.Visible := True; ToolButton9.Visible := True; end else begin - + ToolButton11.Visible := false; ToolButton1.Visible := False; ToolButton9.Visible := False; end; @@ -668,6 +674,77 @@ begin end; +procedure TfrmTradeClothStkListNew.ToolButton11Click(Sender: TObject); +var + fPrintFile, FLabVolume: string; +begin + if CDS_1.IsEmpty then + Exit; + if CDS_1.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + ''''); + sql.Add(' where CIID=''' + Trim(CDS_1.fieldbyname('CIID').AsString) + ''''); + ExecSQL; + end; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' EXEC P_Trade_Insp_Prt_Lab '); + SQL.Add(' @CIID=''' + Trim(CDS_1.fieldbyname('CIID').AsString) + ''''); + Open; + end; + if ADOQueryPrint.IsEmpty then + begin + application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = 'Ʒ' then + FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) + else + FLabVolume := 'Ʒǩ'; + + ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); +// if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then +// Rm1.DefaultCopies := 2 +// else + Rm1.DefaultCopies := 1; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + end; + Next; + end; + end; + CDS_1.EnableControls; + +end; + procedure TfrmTradeClothStkListNew.ToolButton1Click(Sender: TObject); begin try diff --git a/T04贸易明细仓库/U_TradeClothWaitReleased.pas b/T04贸易明细仓库/U_TradeClothWaitReleased.pas index 237a0f5..624e196 100644 --- a/T04贸易明细仓库/U_TradeClothWaitReleased.pas +++ b/T04贸易明细仓库/U_TradeClothWaitReleased.pas @@ -10,7 +10,7 @@ uses cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, Vcl.ToolWin, dxScrollbarAnnotations; + dxBarBuiltInMenu, Vcl.ToolWin, dxScrollbarAnnotations, dxSkinWXI; type TfrmTradeClothWaitReleased = class(TForm) diff --git a/T04贸易明细仓库/U_TradeDRSel.dfm b/T04贸易明细仓库/U_TradeDRSel.dfm index 79ea70d..b31a0ba 100644 --- a/T04贸易明细仓库/U_TradeDRSel.dfm +++ b/T04贸易明细仓库/U_TradeDRSel.dfm @@ -1,10 +1,9 @@ inherited frmTradeDRSel: TfrmTradeDRSel Left = 220 Top = 16 - BorderStyle = bsNone Caption = #21457#36135#30003#35831 - ClientHeight = 766 - ClientWidth = 1453 + ClientHeight = 727 + ClientWidth = 1437 Color = clWhite Position = poScreenCenter ExplicitWidth = 1453 @@ -15,7 +14,7 @@ inherited frmTradeDRSel: TfrmTradeDRSel Tag = 1 Left = 0 Top = 0 - Width = 1453 + Width = 1437 Height = 38 AutoSize = True ButtonHeight = 38 @@ -34,6 +33,7 @@ inherited frmTradeDRSel: TfrmTradeDRSel ParentFont = False ShowCaptions = True TabOrder = 0 + ExplicitWidth = 1453 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -78,12 +78,15 @@ inherited frmTradeDRSel: TfrmTradeDRSel object cxGrid1: TcxGrid [1] Left = 0 Top = 102 - Width = 1453 - Height = 434 + Width = 1437 + Height = 395 Align = alClient TabOrder = 3 + ExplicitWidth = 1453 + ExplicitHeight = 434 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -147,17 +150,20 @@ inherited frmTradeDRSel: TfrmTradeDRSel object v1Column8: TcxGridDBColumn Caption = #30003#35831#21333#21495 DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 93 end object Tv1Column1: TcxGridDBColumn Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'OutType' + DataBinding.IsNullValueType = True Width = 70 end object v1OrdDate: TcxGridDBColumn Caption = #30331#35760#26085#26399 DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter @@ -167,36 +173,42 @@ inherited frmTradeDRSel: TfrmTradeDRSel object v1Column27: TcxGridDBColumn Caption = #21457#36135#26085#26399 DataBinding.FieldName = 'fhDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end object v1Column10: TcxGridDBColumn Caption = #25910#36135#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 124 end object v1Column1: TcxGridDBColumn Caption = #30003#35831#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object v1Column13: TcxGridDBColumn Caption = #23457#26680#20154 DataBinding.FieldName = 'Chker' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 65 end object v1Column17: TcxGridDBColumn Caption = #23457#26680#26085#26399 DataBinding.FieldName = 'ChkTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object v1Column7: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -210,7 +222,7 @@ inherited frmTradeDRSel: TfrmTradeDRSel object Panel1: TPanel [2] Left = 0 Top = 38 - Width = 1453 + Width = 1437 Height = 43 Align = alTop BevelInner = bvRaised @@ -218,6 +230,7 @@ inherited frmTradeDRSel: TfrmTradeDRSel Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitWidth = 1453 object Label4: TLabel Left = 464 Top = 15 @@ -369,7 +382,7 @@ inherited frmTradeDRSel: TfrmTradeDRSel object cxTabControl1: TcxTabControl [3] Left = 0 Top = 81 - Width = 1453 + Width = 1437 Height = 21 Align = alTop Enabled = False @@ -383,26 +396,32 @@ inherited frmTradeDRSel: TfrmTradeDRSel #24050#23436#25104 #20840#37096) OnChange = cxTabControl1Change + ExplicitWidth = 1453 ClientRectRight = 0 ClientRectTop = 0 end object cxSplitter1: TcxSplitter [4] Left = 0 - Top = 536 - Width = 1453 + Top = 497 + Width = 1437 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom + ExplicitTop = 536 + ExplicitWidth = 1453 end object cxGrid2: TcxGrid [5] Left = 0 - Top = 544 - Width = 1453 + Top = 505 + Width = 1437 Height = 222 Align = alBottom TabOrder = 5 + ExplicitTop = 544 + ExplicitWidth = 1453 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -443,6 +462,7 @@ inherited frmTradeDRSel: TfrmTradeDRSel object cxGridDBColumn1: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'SCConNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -451,29 +471,34 @@ inherited frmTradeDRSel: TfrmTradeDRSel object cxGridDBColumn2: TcxGridDBColumn Caption = #23458#25143#35746#21333#21495 DataBinding.FieldName = 'KHConno' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 94 end object TV2Column4: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True Width = 68 end object cxGridDBColumn3: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 88 end object v1Column6: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object cxGridDBColumn4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -481,24 +506,28 @@ inherited frmTradeDRSel: TfrmTradeDRSel object cxGridDBColumn5: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 60 end object cxGridDBColumn6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object cxGridDBColumn7: TcxGridDBColumn Caption = #30003#35831#21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object cv1Column3: TcxGridDBColumn Caption = #30003#35831#25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 90 @@ -506,16 +535,19 @@ inherited frmTradeDRSel: TfrmTradeDRSel object TV2Column1: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True end object TV2Column2: TcxGridDBColumn Caption = #21457#36135#21305#25968 DataBinding.FieldName = 'DlyPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object TV2Column3: TcxGridDBColumn Caption = #21457#36135#25968#37327 DataBinding.FieldName = 'DlyQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 end diff --git a/T04贸易明细仓库/U_TradeDRSel.pas b/T04贸易明细仓库/U_TradeDRSel.pas index aaa8702..62176fb 100644 --- a/T04贸易明细仓库/U_TradeDRSel.pas +++ b/T04贸易明细仓库/U_TradeDRSel.pas @@ -12,7 +12,8 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseHelp, - dxDateRanges, U_BaseList, System.ImageList, Vcl.ImgList; + dxDateRanges, U_BaseList, System.ImageList, Vcl.ImgList, dxSkinWXI, + dxScrollbarAnnotations; type TfrmTradeDRSel = class(TfrmBaseHelp) @@ -91,6 +92,7 @@ type procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); + procedure FormCreate(Sender: TObject); private procedure InitGrid(); procedure InitSubGrid(); @@ -124,6 +126,12 @@ begin Action := caFree; end; +procedure TfrmTradeDRSel.FormCreate(Sender: TObject); +begin + inherited; +// 111 +end; + procedure TfrmTradeDRSel.TBCloseClick(Sender: TObject); begin Close; diff --git a/T04贸易明细仓库/U_TradeDeliveryRequest.dfm b/T04贸易明细仓库/U_TradeDeliveryRequest.dfm index e8acaec..a7c04cd 100644 --- a/T04贸易明细仓库/U_TradeDeliveryRequest.dfm +++ b/T04贸易明细仓库/U_TradeDeliveryRequest.dfm @@ -8,7 +8,7 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitTop = -220 + ExplicitLeft = -440 ExplicitWidth = 1469 ExplicitHeight = 805 PixelsPerInch = 96 @@ -566,6 +566,8 @@ inherited frmTradeDeliveryRequest: TfrmTradeDeliveryRequest Height = 222 Align = alBottom TabOrder = 5 + ExplicitLeft = -72 + ExplicitTop = 550 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/T04贸易明细仓库/U_TradeDeliveryRequestInPut.dfm b/T04贸易明细仓库/U_TradeDeliveryRequestInPut.dfm index d3a565c..4a4ae8b 100644 --- a/T04贸易明细仓库/U_TradeDeliveryRequestInPut.dfm +++ b/T04贸易明细仓库/U_TradeDeliveryRequestInPut.dfm @@ -153,7 +153,8 @@ object frmTradeDeliveryRequestInPut: TfrmTradeDeliveryRequestInPut TabOrder = 0 Items.Strings = ( #36716#21333#20986#24211 - #21152#24037#20986#24211) + #21152#24037#20986#24211 + #22238#20462#20986#24211) end object Note: TEdit Tag = 1 diff --git a/T04贸易明细仓库/U_TradeKCListSel.dfm b/T04贸易明细仓库/U_TradeKCListSel.dfm index 7ea4214..95cd12c 100644 --- a/T04贸易明细仓库/U_TradeKCListSel.dfm +++ b/T04贸易明细仓库/U_TradeKCListSel.dfm @@ -126,10 +126,9 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel BorderStyle = cxcbsNone PopupMenu = PM_1 TabOrder = 2 - ExplicitLeft = 1 - ExplicitTop = 81 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -171,6 +170,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object TV1Column7: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -179,6 +179,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object VC_SCSCode: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -193,18 +194,21 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object TV1Column2: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object TV1Column1: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 end object cxGridDBColumn2: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'StkId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -212,6 +216,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object cxGridDBColumn3: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -226,6 +231,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object cxGridDBColumn7: TcxGridDBColumn Caption = #21253#21495 DataBinding.FieldName = 'PacketNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -233,6 +239,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object cxGridDBColumn5: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -240,6 +247,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object cxGridDBColumn6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 57 @@ -247,6 +255,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object v1Column6: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -260,6 +269,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object cxGridDBColumn8: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -274,6 +284,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object v1PRTOrderQty: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -282,12 +293,14 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object TV1Column3: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'StkYardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 55 end object v1Column7: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -301,6 +314,7 @@ inherited frmTradeKCListSel: TfrmTradeKCListSel object TV1Column4: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'StkNetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 72 end diff --git a/T04贸易明细仓库/U_TradeKCListSel.pas b/T04贸易明细仓库/U_TradeKCListSel.pas index a31382f..e0f4ff8 100644 --- a/T04贸易明细仓库/U_TradeKCListSel.pas +++ b/T04贸易明细仓库/U_TradeKCListSel.pas @@ -11,7 +11,7 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, - cxDropDownEdit, cxCheckBox, Vcl.Menus, cxPC; + cxDropDownEdit, cxCheckBox, Vcl.Menus, cxPC, dxSkinWXI, dxScrollbarAnnotations; type TfrmTradeKCListSel = class(TfrmBaseHelp) diff --git a/T04贸易明细仓库/testDll.identcache b/T04贸易明细仓库/testDll.identcache index da056d2..4db1c4e 100644 Binary files a/T04贸易明细仓库/testDll.identcache and b/T04贸易明细仓库/testDll.identcache differ diff --git a/T04贸易明细仓库/testDll.res b/T04贸易明细仓库/testDll.res index 2465ca0..e116c48 100644 Binary files a/T04贸易明细仓库/testDll.res and b/T04贸易明细仓库/testDll.res differ