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 e0dc4fe..9b4070b 100644
Binary files a/A02基础产品管理/ClothInfo.identcache and b/A02基础产品管理/ClothInfo.identcache differ
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 7272b4d..e788f65 100644
Binary files a/A02基础产品管理/testDll.identcache and b/A02基础产品管理/testDll.identcache differ
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 @@
dfm
+
+
+ dfm
+
+
+
+ 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 0c76d84..69f83cd 100644
Binary files a/A09财务通用管理/Financial.identcache and b/A09财务通用管理/Financial.identcache differ
diff --git a/A09财务通用管理/Financial.res b/A09财务通用管理/Financial.res
index 0279a6c..7d3aa50 100644
Binary files a/A09财务通用管理/Financial.res and b/A09财务通用管理/Financial.res differ
diff --git a/A09财务通用管理/ProjectGroup1.groupproj.local b/A09财务通用管理/ProjectGroup1.groupproj.local
index f1360a8..7d7976b 100644
--- a/A09财务通用管理/ProjectGroup1.groupproj.local
+++ b/A09财务通用管理/ProjectGroup1.groupproj.local
@@ -2,6 +2,6 @@
-
+
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 cb4b682..3d94071 100644
Binary files a/A09财务通用管理/testDll.identcache and b/A09财务通用管理/testDll.identcache differ
diff --git a/A09财务通用管理/testDll.res b/A09财务通用管理/testDll.res
index 2465ca0..e116c48 100644
Binary files a/A09财务通用管理/testDll.res and b/A09财务通用管理/testDll.res differ
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 3121a76..5f98609 100644
Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ
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 32d1d71..d781eb1 100644
Binary files a/B01基础合同管理/testDll.identcache and b/B01基础合同管理/testDll.identcache differ
diff --git a/B04采购计划管理/ProjectGroup1.groupproj.local b/B04采购计划管理/ProjectGroup1.groupproj.local
index 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 f590c6d..b7ca501 100644
Binary files a/B04采购计划管理/PurchasePlan.identcache and b/B04采购计划管理/PurchasePlan.identcache differ
diff --git a/B04采购计划管理/PurchasePlan.res b/B04采购计划管理/PurchasePlan.res
index 67d14b5..b4bd00b 100644
Binary files a/B04采购计划管理/PurchasePlan.res and b/B04采购计划管理/PurchasePlan.res differ
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 6204c1f..6c23b0c 100644
Binary files a/B04采购计划管理/testDll.identcache and b/B04采购计划管理/testDll.identcache differ
diff --git a/B04采购计划管理/testDll.res b/B04采购计划管理/testDll.res
index 2465ca0..e116c48 100644
Binary files a/B04采购计划管理/testDll.res and b/B04采购计划管理/testDll.res differ
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 1d8c13d..7487436 100644
Binary files a/T01贸易生产计划/TradePlan.identcache and b/T01贸易生产计划/TradePlan.identcache differ
diff --git a/T01贸易生产计划/testDll.identcache b/T01贸易生产计划/testDll.identcache
index 4009f06..153c334 100644
Binary files a/T01贸易生产计划/testDll.identcache and b/T01贸易生产计划/testDll.identcache differ
diff --git a/T02贸易汇总仓库/ProjectGroup1.groupproj.local b/T02贸易汇总仓库/ProjectGroup1.groupproj.local
index 63b62e7..e44cc12 100644
--- a/T02贸易汇总仓库/ProjectGroup1.groupproj.local
+++ b/T02贸易汇总仓库/ProjectGroup1.groupproj.local
@@ -2,6 +2,6 @@
-
+
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 8122dc7..f56f09e 100644
Binary files a/T02贸易汇总仓库/TradeTotalClothStk.identcache and b/T02贸易汇总仓库/TradeTotalClothStk.identcache differ
diff --git a/T02贸易汇总仓库/TradeTotalClothStk.res b/T02贸易汇总仓库/TradeTotalClothStk.res
index bb00747..7a4b638 100644
Binary files a/T02贸易汇总仓库/TradeTotalClothStk.res and b/T02贸易汇总仓库/TradeTotalClothStk.res differ
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 9052455..a58693f 100644
Binary files a/T02贸易汇总仓库/testDll.identcache and b/T02贸易汇总仓库/testDll.identcache differ
diff --git a/T03贸易布匹检验/ProjectGroup1.groupproj.local b/T03贸易布匹检验/ProjectGroup1.groupproj.local
index 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 9323609..0022c10 100644
Binary files a/T03贸易布匹检验/TradeInsp.identcache and b/T03贸易布匹检验/TradeInsp.identcache differ
diff --git a/T03贸易布匹检验/TradeInsp.res b/T03贸易布匹检验/TradeInsp.res
index c43d7b2..554282c 100644
Binary files a/T03贸易布匹检验/TradeInsp.res and b/T03贸易布匹检验/TradeInsp.res differ
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 366c68e..e70de67 100644
Binary files a/T03贸易布匹检验/testDll.identcache and b/T03贸易布匹检验/testDll.identcache differ
diff --git a/T03贸易布匹检验/testDll.res b/T03贸易布匹检验/testDll.res
index 2465ca0..e116c48 100644
Binary files a/T03贸易布匹检验/testDll.res and b/T03贸易布匹检验/testDll.res differ
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 397b37d..9bc6c5d 100644
Binary files a/T04贸易明细仓库/TradeClothStk.identcache and b/T04贸易明细仓库/TradeClothStk.identcache differ
diff --git a/T04贸易明细仓库/TradeClothStk.res b/T04贸易明细仓库/TradeClothStk.res
index 8c3e400..acf96c3 100644
Binary files a/T04贸易明细仓库/TradeClothStk.res and b/T04贸易明细仓库/TradeClothStk.res differ
diff --git a/T04贸易明细仓库/testDll.identcache b/T04贸易明细仓库/testDll.identcache
index 9052b54..da056d2 100644
Binary files a/T04贸易明细仓库/testDll.identcache and b/T04贸易明细仓库/testDll.identcache differ