From cefadf86d833b9cf4e58c350845f697c5a45a403 Mon Sep 17 00:00:00 2001 From: ZhangQingYue <375354874@qq.com> Date: Mon, 28 Jul 2025 09:29:29 +0800 Subject: [PATCH] 111122223333 --- A00通用窗体/U_ProductInfoSel.dfm | 20 +- A00通用窗体/U_ProductInfoSel.pas | 2 +- A02基础产品管理/ClothInfo.identcache | Bin 2145 -> 2145 bytes A02基础产品管理/ProjectGroup1.groupproj.local | 8 +- A02基础产品管理/testDll.identcache | Bin 172 -> 172 bytes A09财务通用管理/Financial.dpr | 4 +- A09财务通用管理/Financial.dproj | 60 +- A09财务通用管理/Financial.dproj.local | 158 ++-- A09财务通用管理/Financial.identcache | Bin 2696 -> 2867 bytes A09财务通用管理/Financial.res | Bin 1484 -> 1484 bytes A09财务通用管理/ProjectGroup1.groupproj.local | 2 +- A09财务通用管理/U_GetDllForm.pas | 14 +- A09财务通用管理/U_PayList.dfm | 31 +- A09财务通用管理/U_PayList.pas | 20 +- A09财务通用管理/U_PayableList.dfm | 4 +- A09财务通用管理/U_TaxInput.dfm | 566 ++++++++++++ A09财务通用管理/U_TaxInput.pas | 494 ++++++++++ A09财务通用管理/U_TaxList.dfm | 669 ++++++++++++++ A09财务通用管理/U_TaxList.pas | 867 ++++++++++++++++++ A09财务通用管理/testDll.identcache | Bin 172 -> 172 bytes A09财务通用管理/testDll.res | Bin 3308 -> 3308 bytes B01基础合同管理/Contract.dproj.local | 192 ++-- B01基础合同管理/Contract.identcache | Bin 2150 -> 2150 bytes B01基础合同管理/ProjectGroup1.groupproj.local | 2 +- B01基础合同管理/testDll.identcache | Bin 172 -> 172 bytes B04采购计划管理/ProjectGroup1.groupproj.local | 2 +- B04采购计划管理/PurchasePlan.dproj | 52 +- B04采购计划管理/PurchasePlan.dproj.local | 146 ++- B04采购计划管理/PurchasePlan.identcache | Bin 2550 -> 2550 bytes B04采购计划管理/PurchasePlan.res | Bin 1508 -> 1508 bytes B04采购计划管理/PurchasePlan.skincfg | 112 +-- B04采购计划管理/U_CLNoteEdit.dfm | 23 +- B04采购计划管理/U_CLNoteEdit.pas | 4 +- B04采购计划管理/U_ClaimsList.dfm | 40 +- B04采购计划管理/U_ClaimsList.pas | 202 ++-- B04采购计划管理/U_ClothPurchasePlanList.dfm | 2 +- B04采购计划管理/U_ClothPurchasePlanList.pas | 18 +- B04采购计划管理/U_ClothRSPlanList.dfm | 2 +- B04采购计划管理/U_ClothRSPlanList.pas | 18 +- B04采购计划管理/U_DataLink.pas | 18 +- B04采购计划管理/U_GetDllForm.pas | 2 +- B04采购计划管理/U_YarnPurchasePlanList.dfm | 2 +- B04采购计划管理/U_YarnPurchasePlanList.pas | 18 +- B04采购计划管理/testDll.identcache | Bin 172 -> 172 bytes B04采购计划管理/testDll.res | Bin 3308 -> 3308 bytes T01贸易生产计划/ProjectGroup1.groupproj.local | 2 +- T01贸易生产计划/TradePlan.dproj.local | 124 +-- T01贸易生产计划/TradePlan.identcache | Bin 2252 -> 2252 bytes T01贸易生产计划/testDll.identcache | Bin 172 -> 172 bytes T02贸易汇总仓库/ProjectGroup1.groupproj.local | 2 +- .../TradeTotalClothStk.dproj.local | 108 +-- T02贸易汇总仓库/TradeTotalClothStk.identcache | Bin 1898 -> 1898 bytes T02贸易汇总仓库/TradeTotalClothStk.res | Bin 1544 -> 1544 bytes T02贸易汇总仓库/U_TradePackClothOutList.dfm | 34 +- T02贸易汇总仓库/U_TradePackClothOutList.pas | 2 + T02贸易汇总仓库/testDll.identcache | Bin 172 -> 172 bytes T03贸易布匹检验/ProjectGroup1.groupproj.local | 2 +- T03贸易布匹检验/TradeInsp.dproj | 52 +- T03贸易布匹检验/TradeInsp.dproj.local | 104 +-- T03贸易布匹检验/TradeInsp.identcache | Bin 1852 -> 1852 bytes T03贸易布匹检验/TradeInsp.res | Bin 1484 -> 1484 bytes T03贸易布匹检验/U_TradeClothDefectiveList.dfm | 106 +-- T03贸易布匹检验/U_TradeClothDefectiveList.pas | 32 +- T03贸易布匹检验/U_TradeClothInspList.dfm | 8 +- T03贸易布匹检验/U_TradeInspEdit.dfm | 1 + T03贸易布匹检验/U_TradeInspEdit.pas | 18 +- T03贸易布匹检验/U_TradeMachInsp.dfm | 10 +- T03贸易布匹检验/testDll.identcache | Bin 172 -> 172 bytes T03贸易布匹检验/testDll.res | Bin 3308 -> 3308 bytes T04贸易明细仓库/ProjectGroup1.groupproj.local | 2 +- T04贸易明细仓库/TradeClothStk.dproj.local | 130 ++- T04贸易明细仓库/TradeClothStk.identcache | Bin 2408 -> 2408 bytes T04贸易明细仓库/TradeClothStk.res | Bin 1508 -> 1508 bytes T04贸易明细仓库/testDll.identcache | Bin 172 -> 172 bytes 74 files changed, 3453 insertions(+), 1058 deletions(-) create mode 100644 A09财务通用管理/U_TaxInput.dfm create mode 100644 A09财务通用管理/U_TaxInput.pas create mode 100644 A09财务通用管理/U_TaxList.dfm create mode 100644 A09财务通用管理/U_TaxList.pas diff --git a/A00通用窗体/U_ProductInfoSel.dfm b/A00通用窗体/U_ProductInfoSel.dfm index 23bf091..e5c9501 100644 --- a/A00通用窗体/U_ProductInfoSel.dfm +++ b/A00通用窗体/U_ProductInfoSel.dfm @@ -94,13 +94,10 @@ inherited frmProductInfoSel: TfrmProductInfoSel Height = 476 Align = alClient TabOrder = 2 - ExplicitLeft = -584 - ExplicitTop = 81 - ExplicitWidth = 1477 - ExplicitHeight = 475 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -142,13 +139,10 @@ inherited frmProductInfoSel: TfrmProductInfoSel OptionsCustomize.ColumnFiltering = False OptionsSelection.CellSelect = False OptionsView.GroupByBox = False - Styles.IncSearch = DataLink_ProductStk.SHuangSe - Styles.Header = DataLink_ProductStk.Default - Styles.Inactive = DataLink_ProductStk.SHuangSe - Styles.Selection = DataLink_ProductStk.SHuangSe object v1Column1: TcxGridDBColumn Caption = #37319#36141#21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -158,12 +152,14 @@ inherited frmProductInfoSel: TfrmProductInfoSel object Tv1Column2: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object Tv1Column1: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'P_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end @@ -171,6 +167,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'P_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -184,6 +181,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'P_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 65 @@ -191,6 +189,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter VisibleForCustomization = False @@ -199,6 +198,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel object v1Column18: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter VisibleForCustomization = False @@ -208,6 +208,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -220,12 +221,14 @@ inherited frmProductInfoSel: TfrmProductInfoSel object v1Column9: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object v1Column17: TcxGridDBColumn Caption = #36816#36153 DataBinding.FieldName = 'YunFei' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter VisibleForCustomization = False @@ -235,6 +238,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True Width = 102 end end diff --git a/A00通用窗体/U_ProductInfoSel.pas b/A00通用窗体/U_ProductInfoSel.pas index e59f194..476e774 100644 --- a/A00通用窗体/U_ProductInfoSel.pas +++ b/A00通用窗体/U_ProductInfoSel.pas @@ -11,7 +11,7 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, - cxDropDownEdit; + cxDropDownEdit, dxSkinWXI, dxScrollbarAnnotations; type TfrmProductInfoSel = class(TfrmBaseHelp) diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index e0dc4fe1593792d7b881419c63ffac5ec739fdd2..9b4070bae894af532c8efe0da05a749ec3830bac 100644 GIT binary patch delta 313 zcmaDT@K9iaB6C$$(&UG%5|b}8DNI&nmxc3V*<~iiK)8BLGL!Y0r6%XGBBb3oq$eA& z+D(pUgsYk8AT#+Zv;5>HCdtY7SP)9ZSf${~KsHThRG3@|wFzYOR(5%yzS7AY2%{!{ zW|W@%j!k)TFN?@zJ|>tIrjvD9)FvNiF@d|Xk=Y!~2AOl6S#Gijn>~`NC(eM&PJD;z m{$;GvlY`luftHw0zQS$=w;bd^2S#}$zZ%0G53=MEn+yPk_o}z z$fN+5Kgeu8S)T=Fj?Cn27Rkvv%<_}@m?V+)OteuzvTfo!iOK441O4F^2eQgce$OaB z*_%0R@;f%=$B+gQ_LEn$Il~@-u}*eo6axSaq-QJu diff --git a/A02基础产品管理/ProjectGroup1.groupproj.local b/A02基础产品管理/ProjectGroup1.groupproj.local index 5507d42..cf0a2e4 100644 --- a/A02基础产品管理/ProjectGroup1.groupproj.local +++ b/A02基础产品管理/ProjectGroup1.groupproj.local @@ -1,7 +1,7 @@  - - - - + + + + diff --git a/A02基础产品管理/testDll.identcache b/A02基础产品管理/testDll.identcache index 7272b4de6ee185545bce0cdfa06e28a1d47a4eba..e788f65dbe2d98280675c61de7663f5523183309 100644 GIT binary patch delta 26 ecmZ3(xQ3CDX<~>1b5&K+#B$S#EV5vhiZK9bJ_qao delta 29 gcmZ3(xQ3CDX=0cHb8e;6#7g6dEV2-m%tQxC0DwaXx&QzG diff --git a/A09财务通用管理/Financial.dpr b/A09财务通用管理/Financial.dpr index 7683d0f..5ffa9cb 100644 --- a/A09财务通用管理/Financial.dpr +++ b/A09财务通用管理/Financial.dpr @@ -39,7 +39,9 @@ uses U_FinFileUp in 'U_FinFileUp.pas' {frmFinFileUp}, U_PayableEdit in 'U_PayableEdit.pas' {frmPayableEdit}, U_UserSel in 'U_UserSel.pas' {frmUserSel}, - U_FtyFileUp in 'U_FtyFileUp.pas' {frmFtyFileUp}; + U_FtyFileUp in 'U_FtyFileUp.pas' {frmFtyFileUp}, + U_TaxInput in 'U_TaxInput.pas' {frmTaxInput}, + U_TaxList in 'U_TaxList.pas' {frmTaxList}; {$R *.res} diff --git a/A09财务通用管理/Financial.dproj b/A09财务通用管理/Financial.dproj index 0df54b1..4abbddf 100644 --- a/A09财务通用管理/Financial.dproj +++ b/A09财务通用管理/Financial.dproj @@ -4,7 +4,7 @@ Financial.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\A09财务通用管理\testDll.exe + D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\testDll.exe @@ -242,6 +198,14 @@
frmFtyFileUp
dfm + +
frmTaxInput
+ dfm + + +
frmTaxList
+ dfm + Cfg_2 Base @@ -264,10 +228,6 @@ - True - True - True - True True False diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index b92b768..b82519c 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,98 +1,72 @@  - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 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.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas - 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 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.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.734,=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.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.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.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.402,=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.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.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.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.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.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.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.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.dfm - 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.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas - 1899-12-30 00:00:00.000.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.pas - 1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas - 1899-12-30 00:00:00.000.433,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FtyFileUp.pas + 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.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm + 1899/12/30 00:00:00.000.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.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.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.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.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.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.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\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.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas + 1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas + 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.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.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.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.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.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas + 1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.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.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm + 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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas + 1899/12/30 00:00:00.000.433,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FtyFileUp.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 2025/07/26 10:06:48.000.687,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxInput.pas + 2025/07/26 10:06:48.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -160,5 +134,9 @@ + + + + diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index 0c76d84fabcae7e8a9076f53555fe9b5e196e17e..69f83cde8da3ec1372e21bd23dcae1a4026697d0 100644 GIT binary patch delta 452 zcmY*Vze~eF80B)8FG+E z2i+W8-4wT?;Na|Hg6ZYl?%ns^diESYi^aB4;}$-zGwx>$p_UF}^KZ&*#Xz4g7f~f}Wq^iOl(}*2OF9;KE(jCqafs zKIgSiV8k0HU(yU?65%Io<9Ft@`(E4(?|uiNWrCS - + diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas index 2ac20c8..9a90952 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_OtherPayableList,U_handPayableList,U_ClaimsableList,U_TaxList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -271,6 +271,18 @@ begin end; end; + 251: //˰Ѽ + begin + with TfrmTaxList.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_PayList.dfm b/A09财务通用管理/U_PayList.dfm index d8c1b8b..a5aa813 100644 --- a/A09财务通用管理/U_PayList.dfm +++ b/A09财务通用管理/U_PayList.dfm @@ -6,6 +6,7 @@ inherited frmPayList: TfrmPayList ClientWidth = 1284 FormStyle = fsMDIChild Visible = True + ExplicitLeft = -256 ExplicitWidth = 1300 ExplicitHeight = 629 PixelsPerInch = 96 @@ -208,6 +209,13 @@ inherited frmPayList: TfrmPayList Height = 12 Caption = #19978#32423#21333#20301 end + object Label1: TLabel + Left = 647 + Top = 13 + Width = 48 + Height = 12 + Caption = #23545#26041#36134#25143 + end object OppCoName: TEdit Tag = 2 Left = 228 @@ -290,6 +298,15 @@ inherited frmPayList: TfrmPayList TabOrder = 8 OnKeyPress = OppCoNameKeyPress end + object OppBankName: TEdit + Tag = 2 + Left = 701 + Top = 9 + Width = 87 + Height = 20 + TabOrder = 9 + OnKeyPress = OppCoNameKeyPress + end end object cxGrid1: TcxGrid [2] Left = 0 @@ -499,12 +516,6 @@ inherited frmPayList: TfrmPayList HeaderAlignmentHorz = taCenter Width = 76 end - object Tv1Column9: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - end object Tv1Column12: TcxGridDBColumn DataBinding.FieldName = 'RegType' DataBinding.IsNullValueType = True @@ -517,6 +528,12 @@ inherited frmPayList: TfrmPayList HeaderAlignmentHorz = taCenter Width = 50 end + object Tv1Column9: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 @@ -537,7 +554,7 @@ inherited frmPayList: TfrmPayList TabOrder = 3 Properties.CustomButtons.Buttons = <> Properties.Style = 2 - Properties.TabIndex = 1 + Properties.TabIndex = 3 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 diff --git a/A09财务通用管理/U_PayList.pas b/A09财务通用管理/U_PayList.pas index 9cc512a..32bc26c 100644 --- a/A09财务通用管理/U_PayList.pas +++ b/A09财务通用管理/U_PayList.pas @@ -15,7 +15,23 @@ uses cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI, - dxScrollbarAnnotations; + dxScrollbarAnnotations, 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, + dxSkinXmas2008Blue; type TfrmPayList = class(TfrmBaseList) @@ -100,6 +116,8 @@ type ToolButton7: TToolButton; Tv1Column12: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; + Label1: TLabel; + OppBankName: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); diff --git a/A09财务通用管理/U_PayableList.dfm b/A09财务通用管理/U_PayableList.dfm index 29fc582..8fe725e 100644 --- a/A09财务通用管理/U_PayableList.dfm +++ b/A09财务通用管理/U_PayableList.dfm @@ -127,7 +127,6 @@ inherited frmPayableList: TfrmPayableList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 32 object Label3: TLabel Left = 172 Top = 13 @@ -617,12 +616,13 @@ inherited frmPayableList: TfrmPayableList TabOrder = 3 Properties.CustomButtons.Buttons = <> Properties.Style = 2 - Properties.TabIndex = 0 + Properties.TabIndex = 2 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 #20840#37096) OnChange = cxTabControl1Change + ExplicitTop = 109 ClientRectBottom = 36 ClientRectRight = 1540 ClientRectTop = 36 diff --git a/A09财务通用管理/U_TaxInput.dfm b/A09财务通用管理/U_TaxInput.dfm new file mode 100644 index 0000000..8554b00 --- /dev/null +++ b/A09财务通用管理/U_TaxInput.dfm @@ -0,0 +1,566 @@ +object frmTaxInput: TfrmTaxInput + Left = 261 + Top = 149 + Caption = #31246#36153#30331#35760 + ClientHeight = 420 + ClientWidth = 1169 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Tag = 1 + Left = 0 + Top = 0 + Width = 1169 + 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 = 0 + 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 ScrollBox1: TScrollBox + Left = 0 + Top = 38 + Width = 1169 + Height = 382 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Color = clWhite + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentColor = False + ParentCtl3D = False + ParentFont = False + TabOrder = 1 + object Label7: TLabel + Left = 30 + Top = 219 + Width = 41 + Height = 15 + Caption = #22791' '#27880 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 30 + Top = 31 + Width = 52 + Height = 15 + Caption = #32463#33829#21333#20301 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 252 + Top = 31 + Width = 52 + Height = 15 + Caption = #35745#21010#21333#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 473 + Top = 31 + Width = 26 + Height = 15 + Caption = #23458#25143 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 706 + Top = 31 + Width = 52 + Height = 15 + Caption = #20135#21697#21517#31216 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 907 + Top = 31 + Width = 39 + Height = 15 + Caption = #19994#21153#21592 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 30 + Top = 63 + Width = 78 + Height = 15 + Caption = #22806#24065#26680#38144#37329#39069 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 253 + Top = 62 + Width = 52 + Height = 15 + Caption = #26680#38144#27719#29575 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 473 + Top = 63 + Width = 91 + Height = 15 + Caption = #20154#27665#24065#26680#38144#37329#39069 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 706 + Top = 63 + Width = 52 + Height = 15 + Caption = #26159#21542#21547#31246 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 908 + Top = 62 + Width = 52 + Height = 15 + Caption = #21046#21333#26085#26399 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 31 + Top = 94 + Width = 78 + Height = 15 + Caption = #22806#24065#23454#26680#21333#20301 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 252 + Top = 95 + Width = 78 + Height = 15 + Caption = #22806#24065#23454#26680#27719#29575 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 473 + Top = 95 + Width = 91 + Height = 15 + Caption = #20154#27665#24065#23454#25910#37329#39069 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 706 + Top = 95 + Width = 52 + Height = 15 + Caption = #36864#31246#25910#30410 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 908 + Top = 94 + Width = 78 + Height = 15 + Caption = #25104#21697#24320#31080#37329#39069 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 31 + Top = 126 + Width = 52 + Height = 15 + Caption = #22269#22320#31246#29575 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 252 + Top = 127 + Width = 52 + Height = 15 + Caption = #22686#20540#31246#29575 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 473 + Top = 127 + Width = 52 + Height = 15 + Caption = #20854#20182#31246#29575 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 30 + Top = 159 + Width = 87 + Height = 15 + Caption = #22806#24065#25910#30410'(RMB)' + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 252 + Top = 159 + Width = 78 + Height = 15 + Caption = #36864#31246#29702#35770#25910#30410 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 473 + Top = 159 + Width = 39 + Height = 15 + Caption = #22269#22320#31246 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [fsBold] + ParentFont = False + end + object Label25: TLabel + Left = 706 + Top = 159 + Width = 52 + Height = 15 + Caption = #20854#20182#31246#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 = 219 + Width = 1020 + Height = 57 + ScrollBars = ssVertical + TabOrder = 0 + end + object CBusiness_unit: TEdit + Left = 120 + Top = 31 + Width = 121 + Height = 18 + TabOrder = 1 + end + object CCustomer: TEdit + Left = 568 + Top = 30 + Width = 121 + Height = 18 + TabOrder = 2 + end + object CC_Name: TEdit + Left = 766 + Top = 30 + Width = 121 + Height = 18 + TabOrder = 3 + end + object Csalesman: TEdit + Left = 992 + Top = 30 + Width = 121 + Height = 18 + TabOrder = 4 + end + object C_WBHXJE: TEdit + Left = 119 + Top = 62 + Width = 121 + Height = 18 + TabOrder = 5 + end + object C_HXrate: TEdit + Left = 337 + Top = 62 + Width = 121 + Height = 18 + TabOrder = 6 + end + object C_RMBHXJE: TEdit + Left = 568 + Top = 62 + Width = 121 + Height = 18 + TabOrder = 7 + end + object SFHS: TEdit + Left = 766 + Top = 63 + Width = 121 + Height = 18 + TabOrder = 8 + end + object CWBSHJE: TEdit + Left = 119 + Top = 94 + Width = 121 + Height = 18 + TabOrder = 9 + end + object CWBSHrate: TEdit + Left = 337 + Top = 94 + Width = 121 + Height = 18 + TabOrder = 10 + end + object CRMBSSJE: TEdit + Left = 570 + Top = 94 + Width = 121 + Height = 18 + TabOrder = 11 + end + object CTSSY: TEdit + Left = 766 + Top = 94 + Width = 121 + Height = 18 + TabOrder = 12 + end + object CCPKPJE: TEdit + Left = 992 + Top = 94 + Width = 121 + Height = 18 + TabOrder = 13 + end + object CGDSL: TEdit + Left = 119 + Top = 126 + Width = 121 + Height = 18 + TabOrder = 14 + end + object CRate: TEdit + Left = 337 + Top = 126 + Width = 121 + Height = 18 + TabOrder = 15 + end + object COrtherRate: TEdit + Left = 568 + Top = 126 + Width = 121 + Height = 18 + TabOrder = 16 + end + object CWBSY: TEdit + Left = 119 + Top = 158 + Width = 121 + Height = 18 + TabOrder = 17 + end + object TSLLSY: TEdit + Left = 337 + Top = 158 + Width = 121 + Height = 18 + TabOrder = 18 + end + object GDS: TEdit + Left = 568 + Top = 158 + Width = 121 + Height = 18 + TabOrder = 19 + end + object COrderSF: TEdit + Left = 766 + Top = 158 + Width = 121 + Height = 18 + TabOrder = 20 + end + object CZDDate: TDateTimePicker + Left = 992 + Top = 61 + Width = 121 + Height = 20 + BevelInner = bvNone + Date = 40916.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.670856296288548000 + TabOrder = 21 + end + object OurBankName: TBtnEditC + Left = 337 + Top = 31 + Width = 121 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 22 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 835 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 782 + Top = 128 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 709 + Top = 129 + end +end diff --git a/A09财务通用管理/U_TaxInput.pas b/A09财务通用管理/U_TaxInput.pas new file mode 100644 index 0000000..8efdce1 --- /dev/null +++ b/A09财务通用管理/U_TaxInput.pas @@ -0,0 +1,494 @@ +unit U_TaxInput; + +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, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI; + +type + TfrmTaxInput = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ToolButton3: TToolButton; + ScrollBox1: TScrollBox; + Label7: TLabel; + Note: TMemo; + CBusiness_unit: TEdit; + Label1: TLabel; + Label2: TLabel; + CCustomer: TEdit; + Label3: TLabel; + CC_Name: TEdit; + Label4: TLabel; + Csalesman: TEdit; + Label5: TLabel; + C_WBHXJE: TEdit; + Label6: TLabel; + C_HXrate: TEdit; + Label8: TLabel; + C_RMBHXJE: TEdit; + Label9: TLabel; + SFHS: TEdit; + Label10: TLabel; + Label11: TLabel; + CWBSHJE: TEdit; + Label12: TLabel; + CWBSHrate: TEdit; + Label13: TLabel; + CRMBSSJE: TEdit; + Label14: TLabel; + CTSSY: TEdit; + Label15: TLabel; + CCPKPJE: TEdit; + Label16: TLabel; + CGDSL: TEdit; + Label17: TLabel; + CRate: TEdit; + Label18: TLabel; + COrtherRate: TEdit; + Label19: TLabel; + CWBSY: TEdit; + Label22: TLabel; + TSLLSY: TEdit; + Label23: TLabel; + GDS: TEdit; + Label24: TLabel; + COrderSF: TEdit; + Label25: TLabel; + CZDDate: TDateTimePicker; + OurBankName: TBtnEditC; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure PayMentBtnUpClick(Sender: TObject); + //procedure OppCoNameBtnUpClick(Sender: TObject); + //procedure OppParentCoNameBtnUpClick(Sender: TObject); + //procedure OurBankNameBtnUpClick(Sender: TObject); + //procedure OppBankNameBtnUpClick(Sender: TObject); + //procedure FFAbstractDLBtnUpClick(Sender: TObject); + procedure OrderNoBtnUpClick(Sender: TObject); + //procedure ToolButton1Click(Sender: TObject); + //procedure ToolButton2Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData(): Boolean; + public + { Public declarations } + FFFID, PState: string; + end; + +var + frmTaxInput: TfrmTaxInput; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_ZDYHelpFY, + U_TradePlanSel, U_FinFileUp, U_FtyFileUp; + +{$R *.dfm} + +procedure TfrmTaxInput.InitGrid(); +begin + try + + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from Costing_Table where CostMID =''' + Trim(FFFID) + ''''); + Open; + end; + if not ADOQueryMain.IsEmpty then + begin + SCSHData(ADOQueryMain, ScrollBox1, 0); + //OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString); + //OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString); + //OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString); + //OurBankName.TxtCode := Trim(ADOQueryMain.FieldByName('OurBankID').AsString); + //OppBankName.TxtCode := Trim(ADOQueryMain.FieldByName('OppBankID').AsString); + end + else + begin +// SQDate.DateTime := SGetServerDateTime(ADOQueryTemp); +// PKDate.DateTime := SQDate.DateTime + end; + + if PState = '' then + begin + FFFID := ''; + + end; + finally + ADOQueryMain.EnableControls; + end; +end; + +//procedure TfrmTaxInput.OppBankNameBtnUpClick(Sender: TObject); +//begin +// +// try +// frmZDYHelp := TfrmZDYHelp.Create(Application); +// with frmZDYHelp do +// begin +// flag := self.OppCoName.TxtCode; +// flagname := 'Է˻'; +// if ShowModal = 1 then +// begin +// TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// end; +// end; +// finally +// frmZDYHelp.Free; +// end; +//end; + +//procedure TfrmTaxInput.OppCoNameBtnUpClick(Sender: TObject); +//begin +// try +// frmCompanySel := TfrmCompanySel.Create(Application); +// with frmCompanySel do +// begin +// if RegType.text = '' then +// begin +// FCoType := 'Ӧ'; +// end +// else +// begin +// FCoType := 'ͻ'; +// end; +// +// if ShowModal = 1 then +// begin +// OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); +// OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); +// OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); +// OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); +// OppBankName.Text := Trim(CDS_1.fieldbyname('AcName').AsString); +// OppBankName.TxtCode := Trim(CDS_1.fieldbyname('CBID').AsString); +// end; +// end; +// finally +// frmCompanySel.Free; +// end; +//end; + +//procedure TfrmTaxInput.OppParentCoNameBtnUpClick(Sender: TObject); +//begin +// try +// frmCompanySel := TfrmCompanySel.Create(Application); +// with frmCompanySel do +// begin +// FCoType := 'Ӧ'; +// if ShowModal = 1 then +// begin +// OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); +// OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); +// end; +// end; +// finally +// frmCompanySel.Free; +// end; +//end; + +procedure TfrmTaxInput.OrderNoBtnUpClick(Sender: TObject); +begin + try + frmTradePlanSel := TfrmTradePlanSel.Create(Application); + with frmTradePlanSel do + begin +// FMainID := MainID.Text; + if ShowModal = 1 then + begin + //Self.OrderNO.Text := CDS_1.fieldbyname('OrderNo').value; +// Self.OurCoName.Text := Trim(CDS_1.fieldbyname('OurCoName').AsString); +// Self.OurCoName.TxtCode := Trim(CDS_1.fieldbyname('OurCoNo').AsString); + //Self.BuyConNo.text := Trim(CDS_1.fieldbyname('BuyConNo').AsString); + end; + end; + finally + frmTradePlanSel.Free; + end; +end; + +//procedure TfrmTaxInput.OurBankNameBtnUpClick(Sender: TObject); +//begin +// try +// frmBankSel := TfrmBankSel.Create(Application); +// with frmBankSel do +// begin +// if ShowModal = 1 then +// begin +// OurBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString); +// OurBankName.TxtCode := Trim(CDS_1.fieldbyname('BkID').AsString); +// end; +// end; +// finally +// frmBankSel.Free; +// end; +//end; + + + +procedure TfrmTaxInput.FormDestroy(Sender: TObject); +begin + frmTaxInput := nil; +end; + + +procedure TfrmTaxInput.PayMentBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + MainType := ''; + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +//procedure TfrmTaxInput.FFAbstractDLBtnUpClick(Sender: TObject); +//var +// fsj: string; +// FWZ: Integer; +//begin +// fsj := Trim(TEdit(Sender).Hint); +// FWZ := Pos('/', fsj); +// try +// frmZDYHelpFY := TfrmZDYHelpFY.Create(Application); +// with frmZDYHelpFY do +// begin +//// if RegType.text = '' then +//// begin +//// MainType := ''; +//// end +// else +// begin +// MainType := 'տ'; +// end; +// flag := Copy(fsj, 1, FWZ - 1); +// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); +// if ShowModal = 1 then +// begin +// TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('Note2').AsString); +// FFAbstract.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// end; +// end; +// finally +// frmZDYHelpFY.Free; +// end; +//end; + +procedure TfrmTaxInput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + + Action := caFree; +end; + +procedure TfrmTaxInput.TBCloseClick(Sender: TObject); +begin + + close; +end; + +procedure TfrmTaxInput.FormShow(Sender: TObject); +begin +// if Trim(FFFID) = '' then +// begin +// with ADOQueryTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add(' select top 1 * from BS_Company where CoType=''˾'' order by CoCode '); +// Open; +// end; +// OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString); +// OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString); +// end; + InitGrid(); +end; + +procedure TfrmTaxInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmTaxInput.SaveData(): Boolean; +var + MaxId, MaxSubId, FCoCode, FCCID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FFFID) = '' then + begin + if not GetLSNo(ADOQueryCmd, MaxId, 'TAX', 'Costing_Table', 4, 1) then + raise Exception.Create('ȡʧܣ'); + end + else + begin + MaxId := Trim(FFFID); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Costing_Table where CostMID=''' + Trim(FFFID) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFFID) = '' then + begin + Append; + FieldByName('FillId').Value := Trim(DCode); + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('EditId').Value := Trim(DCode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); + end; +// FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode); +// FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); +// FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode); +// FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode); +// FieldByName('OppBankID').Value := Trim(OppBankName.TxtCode); +//// FieldByName('OppBanKID + FieldByName('CostMID').Value := Trim(MaxId); + RTSetsavedata(ADOQueryCmd, 'Costing_table', ScrollBox1, 0); + Post; + end; + + ADOQueryCmd.Connection.CommitTrans; + FCCID := Trim(MaxSubId); + Result := True; + except + Result := false; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +//procedure TfrmTaxInput.ToolButton1Click(Sender: TObject); +//begin +// try +// frmFinFileUp := TfrmFinFileUp.Create(Application); +// with frmFinFileUp do +// begin +//// Code.Text := Trim(Self.CDS_1.fieldbyname('CoCode').AsString); +// FBCIID := FFFID; +// if ShowModal = 1 then +// begin +// Self.InitGrid(); +//// Self.CDS_1.Locate('BCIID', BCIID, []); +// end; +// end; +// finally +// frmFinFileUp.Free; +// end; +//end; + +//procedure TfrmTaxInput.ToolButton2Click(Sender: TObject); +//begin +// try +// frmFtyFileUp := TfrmFtyFileUp.Create(Application); +// with frmFtyFileUp do +// begin +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add(' select * from BS_Company where CoCode=' + quotedstr(Trim(OppCoName.TxtCode))); +// Open; +// end; +// //Code.Text := self.OppCoName.TxtCode; +// //FBCIID := Trim(ADOQueryTemp.fieldbyname('CoID').AsString); +// if ShowModal = 1 then +// begin +// Self.InitGrid(); +//// Self.CDS_1.Locate('BCIID', BCIID, []); +// end; +// end; +// finally +// frmFtyFileUp.Free; +// end; +//end; + +procedure TfrmTaxInput.ToolButton3Click(Sender: TObject); +begin + ToolBar1.SetFocus; +// if Trim(OppCoName.Text) = '' then +// begin +// Application.MessageBox('ԷλΪ!', 'ʾ', 0); +// Exit; +// end; +// if Trim(OurCoName.Text) = '' then +// begin +// Application.MessageBox('ҷλΪ!', 'ʾ', 0); +// Exit; +// end; +// if Trim(RegType.Text) = '' then +// begin +// Application.MessageBox('ǼͲΪ!', 'ʾ', 0); +// Exit; +// end; +// if Trim(OurBankName.Text) = '' then +// begin +// Application.MessageBox('ҷ˻Ϊ!', 'ʾ', 0); +// Exit; +// end; +// if Trim(Currency.Text) = '' then +// begin +// Application.MessageBox('ֲΪ!', 'ʾ', 0); +// Exit; +// end; +// if Trim(FFAbstractDL.Text) = '' then +// begin +// Application.MessageBox('Ϊ!', 'ʾ', 0); +// Exit; +// end; + if SaveData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + ModalResult := 1; + end; +end; + +end. + diff --git a/A09财务通用管理/U_TaxList.dfm b/A09财务通用管理/U_TaxList.dfm new file mode 100644 index 0000000..d59f0c7 --- /dev/null +++ b/A09财务通用管理/U_TaxList.dfm @@ -0,0 +1,669 @@ +inherited frmTaxList: TfrmTaxList + Left = 315 + Top = 101 + Caption = #31246#36153#26680#31639 + ClientHeight = 590 + ClientWidth = 1284 + FormStyle = fsMDIChild + Visible = True + ExplicitWidth = 1300 + ExplicitHeight = 629 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1284 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 + 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 btnAdd: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = btnAddClick + end + object btnEdit: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = btnEditClick + end + object ToolButton7: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 9 + OnClick = ToolButton7Click + end + object ToolButton3: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = ToolButton3Click + end + object btnDel: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = btnDelClick + end + object btnChk: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + Visible = False + OnClick = btnChkClick + end + object btnReChk: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + Visible = False + OnClick = btnReChkClick + end + object ToolButton1: TToolButton + Left = 592 + Top = 0 + AutoSize = True + Caption = #20184#27454 + ImageIndex = 12 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #25764#38144#20184#27454 + ImageIndex = 11 + Visible = False + OnClick = ToolButton2Click + end + object ToolButton9: TToolButton + Left = 758 + Top = 0 + AutoSize = True + Caption = #38468#20214#19978#20256 + ImageIndex = 22 + Visible = False + OnClick = ToolButton9Click + end + object ToolButton4: TToolButton + Left = 853 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 924 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 1019 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + object ToolButton6: TToolButton + Left = 1090 + Top = 0 + AutoSize = True + Caption = #22270#29255#19978#20256 + ImageIndex = 19 + Visible = False + OnClick = ToolButton6Click + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1284 + Height = 43 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + ExplicitTop = 44 + object Label11: TLabel + Left = 167 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label1: TLabel + Left = 284 + Top = 11 + Width = 48 + Height = 12 + Caption = #32463#33829#21333#20301 + end + object Label2: TLabel + Left = 443 + Top = 12 + Width = 48 + Height = 12 + Caption = #35745#21010#21333#21495 + end + object Label3: TLabel + Left = 603 + Top = 12 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object begdate: TDateTimePicker + Left = 77 + Top = 9 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + end + object Enddate: TDateTimePicker + Left = 184 + Top = 9 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 1 + end + object CheckBox1: TCheckBox + Left = 5 + Top = 10 + Width = 71 + Height = 17 + Caption = #21046#21333#26085#26399 + Checked = True + State = cbChecked + TabOrder = 2 + end + object COrderNo: TEdit + Tag = 2 + Left = 497 + Top = 9 + Width = 87 + Height = 20 + TabOrder = 3 + OnKeyPress = OppCoNameKeyPress + end + object CBusiness_unit: TEdit + Tag = 2 + Left = 338 + Top = 8 + Width = 87 + Height = 20 + TabOrder = 4 + OnKeyPress = OppCoNameKeyPress + end + object CCustomer: TEdit + Tag = 2 + Left = 637 + Top = 8 + Width = 87 + Height = 20 + TabOrder = 5 + OnKeyPress = OppCoNameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 81 + Width = 1284 + Height = 509 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + ExplicitTop = 87 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + 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 Tv1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 44 + end + object Tv1Column12: TcxGridDBColumn + DataBinding.FieldName = 'RegType' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column1: TcxGridDBColumn + AlternateCaption = 'CBusiness_unit' + Caption = #32463#33829#21333#20301 + DataBinding.FieldName = 'CBusiness_unit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column2: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'COrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CCustomer' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column4: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Csalesman' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column5: TcxGridDBColumn + Caption = #22806#24065#26680#38144#37329#39069 + DataBinding.FieldName = 'C_WBHXJE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column6: TcxGridDBColumn + Caption = #26680#38144#27719#29575 + DataBinding.FieldName = 'C_HXrate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20154#27665#24065#26680#38144#37329#39069 + DataBinding.FieldName = 'C_RMBHXJE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column8: TcxGridDBColumn + Caption = #26159#21542#21547#31246 + DataBinding.FieldName = 'SFHS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column9: TcxGridDBColumn + Caption = #21046#21333#26085#26399 + DataBinding.FieldName = 'CZDDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column10: TcxGridDBColumn + Caption = #22806#24065#23454#26680#37329#39069 + DataBinding.FieldName = 'CWBSHJE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column11: TcxGridDBColumn + Caption = #22806#24065#23454#26680#27719#29575 + DataBinding.FieldName = 'CWBSHrate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20154#27665#24065#23454#25910#37329#39069 + DataBinding.FieldName = 'CRMBSSJE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column14: TcxGridDBColumn + Caption = #36864#31246#25910#30410 + DataBinding.FieldName = 'CTSSY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column15: TcxGridDBColumn + Caption = #25104#21697#24320#31080#37329#39069 + DataBinding.FieldName = 'CCPKPJE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column16: TcxGridDBColumn + Caption = #36807#22320#31246#29575 + DataBinding.FieldName = 'CGDSL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column17: TcxGridDBColumn + Caption = #22686#20540#31246#29575 + DataBinding.FieldName = 'CRate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column18: TcxGridDBColumn + Caption = #20854#20182#31246#29575 + DataBinding.FieldName = 'COrtherRate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column19: TcxGridDBColumn + Caption = #22806#24065#25910#30410 + DataBinding.FieldName = 'CWBSY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column20: TcxGridDBColumn + Caption = #36864#31246#29702#35770#25910#30410 + DataBinding.FieldName = 'TSLLSY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column21: TcxGridDBColumn + Caption = #22269#22320#31246 + DataBinding.FieldName = 'GDS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column23: TcxGridDBColumn + Caption = #20854#20182#31246#36153 + DataBinding.FieldName = 'COrderSF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column24: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object Panel2: TPanel [3] + Left = 983 + Top = 301 + Width = 237 + Height = 89 + TabOrder = 3 + Visible = False + object SetDate1: TDateTimePicker + Left = 29 + Top = 49 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + end + object Panel3: TPanel + Left = 1 + Top = 1 + Width = 235 + Height = 24 + Align = alTop + Caption = #25490#27454#26085#26399#36873#25321 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentBackground = False + ParentFont = False + TabOrder = 1 + object Button4: TButton + Left = 194 + Top = -1 + Width = 41 + Height = 26 + Caption = #20851#38381 + TabOrder = 0 + OnClick = Button4Click + end + end + object Button1: TButton + Left = 136 + Top = 47 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button1Click + end + end + object Panel4: TPanel [4] + Left = 71 + Top = 172 + Width = 237 + Height = 89 + TabOrder = 4 + Visible = False + object SetDate2: TDateTimePicker + Left = 29 + Top = 49 + Width = 85 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + end + object Panel5: TPanel + Left = 1 + Top = 1 + Width = 235 + Height = 24 + Align = alTop + Caption = #23454#20184#26085#26399#36873#25321 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentBackground = False + ParentFont = False + TabOrder = 1 + object Button3: TButton + Left = 196 + Top = -1 + Width = 41 + Height = 26 + Caption = #20851#38381 + TabOrder = 0 + OnClick = Button3Click + end + end + object Button2: TButton + Left = 136 + Top = 47 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button2Click + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 233 + Top = 176 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 121 + Top = 177 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 197 + Top = 433 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 101 + Top = 433 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 293 + Top = 433 + 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 = 232 + Top = 288 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + Left = 168 + Top = 280 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 472 + Top = 360 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 611 + Top = 363 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 544 + Top = 360 + end + object PopupMenu1: TPopupMenu + Left = 544 + Top = 288 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N3: TMenuItem + Caption = #20840#24323 + OnClick = N3Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + end +end diff --git a/A09财务通用管理/U_TaxList.pas b/A09财务通用管理/U_TaxList.pas new file mode 100644 index 0000000..eae7f75 --- /dev/null +++ b/A09财务通用管理/U_TaxList.pas @@ -0,0 +1,867 @@ +unit U_TaxList; + +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, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, + dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations, 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, + dxSkinXmas2008Blue; + +type + TfrmTaxList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + btnDel: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ADOQueryMain: TADOQuery; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + GPM_1: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + btnAdd: TToolButton; + btnChk: TToolButton; + btnReChk: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + N2: TMenuItem; + btnEdit: TToolButton; + ToolButton9: TToolButton; + N3: TMenuItem; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + ToolButton6: TToolButton; + ToolButton7: TToolButton; + CheckBox1: TCheckBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + Tv1Column22: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + Tv1Column24: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel2: TPanel; + SetDate1: TDateTimePicker; + Panel3: TPanel; + Button4: TButton; + Button1: TButton; + Panel4: TPanel; + SetDate2: TDateTimePicker; + Panel5: TPanel; + Button3: TButton; + Button2: TButton; + Label11: TLabel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + COrderNo: TEdit; + CBusiness_unit: TEdit; + CCustomer: TEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure btnDelClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); + procedure btnAddClick(Sender: TObject); + procedure OppCoNameKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure btnChkClick(Sender: TObject); + procedure btnReChkClick(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure btnEditClick(Sender: TObject); + procedure ToolButton9Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + private + procedure InitGrid(); + procedure SetStatus(); + public + FAuthority: string; + end; + +implementation + +uses + U_DataLink, U_RTFun, U_TaxInput, U_ZDYHelp, U_AttachmentUpload, U_FinFileUp; + +{$R *.dfm} +procedure TfrmTaxList.SetStatus(); +begin + +end; + +procedure TfrmTaxList.InitGrid(); +var + WSql: string; +begin + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql + else + CheckBox1.Checked := True; + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + Filtered := False; +// sql.Add(' select IsTP=cast((case when (select COUNT(T.WBID) from TP_File T where T.WBID=A.FFID)=0 then 0 else 1 end) as bit ) '); +// sql.ADD(',A.*,B.account,B.OpenBank from Finance_Flow A'); +// sql.Add(' Left join BS_Company_Bank B on A.OppBankID=B.CBID '); +// sql.Add(' where (A.FFType=''Ǽ'' Or ISNULL(A.RegType,'''')=''տ'')'); + + SQL.add('select * from Costing_Table'); + 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; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; +end; + +procedure TfrmTaxList.N1Click(Sender: TObject); +begin + SelOKNo(cds_1, True); + +end; + +procedure TfrmTaxList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTaxList.N3Click(Sender: TObject); +begin + SelOKNo(cds_1, false); + +end; + +procedure TfrmTaxList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTaxList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTaxList.btnDelClick(Sender: TObject); +var + FFFIDS: string; +begin + if CDS_1.IsEmpty then + exit; + + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_1 do + begin + DisableControls; + while CDS_1.Locate('SSel', True, []) do + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('CostMID').AsString) + ','; + CDS_1.Delete; + end; + EnableControls; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_Fin_Flow_Del '); + 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 + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ɾɹ', 'ʾ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmTaxList.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(Self.Caption), Tv1, ''); + Enddate.DateTime := SGetServerDate(ADOQueryTemp); + SetDate1.DateTime := SGetServerDate(ADOQueryTemp); + SetDate2.DateTime := SGetServerDate(ADOQueryTemp); + begdate.DateTime := Enddate.DateTime - 91; + FAuthority := self.fParameters1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTaxList.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + + InitGrid(); + +end; + +procedure TfrmTaxList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + FPS, FQty, FPrice, FQTFee, FMoney, FZKMoney: Double; +begin + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then + begin + mvalue := '0'; + end; + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + FPS := CDS_1.fieldbyname('PS').AsFloat; + FQty := CDS_1.fieldbyname('Qty').AsFloat; + FQTFee := CDS_1.fieldbyname('QTFee').AsFloat; + FPrice := CDS_1.fieldbyname('Price').AsFloat; + FMoney := CDS_1.fieldbyname('Money').AsFloat; + + FZKMoney := CDS_1.fieldbyname('ZKMoney').AsFloat; + end; + + if Trim(FFieldName) <> 'Money' then + begin + FMoney := FQty * FPrice + FQTFee - FZKMoney; + end; + with CDS_1 do + begin + Edit; + FieldByName('Money').Value := FMoney; + Post; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + 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))); + ExecSQL; + end; + + Tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmTaxList.btnChkClick(Sender: TObject); +//begin +// Panel2.Left := (self.width - Panel2.width) div 2; +// Panel2.Visible := True; +//end; +var + FFFIDS: string; +begin + if CDS_1.IsEmpty then + exit; + + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_1 do + begin + DisableControls; + while CDS_1.Locate('SSel', True, []) do + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + CDS_1.Delete; + end; + EnableControls; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + 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))); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add(' exec P_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 +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ', 'ʾ'); + Panel2.Visible := False; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); +// Panel2.Visible := False; + end; + +end; + +procedure TfrmTaxList.btnReChkClick(Sender: TObject); +var + FFFIDS: string; +begin + if CDS_1.IsEmpty then + exit; + + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_1 do + begin + DisableControls; + while CDS_1.Locate('SSel', True, []) do + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + CDS_1.Delete; + end; + EnableControls; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + 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))); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add(' exec P_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 +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + + application.MessageBox('˳ɹ', 'ʾ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; +end; + +procedure TfrmTaxList.Button1Click(Sender: TObject); +var + FFFIDS: string; +begin + if CDS_1.IsEmpty then + exit; + + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_1 do + begin + DisableControls; + while CDS_1.Locate('SSel', True, []) do + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + CDS_1.Delete; + end; + EnableControls; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + 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))); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add(' exec P_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 +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('˳ɹ', 'ʾ'); + Panel2.Visible := False; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + Panel2.Visible := False; + end; + +end; + +procedure TfrmTaxList.Button2Click(Sender: TObject); +var + FFFIDS: string; +begin + if CDS_1.IsEmpty then + exit; + + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_1 do + begin + DisableControls; + while CDS_1.Locate('SSel', True, []) do + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + CDS_1.Delete; + end; + EnableControls; + end; + + try + ADOQueryCmd.Connection.BeginTrans; + 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))); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_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 + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('ɹ', 'ʾ'); + Panel4.Visible := False; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + Panel4.Visible := False; + end; + +end; + +procedure TfrmTaxList.Button3Click(Sender: TObject); +begin +// inherited; + Panel4.Visible := False; +end; + +procedure TfrmTaxList.Button4Click(Sender: TObject); +begin + Panel2.Visible := False; + +end; + +procedure TfrmTaxList.btnAddClick(Sender: TObject); +begin + + try + frmTaxInput := TfrmTaxInput.Create(Application); + with frmTaxInput do + begin + FFFID := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTaxInput.Free; + end; +end; + +procedure TfrmTaxList.ToolButton1Click(Sender: TObject); +begin + Panel4.Left := (self.width - Panel4.width) div 2; + Panel4.Visible := True; + +end; + +procedure TfrmTaxList.ToolButton2Click(Sender: TObject); +var + FFFIDS: string; +begin + if CDS_1.IsEmpty then + exit; + + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + + with CDS_1 do + begin + DisableControls; + while CDS_1.Locate('SSel', True, []) do + begin + FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; + CDS_1.Delete; + end; + EnableControls; + end; + +// try +// ADOQueryCmd.Connection.BeginTrans; +// 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))); +// open; +// end; +// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); +// +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add(' exec P_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 +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); +// ADOQueryCmd.Connection.CommitTrans; +// +// application.MessageBox('ɹ', 'ʾ'); +// except +// ADOQueryCmd.Connection.RollbackTrans; +// application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); +// InitGrid(); +// end; +end; + +procedure TfrmTaxList.ToolButton3Click(Sender: TObject); +begin + try + frmTaxInput := TfrmTaxInput.Create(Application); + with frmTaxInput do + begin +// FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); +// PState := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTaxInput.Free; + end; + +end; + +procedure TfrmTaxList.ToolButton4Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid1); +end; + +procedure TfrmTaxList.ToolButton5Click(Sender: TObject); +begin + WriteCxGrid(trim(Self.Caption), Tv1, ''); +end; + +procedure TfrmTaxList.ToolButton6Click(Sender: TObject); +begin + try + frmFinFileUp := TfrmFinFileUp.Create(Application); + with frmFinFileUp do + begin +// Code.Text := Trim(Self.CDS_1.fieldbyname('CoCode').AsString); + FBCIID := Trim(Self.CDS_1.fieldbyname('FFID').AsString); + if ShowModal = 1 then + begin + Self.InitGrid(); +// Self.CDS_1.Locate('BCIID', BCIID, []); + end; + end; + finally + frmFinFileUp.Free; + end; + +end; + +procedure TfrmTaxList.ToolButton7Click(Sender: TObject); +begin + try + frmTaxInput := TfrmTaxInput.Create(Application); + with frmTaxInput do + begin + FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); + ToolButton3.visible:=False; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTaxInput.Free; + end; + +end; + +procedure TfrmTaxList.btnEditClick(Sender: TObject); +begin + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_Fin_Flow_Judge '); + sql.Add(' @FFIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FFID').AsString))); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + Exit; + end; + + try + frmTaxInput := TfrmTaxInput.Create(Application); + with frmTaxInput do + begin + FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTaxInput.Free; + end; +end; + +procedure TfrmTaxList.ToolButton9Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); + with frmAttachmentUpload do + begin + if Trim(Self.CDS_1.fieldbyname('filler').AsString) = dname then + FEditAuthority := True; + fkeyNO := Trim(Self.CDS_1.fieldbyname('FFID').AsString); + fType := 'SD'; + if ShowModal = 1 then + begin + + end; + end; + finally + frmAttachmentUpload.Free; + end; + +end; + +procedure TfrmTaxList.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 + +end; + +procedure TfrmTaxList.OppCoNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTaxList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +end. + diff --git a/A09财务通用管理/testDll.identcache b/A09财务通用管理/testDll.identcache index cb4b6824da72a8715bc5da3fd1bd354a31925ef4..3d94071a1b860ff23542e7032c8757a286443518 100644 GIT binary patch delta 23 acmZ3(xQ20pB6C$$(!@%ci4JBEmN5WevIr;u delta 23 acmZ3(xQ20pB6Dt~)5J=di4JBEmN5WbKnKhK diff --git a/A09财务通用管理/testDll.res b/A09财务通用管理/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index ad4c311..210db90 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -1,118 +1,90 @@  - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas - 1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas - 1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm - 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= - 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.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.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas - 1899-12-30 00:00:00.000.114,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_ContractList.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas - 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.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 - 1899-12-30 00:00:00.000.872,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas - 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm - 1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 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.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.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.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.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= - 1899-12-30 00:00:00.000.522,=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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm - 1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm - 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm - 1899-12-30 00:00:00.000.618,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas - 1899-12-30 00:00:00.000.289,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas= - 1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=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.242,=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.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.289,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas= + 1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas + 1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.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.564,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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.569,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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.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.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm + 1899/12/30 00:00:00.000.872,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas + 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.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.114,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_ContractList.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm + 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899/12/30 00:00:00.000.415,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm + 1899/12/30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm + 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.519,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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.603,=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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.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.348,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.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.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm + 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.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas + 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas + 1899/12/30 00:00:00.000.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas + 1899/12/30 00:00:00.000.415,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas + 1899/12/30 00:00:00.000.149,=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.063,=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.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= + 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm + 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm + 1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm + 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.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index 3121a769482082c7afc38e15fa45e3affccc3fa1..5f98609341646cf65ae9b59997f9af48172c88ed 100644 GIT binary patch delta 296 zcmaDR@JxVFX5u;p=Blcsi5KN2^RP)xmSmNMal=^^C!d3HEhYbmSl$MF@hNd)Gsml3!}nhPDZ$LcSaeYa{0+! z%)OKI*cgin*`KGupxh$EJ02Mvjdr>kX3GDl>j;u<`Et?j)`8vllLK+ f{Eb}}*#V&}GLzNVoF_kER-XKbtrtn}LPlu-b#!B7 delta 295 zcmaDR@JxVFW->pU0&{Mq)8q#%a+3qtq$l5Jl!fwTCQCC(Oxz9Q%1!(!HTeJ=oI80X zv&>{(4g}wuLmH;~A(O;pZ)SzbX^fSVJDDuthJwWXSS`U8fY^&zrGWDClb&o(c}Xx2rCMK4vK+uC(cqtk^RMr>|CI4I3{`tO_pMJMp9)qIhK9HnGJ2`++3;?UAV+a5M diff --git a/B01基础合同管理/ProjectGroup1.groupproj.local b/B01基础合同管理/ProjectGroup1.groupproj.local index 2762da4..bd6e5a6 100644 --- a/B01基础合同管理/ProjectGroup1.groupproj.local +++ b/B01基础合同管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/B01基础合同管理/testDll.identcache b/B01基础合同管理/testDll.identcache index 32d1d710b626e9a50f44783137375deafee14661..d781eb1af389f62bbf56ed4afbf650950dd7e12a 100644 GIT binary patch delta 23 acmZ3(xQ20pB6C$$(!@%ci4JBEmN5WevIr;u delta 23 acmZ3(xQ20pB6Dt~)5J=di4JBEmN5WbKnKhK diff --git a/B04采购计划管理/ProjectGroup1.groupproj.local b/B04采购计划管理/ProjectGroup1.groupproj.local index 5b943b8..c117c1f 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 799b22a..8c02df1 100644 --- a/B04采购计划管理/PurchasePlan.dproj +++ b/B04采购计划管理/PurchasePlan.dproj @@ -4,7 +4,7 @@ PurchasePlan.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\B04采购计划管理\testDll.exe + D:\Dp10Repo\项目代码\D10zzbiaoqi\B04采购计划管理\testDll.exe @@ -255,10 +211,6 @@ - True - True - True - True True False diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index 9d2625e..bf9eb12 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -1,95 +1,67 @@  - 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.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.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.dfm - 1899-12-30 00:00:00.000.781,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_HJGTradePlanSel.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.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= - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/B04采购计划管理/PurchasePlan.identcache b/B04采购计划管理/PurchasePlan.identcache index f590c6d90bf112356362bc21e57c4e0ba142a606..b7ca501f11a0459dee90fe9b3121a147f492785a 100644 GIT binary patch delta 388 zcmew+{7slqVe&*y1?H-%q{+Q(a+5D{s!Tr3C=2EmyUABr5TZP+ z(vz(jEhZ;$SWRBZ1Q(xpS7EXwJA?}|ESy~qt_{ea#3nisY6y@w(Me&l9kV%#h9#_W zKy&3MPhc{Gx=3d7dPbSajLf!^bJ<`9n@yg@0k?DVB@Xe)@(4Ff4rh{ry9wlo=RiJ8 zK9N&)GCzwE+_#P#@{>!MVdlzBPGYeE%O!Feqlj;2mY=)^$z!kBCE*@h$YP9QpE{=$ c&|k`vXRwP*R%f+Ga<|-MMs^7lwZUvs08DRr^#A|> delta 388 zcmew+{7slufq{V`a55v440CR!)8r5A3X|QLz7ExfbnE2Ojav!4wOeBEC zVqzLhQexsfnaNqKaPH(qtWrS5@{`3`%%CR9PyWp+Ik|(yc5*7S`Q$Vvv$6ogBz!1a}EDyA{+85|iUOq$ew|BkU<=l%CAVX+L=mGqQOya5W#;98&70`yI`V|3IJQkcc%aV diff --git a/B04采购计划管理/PurchasePlan.res b/B04采购计划管理/PurchasePlan.res index 67d14b5b3968069b14d323a0430188bee9343927..b4bd00ba5b2e7e40bcc866955cb4cbdf0804161b 100644 GIT binary patch delta 12 TcmaFD{e*kN16CGB1_lNIAXWo; delta 12 TcmaFD{e*kN16G#CDGUq%BoYLT diff --git a/B04采购计划管理/PurchasePlan.skincfg b/B04采购计划管理/PurchasePlan.skincfg index 0849faf..e48deaa 100644 --- a/B04采购计划管理/PurchasePlan.skincfg +++ b/B04采购计划管理/PurchasePlan.skincfg @@ -2,61 +2,61 @@ Default=1 ShowNotifications=1 Enabled=1 -dxSkinBasic=0 -dxSkinBlack=0 -dxSkinBlue=0 -dxSkinBlueprint=0 -dxSkinCaramel=0 -dxSkinCoffee=0 -dxSkinDarkroom=0 -dxSkinDarkSide=0 -dxSkinDevExpressDarkStyle=0 -dxSkinDevExpressStyle=0 -dxSkinFoggy=0 -dxSkinGlassOceans=0 -dxSkinHighContrast=0 -dxSkiniMaginary=0 -dxSkinLilian=0 -dxSkinLiquidSky=0 -dxSkinLondonLiquidSky=0 -dxSkinMcSkin=0 -dxSkinMetropolis=0 -dxSkinMetropolisDark=0 -dxSkinMoneyTwins=0 -dxSkinOffice2007Black=0 -dxSkinOffice2007Blue=0 -dxSkinOffice2007Green=0 -dxSkinOffice2007Pink=0 -dxSkinOffice2007Silver=0 -dxSkinOffice2010Black=0 -dxSkinOffice2010Blue=0 -dxSkinOffice2010Silver=0 -dxSkinOffice2013DarkGray=0 -dxSkinOffice2013LightGray=0 -dxSkinOffice2013White=0 -dxSkinOffice2016Colorful=0 -dxSkinOffice2016Dark=0 -dxSkinOffice2019Black=0 -dxSkinOffice2019Colorful=0 -dxSkinOffice2019DarkGray=0 -dxSkinOffice2019White=0 -dxSkinPumpkin=0 -dxSkinSeven=0 -dxSkinSevenClassic=0 -dxSkinSharp=0 -dxSkinSharpPlus=0 -dxSkinSilver=0 -dxSkinSpringtime=0 -dxSkinStardust=0 -dxSkinSummer2008=0 -dxSkinTheAsphaltWorld=0 -dxSkinTheBezier=0 +dxSkinBasic=1 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkroom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinOffice2016Colorful=1 +dxSkinOffice2016Dark=1 +dxSkinOffice2019Black=1 +dxSkinOffice2019Colorful=1 +dxSkinOffice2019DarkGray=1 +dxSkinOffice2019White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringtime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinTheBezier=1 dxSkinsDefaultPainters=1 -dxSkinValentine=0 -dxSkinVisualStudio2013Blue=0 -dxSkinVisualStudio2013Dark=0 -dxSkinVisualStudio2013Light=0 -dxSkinVS2010=0 -dxSkinWhiteprint=0 +dxSkinValentine=1 +dxSkinVisualStudio2013Blue=1 +dxSkinVisualStudio2013Dark=1 +dxSkinVisualStudio2013Light=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 dxSkinWXI=1 -dxSkinXmas2008Blue=0 +dxSkinXmas2008Blue=1 diff --git a/B04采购计划管理/U_CLNoteEdit.dfm b/B04采购计划管理/U_CLNoteEdit.dfm index 5c0ae8c..ae4252a 100644 --- a/B04采购计划管理/U_CLNoteEdit.dfm +++ b/B04采购计划管理/U_CLNoteEdit.dfm @@ -2,8 +2,8 @@ object frmCLNoteEdit: TfrmCLNoteEdit Left = 682 Top = 315 Caption = #22788#29702#32467#26524#34917#24405 - ClientHeight = 135 - ClientWidth = 577 + ClientHeight = 299 + ClientWidth = 686 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -18,24 +18,25 @@ object frmCLNoteEdit: TfrmCLNoteEdit object Panel1: TPanel Left = 0 Top = 0 - Width = 577 - Height = 135 + Width = 686 + Height = 299 Align = alClient TabOrder = 0 - ExplicitWidth = 808 - ExplicitHeight = 513 + ExplicitWidth = 577 + ExplicitHeight = 135 DesignSize = ( - 577 - 135) + 686 + 299) object Label1: TLabel - Left = 37 - Top = 28 + Left = 50 + Top = 69 Width = 61 Height = 13 Anchors = [] AutoSize = False Caption = #22788#29702#32467#26524 ExplicitLeft = 38 + ExplicitTop = 28 end object Button1: TButton Left = 185 @@ -56,7 +57,7 @@ object frmCLNoteEdit: TfrmCLNoteEdit OnClick = Button2Click end object CLNote: TMemo - Left = 120 + Left = 117 Top = 24 Width = 377 Height = 63 diff --git a/B04采购计划管理/U_CLNoteEdit.pas b/B04采购计划管理/U_CLNoteEdit.pas index 49b7f38..ed11192 100644 --- a/B04采购计划管理/U_CLNoteEdit.pas +++ b/B04采购计划管理/U_CLNoteEdit.pas @@ -40,7 +40,7 @@ end; procedure TfrmCLNoteEdit.FormCreate(Sender: TObject); begin - CLNote.text:=''; + CLNote.text:=''; end; procedure TfrmCLNoteEdit.Button1Click(Sender: TObject); @@ -53,9 +53,7 @@ begin sql.Clear; sql.Add(' update Claims_Main '); sql.Add(' set CLNote=''' + Trim(CLNote.text) + ''''); - sql.Add(' where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFIDS) + ','','') X where X.RTValue=Claims_Main.ClaMid) '); -// showmessage(sql.text); ExecSQL; end; ModalResult := 1; diff --git a/B04采购计划管理/U_ClaimsList.dfm b/B04采购计划管理/U_ClaimsList.dfm index 0c15f8d..c93a665 100644 --- a/B04采购计划管理/U_ClaimsList.dfm +++ b/B04采购计划管理/U_ClaimsList.dfm @@ -65,16 +65,24 @@ inherited frmClaimsList: TfrmClaimsList ImageIndex = 3 OnClick = TBEditClick end - object ToolButton2: TToolButton + object ToolButton4: TToolButton Left = 284 Top = 0 AutoSize = True + Caption = #21024#38500 + ImageIndex = 14 + OnClick = ToolButton4Click + end + object ToolButton2: TToolButton + Left = 355 + Top = 0 + AutoSize = True Caption = #22797#21046 ImageIndex = 13 OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 355 + Left = 426 Top = 0 AutoSize = True Caption = #26597#30475 @@ -82,7 +90,7 @@ inherited frmClaimsList: TfrmClaimsList OnClick = ToolButton1Click end object TBPrint: TToolButton - Left = 426 + Left = 497 Top = 0 AutoSize = True Caption = #25171#21360 @@ -90,7 +98,7 @@ inherited frmClaimsList: TfrmClaimsList OnClick = TBPrintClick end object tchk: TToolButton - Left = 497 + Left = 568 Top = 0 AutoSize = True Caption = #23457#26680 @@ -98,7 +106,7 @@ inherited frmClaimsList: TfrmClaimsList OnClick = tchkClick end object Tnochk: TToolButton - Left = 568 + Left = 639 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 @@ -106,7 +114,7 @@ inherited frmClaimsList: TfrmClaimsList OnClick = TnochkClick end object btnTijiao: TToolButton - Left = 663 + Left = 734 Top = 0 AutoSize = True Caption = #22797#26680 @@ -114,7 +122,7 @@ inherited frmClaimsList: TfrmClaimsList OnClick = btnTijiaoClick end object btnCXTijiao: TToolButton - Left = 734 + Left = 805 Top = 0 AutoSize = True Caption = #25764#38144#22797#26680 @@ -122,21 +130,13 @@ inherited frmClaimsList: TfrmClaimsList OnClick = btnCXTijiaoClick end object ToolButton7: TToolButton - Left = 829 + Left = 900 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton7Click end - object TBClose: TToolButton - Left = 924 - Top = 0 - AutoSize = True - Caption = #20851#38381 - ImageIndex = 7 - OnClick = TBCloseClick - end object ToolButton3: TToolButton Left = 995 Top = 0 @@ -145,13 +145,13 @@ inherited frmClaimsList: TfrmClaimsList ImageIndex = 13 OnClick = ToolButton3Click end - object ToolButton4: TToolButton + object TBClose: TToolButton Left = 1114 Top = 0 AutoSize = True - Caption = #21024#38500 - ImageIndex = 14 - OnClick = ToolButton4Click + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick end end object cxGrid1: TcxGrid [1] diff --git a/B04采购计划管理/U_ClaimsList.pas b/B04采购计划管理/U_ClaimsList.pas index 1d50b2e..b673c85 100644 --- a/B04采购计划管理/U_ClaimsList.pas +++ b/B04采购计划管理/U_ClaimsList.pas @@ -13,7 +13,23 @@ uses cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, - dxScrollbarAnnotations; + dxScrollbarAnnotations, 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; type TfrmClaimsList = class(TfrmBaseList) @@ -242,69 +258,30 @@ end; procedure TfrmClaimsList.SetStatus(); begin - TBAdd.Enabled := false; - tbedit.Enabled := false; - btnTijiao.Enabled := false; // - btnCXTijiao.Enabled := false; // - ToolButton2.Enabled := false; // + TBAdd.Enabled := false; // + tbedit.Enabled := false; //޸ + btnTijiao.Enabled := false; // + btnCXTijiao.Enabled := false; // + ToolButton2.Enabled := false; // ToolButton4.Enabled := false; //ɾ - tchk.Enabled := false; - tnochk.Enabled := false; - ToolButton3.Enabled := false; //¼ -// TBPrint.Enabled := False; - btnTijiao.Enabled := False; -// btnCXTijiao.Enabled := False; - - if trim(DParameters1) <> '' then + tchk.Enabled := false; // + tnochk.Enabled := false; // + ToolButton3.Enabled := false; //¼ + TBPrint.Enabled := False; //ӡ + if trim(DParameters1) = '' then begin - + TBAdd.Enabled := True; + tbedit.Enabled := True; + ToolButton2.Enabled := True; + TBPrint.Enabled := True; + ToolButton3.Enabled := True; + ToolButton4.Enabled := True; case cxTabControl1.TabIndex of 0: begin - tbedit.Visible := true; - ToolButton4.Visible := true; - if trim(DParameters1) = '' then - begin - TCHK.Visible := true; - end; - end; 1: begin - if trim(DParameters1) = '' then - begin - tnochk.Visible := true; - end - else - begin - btnTijiao.Visible := true; - end; - - end; - 2: - begin - if trim(DParameters1) = '' then - begin - btnCXTijiao.Visible := true; - end; - - end; - end; - end - else - begin - - case cxTabControl1.TabIndex of - 0: - begin -// tchk.Visible := true; - tbedit.Visible := true; - ToolButton4.Visible := true; -// TCHK.Visible := true; - end; - 1: - begin -// tnochk.Visible := true; end; 2: @@ -312,63 +289,50 @@ begin end; end; end; - -// if Trim(FAuthority) = '' then -// begin -// ToolButton2.Enabled := true; -// TBAdd.Enabled := true; -// TBPrint.Enabled := True; -// case cxTabControl1.TabIndex of -// 0: -// begin -// tbedit.Enabled := true; -// btnTijiao.Enabled := True; -// ToolButton4.Enabled := True; -// end; -// 1: -// begin -// ToolButton3.Enabled := True; -// btnCXTijiao.Enabled := True; -// end; -// 2: -// begin -// -//// btnWC.Enabled := True; -// end; -// -// end; -// end; -// if Trim(FAuthority) = '' then -// begin -// ToolButton2.Enabled := true; -// TBAdd.Enabled := true; -// TBPrint.Enabled := True; -// case cxTabControl1.TabIndex of -// 0: -// begin -// tbedit.Enabled := true; -// tchk.Enabled := True; -// ToolButton4.Enabled := True; -// end; -// 1: -// begin -// btnTijiao.Enabled := True; -// tnochk.Enabled := True; -// ToolButton3.Enabled := True; -// end; -// 2: -// begin -// btnCXTijiao.Enabled := True; -// -//// btnWC.Enabled := True; -// end; -// -// end; -// end; -// if Trim(FAuthority) = 'ѯ' then -// begin -// TBPrint.Enabled := True; -// end; + if trim(DParameters1) = '' then + begin + TBAdd.Enabled := True; + tbedit.Enabled := True; + ToolButton2.Enabled := True; + TBPrint.Enabled := True; + ToolButton3.Enabled := True; + ToolButton4.Enabled := True; + case cxTabControl1.TabIndex of + 0: + begin + tchk.Enabled := true; + end; + 1: + begin + tnochk.Enabled := true; + end; + 2: + begin + end; + end; + end; + if trim(DParameters1) = '' then + begin + TBAdd.Enabled := True; + tbedit.Enabled := True; + ToolButton2.Enabled := True; + TBPrint.Enabled := True; + ToolButton3.Enabled := True; + ToolButton4.Enabled := True; + case cxTabControl1.TabIndex of + 0: + begin + end; + 1: + begin + btnTijiao.Enabled := true; + end; + 2: + begin + btnCXTijiao.Enabled := true; + end; + end; + end; end; procedure TfrmClaimsList.FormDestroy(Sender: TObject); @@ -637,6 +601,17 @@ begin with frmCLNoteEdit do begin FFFIDS := Trim(Self.CDS_1.fieldbyname('ClaMId').AsString); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('SELECT CLNote FROM Claims_Main'); + SQL.Add('WHERE ClaMid = :ID'); + Parameters.ParamByName('ID').Value := FFFIDS; + Open; + if not Eof then + CLNote.Text := FieldByName('CLNote').AsString; + end; if ShowModal = 1 then begin InitGrid(); @@ -645,7 +620,6 @@ begin finally frmCLNoteEdit.Free; end; - end; procedure TfrmClaimsList.ToolButton4Click(Sender: TObject); diff --git a/B04采购计划管理/U_ClothPurchasePlanList.dfm b/B04采购计划管理/U_ClothPurchasePlanList.dfm index 3c8c4f5..4f7ff07 100644 --- a/B04采购计划管理/U_ClothPurchasePlanList.dfm +++ b/B04采购计划管理/U_ClothPurchasePlanList.dfm @@ -507,7 +507,7 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList Height = 20 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.464761099538009100 + Time = 0.464761099538009200 TabOrder = 1 end object BuyName: TEdit diff --git a/B04采购计划管理/U_ClothPurchasePlanList.pas b/B04采购计划管理/U_ClothPurchasePlanList.pas index fe0ab11..05eef72 100644 --- a/B04采购计划管理/U_ClothPurchasePlanList.pas +++ b/B04采购计划管理/U_ClothPurchasePlanList.pas @@ -13,7 +13,23 @@ uses cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, dxSkinWXI, - dxScrollbarAnnotations; + dxScrollbarAnnotations, 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, + dxSkinXmas2008Blue; type TfrmClothPurchasePlanList = class(TfrmBaseList) diff --git a/B04采购计划管理/U_ClothRSPlanList.dfm b/B04采购计划管理/U_ClothRSPlanList.dfm index 3e94054..7241b9d 100644 --- a/B04采购计划管理/U_ClothRSPlanList.dfm +++ b/B04采购计划管理/U_ClothRSPlanList.dfm @@ -508,7 +508,7 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList Height = 20 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.464761099538009100 + Time = 0.464761099538009200 TabOrder = 1 end object BuyName: TEdit diff --git a/B04采购计划管理/U_ClothRSPlanList.pas b/B04采购计划管理/U_ClothRSPlanList.pas index ddb643a..747f4bb 100644 --- a/B04采购计划管理/U_ClothRSPlanList.pas +++ b/B04采购计划管理/U_ClothRSPlanList.pas @@ -13,7 +13,23 @@ uses cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, dxSkinWXI, - dxScrollbarAnnotations; + dxScrollbarAnnotations, 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, + dxSkinXmas2008Blue; type TfrmClothRSPlanList = class(TfrmBaseList) diff --git a/B04采购计划管理/U_DataLink.pas b/B04采购计划管理/U_DataLink.pas index 00253a0..98194ac 100644 --- a/B04采购计划管理/U_DataLink.pas +++ b/B04采购计划管理/U_DataLink.pas @@ -5,7 +5,23 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI; + dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI, 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, dxSkinXmas2008Blue; type TMyThread = class(TThread) diff --git a/B04采购计划管理/U_GetDllForm.pas b/B04采购计划管理/U_GetDllForm.pas index f074082..176256c 100644 --- a/B04采购计划管理/U_GetDllForm.pas +++ b/B04采购计划管理/U_GetDllForm.pas @@ -76,7 +76,7 @@ begin pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - Parameters1 := ''; + Parameters1 := ''; Parameters2 := 'ɹ'; end else diff --git a/B04采购计划管理/U_YarnPurchasePlanList.dfm b/B04采购计划管理/U_YarnPurchasePlanList.dfm index c33b05a..9378014 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanList.dfm @@ -476,7 +476,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Height = 20 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.464761099538009100 + Time = 0.464761099538009200 TabOrder = 1 end object BuyName: TEdit diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas index c188020..a536303 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList.pas @@ -13,7 +13,23 @@ uses cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, - dxScrollbarAnnotations; + dxScrollbarAnnotations, 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; type TfrmYarnPurchasePlanList = class(TfrmBaseList) diff --git a/B04采购计划管理/testDll.identcache b/B04采购计划管理/testDll.identcache index 6204c1f986d74c835dc094b4c0d26dad3a737a6d..6c23b0cac9ca13a539996e9c5469d714eaecb3df 100644 GIT binary patch delta 26 ecmZ3(xQ3CDX<~>1b5&K+#B$S#EV5vhiZK9bJ_qao delta 29 gcmZ3(xQ3CDX=0cHb8e;6#7g6dEV2-m%tQxC0DwaXx&QzG diff --git a/B04采购计划管理/testDll.res b/B04采购计划管理/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/T01贸易生产计划/ProjectGroup1.groupproj.local b/T01贸易生产计划/ProjectGroup1.groupproj.local index 3381ea5..9861d18 100644 --- a/T01贸易生产计划/ProjectGroup1.groupproj.local +++ b/T01贸易生产计划/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/T01贸易生产计划/TradePlan.dproj.local b/T01贸易生产计划/TradePlan.dproj.local index cc2eed2..ae0dde8 100644 --- a/T01贸易生产计划/TradePlan.dproj.local +++ b/T01贸易生产计划/TradePlan.dproj.local @@ -1,84 +1,56 @@  - 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.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.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.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.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.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.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.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.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.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=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.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.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.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.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.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.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.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.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.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.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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/T01贸易生产计划/TradePlan.identcache b/T01贸易生产计划/TradePlan.identcache index 1d8c13d8b6e1022b39bbf6e74f3b706633711259..7487436a085322169c2ff815f5b66e7e49418644 100644 GIT binary patch delta 322 zcmX>jct&u7B6C$$(&PkY<%#YJlbcv&!Q72Za+43Rs!zVag5dM9Do(a#L-4EFq$X!E zT2FRhMu;6?Wu2_XBn}r#V2+%e%3=mK)1Oshay$p?Tp2fUovMm$D z7?843CYi}~P^&@wO&n5_*Roqp+z+!!X5w$j$x9jSChJ2T3^809ZZOCLe5_oP4VVQ` zJaK?kaI!kP0FplA$y3>!C-bu?PmW>_o;(riij7R>lb<66hANxHjct&u7B6Dt~(_{-K<%#YJlm9Tug1HJT5|d4s6(&Dm0rMxZnocg`fG|1aCU4=8 znB2^0J=v7iZt^}xxbPoFnMn}!lNDG@CU>&KWsb8;!i=5-)X&ApHJOi10HzmcdF13` z=HAI6%<_{bGMT|$@Q6ujvK$-S6fQ=^$+ZwJ&;p6cTiK*1ro&}p*aRnT6Px@1W~&*p yjhT#6lP|D2Bbye(ra1W|v+`s!_Tb6OSga - + diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local index 8a93a77..57e33c6 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local @@ -1,76 +1,48 @@  - 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.475,=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.147,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.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.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.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.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.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.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.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.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.147,D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_ClothTotalFileUp.pas= + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.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.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.630,=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.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.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.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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/T02贸易汇总仓库/TradeTotalClothStk.identcache b/T02贸易汇总仓库/TradeTotalClothStk.identcache index 8122dc77cac16f961dc2b259ca6513c0e7fcafa7..f56f09e9d99c13c027e973a3776fb381e748cc9b 100644 GIT binary patch delta 252 zcmaFG_ll2Ea`IFrw}}xIlhavcnX9UjCVr5cyp&a9auuWfU^bD- zrHmS*? zjP{e6n3X4|u!u~4&kR;IiAi>HD7)yy{ct^-SS2R1I8P2?l%E{LBstj7VXQF#YOGB* diff --git a/T02贸易汇总仓库/TradeTotalClothStk.res b/T02贸易汇总仓库/TradeTotalClothStk.res index bb00747c465eda9ac9f23955e47bce803fe460ba..7a4b638d226d7b06b635f91ea842da6dec0516ef 100644 GIT binary patch delta 12 TcmeC+>EPMG!p6eLz`y_i5`+Qh delta 12 TcmeC+>EPMG!p71#g@FM87C-|0 diff --git a/T02贸易汇总仓库/U_TradePackClothOutList.dfm b/T02贸易汇总仓库/U_TradePackClothOutList.dfm index dea3dd8..59405ba 100644 --- a/T02贸易汇总仓库/U_TradePackClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradePackClothOutList.dfm @@ -127,6 +127,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 + ExplicitTop = 32 object Label1: TLabel Left = 28 Top = 12 @@ -197,6 +198,13 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Height = 12 Caption = #23458#25143#21333#21495 end + object Label10: TLabel + Left = 751 + Top = 10 + Width = 48 + Height = 12 + Caption = #26469#33258#21333#20301 + end object BegDate: TDateTimePicker Left = 77 Top = 8 @@ -297,6 +305,15 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList TabOrder = 9 OnChange = C_specChange end + object StkCoName: TEdit + Tag = 2 + Left = 805 + Top = 6 + Width = 80 + Height = 20 + TabOrder = 10 + OnChange = C_specChange + end end object cxGrid1: TcxGrid [2] Left = 0 @@ -605,14 +622,6 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList Options.Editing = False Width = 66 end - object v1Column12: TcxGridDBColumn - Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - Options.Editing = False - Width = 79 - end object Tv1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' @@ -689,6 +698,15 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/T02贸易汇总仓库/U_TradePackClothOutList.pas b/T02贸易汇总仓库/U_TradePackClothOutList.pas index 3b24b45..7dff7d6 100644 --- a/T02贸易汇总仓库/U_TradePackClothOutList.pas +++ b/T02贸易汇总仓库/U_TradePackClothOutList.pas @@ -99,6 +99,8 @@ type Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; ToolButton3: TToolButton; + Label10: TLabel; + StkCoName: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/T02贸易汇总仓库/testDll.identcache b/T02贸易汇总仓库/testDll.identcache index 9052455644dcf37e1af791b8685cdfd815c6520c..a58693f272c175099dbce88469ac2d35acbd96c8 100644 GIT binary patch delta 26 ecmZ3(xQ3CDX<~>1b5&K+#B$S#EV5vhiZK9bJ_qao delta 29 gcmZ3(xQ3CDX=0cHb8e;6#7g6dEV2-m%tQxC0DwaXx&QzG diff --git a/T03贸易布匹检验/ProjectGroup1.groupproj.local b/T03贸易布匹检验/ProjectGroup1.groupproj.local index 3116cdb..3720508 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 1c53db0..c61f95e 100644 --- a/T03贸易布匹检验/TradeInsp.dproj +++ b/T03贸易布匹检验/TradeInsp.dproj @@ -4,7 +4,7 @@ TradeInsp.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\T03贸易布匹检验\testDll.exe + D:\Dp10Repo\项目代码\D10zzbiaoqi\T03贸易布匹检验\testDll.exe @@ -223,10 +179,6 @@ - True - True - True - True True False diff --git a/T03贸易布匹检验/TradeInsp.dproj.local b/T03贸易布匹检验/TradeInsp.dproj.local index c742750..063eb6b 100644 --- a/T03贸易布匹检验/TradeInsp.dproj.local +++ b/T03贸易布匹检验/TradeInsp.dproj.local @@ -1,74 +1,46 @@  - 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.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.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.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.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.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.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.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.630,=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.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.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.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.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.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.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.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.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.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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/T03贸易布匹检验/TradeInsp.identcache b/T03贸易布匹检验/TradeInsp.identcache index 932360997eae39bc34579ec90c153ace2e14504e..0022c1034e093aa26cb209e099e782b5b6d8f595 100644 GIT binary patch delta 277 zcmdnPw}+2af`NfSck)9f(TRB~lgk;)CqH17Wv;49n!J%sZgK;Q1PWh{O=9v(Hi$eQ zlk8+QcCpD1m@FnQX0@H1&ul*VH48$oCaV%qOnI^%i^yaLCWLq$llpR>t=g&UY;CM&Z`PF}?d;e(Vt zVwIX`SB@kkJGq=qbn}>1C!ijD;6mv^Nj)V30D9B diff --git a/T03贸易布匹检验/TradeInsp.res b/T03贸易布匹检验/TradeInsp.res index c43d7b2cd260c8e388d66a23107e800d90126d9c..554282c28e0edafc2762b34fca123fbe1fbaa9f8 100644 GIT binary patch delta 12 TcmX@ZeTI9(304+H1_lNI9i9U* delta 12 TcmX@ZeTI9(309WIDGUq%AzB1Q diff --git a/T03贸易布匹检验/U_TradeClothDefectiveList.dfm b/T03贸易布匹检验/U_TradeClothDefectiveList.dfm index f8a5568..17b2647 100644 --- a/T03贸易布匹检验/U_TradeClothDefectiveList.dfm +++ b/T03贸易布匹检验/U_TradeClothDefectiveList.dfm @@ -7,6 +7,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -553 ExplicitWidth = 1488 ExplicitHeight = 594 PixelsPerInch = 96 @@ -15,14 +16,14 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Left = 0 Top = 124 Width = 1472 - Height = 28 + Height = 29 Align = alTop AutoSize = True BorderStyle = bsSingle TabOrder = 4 DesignSize = ( 1468 - 24) + 25) object Label31: TLabel Left = 22 Top = 5 @@ -57,8 +58,8 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Layout = tlCenter end object BTLP: TButton - Left = 404 - Top = 1 + Left = 399 + Top = 2 Width = 78 Height = 22 Anchors = [akLeft] @@ -74,7 +75,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList end object BTNP: TButton Left = 569 - Top = 1 + Top = 2 Width = 78 Height = 22 Anchors = [akLeft] @@ -91,7 +92,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList object TCBNOR: TComboBox Tag = 2 Left = 110 - Top = 2 + Top = 3 Width = 78 Height = 20 Anchors = [akLeft] @@ -114,9 +115,9 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList end object cxGrid1: TcxGrid [1] Left = 0 - Top = 152 + Top = 153 Width = 1472 - Height = 403 + Height = 402 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -241,7 +242,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList end object Tv1Column4: TcxGridDBColumn Caption = #20135#21697#32534#21495 - DataBinding.FieldName = 'C_Code' + DataBinding.FieldName = 'C_Code2' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -273,7 +274,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList end object v1Column7: TcxGridDBColumn Caption = #30133#28857#24773#20917 - DataBinding.FieldName = 'FlawList1' + DataBinding.FieldName = 'FlawList' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -393,7 +394,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList end object Tv1Column7: TcxGridDBColumn Caption = #23458#25143#33457#22411 - DataBinding.FieldName = 'C_CustPattern' + DataBinding.FieldName = 'C_Pattern2' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -501,6 +502,10 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList HeaderAlignmentHorz = taCenter Width = 72 end + object Tv1Column12: TcxGridDBColumn + DataBinding.FieldName = 'FlawList' + DataBinding.IsNullValueType = True + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -720,10 +725,10 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList object Label5: TLabel Left = 356 Top = 40 - Width = 39 + Width = 52 Height = 12 Hint = '0' - Caption = #20135#21697#21517 + Caption = #20135#21697#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -832,8 +837,8 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Height = 20 Date = 44774.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.464761099538009200 - TabOrder = 6 + Time = 0.464761099538009100 + TabOrder = 5 end object OrderNo: TEdit Tag = 2 @@ -847,12 +852,12 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList end object BuyConNo: TEdit Tag = 2 - Left = 406 + Left = 408 Top = 6 Width = 100 Height = 20 Hint = '0' - TabOrder = 7 + TabOrder = 6 OnKeyPress = BuyConNoKeyPress end object CIID: TEdit @@ -873,7 +878,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Height = 20 Hint = '1' Style = csDropDownList - TabOrder = 10 + TabOrder = 9 OnChange = GradeChange OnKeyPress = KHConNOKeyPress Items.Strings = ( @@ -884,8 +889,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList '') end object C_Name: TEdit - Tag = 2 - Left = 406 + Left = 408 Top = 36 Width = 100 Height = 20 @@ -901,7 +905,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Height = 20 Hint = '1' Style = csDropDownList - TabOrder = 9 + TabOrder = 8 OnChange = CIIOFlagChange OnKeyPress = KHConNOKeyPress Items.Strings = ( @@ -910,25 +914,13 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList #24050#20986#24211 '') end - object Filler: TComboBox - Tag = 2 - Left = 1232 - Top = 6 - Width = 100 - Height = 20 - Hint = '1' - Style = csDropDownList - TabOrder = 4 - OnKeyPress = KHConNOKeyPress - end object C_Color: TEdit - Tag = 2 Left = 553 Top = 6 Width = 100 Height = 20 Hint = '0' - TabOrder = 8 + TabOrder = 7 OnKeyPress = BuyConNoKeyPress end object IsJYTime: TCheckBox @@ -945,7 +937,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Font.Style = [fsBold] ParentFont = False State = cbChecked - TabOrder = 5 + TabOrder = 4 end object BCIOID: TEdit Tag = 2 @@ -954,7 +946,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Width = 100 Height = 20 Hint = '0' - TabOrder = 11 + TabOrder = 10 OnKeyPress = KHConNOKeyPress end object CIMachNo: TEdit @@ -964,7 +956,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Width = 100 Height = 20 Hint = '1' - TabOrder = 12 + TabOrder = 11 OnKeyPress = KHConNOKeyPress end object C_Pattern: TEdit @@ -974,33 +966,33 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList Width = 100 Height = 20 Hint = '0' + TabOrder = 12 + OnKeyPress = KHConNOKeyPress + end + object C_Code2: TEdit + Tag = 2 + Left = 250 + Top = 36 + Width = 100 + Height = 20 + Hint = '0' TabOrder = 13 OnKeyPress = KHConNOKeyPress end - object C_Code: TEdit + object FtyPCId: TEdit Tag = 2 - Left = 250 - Top = 32 + Left = 900 + Top = 6 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 + Left = 440 + Top = 208 Width = 289 Height = 49 BevelInner = bvLowered @@ -1033,6 +1025,16 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList ClientRectRight = 0 ClientRectTop = 0 end + object Filler: TEdit [6] + Tag = 2 + Left = 1232 + Top = 44 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 6 + OnKeyPress = KHConNOKeyPress + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradeInsp.ADOLink Left = 201 diff --git a/T03贸易布匹检验/U_TradeClothDefectiveList.pas b/T03贸易布匹检验/U_TradeClothDefectiveList.pas index 334af53..86f9302 100644 --- a/T03贸易布匹检验/U_TradeClothDefectiveList.pas +++ b/T03贸易布匹检验/U_TradeClothDefectiveList.pas @@ -59,7 +59,6 @@ type C_Name: TEdit; Label6: TLabel; CIIOFlag: TComboBox; - Filler: TComboBox; btnEdit: TToolButton; TBZF: TToolButton; btnJBQ: TToolButton; @@ -77,7 +76,7 @@ type Label20: TLabel; C_Pattern: TEdit; Label23: TLabel; - C_Code: TEdit; + C_Code2: TEdit; Label1: TLabel; FtyPCId: TEdit; ToolButton1: TToolButton; @@ -137,6 +136,8 @@ type ToolButton3: TToolButton; ToolButton4: TToolButton; Tv1Column11: TcxGridDBColumn; + Filler: TEdit; + Tv1Column12: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -245,11 +246,22 @@ begin MovePanel2.Visible := True; MovePanel2.Refresh; WSql := SGetFilters(Panel1, 1, 2); + if trim(WSql) <> '' then begin WSql := ' and ' + trim(WSql); end; + if C_Name.Text <> '' then + begin + WSql := WSql + ' and A.C_Name like ' + quotedStr('%' + Trim(C_Name.Text) + '%'); + end; + + if C_Color.Text <> '' then + begin + WSql := WSql + ' and A.C_Color like ' + quotedStr('%' + Trim(C_Color.Text) + '%'); + end; + case CxTabControl1.TabIndex of 0: begin @@ -277,21 +289,6 @@ begin end; 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; @@ -339,7 +336,6 @@ begin // SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj); // Filler.ItemIndex := Filler.Items.IndexOf(trim(DName)); - InitGrid(); SetStatus(); InitGrid(); diff --git a/T03贸易布匹检验/U_TradeClothInspList.dfm b/T03贸易布匹检验/U_TradeClothInspList.dfm index 075377c..b0349e6 100644 --- a/T03贸易布匹检验/U_TradeClothInspList.dfm +++ b/T03贸易布匹检验/U_TradeClothInspList.dfm @@ -2,13 +2,13 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList Left = 160 Top = 87 Caption = #26816#39564#25253#21578 - ClientHeight = 555 + ClientHeight = 554 ClientWidth = 1472 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1488 - ExplicitHeight = 594 + ExplicitHeight = 593 PixelsPerInch = 96 TextHeight = 12 object Panel6: TPanel [0] @@ -116,7 +116,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList Left = 0 Top = 135 Width = 1472 - Height = 420 + Height = 419 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -273,7 +273,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList end object v1Column7: TcxGridDBColumn Caption = #30133#28857#24773#20917 - DataBinding.FieldName = 'FlawList1' + DataBinding.FieldName = 'FlawList' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False diff --git a/T03贸易布匹检验/U_TradeInspEdit.dfm b/T03贸易布匹检验/U_TradeInspEdit.dfm index 4a86b9e..797ecb6 100644 --- a/T03贸易布匹检验/U_TradeInspEdit.dfm +++ b/T03贸易布匹检验/U_TradeInspEdit.dfm @@ -302,6 +302,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit Kind = bkEllipsis end> Properties.OnButtonClick = TV1Column1PropertiesButtonClick + Visible = False HeaderAlignmentHorz = taCenter Width = 83 end diff --git a/T03贸易布匹检验/U_TradeInspEdit.pas b/T03贸易布匹检验/U_TradeInspEdit.pas index 33765b2..fd9c06b 100644 --- a/T03贸易布匹检验/U_TradeInspEdit.pas +++ b/T03贸易布匹检验/U_TradeInspEdit.pas @@ -9,7 +9,23 @@ uses cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations; + dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations, 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; type TfrmTradeInspEdit = class(TForm) diff --git a/T03贸易布匹检验/U_TradeMachInsp.dfm b/T03贸易布匹检验/U_TradeMachInsp.dfm index c314ccc..0374893 100644 --- a/T03贸易布匹检验/U_TradeMachInsp.dfm +++ b/T03贸易布匹检验/U_TradeMachInsp.dfm @@ -227,8 +227,8 @@ OnClick = BTPrintClick end object Button6: TButton - Left = 300 - Top = 137 + Left = 303 + Top = 139 Width = 80 Height = 45 Caption = #30133#28857 @@ -714,7 +714,7 @@ Visible = False object SpeedButton13: TSpeedButton Left = 7 - Top = 3 + Top = 5 Width = 50 Height = 50 Caption = #30772#27934 @@ -729,7 +729,7 @@ end object SpeedButton14: TSpeedButton Left = 63 - Top = 3 + Top = 5 Width = 50 Height = 50 Font.Charset = GB2312_CHARSET @@ -743,7 +743,7 @@ end object SpeedButton15: TSpeedButton Left = 119 - Top = 3 + Top = 5 Width = 50 Height = 50 Font.Charset = GB2312_CHARSET diff --git a/T03贸易布匹检验/testDll.identcache b/T03贸易布匹检验/testDll.identcache index 366c68e3c93298bbc23cfcd1e261727d2a4b26c5..e70de6726a150574fe8755d5c5de42d692cfd78d 100644 GIT binary patch delta 23 acmZ3(xQ20pB6C$$(!@%ci4JBEmN5WevIr;u delta 23 acmZ3(xQ20pB6Dt~)5J=di4JBEmN5WbKnKhK diff --git a/T03贸易布匹检验/testDll.res b/T03贸易布匹检验/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/T04贸易明细仓库/ProjectGroup1.groupproj.local b/T04贸易明细仓库/ProjectGroup1.groupproj.local index f459d2c..79d28c3 100644 --- a/T04贸易明细仓库/ProjectGroup1.groupproj.local +++ b/T04贸易明细仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/T04贸易明细仓库/TradeClothStk.dproj.local b/T04贸易明细仓库/TradeClothStk.dproj.local index 2e7a6fe..10ee751 100644 --- a/T04贸易明细仓库/TradeClothStk.dproj.local +++ b/T04贸易明细仓库/TradeClothStk.dproj.local @@ -1,87 +1,59 @@  - 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.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.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.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.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.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.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.952,D:\Dp10Repo\项目代码\华府\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.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.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.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.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.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.527,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_DeliTradePlanSel.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.355,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeKCListSel.pas + 1899/12/30 00:00:00.000.296,=D:\Dp10Repo\项目代码\D10myBiaoqi\T04贸易明细仓库\U_TradeClothSplitWeight.pas + 1899/12/30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899/12/30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.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.630,=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.097,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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.649,=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.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.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.434,=D:\Dp10Repo\项目代码\华府\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.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 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.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/T04贸易明细仓库/TradeClothStk.identcache b/T04贸易明细仓库/TradeClothStk.identcache index 397b37d15a1c68e705fa50f76fcc8d971c489c24..9bc6c5d4fa1529c2d6cec168c77f9b61404e6c28 100644 GIT binary patch delta 360 zcmaDM^g@VHZn8gz0&`VW(&US5a+4=;C{I4ZDvQKtoy^WAIhmIkEH?4B^W*{ubMgdc zlgV<7$V#~;r!h)RUcrJ8d&VLG(+V}7YqA1U*yLh1yUAh@brWwZPmW|UoBV}Ia`F+V z(F+(QCa+?Znq0<&Flqt^*W`Un;*%SoRxV()n0%AnesTee#pHi1B@>fiN@XU_lZBf! zfmw3$Um!+z=x+|GiEwwyPjr@_tiT2_0A#l>r!%C$qCVPqt=No_v&D U1j);0lO;H;;BEwkXa~C#0E~2XGXMYp delta 331 zcmaDM^g@VLj)8$8aIztj40CR!)8qvl@{{ke$xoidDhuWZFv(0l$0|GVAecMxq4Q*0 zHi(P>i}vKhjN+38I3fIe7K_OSOfX$_lRq%S)Y(r?V@AjouscsyVT9?Cm>k0>GkG3V zZ9a>{WMwv~$vhDL#D~h0{h7@sv$9G~Zs33!EjL+$Nn)}bYYB?BYs^v;Q(;P!C$5m3 z{1@s_kfE>Hr6-?bvV)tlfWvGu8;3L8@dlh0lcQOcC+Bd8OkU1nKlvJm)kGGUX&MuK TB;no;VA7o2#)fLTDZ4ZP#du;= diff --git a/T04贸易明细仓库/TradeClothStk.res b/T04贸易明细仓库/TradeClothStk.res index 8c3e40090d66263ceaf588b08df229935ac041f5..acf96c3e6ccf004a673bd29295147c70f14ddf60 100644 GIT binary patch delta 12 TcmaFD{e*kN16CGB1_lNIAXWo; delta 12 TcmaFD{e*kN16G#CDGUq%BoYLT diff --git a/T04贸易明细仓库/testDll.identcache b/T04贸易明细仓库/testDll.identcache index 9052b5493c4a9e0c935a98012f123a1afed04199..da056d267600449ac93c9727382d2527aa7dd396 100644 GIT binary patch delta 26 ecmZ3(xQ3CDX<~>1b5&K+#B$S#EV5vhiZK9bJ_qao delta 29 gcmZ3(xQ3CDX=0cHb8e;6#7g6dEV2-m%tQxC0DwaXx&QzG