Group_99/D10SZKaiXiYa
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: Group_99:08868128484961f3c38306e4643c206dfe62195c
Branches Tags
Group_99:main
...
compare: Group_99:0188dce9ac3a5d789fbdf411a8cbe50fc17057e7
Branches Tags
Group_99:main

2 Commits
0886812848 ... 0188dce9ac

Author SHA1 Message Date
DESKTOP-E401PHE\Administrator
0188dce9ac 2222 2026-05-15 09:44:36 +08:00
DESKTOP-E401PHE\Administrator
9c9076e6af 1234 2026-03-24 10:22:19 +08:00
63 changed files with 12762 additions and 941 deletions
Show Stats Expand all files Collapse all files

15
A00通用窗体/U_CompanySel.dfm
View File

@ -55,7 +55,7 @@ inherited frmCompanySel: TfrmCompanySel
DataBinding.FieldName = 'CoAbbrName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 159
Width = 211
end
object TV1Column4: TcxGridDBColumn
Caption = #22320#22336
@ -78,7 +78,7 @@ inherited frmCompanySel: TfrmCompanySel
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 115
ButtonWidth = 99
Caption = 'ToolBar1'
Images = cxImageList_bar
List = True
@ -92,15 +92,8 @@ inherited frmCompanySel: TfrmCompanySel
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686#20379#24212#21830
ImageIndex = 2
end
object TBSave: TToolButton
Left = 190
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -108,7 +101,7 @@ inherited frmCompanySel: TfrmCompanySel
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 293
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381

1
A00通用窗体/U_CompanySel.pas
View File

@ -53,7 +53,6 @@ type
SHuangSeCu: TcxStyle;
CoName: TcxTextEdit;
cxImageList_bar: TcxImageList;
ToolButton2: TToolButton;
TV1Column4: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);

7
A00通用窗体/U_SalesContract_SXSel.dfm
View File

@ -340,6 +340,13 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Options.Editing = False
Width = 58
end
object TV1Column3: TcxGridDBColumn
Caption = #32463#32433'/'#32428#32433
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object TV1Column13: TcxGridDBColumn
Caption = #32433#32447#32534#21495
DataBinding.FieldName = 'Y_Code'

5
A00通用窗体/U_SalesContract_SXSel.pas
View File

@ -86,6 +86,7 @@ type
TV1Column17: TcxGridDBColumn;
TV1Column18: TcxGridDBColumn;
TV1Column19: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -157,10 +158,10 @@ begin
begin
Close;
sql.Clear;
SQL.add('select ConNo,ConMId,ConSId,FROMCPMID,BuyConNo,Z_Number,max(ConDate) as ConDate,max(DlyDate) as DlyDate ');
SQL.add('select YRType,ConNo,ConMId,ConSId,FROMCPMID,BuyConNo,Z_Number,max(ConDate) as ConDate,max(DlyDate) as DlyDate ');
SQL.add(',C_Code,C_Name,Y_Code,Y_Name, Y_Composition');
sql.add(',Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty ') ;
SQL.Add('from V_HT_SX GROUP BY ConNo,ConMId,ConSId,FROMCPMID,BuyConNo,Z_Number,C_Code,C_Name,Y_Code,Y_Name,Y_Composition,Y_Color,TestDenier,Z_Number,FF,ND');
SQL.Add('from V_HT_SX GROUP BY YRType,ConNo,ConMId,ConSId,FROMCPMID,BuyConNo,Z_Number,C_Code,C_Name,Y_Code,Y_Name,Y_Composition,Y_Color,TestDenier,Z_Number,FF,ND');
// showmessage(sql.Text);
Open;
end;

2
A01基础公司管理/Company.dproj
View File

@ -79,7 +79,7 @@
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\testDll.exe</Debugger_HostApplication>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup>
<ItemGroup>

82
A01基础公司管理/Company.dproj.local
View File

@ -1,45 +1,45 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>2025/09/16 11:02:56.000.629,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\U_SupplierImport.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.629,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\U_SupplierImport.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -91,10 +91,10 @@
<File Path="U_CustInput.dfm"/>
<File Path="U_Customer.pas"/>
<File Path="U_Customer.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_Factory.pas"/>
<File Path="U_Factory.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_FactoryInput.pas"/>
<File Path="U_FactoryInput.dfm"/>
<File Path="U_GetDllForm.pas"/>

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

50
A01基础公司管理/U_Factory.dfm
View File

@ -61,16 +61,24 @@ inherited frmFactory: TfrmFactory
ImageIndex = 3
OnClick = btnEditClick
end
object TBDel: TToolButton
object TbLook: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 8
OnClick = TbLookClick
end
object TBDel: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object btnChk: TToolButton
Left = 355
Left = 426
Top = 0
AutoSize = True
Caption = #23457#26680
@ -78,15 +86,23 @@ inherited frmFactory: TfrmFactory
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 426
Left = 497
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = btnReChkClick
end
object ToolButton4: TToolButton
Left = 600
Top = 0
AutoSize = True
Caption = #35843#25972#36134#26399
ImageIndex = 3
OnClick = ToolButton4Click
end
object ToolButton8: TToolButton
Left = 529
Left = 703
Top = 0
AutoSize = True
Caption = #38468#20214
@ -94,7 +110,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton8Click
end
object ToolButton1: TToolButton
Left = 600
Left = 774
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -102,7 +118,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 703
Left = 877
Top = 0
AutoSize = True
Caption = #23548#20837
@ -110,7 +126,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 774
Left = 948
Top = 0
AutoSize = True
Caption = #23548#20986
@ -118,7 +134,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 845
Left = 1019
Top = 0
AutoSize = True
Caption = #20851#38381
@ -199,9 +215,14 @@ inherited frmFactory: TfrmFactory
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.GroupByBox = False
object Tv1ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object v2Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'CoCode'
@ -300,6 +321,13 @@ inherited frmFactory: TfrmFactory
Options.Editing = False
Width = 120
end
object Tv1BillCycle: TcxGridDBColumn
Caption = #36134#26399
DataBinding.FieldName = 'BillCycle'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column6: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'ShuiNo'
@ -417,7 +445,7 @@ inherited frmFactory: TfrmFactory
TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.TabIndex = 1
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680

79
A01基础公司管理/U_Factory.pas
View File

@ -72,6 +72,10 @@ type
Tv1Column7: TcxGridDBColumn;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
TbLook: TToolButton;
Tv1BillCycle: TcxGridDBColumn;
ToolButton4: TToolButton;
Tv1ssel: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -95,6 +99,8 @@ type
procedure CoCodePropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure TbLookClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -109,7 +115,8 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_FactoryInput, U_UserSel, U_AttachmentUpload,U_SupplierImport;
U_DataLink, U_RTFun, U_ZDYHelp, U_FactoryInput, U_UserSel, U_AttachmentUpload,
U_SupplierImport;
{$R *.dfm}
@ -304,6 +311,56 @@ begin
TcxGridToExcel(self.Caption, cxGrid1);
end;
procedure TfrmFactory.ToolButton4Click(Sender: TObject);
var
InputStr: string;
InputNumber: Integer;
topIndex : Integer;
begin
inherited;
topIndex := tv1.Controller.TopRowIndex;
// 弹出输入框，用户点击确定后InputStr保存输入的内容
if InputQuery('数据输入', '请输入账期：', InputStr) then
begin
// 先检查输入是否为空
if Trim(InputStr) = '' then
begin
ShowMessage('账期不能为空！');
Exit;
end;
// 检查是否为有效数字
if not TryStrToInt(Trim(InputStr), InputNumber) then
begin
ShowMessage('请输入正确的数字格式！');
Exit;
end;
// 验证通过，开始处理数据
CDS_1.First;
Tv1.BeginUpdate();
while not CDS_1.Eof do
begin
if (CDS_1.FieldByName('CoID').AsString <> '') and CDS_1.FieldByName('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('update Bs_Company set BillCycle = ' + QuotedStr(Trim(InputStr)) + ' where COID = ' + QuotedStr(Trim(CDS_1.FieldByName('CoID').AsString)));
ExecSQL;
end;
end;
CDS_1.Next;
end;
Tv1.endUpdate();
InitGrid();
tv1.Controller.TopRowIndex := topIndex;
ShowMessage('账期更新完成！');
end;
end;
procedure TfrmFactory.CoCodeChange(Sender: TObject);
begin
if ADOQueryMain.Active then
@ -429,6 +486,26 @@ begin
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmFactory.TbLookClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
frmFactoryInput := TfrmFactoryInput.Create(Application);
with frmFactoryInput do
begin
TbSave.Visible := False;
FCOID := Trim(Self.CDS_1.fieldbyname('COID').AsString);
// CoCode.ReadOnly:=True;
if ShowModal = 1 then
begin
end;
end;
finally
frmFactoryInput.Free;
end;
end;
procedure TfrmFactory.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQueryTemp do

6
A01基础公司管理/U_FactoryInput.dfm
View File

@ -31,13 +31,13 @@ inherited frmFactoryInput: TfrmFactoryInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
object TbSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton3Click
OnClick = TbSaveClick
end
object ToolButton2: TToolButton
Left = 71
@ -290,7 +290,7 @@ inherited frmFactoryInput: TfrmFactoryInput
object BillCycle: TcxTextEdit
Tag = 2
Left = 94
Top = 262
Top = 264
TabOrder = 13
Width = 99
end

6
A01基础公司管理/U_FactoryInput.pas
View File

@ -24,7 +24,7 @@ type
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ToolButton3: TToolButton;
TbSave: TToolButton;
CDS_LXR: TClientDataSet;
DSLXR: TDataSource;
ScrollBox1: TScrollBox;
@ -77,7 +77,7 @@ type
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@ -406,7 +406,7 @@ begin
end;
end;
procedure TfrmFactoryInput.ToolButton3Click(Sender: TObject);
procedure TfrmFactoryInput.TbSaveClick(Sender: TObject);
begin
// if Trim(CoAbbrName.Text) = '' then

BIN
A01基础公司管理/testDll.res
View File

Binary file not shown.

70
A09财务通用管理/Financial.dproj.local
View File

@ -1,62 +1,62 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2026-02-04 15:48:47.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>2026-02-05 12:06:10.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

46
A09财务通用管理/U_ExpenseInput.dfm
View File

@ -2,8 +2,8 @@ object frmExpenseInput: TfrmExpenseInput
Left = 261
Top = 149
Caption = #36153#29992#30331#35760
ClientHeight = 524
ClientWidth = 1014
ClientHeight = 551
ClientWidth = 1194
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmExpenseInput: TfrmExpenseInput
Tag = 1
Left = 0
Top = 0
Width = 1014
Width = 1194
Height = 38
AutoSize = True
ButtonHeight = 38
@ -54,8 +54,8 @@ object frmExpenseInput: TfrmExpenseInput
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 1014
Height = 486
Width = 1194
Height = 513
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
@ -164,6 +164,13 @@ object frmExpenseInput: TfrmExpenseInput
Height = 21
Caption = #38134#34892#27700#21333#32534#30721
end
object Label15: TLabel
Left = 787
Top = 36
Width = 48
Height = 21
Caption = #21457#31080#21495
end
object FinanceNote: TMemo
Tag = 2
Left = 168
@ -199,7 +206,7 @@ object frmExpenseInput: TfrmExpenseInput
Text = 'CNY'
Width = 66
end
object TaxNumber: TcxTextEdit
object oppShuiNo: TcxTextEdit
Tag = 2
Left = 541
Top = 189
@ -315,21 +322,19 @@ object frmExpenseInput: TfrmExpenseInput
Width = 200
end
object Panel1: TPanel
Left = 542
Top = 224
Width = 428
Height = 201
Left = 656
Top = 275
Width = 314
Height = 150
TabOrder = 15
Visible = False
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 426
Height = 199
Width = 312
Height = 148
Align = alClient
TabOrder = 0
ExplicitLeft = 0
ExplicitTop = 0
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@ -377,6 +382,19 @@ object frmExpenseInput: TfrmExpenseInput
end
end
end
object IVNo: TcxButtonEdit
Tag = 2
Left = 841
Top = 33
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
TabOrder = 16
Width = 200
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink

105
A09财务通用管理/U_ExpenseInput.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters, dxCore, cxDateUtils,
dxScrollbarAnnotations, Vcl.Menus,Clipbrd;
dxScrollbarAnnotations, Vcl.Menus, Clipbrd;
type
TfrmExpenseInput = class(TForm)
@ -31,7 +31,6 @@ type
ReimburseType: TcxButtonEdit;
Label1: TLabel;
Currency: TcxComboBox;
TaxNumber: TcxTextEdit;
Label2: TLabel;
Label3: TLabel;
OppBankCardNo: TcxTextEdit;
@ -68,6 +67,9 @@ type
PM_1: TPopupMenu;
GPM_1: TcxGridPopupMenu;
N1: TMenuItem;
Label15: TLabel;
IVNo: TcxButtonEdit;
oppShuiNo: TcxTextEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -87,15 +89,16 @@ type
procedure Tv1DblClick(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
procedure InitGrid2();
public
{ Public declarations }
FFFID: string;
FoppShuiNoChange: string;
end;
var
@ -105,7 +108,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel,
U_FinTradeSalesContractSel, U_ZDYBankSel;
U_FinTradeSalesContractSel, U_ZDYBankSel, U_InvoiceSel;
{$R *.dfm}
@ -148,7 +151,7 @@ begin
sql.Clear;
sql.Add('select A.* from BS_Company A where 1=1 ');
sql.Add(' and A.CoType=''供应商'' ');
SQL.Add(' and ShuiNo like ''%' + TaxNumber.Text + '%'' ');
SQL.Add(' and ShuiNo like ''%' + oppShuiNo.Text + '%'' ');
Open;
end;
@ -171,7 +174,7 @@ var
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
FWZ := Pos('/', fsj); //先英文再中文
try
frmZDYBankSel := TfrmZDYBankSel.Create(Application);
with frmZDYBankSel do
@ -218,11 +221,12 @@ begin
FCoType := '供应商';
if ShowModal = 1 then
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
TaxNumber.Text := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
OppBankCardNo.Text := Trim(CDS_1.fieldbyname('BankNo').AsString);
OppCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
oppShuiNo.Text := Trim(frmCompanySel.CDS_1.fieldbyname('ShuiNo').AsString);
OppBankName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('BankName').AsString);
OppBankCardNo.Text := Trim(frmCompanySel.CDS_1.fieldbyname('BankNo').AsString);
end;
end;
@ -238,7 +242,7 @@ var
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
FWZ := Pos('/', fsj); //先英文再中文
try
frmZDYBankSel := TfrmZDYBankSel.Create(Application);
with frmZDYBankSel do
@ -298,7 +302,7 @@ var
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
FWZ := Pos('/', fsj); //先英文再中文
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
@ -322,7 +326,7 @@ var
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);//先英文再中文
FWZ := Pos('/', fsj); //先英文再中文
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
@ -401,9 +405,7 @@ begin
if CaretPos > 0 then
begin
// 计算添加逗号后的光标位置偏移
CaretPos := Length(TextBeforeCaret) +
(StringReplace(Copy(Amount.Text, 1, Length(TextBeforeCaret)), ',', '', [rfReplaceAll])
.Length - TextBeforeCaret.Length);
CaretPos := Length(TextBeforeCaret) + (StringReplace(Copy(Amount.Text, 1, Length(TextBeforeCaret)), ',', '', [rfReplaceAll]).Length - TextBeforeCaret.Length);
if CaretPos <= Length(Amount.Text) then
Amount.SelStart := CaretPos;
end;
@ -413,6 +415,61 @@ begin
end;
end;
procedure TfrmExpenseInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmInvoiceSel := TfrmInvoiceSel.Create(Application);
with frmInvoiceSel do
begin
if ShowModal = 1 then
begin
FoppShuiNoChange := '0';
Self.IVNo.Text := '';
Self.IVNo.Properties.LookupItems.Text := '';
Self.Amount.Text := '0';
while CDS_Invoice.Locate('SSel', true, []) do
begin
with frmInvoiceSel.CDS_Invoice do
begin
if Self.IVNo.Text = '' then
begin
Self.IVNo.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString;
Self.IVNo.Properties.LookupItems.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString;
Self.Amount.Text := frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').AsString;
end
else
begin
Self.IVNo.Text := Trim(Self.IVNo.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString);
Self.IVNo.Properties.LookupItems.Text := trim(Self.IVNo.Properties.LookupItems.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString);
Self.Amount.Text := FloatToStr(strtofloatdef(Self.Amount.Text, 0) + frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').asfloat);
end;
Self.OppCoName.Text := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
Self.OppCoName.Properties.LookupItems.Text := frmInvoiceSel.CDS_Invoice.FieldByName('CoCode').AsString;
Self.oppShuiNo.Text := trim(frmInvoiceSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString);
Self.Currency.Text := frmInvoiceSel.CDS_Invoice.FieldByName('Currency').AsString;
Self.OppBankName.text := frmInvoiceSel.CDS_Invoice.FieldByName('BankName').AsString;
Self.OppBankCardNo.text := frmInvoiceSel.CDS_Invoice.FieldByName('BankNo').AsString;
OurBankName.Text := Trim(frmInvoiceSel.CDS_Invoice.fieldbyname('BankDeposit').AsString);
OurBankCardNo.Text := Trim(frmInvoiceSel.CDS_Invoice.fieldbyname('BankCardNo').AsString);
end;
CDS_Invoice.Delete;
end;
FoppShuiNoChange := '1';
end;
end;
finally
frmInvoiceSel.Free;
end;
end;
procedure TfrmExpenseInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
@ -421,8 +478,12 @@ end;
procedure TfrmExpenseInput.TaxNumberPropertiesChange(Sender: TObject);
begin
InitGrid2();
Panel1.Visible := True;
if FoppShuiNoChange <> '0' then
begin
InitGrid2();
Panel1.Visible := True;
end;
end;
procedure TfrmExpenseInput.TBCloseClick(Sender: TObject);
@ -494,7 +555,9 @@ begin
// FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
// FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode);
// FieldByName('FFID').Value := Trim(MaxId);
FieldByName('OppCoNo').Value := OppCoName.Properties.LookupItems.Text;
FieldByName('OppCoNo').Value := trim(OppCoName.Properties.LookupItems.Text);
FieldByName('IVID').Value := trim(IVNO.Properties.LookupItems.Text);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2);
Post;
end;
@ -539,7 +602,7 @@ procedure TfrmExpenseInput.Tv1DblClick(Sender: TObject);
begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
TaxNumber.Text := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
oppShuiNo.Text := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
OppBankCardNo.Text := Trim(CDS_1.fieldbyname('BankNo').AsString);

44
A09财务通用管理/U_ExpenseList.dfm
View File

@ -108,16 +108,24 @@ inherited frmExpenseList: TfrmExpenseList
ImageIndex = 11
OnClick = TbnRePayClick
end
object ToolButton9: TToolButton
object TbFP: TToolButton
Left = 842
Top = 0
AutoSize = True
Caption = #20851#32852#21457#31080
ImageIndex = 52
OnClick = TbFPClick
end
object ToolButton9: TToolButton
Left = 945
Top = 0
AutoSize = True
Caption = #38468#20214#19978#20256
ImageIndex = 22
OnClick = ToolButton9Click
end
object ToolButton4: TToolButton
Left = 945
Left = 1048
Top = 0
AutoSize = True
Caption = #23548#20986
@ -125,7 +133,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton4Click
end
object TbPrint: TToolButton
Left = 1016
Left = 1119
Top = 0
AutoSize = True
Caption = #25171#21360
@ -133,7 +141,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbPrintClick
end
object ToolButton5: TToolButton
Left = 1087
Left = 1190
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -141,7 +149,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 1190
Left = 1293
Top = 0
AutoSize = True
Caption = #20851#38381
@ -160,7 +168,6 @@ inherited frmExpenseList: TfrmExpenseList
Color = clWhite
ParentBackground = False
TabOrder = 5
ExplicitTop = 24
object Label3: TLabel
Left = 218
Top = 6
@ -288,7 +295,6 @@ inherited frmExpenseList: TfrmExpenseList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 130
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -411,7 +417,7 @@ inherited frmExpenseList: TfrmExpenseList
end
object Tv1TaxNumber: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'TaxNumber'
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@ -512,6 +518,27 @@ inherited frmExpenseList: TfrmExpenseList
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column1: TcxGridDBColumn
Caption = #23457#26680#20154'2'
DataBinding.FieldName = 'Chker2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column2: TcxGridDBColumn
Caption = #23457#26680#26102#38388'2'
DataBinding.FieldName = 'Chktime2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1IVNo: TcxGridDBColumn
Caption = #21457#31080#21495
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FJFlag: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
@ -543,7 +570,6 @@ inherited frmExpenseList: TfrmExpenseList
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ExplicitTop = 94
ClientRectRight = 0
ClientRectTop = 0
end

80
A09财务通用管理/U_ExpenseList.pas
View File

@ -90,6 +90,10 @@ type
Tv1Use: TcxGridDBColumn;
btnChk2: TToolButton;
btnReChk2: TToolButton;
Tv1IVNo: TcxGridDBColumn;
TbFP: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -114,6 +118,7 @@ type
procedure TbPrintClick(Sender: TObject);
procedure btnChk2Click(Sender: TObject);
procedure btnReChk2Click(Sender: TObject);
procedure TbFPClick(Sender: TObject);
private
procedure InitGrid();
procedure SetStatus();
@ -125,7 +130,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ExpenseInput, U_ZDYHelp, U_AttachmentUpload,
U_LabelPrint;
U_LabelPrint, U_InvoiceSel, U_FKandFPUpload;
{$R *.dfm}
procedure TfrmExpenseList.SetStatus();
@ -142,15 +147,21 @@ begin
btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除
TbFP.Enabled := False;
if Trim(FAuthority) = '审核' then
begin
btnAdd.Enabled := true;
cxTabControl1.Tabs[2].Visible := False;
cxTabControl1.Tabs[3].Visible := False;
// cxTabControl1.Tabs[0].caption := 'aa';
case cxTabControl1.TabIndex of
0:
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
btnChk.Enabled := true;
TbFP.Enabled := true;
end;
1:
begin
@ -172,12 +183,15 @@ begin
if Trim(FAuthority) = '审核2' then
begin
btnAdd.Enabled := true;
cxTabControl1.Tabs[0].Visible := False;
cxTabControl1.Tabs[3].Visible := False;
case cxTabControl1.TabIndex of
0:
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
// btnChk.Enabled := true;
TbFP.Enabled := true;
end;
1:
begin
@ -198,12 +212,17 @@ begin
if Trim(FAuthority) = '付款' then
begin
cxTabControl1.Tabs[0].Visible := False;
cxTabControl1.Tabs[1].Visible := False;
cxTabControl1.Tabs[2].caption := '未付款';
btnAdd.Enabled := true;
case cxTabControl1.TabIndex of
0:
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
TbFP.Enabled := true;
// btnChk.Enabled := true;
end;
1:
@ -231,6 +250,7 @@ begin
begin
btnEdit.Enabled := true;
btnDel.Enabled := true;
TbFP.Enabled := true;
end;
1:
begin
@ -329,6 +349,50 @@ begin
Close;
end;
procedure TfrmExpenseList.TbFPClick(Sender: TObject);
begin
if CDS_1.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据', '提示信息', MB_OK);
Exit;
end;
try
CDS_1.Locate('ssel', True, []);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add(' select * from Finance_Flow where FFID = ' + QuotedStr(Trim(CDS_1.fieldByName('FFID').AsString)));
Open;
end;
frmInvoiceSel := TfrmInvoiceSel.Create(Application);
with frmInvoiceSel do
begin
if ShowModal = 1 then
begin
with frmInvoiceSel.CDS_Invoice do
begin
self.ADOQueryCmd.Edit;
self.ADOQueryCmd.FieldByName('IVNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString;
self.ADOQueryCmd.FieldByName('IVID').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString;
self.ADOQueryCmd.FieldByName('OppCoName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
self.ADOQueryCmd.FieldByName('OppCoNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
self.ADOQueryCmd.FieldByName('oppShuiNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString;
self.ADOQueryCmd.FieldByName('Amount').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Amount').AsString;
self.ADOQueryCmd.FieldByName('OppBankName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankName').AsString;
self.ADOQueryCmd.FieldByName('OppBankCardNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankNo').AsString;
self.ADOQueryCmd.Post;
end;
end;
end;
finally
frmInvoiceSel.Free;
end;
end;
procedure TfrmExpenseList.TbnPayClick(Sender: TObject);
var
FFFIDS: string;
@ -430,7 +494,6 @@ begin
// 显示选择的日期和银行水单编码（调试用）
// ShowMessage('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode);
// 这里可以添加审核确认
if application.MessageBox(PChar('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode + #13#10 + '确认付款吗？'), '确认付款', MB_YESNO + MB_ICONQUESTION) = IDYES then
begin
@ -819,7 +882,12 @@ begin
Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date - 30;
FAuthority := self.fParameters1;
if FAuthority = '付款' then
begin
cxTabControl1.TabIndex := 2;
end;
SetStatus();
InitGrid();
end;
@ -1199,20 +1267,22 @@ begin
if CDS_1.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
frmFKandFPUpload := TfrmFKandFPUpload.Create(Application);
with frmFKandFPUpload do
begin
if Trim(Self.CDS_1.fieldbyname('filler').AsString) = dname then
FEditAuthority := True;
fkeyNO := Trim(Self.CDS_1.fieldbyname('FFID').AsString);
fkeyNO2 := Trim(Self.CDS_1.fieldbyname('IVID').AsString);
fType := '费用登记';
fType2 := '进项发票';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
frmFKandFPUpload.Free;
end;
end;

9614
A09财务通用管理/U_FKandFPUpload.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

407
A09财务通用管理/U_FKandFPUpload.pas Normal file
View File

@ -0,0 +1,407 @@
unit U_FKandFPUpload;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons,
DB, ADODB, ImgList, shellapi, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxLookAndFeels, cxNavigator, dxDateRanges,
IdExplicitTLSClientServerBase, System.ImageList, U_BaseHelp, Vcl.ToolWin,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmFKandFPUpload = class(TfrmBaseHelp)
ListView1: TListView;
ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel2: TPanel;
IdFTP1: TIdFTP;
ADOConnection1: TADOConnection;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
DataSource1: TDataSource;
v1Column4: TcxGridDBColumn;
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBClose: TToolButton;
TBDel: TToolButton;
btnDown: TToolButton;
ImageList1: TImageList;
cxImageList_bar: TcxImageList;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel2DblClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure btnDownClick(Sender: TObject);
private
procedure InitData();
{ Private declarations }
public
fkeyNO: string;
fType: string;
fkeyNO2: string;
fType2: string;
fId: integer;
FEditAuthority: Boolean;
{ Public declarations }
end;
var
frmFKandFPUpload: TfrmFKandFPUpload;
implementation
uses
U_DataLink, U_RTFun, U_CompressionFun;
{$R *.dfm}
procedure TfrmFKandFPUpload.InitData();
var
ListItem: TListItem;
Flag: Cardinal;
info: SHFILEINFOA;
Icon: TIcon;
begin
ListView1.Items.Clear;
try
with adoqueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from FJ_File ');
sql.Add('where (WBID=' + quotedstr(trim(fkeyNO)));
sql.Add('and TFType=' + quotedstr(trim(fType)) + ')');
sql.Add('or (WBID=' + quotedstr(trim(fkeyNO2)));
sql.Add('and TFType=' + quotedstr(trim(fType2)) + ')');
// ShowMessage(SQL.Text);
open;
end;
except
end;
end;
procedure TfrmFKandFPUpload.FormDestroy(Sender: TObject);
begin
frmFKandFPUpload := nil;
end;
procedure TfrmFKandFPUpload.FormCreate(Sender: TObject);
begin
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmFKandFPUpload.FormShow(Sender: TObject);
begin
// if FEditAuthority then
// begin
// btnDown.Visible := True;
// TBDel.Visible := True;
// TBAdd.Visible := True;
// end
// else
// begin
// btnDown.Visible := false;
// TBDel.Visible := false;
// TBAdd.Visible := false;
// end;
initdata();
end;
procedure TfrmFKandFPUpload.ListView1DblClick(Sender: TObject);
var
sFieldName: string;
fileName: string;
begin
if ListView1.Items.Count < 1 then
EXIT;
if listView1.SelCount < 1 then
exit;
sFieldName := 'D:\附件查看';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName), nil);
fileName := ListView1.Selected.Caption;
sFieldName := sFieldName + '\' + trim(fileName);
try
IdFTP1.Host := PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption := '正在下载数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\' + Trim(fileName), sFieldName, false, true);
except
Panel2.Visible := false;
Application.MessageBox('附件文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible := false;
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible := false;
if IdFTP1.Connected then
IdFTP1.Quit;
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end;
procedure TfrmFKandFPUpload.btnDownClick(Sender: TObject);
var
SaveDialog: TSaveDialog;
fFileName: string;
fFilePath: string;
ff: TADOBlobStream;
FJStream: TMemoryStream;
begin
if adoqueryTmp.IsEmpty then
exit;
try
fFileName := adoqueryTmp.fieldbyname('FileName').AsString;
SaveDialog := TSaveDialog.Create(Self);
SaveDialog.FileName := fFileName;
if SaveDialog.Execute then
begin
Panel2.Caption := '正在保存数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
fFilePath := SaveDialog.FileName;
try
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
FJStream := TMemoryStream.Create;
ff.SaveToStream(FJStream);
UnCompressionStream(FJStream);
FJStream.SaveToFile(fFilePath);
// ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
finally
FJStream.free;
ff.Free;
end;
Panel2.Visible := false;
// if IdFTP1.Connected then IdFTP1.Quit;
end;
except
Panel2.Visible := false;
end;
end;
procedure TfrmFKandFPUpload.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fId = 10 then
Action := cafree
else
Action := cahide;
end;
procedure TfrmFKandFPUpload.Panel2DblClick(Sender: TObject);
begin
Panel2.Visible := false;
end;
procedure TfrmFKandFPUpload.TBAddClick(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName: string;
fFilePath: string;
maxNo: string;
FJStream: TMemoryStream;
mfileSize: integer;
mCreationTime: TdateTime;
mWriteTime: TdateTime;
begin
try
adoqueryCmd.Connection.BeginTrans;
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath := OpenDiaLog.FileName;
fFileName := ExtractFileName(OpenDiaLog.FileName);
Panel2.Caption := '正在上传数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'FJ_File', 4, 1) = False then
begin
adoqueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
//获取文件信息
GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime);
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from FJ_File ');
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
execsql;
end;
try
FJStream := TMemoryStream.Create;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from FJ_File ');
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
open;
append;
fieldbyname('TFID').Value := trim(maxNo);
fieldbyname('WBID').Value := trim(fkeyNO);
fieldbyname('TFType').Value := trim(fType);
fieldbyname('Filler').Value := trim(DName);
fieldbyname('FileName').Value := trim(fFileName);
fieldbyname('TFDate').Value := mWriteTime;
FJStream.LoadFromFile(fFilePath);
CompressionStream(FJStream);
tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
post;
end;
Panel2.Visible := false;
initdata();
finally
FJStream.Free;
end;
end;
adoqueryCmd.Connection.CommitTrans;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('附件保存失败！', '提示信息', 0);
end;
end;
procedure TfrmFKandFPUpload.TBCloseClick(Sender: TObject);
begin
ADOQueryTmp.Close;
ADOQuerycmd.Close;
ListView1.Free;
ModalResult := 1;
end;
procedure TfrmFKandFPUpload.TBDelClick(Sender: TObject);
var
fFileName: string;
fFilePath: string;
begin
if ADOQueryTmp.IsEmpty then
exit;
if trim(ADOQueryTmp.fieldbyname('Filler').AsString) <> trim(DName) then
begin
Application.MessageBox('权限不足，上传账户可删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from FJ_File ');
sql.Add('where TFID=' + quotedstr(trim(ADOQueryTmp.fieldbyname('TFID').AsString)));
execsql;
end;
initData();
end;
procedure TfrmFKandFPUpload.TBRafreshClick(Sender: TObject);
begin
initData();
end;
procedure TfrmFKandFPUpload.Tv1DblClick(Sender: TObject);
var
sFieldName: string;
fileName: string;
ff: TADOBlobStream;
FJStream: TMemoryStream;
begin
if adoqueryTmp.IsEmpty then
exit;
sFieldName := 'D:\附件查看';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName), nil);
fileName := adoqueryTmp.fieldbyname('FileName').AsString;
sFieldName := sFieldName + '\' + trim(fileName);
try
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
FJStream := TMemoryStream.Create;
ff.SaveToStream(FJStream);
UnCompressionStream(FJStream);
FJStream.SaveToFile(sFieldName);
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
finally
FJStream.free;
ff.Free;
end;
end;
end.

70
A09财务通用管理/U_FtyStatement.dfm
View File

@ -66,6 +66,7 @@ inherited frmFtyStatement: TfrmFtyStatement
AutoSize = True
Caption = #24212#20184#26126#32454#21333
ImageIndex = 21
Visible = False
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
@ -104,6 +105,7 @@ inherited frmFtyStatement: TfrmFtyStatement
Color = clWhite
ParentBackground = False
TabOrder = 5
ExplicitTop = 36
object Label3: TLabel
Left = 400
Top = 13
@ -170,6 +172,7 @@ inherited frmFtyStatement: TfrmFtyStatement
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 111
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -253,11 +256,9 @@ inherited frmFtyStatement: TfrmFtyStatement
end
item
Kind = skSum
Column = Tv2Column1
end
item
Kind = skSum
Column = Tv2Column2
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -267,6 +268,13 @@ inherited frmFtyStatement: TfrmFtyStatement
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2Column3: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'oppshuino'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 150
end
object v2Column6: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
@ -281,8 +289,8 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #19978#26399#27424#27454
DataBinding.FieldName = 'SQJYAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 96
@ -291,8 +299,8 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #26412#26399#24212#20184
DataBinding.FieldName = 'BQYFAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 106
@ -301,8 +309,8 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #26412#26399#20184#27454
DataBinding.FieldName = 'BQFKAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 108
@ -311,42 +319,12 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #26412#26399#27424#27454
DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 104
end
object Tv2Column5: TcxGridDBColumn
Caption = #19978#26399#27424#31080
DataBinding.FieldName = 'SQWKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv2Column2: TcxGridDBColumn
Caption = #26412#26399#24320#31080
DataBinding.FieldName = 'BQYKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv2Column1: TcxGridDBColumn
Caption = #26412#26399#27424#31080
DataBinding.FieldName = 'BQWKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv2Column6: TcxGridDBColumn
Caption = #26412#26399#38656#24320#31080
DataBinding.FieldName = 'BQXKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
@ -361,17 +339,21 @@ inherited frmFtyStatement: TfrmFtyStatement
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 0
Properties.TabIndex = 1
Properties.Tabs.Strings = (
' $ '
' '#65509' '
' '#8364' ')
' USD '
' CNY '
' VND ')
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
inherited cxProgressBar2: TcxProgressBar
Left = 322
Top = 204
ExplicitLeft = 322
ExplicitTop = 204
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

21
A09财务通用管理/U_FtyStatement.pas
View File

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, cxPC, dxDateRanges,
U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, cxContainer, dxCore,
cxDateUtils, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxProgressBar;
dxBarBuiltInMenu, cxPC, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd,
DateUtils, cxContainer, dxCore, cxDateUtils, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, cxCurrencyEdit;
type
TfrmFtyStatement = class(TfrmBaseList)
@ -52,16 +51,13 @@ type
ToolButton1: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
Label2: TLabel;
begdate: TcxDateEdit;
Enddate: TcxDateEdit;
Label4: TLabel;
Tv2Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -94,6 +90,7 @@ uses
procedure TfrmFtyStatement.InitGrid();
begin
Panel1.SetFocus();
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
@ -115,10 +112,10 @@ begin
end;
2:
begin
sql.Add(' ,@Currency=''EUR'' ');
sql.Add(' ,@Currency=''VND'' ');
end;
end;
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
@ -195,7 +192,7 @@ begin
begdate.Date := self.begdate.Date;
enddate.Date := self.Enddate.Date;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('oppshuino').AsString;
FZKType := Self.FZKType;
case cxTabControl1.TabIndex of
0:
@ -208,7 +205,7 @@ begin
end;
2:
begin
FCurrency := 'EUR';
FCurrency := 'VND';
end;
end;
show;

4
A09财务通用管理/U_GetDllForm.pas
View File

@ -79,7 +79,7 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1:='¹ÜÀí';
// Parameters1 := 'ÉóºË2';
// Parameters1 := '마운';
Parameters1 := '마운';
end
else
begin
@ -236,7 +236,7 @@ begin
end;
end;
311: //롤痰되션
311: //마운<EFBFBD>헝
begin
with TfrmExpenseList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin

40
A09财务通用管理/U_InvoiceInInPut.dfm
View File

@ -2,7 +2,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Left = 484
Top = 189
Caption = #36827#39033#21457#31080#24405#20837
ClientHeight = 504
ClientHeight = 631
ClientWidth = 1530
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -92,7 +92,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Left = 0
Top = 30
Width = 1530
Height = 474
Height = 601
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
@ -201,7 +201,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Properties.Items.Strings = (
'CNY'
'USD'
'EUR')
'EUR'
'VND')
HeaderAlignmentHorz = taCenter
Width = 85
end
@ -209,8 +210,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 93
end
@ -218,7 +219,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Caption = #24635#37329#39069#26410#21547#31246
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 111
@ -227,12 +229,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Caption = #31246#37329
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 65
@ -241,8 +239,8 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 114
end
@ -260,6 +258,20 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
HeaderAlignmentHorz = taCenter
Width = 120
end
object Tv1OurCoNo: TcxGridDBColumn
Caption = #25105#26041#21333#20301#32534#21495
DataBinding.FieldName = 'OurCoNo'
DataBinding.IsNullValueType = True
Visible = False
Width = 80
end
object Tv1SupplierNo: TcxGridDBColumn
Caption = #20379#24212#21830#32534#21495
DataBinding.FieldName = 'SupplierNo'
DataBinding.IsNullValueType = True
Visible = False
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1

122
A09财务通用管理/U_InvoiceInInPut.pas
View File

@ -11,7 +11,7 @@ uses
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations;
dxScrollbarAnnotations, cxCurrencyEdit;
type
TfrmInvoiceInInPut = class(TForm)
@ -46,6 +46,8 @@ type
Tv1BillCycle: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1fromFlow: TcxGridDBColumn;
Tv1OurCoNo: TcxGridDBColumn;
Tv1SupplierNo: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject);
@ -68,7 +70,7 @@ type
procedure ToolButton5Click(Sender: TObject);
private
procedure initGrid();
procedure SaveDate();
function SaveDate(): Boolean;
procedure SaveFlowInvoice();
{ Private declarations }
public
@ -149,7 +151,7 @@ begin
SQL.Text := 'exec P_InsertFinanceFlowInvoice @IVID = :IVID, @fffIDs = :fffIDs';
Parameters.ParamByName('IVID').Value := Trim(CDS_Invoice.FieldByName('IVID').AsString);
Parameters.ParamByName('fffIDs').Value := Trim(CDS_Invoice.FieldByName('fromFlow').AsString);
ShowMessage(sql.Text);
// ShowMessage(sql.Text);
ExecSQL;
end;
end;
@ -167,7 +169,7 @@ begin
end;
end;
procedure TfrmInvoiceInInPut.SaveDate();
function TfrmInvoiceInInPut.SaveDate(): Boolean;
var
MaxNo: string;
begin
@ -213,21 +215,67 @@ begin
// ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').AsString);
// ADOQueryCmd.fieldbyname('OppParentCoNo').Value := trim(CDS_Invoice.FieldByName('OppParentCoNo').AsString);
ADOQueryCmd.FieldByName('SupplierShuiNo').Value := Trim(CDS_Invoice.fieldbyname('SupplierShuiNo').AsString);
ADOQueryCmd.FieldByName('SupplierNo').Value := Trim(CDS_Invoice.fieldbyname('SupplierNo').AsString);
ADOQueryCmd.fieldbyname('OurCoNo').Value := trim(CDS_Invoice.FieldByName('OurCoNo').AsString);
// ADOQueryCmd.fieldbyname('PayDate').Value := trim(CDS_Invoice.FieldByName('PayDate').AsString);
ADOQueryCmd.Post;
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('IVId').Value := MaxNo;
CDS_Invoice.Post;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET NoTaxPrice =' + (Trim(CDS_Invoice.FieldByName('PRICE').AsString)));
SQL.Add(',Currency=' + QuotedStr(Trim(CDS_Invoice.FieldByName('Currency').AsString)));
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(CDS_Invoice.FieldByName('fromFlow').AsString) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET NoTaxInclude=NoTaxPrice*QTY ');
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(CDS_Invoice.FieldByName('fromFlow').AsString) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET Tax=NoTaxInclude*TaxRate/100 ');
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(CDS_Invoice.FieldByName('fromFlow').AsString) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET TaxInclude=NoTaxInclude+Tax ');
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(CDS_Invoice.FieldByName('fromFlow').AsString) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('保存成功！', '提示');
Result := True;
except
Result := false;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
@ -275,15 +323,38 @@ begin
application.MessageBox('发票号不能为空', '提示');
exit;
end;
if CDS_Invoice.Locate('IVDate', null, []) then
begin
application.MessageBox('发票日期不能为空', '提示');
exit;
end;
if CDS_Invoice.Locate('OurCoName', null, []) then
begin
application.MessageBox('我方单位不能为空', '提示');
exit;
end;
if not CDS_Invoice.FieldByName('IVDate').isnull then
begin
if CDS_Invoice.FieldByName('BillCycle').asstring <> '' then
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('PayDate').AsDateTime := CDS_Invoice.FieldByName('IVDate').AsDateTime + StrToIntDef(Trim(CDS_Invoice.FieldByName('BillCycle').AsString), 0);
CDS_Invoice.Post;
end
else
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('PayDate').Value := CDS_Invoice.FieldByName('IVDate').Value;
CDS_Invoice.Post;
end;
end;
if SaveDate() then
begin
SaveFlowInvoice();
Modalresult := 1;
end;
SaveDate();
SaveFlowInvoice();
Modalresult := 1;
end;
procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -431,7 +502,7 @@ begin
end;
mTaxAmount := RoundFloat(mAmount + mTaxFee, 2);
mTaxAmount := RoundFloat(mAmount + mTaxFee, 3);
with CDS_Invoice do
begin
@ -558,11 +629,11 @@ begin
if ShowModal = 1 then
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('Supplier').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
CDS_Invoice.FieldByName('SupplierShuiNo').Value := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
CDS_Invoice.FieldByName('SupplierNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
CDS_Invoice.FieldByName('Supplier').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
CDS_Invoice.FieldByName('SupplierShuiNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('ShuiNo').AsString);
CDS_Invoice.FieldByName('SupplierNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
CDS_Invoice.FieldByName('BillCycle').Value := Trim(CDS_1.fieldbyname('BillCycle').AsString);
CDS_Invoice.FieldByName('BillCycle').Value := Trim(frmCompanySel.CDS_1.fieldbyname('BillCycle').AsString);
CDS_Invoice.Post;
end;
end;
@ -585,6 +656,11 @@ begin
CDS_Invoice.FieldByName('Price').Value := 0;
CDS_Invoice.FieldByName('tax').Value := 13;
CDS_Invoice.FieldByName('Currency').Value := 'CNY';
Self.CDS_Invoice.FieldByName('OurCoName').value := 'DESHINE VIETNAM CO., LTD';
Self.CDS_Invoice.FieldByName('OurCoNo').value := 'W0001';
Self.CDS_Invoice.FieldByName('OurShuiNo').value := '1102083046';
CDS_Invoice.Post;
end;
@ -683,6 +759,11 @@ begin
// CDS_Invoice.fieldbyname('OurCoName').Value := '圆中圆';
// CDS_Invoice.FieldByName('Currency').Value := 'CNY';
Post;
if CDS_Invoice.FieldByName('IVNo').AsString = '' then
begin
CDS_Invoice.Delete;
end;
end;
end;
WorkBook.Close;
@ -716,11 +797,18 @@ begin
Self.CDS_Invoice.FieldByName('Supplier').value := frmPayableSel.CDS_1.FieldByName('OppCoName').AsString;
Self.CDS_Invoice.FieldByName('SupplierNo').value := frmPayableSel.CDS_1.FieldByName('OppCoNo').AsString;
Self.CDS_Invoice.FieldByName('SupplierShuiNo').value := frmPayableSel.CDS_1.FieldByName('oppShuiNo').AsString;
Self.CDS_Invoice.FieldByName('OurCoName').value := frmPayableSel.CDS_1.FieldByName('OurCoName').AsString;
Self.CDS_Invoice.FieldByName('OurCoNo').value := frmPayableSel.CDS_1.FieldByName('OurCoNo').AsString;
Self.CDS_Invoice.FieldByName('OurShuiNo').value := frmPayableSel.CDS_1.FieldByName('ourShuiNo').AsString;
// Self.CDS_Invoice.FieldByName('OurCoName').value := frmPayableSel.CDS_1.FieldByName('OurCoName').AsString;
// Self.CDS_Invoice.FieldByName('OurCoNo').value := frmPayableSel.CDS_1.FieldByName('OurCoNo').AsString;
// Self.CDS_Invoice.FieldByName('OurShuiNo').value := frmPayableSel.CDS_1.FieldByName('ourShuiNo').AsString;
Self.CDS_Invoice.FieldByName('OurCoName').value := 'DESHINE VIETNAM CO., LTD';
Self.CDS_Invoice.FieldByName('OurCoNo').value := 'W0001';
Self.CDS_Invoice.FieldByName('OurShuiNo').value := '1102083046';
Self.CDS_Invoice.FieldByName('Currency').value := frmPayableSel.CDS_1.FieldByName('Currency').AsString;
Self.CDS_Invoice.FieldByName('BillCycle').value := frmPayableSel.CDS_1.FieldByName('BillCycle').AsString;
if frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString <> '' then
begin
Self.CDS_Invoice.FieldByName('Price').value := frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString;
@ -730,8 +818,6 @@ begin
Self.CDS_Invoice.FieldByName('Price').value := 0;
end;
Self.CDS_Invoice.FieldByName('Amount').value := frmPayableSel.FNoTaxInclude;
Self.CDS_Invoice.FieldByName('TaxFee').value := frmPayableSel.FTax;
Self.CDS_Invoice.FieldByName('TaxAmount').value := frmPayableSel.FTaxInclude;

39
A09财务通用管理/U_InvoiceInList.dfm
View File

@ -19,7 +19,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Financial.cxImageList_bar
@ -101,16 +101,23 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Visible = False
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
object TbYFK: TToolButton
Left = 671
Top = 0
Caption = #20851#32852#24212#20184#27454
ImageIndex = 52
OnClick = TbYFKClick
end
object ToolButton5: TToolButton
Left = 786
Top = 0
AutoSize = True
Caption = #38468#20214
ImageIndex = 22
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton
Left = 742
Left = 857
Top = 0
AutoSize = True
Caption = #23548#20986
@ -118,7 +125,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 813
Left = 928
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -126,7 +133,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 916
Left = 1031
Top = 0
AutoSize = True
Caption = #20851#38381
@ -370,8 +377,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 57
end
@ -379,6 +386,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Caption = #24635#37329#39069#26410#21547#31246
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 124
end
@ -386,6 +395,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Caption = #31246#37329
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 62
end
@ -393,8 +404,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 114
end
@ -414,6 +425,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
end
object Tv1Column2: TcxGridDBColumn
Caption = #23457#26680#29366#24577
DataBinding.FieldName = 'checkStatus'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
@ -423,7 +435,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
DataBinding.FieldName = 'Chker'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Width = 94
end
object Tv1Chktime: TcxGridDBColumn
Caption = #23457#26680#26102#38388
@ -432,14 +444,16 @@ inherited frmInvoiceInList: TfrmInvoiceInList
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column3: TcxGridDBColumn
object Tv1PayStatus: TcxGridDBColumn
Caption = #20184#27454#29366#24577
DataBinding.FieldName = 'PayStatus'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column4: TcxGridDBColumn
object Tv1PayTime: TcxGridDBColumn
Caption = #20184#27454#26085#26399
DataBinding.FieldName = 'PayTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
@ -465,7 +479,6 @@ inherited frmInvoiceInList: TfrmInvoiceInList
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ExplicitTop = 95
ClientRectBottom = 31
ClientRectRight = 1540
ClientRectTop = 31

184
A09财务通用管理/U_InvoiceInList.pas
View File

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, Vcl.Clipbrd, cxContainer,
dxCore, cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxProgressBar;
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, cxCurrencyEdit;
type
TfrmInvoiceInList = class(TfrmBaseList)
@ -85,8 +84,9 @@ type
Tv1Column2: TcxGridDBColumn;
Tv1Chker: TcxGridDBColumn;
Tv1Chktime: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1PayStatus: TcxGridDBColumn;
Tv1PayTime: TcxGridDBColumn;
TbYFK: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -110,6 +110,8 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure TbYFKClick(Sender: TObject);
procedure SaveFlowInvoice(const IVID, FFFIDs: string);
private
{ Private declarations }
@ -127,7 +129,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_LabelPrint,
U_AttachmentUpload;
U_AttachmentUpload, U_PayableSel;
{$R *.dfm}
@ -137,6 +139,7 @@ begin
tnochk.Visible := false;
TUPDATE.Visible := false;
tbdel.Visible := false;
// TbYFK.visible := False;
if trim(DParameters1) <> '高权限' then
begin
@ -146,6 +149,7 @@ begin
TUPDATE.Visible := true;
tbdel.Visible := true;
TCHK.Visible := true;
// TbYFK.visible := true;
end;
1:
begin
@ -166,6 +170,7 @@ begin
TUPDATE.Visible := true;
tbdel.Visible := true;
TCHK.Visible := true;
// TbYFK.visible := true;
end;
1:
begin
@ -189,7 +194,10 @@ begin
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''进项发票'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)');
sql.Add(',checkStatus=case when A.status = ''0'' then ''未审核'' else ''已审核'' end ');
sql.Add(',PayStatus=(select PayStatus from Finance_Flow X where X.IVID = A.IVID ) ');
// sql.Add(',PayTime=(select PayTime from Finance_Flow X where X.IVID = A.IVID ) ');
sql.Add(',PayTime=case when (select PayStatus from Finance_Flow X where X.IVID = A.IVID ) = ''未付款'' then null else (select PayTime from Finance_Flow X where X.IVID = A.IVID ) end ');
sql.Add(' from Finance_Invoice A ');
sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' ');
@ -250,6 +258,151 @@ begin
InitGrid();
end;
procedure TfrmInvoiceInList.TbYFKClick(Sender: TObject);
var
mIVId, mffIDS: string;
begin
if CDS_Invoice.Locate('ssel', True, []) = false then
begin
Application.MessageBox('请先选择数据', '提示信息', MB_OK);
Exit;
end;
try
CDS_Invoice.Locate('ssel', True, []);
mIVId := CDS_Invoice.fieldByName('IVId').AsString;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add(' select * from Finance_Invoice where IVId = ' + QuotedStr(Trim(mIVId)));
Open;
end;
frmPayableSel := TfrmPayableSel.Create(Application);
with frmPayableSel do
begin
if ShowModal = 1 then
begin
with frmPayableSel.CDS_1 do
begin
self.ADOQueryCmd.Edit;
// self.ADOQueryCmd.FieldByName('Supplier').AsString := frmPayableSel.CDS_1.FieldByName('OppCoName').AsString;
// self.ADOQueryCmd.FieldByName('SupplierNo').AsString := frmPayableSel.CDS_1.FieldByName('OppCoNo').AsString;
// self.ADOQueryCmd.FieldByName('SupplierShuiNo').AsString := frmPayableSel.CDS_1.FieldByName('oppShuiNo').AsString;
// self.ADOQueryCmd.FieldByName('OurCoName').AsString := frmPayableSel.CDS_1.FieldByName('OurCoName').AsString;
// self.ADOQueryCmd.FieldByName('OurCoNo').AsString := frmPayableSel.CDS_1.FieldByName('OurCoNo').AsString;
// self.ADOQueryCmd.FieldByName('OurShuiNo').AsString := frmPayableSel.CDS_1.FieldByName('ourShuiNo').AsString;
// self.ADOQueryCmd.FieldByName('Currency').AsString := frmPayableSel.CDS_1.FieldByName('Currency').AsString;
// self.ADOQueryCmd.FieldByName('BillCycle').AsString := frmPayableSel.CDS_1.FieldByName('BillCycle').AsString;
// if frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString <> '' then
// begin
// Self.ADOQueryCmd.FieldByName('Price').value := frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString;
// end
// else
// begin
// Self.ADOQueryCmd.FieldByName('Price').value := 0;
// end;
// Self.ADOQueryCmd.FieldByName('Amount').value := frmPayableSel.FNoTaxInclude;
// Self.ADOQueryCmd.FieldByName('TaxFee').value := frmPayableSel.FTax;
// Self.ADOQueryCmd.FieldByName('TaxAmount').value := frmPayableSel.FTaxInclude;
self.ADOQueryCmd.FieldByName('fromFlow').Value := frmPayableSel.FFFIDs;
mffIDS := frmPayableSel.FFFIDs;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET NoTaxPrice =' + (Trim(CDS_Invoice.FieldByName('PRICE').AsString)));
SQL.Add(',Currency=' + QuotedStr(Trim(CDS_Invoice.FieldByName('Currency').AsString)));
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(mffIDS) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET NoTaxInclude=NoTaxPrice*QTY ');
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(mffIDS) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET Tax=NoTaxInclude*TaxRate/100 ');
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(mffIDS) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.add('UPDATE Finance_FLOW SET TaxInclude=NoTaxInclude+Tax ');
sql.Add(' where EXISTS (select SP.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(mffIDS) + ','','') SP where SP.RTValue=Finance_FLOW.FFID )');
// SQL.ADD('AND ISNULL(STATUS,''0'')=''0''');
ExecSQL;
end;
self.ADOQueryCmd.Post;
end;
end;
end;
finally
frmPayableSel.Free;
SaveFlowInvoice(mIVId, mffIDS);
end;
end;
procedure TfrmInvoiceInList.SaveFlowInvoice(const IVID, fffIDS: string);
begin
if CDS_Invoice.IsEmpty then
Exit;
if fffIDS = '' then
Exit;
// 开始事务（假设使用ADO事务）
ADOQueryCmd.Connection.BeginTrans;
try
CDS_Invoice.DisableControls;
// 使用参数化查询
with ADOQueryCmd do
begin
Close;
SQL.Text := 'delete from Finance_FlowInvoice where IVID = :IVID';
Parameters.ParamByName('IVID').Value := Trim(IVID);
ExecSQL;
Close;
SQL.Text := 'exec P_InsertFinanceFlowInvoice @IVID = :IVID, @fffIDs = :fffIDs';
Parameters.ParamByName('IVID').Value := Trim(IVID);
Parameters.ParamByName('fffIDs').Value := Trim(fffIDS);
// ShowMessage(sql.Text);
ExecSQL;
end;
CDS_Invoice.EnableControls;
ADOQueryCmd.Connection.CommitTrans; // 提交事务
// ShowMessage('保存成功！');
except
ADOQueryCmd.Connection.RollbackTrans; // 出错回滚
raise; // 重新抛出异常
end;
end;
procedure TfrmInvoiceInList.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
@ -325,6 +478,8 @@ begin
end;
if application.MessageBox('确定要删除发票吗？', '提示', 1) = 2 then
exit;
ADOQueryCmd.Connection.BeginTrans;
with CDS_Invoice do
begin
DisableControls;
@ -362,8 +517,19 @@ begin
sql.add('and exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_Invoice.IVID )');
execsql;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('delete from Finance_FlowInvoice ');
sql.add('where exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_FlowInvoice.IVID )');
execsql;
end;
application.MessageBox('删除成功', '提示');
ADOQueryCmd.Connection.CommitTrans; // 提交事务
except
ADOQueryCmd.Connection.RollbackTrans; // 出错回滚
application.MessageBox('删除失败', '提示');
InitGrid();
end;
@ -548,7 +714,7 @@ begin
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
fkeyNO := Trim(Self.CDS_Invoice.fieldbyname('IVNo').AsString);
fkeyNO := Trim(Self.CDS_Invoice.fieldbyname('IVID').AsString);
fType := '进项发票';
FEditAuthority := True;
if ShowModal = 1 then

412
A09财务通用管理/U_InvoiceSel.dfm Normal file
View File

@ -0,0 +1,412 @@
object frmInvoiceSel: TfrmInvoiceSel
Left = 484
Top = 189
Caption = #36827#39033#21457#31080#36873#25321
ClientHeight = 504
ClientWidth = 1530
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1530
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
DisabledImages = DataLink_Financial.cxImageList_bar
Images = DataLink_Financial.cxImageList_bar
List = True
ShowCaptions = True
TabOrder = 0
object TSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
Visible = False
OnClick = TSaveClick
end
object ToolButton6: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 8
OnClick = ToolButton6Click
end
object ToolButton1: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
Visible = False
OnClick = ToolButton1Click
end
object ToolButton5: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #24212#20184#27454
ImageIndex = 2
Visible = False
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 300
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
Visible = False
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 371
Top = 0
AutoSize = True
Caption = #23548#20837
ImageIndex = 18
Visible = False
OnClick = ToolButton4Click
end
object Tbssel: TToolButton
Left = 442
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = TbsselClick
end
object ToolButton3: TToolButton
Left = 513
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 616
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 124
Width = 1530
Height = 380
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Amount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1TaxAmount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object Tv1Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1IVNo: TcxGridDBColumn
Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1BGDNum: TcxGridDBColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.FieldName = 'BGDNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1IVDate: TcxGridDBColumn
Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'IVDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1SupplierShuiNo: TcxGridDBColumn
Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'SupplierShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
end
object Tv1Supplier: TcxGridDBColumn
Caption = #20379#24212#21830#21517#31216
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1SupplierPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object Tv1OurShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'OurShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114
end
object Tv1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = ButtonEdit
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 130
end
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'CNY'
'USD'
'EUR')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object Tv1Price: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object Tv1Amount: TcxGridDBColumn
Caption = #24635#37329#39069#26410#21547#31246
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 111
end
object Tv1TaxFee: TcxGridDBColumn
Caption = #31246#37329
DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object Tv1TaxAmount: TcxGridDBColumn
Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114
end
object Tv1BillCycle: TcxGridDBColumn
Caption = #36134#26399
DataBinding.FieldName = 'BillCycle'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1fromFlow: TcxGridDBColumn
Caption = #24212#20184#27454#20027#38190
DataBinding.FieldName = 'fromFlow'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 95
Width = 1530
Height = 29
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#26410#30003#35831' '
' '#24050#30003#35831' '
' '#20840#37096' ')
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
object Panel1: TPanel
Left = 0
Top = 30
Width = 1530
Height = 65
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 3
object Label1: TLabel
Left = 67
Top = 37
Width = 16
Height = 21
Caption = #33267
end
object Label4: TLabel
Left = 17
Top = 6
Width = 64
Height = 21
Caption = #26597#35810#26085#26399
end
object begdate: TcxDateEdit
Left = 87
Top = 2
Properties.ShowTime = False
TabOrder = 0
Width = 120
end
object Enddate: TcxDateEdit
Left = 87
Top = 30
Properties.ShowTime = False
TabOrder = 1
Width = 120
end
end
object DataSource1: TDataSource
DataSet = CDS_Invoice
Left = 516
Top = 280
end
object CDS_Invoice: TClientDataSet
Aggregates = <>
Params = <>
Left = 384
Top = 268
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 280
Top = 112
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 96
Top = 116
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 180
Top = 116
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 528
Top = 200
end
object OpenDialog1: TOpenDialog
Left = 370
Top = 162
end
end

833
A09财务通用管理/U_InvoiceSel.pas Normal file
View File

@ -0,0 +1,833 @@
unit U_InvoiceSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxPC, cxContainer, dxCore, cxDateUtils, cxCheckBox,
cxMaskEdit;
type
TfrmInvoiceSel = class(TForm)
DataSource1: TDataSource;
CDS_Invoice: TClientDataSet;
GPM_1: TcxGridPopupMenu;
ToolBar1: TToolBar;
TSave: TToolButton;
TBClose: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Price: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery;
Tv1TaxAmount: TcxGridDBColumn;
Tv1TaxFee: TcxGridDBColumn;
Tv1IVNo: TcxGridDBColumn;
Tv1IVDate: TcxGridDBColumn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Tv1Currency: TcxGridDBColumn;
ToolButton4: TToolButton;
CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog;
Tv1BGDNum: TcxGridDBColumn;
Tv1SupplierShuiNo: TcxGridDBColumn;
Tv1Supplier: TcxGridDBColumn;
Tv1OurShuiNo: TcxGridDBColumn;
Tv1OurCoName: TcxGridDBColumn;
Tv1BillCycle: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1fromFlow: TcxGridDBColumn;
Tbssel: TToolButton;
cxTabControl1: TcxTabControl;
Panel1: TPanel;
Label1: TLabel;
begdate: TcxDateEdit;
Enddate: TcxDateEdit;
ToolButton6: TToolButton;
Label4: TLabel;
Tv1Column1: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject);
procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1QtyPropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure TbsselClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
private
procedure initGrid();
procedure SaveDate();
procedure SaveFlowInvoice();
{ Private declarations }
public
FIVID: string;
fInvoiceFlag: string;
{ Public declarations }
end;
var
frmInvoiceSel: TfrmInvoiceSel;
implementation
uses
U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_PayableSel;
{$R *.dfm}
//procedure TfrmInvoiceInInPut.SaveFlowInvoice();
//var
// sl: TStringList;
// i: Integer;
//begin
// with CDS_Invoice do
// begin
// first;
// while not eof do
// begin
// if fieldbyname('IVID').AsString <> '' then
// begin
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.add('delete from Finance_FlowInvoice where IVID=' + quotedstr(Trim(CDS_Invoice.fieldbyname('IVID').AsString)));
// ExecSQL;
// end;
//
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.add('exec P_InsertFinanceFlowInvoice @IVID=' + quotedstr(Trim(CDS_Invoice.fieldbyname('IVID').AsString)));
// sql.Add(' ,@fffIDs=' + quotedstr(Trim(CDS_Invoice.fieldbyname('fromFlow').AsString)) );
// ExecSQL;
// end;
//
//
// end;
// CDS_Invoice.Next;
// end;
// end;
//end;
procedure TfrmInvoiceSel.SaveFlowInvoice();
begin
if CDS_Invoice.IsEmpty then
Exit;
// 开始事务（假设使用ADO事务）
ADOQueryCmd.Connection.BeginTrans;
try
CDS_Invoice.DisableControls;
CDS_Invoice.First;
while not CDS_Invoice.Eof do
begin
if Trim(CDS_Invoice.FieldByName('IVID').AsString) <> '' then
begin
// 使用参数化查询
with ADOQueryCmd do
begin
Close;
SQL.Text := 'delete from Finance_FlowInvoice where IVID = :IVID';
Parameters.ParamByName('IVID').Value := Trim(CDS_Invoice.FieldByName('IVID').AsString);
ExecSQL;
Close;
SQL.Text := 'exec P_InsertFinanceFlowInvoice @IVID = :IVID, @fffIDs = :fffIDs';
Parameters.ParamByName('IVID').Value := Trim(CDS_Invoice.FieldByName('IVID').AsString);
Parameters.ParamByName('fffIDs').Value := Trim(CDS_Invoice.FieldByName('fromFlow').AsString);
// ShowMessage(sql.Text);
ExecSQL;
end;
end;
CDS_Invoice.Next; // 移动到下一条记录
end;
CDS_Invoice.EnableControls;
ADOQueryCmd.Connection.CommitTrans; // 提交事务
// ShowMessage('保存成功！');
except
ADOQueryCmd.Connection.RollbackTrans; // 出错回滚
raise; // 重新抛出异常
end;
end;
procedure TfrmInvoiceSel.SaveDate();
var
MaxNo: string;
begin
ADOQueryCmd.Connection.BeginTrans;
try
with CDS_Invoice do
begin
first;
while not eof do
begin
if fieldbyname('IVID').AsString = '' then
begin
if GetLSNo(ADOQueryTmp, MaxNo, 'IJ', 'Finance_Invoice', 4, 1) = False then
raise Exception.Create('取最大号失败！');
end
else
MaxNo := CDS_Invoice.fieldbyname('IVID').AsString;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('select * from Finance_Invoice where IVID=' + quotedstr(Trim(MaxNo)));
open;
end;
if ADOQueryCmd.IsEmpty then
begin
ADOQueryCmd.append;
ADOQueryCmd.FieldByName('FillId').Value := Trim(DCode);
ADOQueryCmd.FieldByName('Filler').Value := Trim(DName);
ADOQueryCmd.FieldByName('status').Value := '0';
end
else
begin
ADOQueryCmd.edit;
ADOQueryCmd.FieldByName('EditId').Value := Trim(DCode);
ADOQueryCmd.FieldByName('Editer').Value := Trim(DName);
ADOQueryCmd.FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTmp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Invoice, 'Finance_Invoice', 0);
ADOQueryCmd.fieldbyname('IVID').Value := MaxNo;
ADOQueryCmd.fieldbyname('IVFlag').Value := '进项';
// ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').AsString);
// ADOQueryCmd.fieldbyname('OppParentCoNo').Value := trim(CDS_Invoice.FieldByName('OppParentCoNo').AsString);
ADOQueryCmd.FieldByName('SupplierShuiNo').Value := Trim(CDS_Invoice.fieldbyname('SupplierShuiNo').AsString);
ADOQueryCmd.fieldbyname('OurCoNo').Value := trim(CDS_Invoice.FieldByName('OurCoNo').AsString);
ADOQueryCmd.fieldbyname('PayDate').Value := trim(CDS_Invoice.FieldByName('PayDate').AsString);
ADOQueryCmd.Post;
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('IVId').Value := MaxNo;
CDS_Invoice.Post;
next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('保存成功！', '提示');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmInvoiceSel.initGrid();
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select A.*,B.BankName,B.BankNo,B.CoCode,C.BankDeposit,C.BankCardNo from Finance_Invoice A ');
sql.add(' left join BS_Company B on A.SupplierNo = B.CoCode ');
SQL.Add(' LEFT JOIN (');
SQL.Add(' SELECT *, ROW_NUMBER() OVER (PARTITION BY GSTT ORDER BY (SELECT NULL)) AS rn');
SQL.Add(' FROM BS_Bank');
SQL.Add(' ) C ON A.OurCoName = C.GSTT AND C.rn = 1');
sql.add(' where isnull(A.Status,''0'')=''9'' ');
if cxTabControl1.TabIndex = 1 then
begin
sql.Add(' and A.ivdate>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and A.ivdate<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
end;
if cxTabControl1.TabIndex = 0 then
begin
sql.add(' and not exists (select 1 from Finance_Flow X where X.IVID = A.IVID) ');
end;
if cxTabControl1.TabIndex = 1 then
begin
sql.add(' and exists (select 1 from Finance_Flow X where X.IVID = A.IVID) ');
end;
open;
end;
SCreateCDS(ADOQueryTmp, CDS_Invoice);
SInitCDSData(ADOQueryTmp, CDS_Invoice);
end;
procedure TfrmInvoiceSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmInvoiceSel.TbsselClick(Sender: TObject);
begin
if CDS_Invoice.IsEmpty then
begin
Exit;
end;
ModalResult := 1;
end;
procedure TfrmInvoiceSel.FormShow(Sender: TObject);
begin
ReadCxGrid(Self.Caption + 'TV1', Tv1, '财务管理');
with CDS_LM do
begin
FieldDefs.Clear;
FieldDefs.Add('LXH', ftInteger, 0);
FieldDefs.Add('lCode', ftString, 40);
FieldDefs.Add('LName', ftString, 40);
close;
CreateDataSet;
end;
Enddate.Date := SGetServerDate(ADOQueryTmp);
begdate.Date := Enddate.Date - 30;
initGrid();
end;
procedure TfrmInvoiceSel.TSaveClick(Sender: TObject);
begin
if CDS_Invoice.Locate('IVNo', null, []) then
begin
application.MessageBox('发票号不能为空', '提示');
exit;
end;
if CDS_Invoice.Locate('OurCoName', null, []) then
begin
application.MessageBox('我方单位不能为空', '提示');
exit;
end;
if not CDS_Invoice.FieldByName('IVDate').isnull then
begin
if CDS_Invoice.FieldByName('BillCycle').asstring <> '' then
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('PayDate').AsDateTime := CDS_Invoice.FieldByName('IVDate').AsDateTime + StrToIntDef(Trim(CDS_Invoice.FieldByName('BillCycle').AsString), 0);
CDS_Invoice.Post;
end
else
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('PayDate').Value := CDS_Invoice.FieldByName('IVDate').Value;
CDS_Invoice.Post;
end;
end;
SaveDate();
SaveFlowInvoice();
Modalresult := 1;
end;
procedure TfrmInvoiceSel.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'MPRTCodeName';
flagname := '产品名称';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.CDS_Invoice.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
//self.tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceSel.v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'P_Spec';
flagname := '成品规格';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('P_Spec').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmInvoiceSel.v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'QtyUnit';
flagname := '数量单位';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmInvoiceSel.v1QtyPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FAmount, Ftax, FtaxAmount: double;
begin
// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
// mvalue := TcxTextEdit(Sender).EditingText;
// if Trim(mvalue) = '' then
// begin
// mvalue := '0';
// end;
// with CDS_Invoice do
// begin
// Edit;
// FieldByName(FFieldName).Value := Trim(mvalue);
// Post;
// FQty := FieldbyName('Qty').AsFloat;
// FtaxAmount := FieldbyName('taxAmount').AsFloat;
// Ftax := FieldbyName('tax').AsFloat;
// end;
// if FQty <> 0 then
// begin
// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
// FPrice := strtofloat(format('%.2f', [FAmount / FQty]));
// end
// else
// begin
// FPrice := 0;
// FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
// end;
//
// with CDS_Invoice do
// begin
// Edit;
// FieldByName('Price').Value := FPrice;
// FieldByName('Amount').Value := FAmount;
// FieldByName('TaxFee').Value := FtaxAmount - FAmount;
// Post;
// end;
// tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceSel.cxTabControl1Change(Sender: TObject);
begin
if cxTabControl1.TabIndex = 0 then
begin
Tbssel.visible := True;
end
else
begin
Tbssel.visible := false;
end;
initGrid();
end;
procedure TfrmInvoiceSel.FormDestroy(Sender: TObject);
begin
frmInvoiceSel := nil;
end;
procedure TfrmInvoiceSel.Tv1AmountPropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
mAmount, mTaxFee, mTaxAmount: Double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Invoice do
begin
Edit;
FieldByName(FFieldName).Value := StrToFloat(Trim(mvalue));
Post;
// ShowMessage(Fieldbyname('TaxRate').AsString);
if Fieldbyname('Amount').AsString <> '' then
begin
mAmount := Fieldbyname('Amount').AsFloat;
end
else
begin
mAmount := 0;
end;
if Fieldbyname('TaxFee').AsString <> '' then
begin
mTaxFee := Fieldbyname('TaxFee').AsFloat;
end
else
begin
mTaxFee := 0;
end;
end;
mTaxAmount := RoundFloat(mAmount + mTaxFee, 2);
with CDS_Invoice do
begin
Edit;
FieldByName('Amount').Value := mAmount;
// FieldByName('ConPrice').Value := FConPrice;
FieldByName('TaxFee').Value := mTaxFee;
FieldByName('TaxAmount').Value := mTaxAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmInvoiceSel.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceSel.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'InvoiceType';
flagname := '发票类型';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('IVType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmInvoiceSel.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceSel.Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceSel.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmInvoiceSel.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
CDS_Invoice.FieldByName('OurShuiNo').Value := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
CDS_Invoice.Post;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceSel.Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
CDS_Invoice.Edit;
CDS_Invoice.FieldByName('Supplier').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
CDS_Invoice.FieldByName('SupplierShuiNo').Value := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
CDS_Invoice.FieldByName('SupplierNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
CDS_Invoice.FieldByName('BillCycle').Value := Trim(CDS_1.fieldbyname('BillCycle').AsString);
CDS_Invoice.Post;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmInvoiceSel.ToolButton1Click(Sender: TObject);
begin
CDS_Invoice.Append;
CDS_Invoice.FieldByName('IVDate').Value := now();
CDS_Invoice.FieldByName('IVType').Value := '进项发票';
CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg';
CDS_Invoice.FieldByName('Amount').Value := 0;
CDS_Invoice.FieldByName('Qty').Value := 0;
CDS_Invoice.FieldByName('tax').Value := 0;
CDS_Invoice.FieldByName('TaxFee').Value := 0;
CDS_Invoice.FieldByName('taxAmount').Value := 0;
CDS_Invoice.FieldByName('Price').Value := 0;
CDS_Invoice.FieldByName('tax').Value := 13;
CDS_Invoice.FieldByName('Currency').Value := 'CNY';
CDS_Invoice.Post;
end;
procedure TfrmInvoiceSel.ToolButton2Click(Sender: TObject);
begin
if CDS_Invoice.IsEmpty then
exit;
if application.MessageBox('确定要删除吗', '提示', 1) = 2 then
exit;
with ADOQueryTmp do
begin
close;
sql.clear;
sql.add('delete from Finance_Invoice where IvID=''' + trim(CDS_Invoice.fieldbyname('IvID').asstring) + ''' ');
execsql;
end;
CDS_Invoice.delete;
end;
procedure TfrmInvoiceSel.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(Self.Caption + 'TV1', Tv1, '财务管理');
end;
procedure TfrmInvoiceSel.ToolButton4Click(Sender: TObject);
var
excelApp, WorkBook: Variant;
i, j, k, LX, ExcelRowCount: integer;
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
begin
try
excelApp := CreateOleObject('Excel.Application');
openDialog1.Filter := '*.CSV;*.xls';
if opendialog1.Execute then
begin
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
end
else
exit;
excelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
except
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
exit;
end;
CDS_LM.EmptyDataSet;
for j := 0 to Tv1.ColumnCount - 1 do
begin
with CDS_LM do
begin
Append;
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
Post;
end;
end;
try
for i := 1 to 50 do
begin
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
continue;
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
begin
with CDS_LM do
begin
Edit;
FieldByName('LXH').Value := i;
Post;
end;
end;
end;
except
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
exit;
end;
try
for i := 2 to ExcelRowCount do
begin
with CDS_Invoice do
begin
Append;
CDS_LM.First;
while not CDS_LM.Eof do
begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_Invoice.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next;
end;
// CDS_Invoice.fieldbyname('OurCoNo').Value := '91330602MA2JTEXX4B';
// CDS_Invoice.fieldbyname('OurCoName').Value := '圆中圆';
// CDS_Invoice.FieldByName('Currency').Value := 'CNY';
Post;
end;
end;
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
exit;
end;
end;
procedure TfrmInvoiceSel.ToolButton5Click(Sender: TObject);
begin
try
frmPayableSel := TfrmPayableSel.Create(Application);
with frmPayableSel do
begin
if ShowModal = 1 then
begin
// frmPayableSel.CDS_1.first;
CDS_1.Locate('ssel', True, []);
with frmPayableSel.CDS_1 do
begin
self.CDS_Invoice.Append;
Self.CDS_Invoice.FieldByName('Supplier').value := frmPayableSel.CDS_1.FieldByName('OppCoName').AsString;
Self.CDS_Invoice.FieldByName('SupplierNo').value := frmPayableSel.CDS_1.FieldByName('OppCoNo').AsString;
Self.CDS_Invoice.FieldByName('SupplierShuiNo').value := frmPayableSel.CDS_1.FieldByName('oppShuiNo').AsString;
Self.CDS_Invoice.FieldByName('OurCoName').value := frmPayableSel.CDS_1.FieldByName('OurCoName').AsString;
Self.CDS_Invoice.FieldByName('OurCoNo').value := frmPayableSel.CDS_1.FieldByName('OurCoNo').AsString;
Self.CDS_Invoice.FieldByName('OurShuiNo').value := frmPayableSel.CDS_1.FieldByName('ourShuiNo').AsString;
Self.CDS_Invoice.FieldByName('Currency').value := frmPayableSel.CDS_1.FieldByName('Currency').AsString;
if frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString <> '' then
begin
Self.CDS_Invoice.FieldByName('Price').value := frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString;
end
else
begin
Self.CDS_Invoice.FieldByName('Price').value := 0;
end;
Self.CDS_Invoice.FieldByName('Amount').value := frmPayableSel.FNoTaxInclude;
Self.CDS_Invoice.FieldByName('TaxFee').value := frmPayableSel.FTax;
Self.CDS_Invoice.FieldByName('TaxAmount').value := frmPayableSel.FTaxInclude;
self.CDS_Invoice.FieldByName('fromFlow').Value := frmPayableSel.FFFIDs;
Self.CDS_Invoice.post;
end;
end;
end;
finally
frmPayableSel.Free;
end;
end;
procedure TfrmInvoiceSel.ToolButton6Click(Sender: TObject);
begin
initGrid();
end;
end.

91
A09财务通用管理/U_PayableBatchInput.dfm
View File

@ -29,7 +29,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = -6
object TBSave: TToolButton
Left = 0
Top = 0
@ -96,8 +95,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Align = alClient
PopupMenu = PM_1
TabOrder = 1
ExplicitLeft = -8
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -161,6 +158,34 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Options.Editing = False
Width = 82
end
object Tv1oppShuiNo: TcxGridDBColumn
Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 111
end
object Tv1OppCoName: TcxGridDBColumn
Caption = #20379#24212#21830#21517#31216
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1OppCoNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 130
end
object Tv1ourShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'ourShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
@ -175,34 +200,19 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1ourShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'ourShuiNo'
object Tv1FinType: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'FinType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#32433#32447
#38050#31576
#22383#24067
#26426#29289#26009)
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1oppShuiNo: TcxGridDBColumn
Caption = #23545#26041#31246#21495
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1OppCoNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 89
end
object Tv1FFAbstract: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
@ -217,6 +227,13 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object Tv1PurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo'
@ -247,13 +264,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object Tv1BuyConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo'
@ -261,19 +271,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter
Width = 127
end
object Tv1FinType: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'FinType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#32433#32447
#38050#31576
#22383#24067
#26426#29289#26009)
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'

35
A09财务通用管理/U_PayableBatchInput.pas
View File

@ -86,9 +86,7 @@ type
procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1CurrencyPropertiesChange(Sender: TObject);
procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
procedure TV1OurCoNamePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TV1OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveData(): Boolean;
@ -96,7 +94,7 @@ type
public
{ Public declarations }
FBCId, FKHName: string;
FFFID : string;
FFFID: string;
end;
var
@ -127,7 +125,16 @@ begin
Filtered := False;
sql.Add(' select A.* ');
sql.Add(' from Finance_Flow A ');
sql.Add(' where FFID = ' + QuotedStr(FFFID));
// 左关联 Finance_FlowInvoice（财务流水-发票关联表），取每条流水的第一条发票关联记录
sql.Add(' LEFT JOIN ( ');
sql.Add(' SELECT FFID, IVId, ROW_NUMBER() OVER (PARTITION BY FFID ORDER BY IVId) AS RowNum ');
sql.Add(' FROM Finance_FlowInvoice ');
sql.Add(' ) AS B ON A.FFID = B.FFID AND B.RowNum = 1 '); // RowNum=1 确保只取第一条
// 内关联 Finance_Invoice（发票主表）：通过关联表B的IVId关联
sql.Add(' left JOIN Finance_Invoice C ON B.IVId = C.IVId ');
sql.Add(' where A.FFID = ' + QuotedStr(FFFID));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@ -339,11 +346,11 @@ begin
Application.MessageBox('登记日期不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('ReconciliationDate', null, []) = True then
begin
Application.MessageBox('¶ÔÕËÈÕÆÚ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0);
Exit;
end;
// if CDS_1.Locate('ReconciliationDate', null, []) = True then
// begin
// Application.MessageBox('对账日期不能为空!', '提示', 0);
// Exit;
// end;
if CDS_1.Locate('FinType', null, []) = True then
begin
@ -408,6 +415,9 @@ begin
self.CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
self.CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
self.CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
self.CDS_1.FieldByName('ourShuiNo').Value := '1102083046';
self.CDS_1.FieldByName('FinType').Value := '纱线';
self.CDS_1.FieldByName('Currency').Value := 'CNY';
self.CDS_1.FieldByName('SSel').Value := False;
@ -641,7 +651,7 @@ begin
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('OppCoName').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
Self.CDS_1.FieldByName('OurCoNo').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_1.FieldByName('oppCoNo').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_1.FieldByName('oppShuiNo').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('ShuiNo').AsString);
Self.CDS_1.Post;
end;
@ -702,8 +712,7 @@ begin
end;
end;
procedure TfrmPayableBatchInput.TV1OurCoNamePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
procedure TfrmPayableBatchInput.TV1OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);

34
A09财务通用管理/U_PayableList.dfm
View File

@ -316,7 +316,7 @@ inherited frmPayableList: TfrmPayableList
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 44
Width = 38
end
object Tv1FFTime: TcxGridDBColumn
Tag = 7
@ -330,24 +330,27 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False
Width = 82
end
object Tv1Column1: TcxGridDBColumn
object Tv1IVNo: TcxGridDBColumn
Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'CIVNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1BGDNum: TcxGridDBColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.FieldName = 'BGDNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1IVDate: TcxGridDBColumn
Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'IVDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 107
end
object Tv1Column3: TcxGridDBColumn
Caption = #21457#31080#26085#26399
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 128
end
object Tv1oppShuiNo: TcxGridDBColumn
Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'oppShuiNo'
@ -421,7 +424,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 127
Width = 130
end
object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495
@ -568,7 +571,6 @@ inherited frmPayableList: TfrmPayableList
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectRight = 0
ClientRectTop = 0
end

23
A09财务通用管理/U_PayableList.pas
View File

@ -92,11 +92,11 @@ type
TbnBatchAdd: TToolButton;
Tv1FinType: TcxGridDBColumn;
Tv1PurNo: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1oppShuiNo: TcxGridDBColumn;
Tv1ourShuiNo: TcxGridDBColumn;
Tv1IVNo: TcxGridDBColumn;
Tv1BGDNum: TcxGridDBColumn;
Tv1IVDate: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -181,12 +181,21 @@ begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' select A.* ');
sql.Add(' select A.* ,C.IVNo as CIVNO,C.IVID as CIVID,C.BGDNum,C.IVDate ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''²ÆÎñÁ÷Ë®'' and X.WBID=A.FFID)>0 THEN 1 ELSE 0 END) AS BIT)');
// sql.Add(' from Finance_Flow A ');
// sql.Add(' left join Finance_FlowInvoice B on A.FFID=B.FFID'); //有多条，取第一条
// SQL.Add(' inner join Finance_Invoice B on A.IVId=C.IVId');
sql.Add(' FROM Finance_Flow A ');
// 左关联 Finance_FlowInvoice（财务流水-发票关联表），取每条流水的第一条发票关联记录
sql.Add(' LEFT JOIN ( ');
sql.Add(' SELECT FFID, IVId, ROW_NUMBER() OVER (PARTITION BY FFID ORDER BY IVId) AS RowNum ');
sql.Add(' FROM Finance_FlowInvoice ');
sql.Add(' ) AS B ON A.FFID = B.FFID AND B.RowNum = 1 '); // RowNum=1 确保只取第一条
sql.Add(' from Finance_Flow A ');
// 内关联 Finance_Invoice（发票主表）：通过关联表B的IVId关联
sql.Add(' left JOIN Finance_Invoice C ON B.IVId = C.IVId ');
sql.Add(' where A.FFType=''Ó¦¸¶¿îµÇ¼Ç'' ');
case cxTabControl1.TabIndex of
0:
@ -299,7 +308,7 @@ end;
procedure TfrmPayableList.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
panel1.SetFocus;
with ADOQueryCmd do
begin
Close;

5
A09财务通用管理/U_PayableSel.dfm
View File

@ -107,8 +107,6 @@ inherited frmPayableSel: TfrmPayableSel
Align = alClient
PopupMenu = PM_1
TabOrder = 1
ExplicitTop = 184
ExplicitHeight = 388
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -406,12 +404,11 @@ inherited frmPayableSel: TfrmPayableSel
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#24050#24320#31080
#26410#24320#31080
#24050#24320#31080
#20840#37096)
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change
ExplicitTop = 24
ClientRectRight = 0
ClientRectTop = 0
end

16
A09财务通用管理/U_PayableSel.pas
View File

@ -88,7 +88,6 @@ type
procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
procedure TbSSelClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
@ -133,18 +132,20 @@ begin
Close;
SQL.Clear;
Filtered := False;
sql.Add(' select A.* ');
sql.Add(' select A.*,B.BillCycle ');
sql.Add(' from Finance_Flow A ');
sql.Add(' where CheckStatus = ''δÉóºË'' ');
SQL.Add(' left join BS_Company B on A.OppCoNo=B.CoCode');
sql.Add(' where CheckStatus = ''ÒÑÉóºË'' ');
// sql.Add(' where 1=1 ');
SQL.Add(' and FFFlag = ''应付付'' ');
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and EXISTS ( select 1 from Finance_FlowInvoice X where X.FFID=A.FFID ) ');
sql.Add(' and not EXISTS ( select 1 from Finance_FlowInvoice X where X.FFID=A.FFID ) ');
end;
1:
begin
sql.Add(' and not EXISTS ( select 1 from Finance_FlowInvoice X where X.FFID=A.FFID ) ');
sql.Add(' and EXISTS ( select 1 from Finance_FlowInvoice X where X.FFID=A.FFID ) ');
end;
end;
Open;
@ -935,8 +936,11 @@ begin
ShowMessage('选择的对方单位不相同');
exit;
end;
if FFFIDs <> '' then
begin
ModalResult := 1;
end;
ModalResult := 1;
end;
end.

370
A09财务通用管理/U_SingleFtyStatement.dfm
View File

@ -81,18 +81,20 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Left = 0
Top = 38
Width = 1573
Height = 38
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 698
Top = 45
Width = 24
Height = 12
Caption = #21697#21517
Visible = False
end
object Label3: TLabel
Left = 510
@ -100,20 +102,33 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Width = 48
Height = 12
Caption = #20986#24211#21333#21495
Visible = False
end
object Label2: TLabel
Left = 22
Top = 13
Width = 48
Height = 12
Width = 64
Height = 16
Caption = #23545#36134#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 164
Left = 207
Top = 13
Width = 30
Height = 12
Width = 40
Height = 16
Caption = '-----'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 598
@ -123,11 +138,17 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Caption = #25910#27454#36827#24230
end
object Label5: TLabel
Left = 324
Left = 366
Top = 13
Width = 48
Height = 12
Width = 64
Height = 16
Caption = #23545#26041#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object MPRTCodeName: TEdit
Tag = 2
@ -136,6 +157,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Width = 120
Height = 20
TabOrder = 3
Visible = False
end
object OrderNo: TEdit
Tag = 2
@ -144,25 +166,38 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Width = 120
Height = 20
TabOrder = 2
Visible = False
end
object begdate: TDateTimePicker
Left = 72
Left = 93
Top = 9
Width = 97
Height = 20
Width = 110
Height = 24
Date = 41256.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.918237847232376200
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Enddate: TDateTimePicker
Left = 182
Left = 225
Top = 9
Width = 97
Height = 20
Width = 110
Height = 24
Date = 41256.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.918237847232376200
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object OrdDefNote3: TComboBox
@ -184,22 +219,36 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
end
object OppCoName: TEdit
Tag = 2
Left = 378
Left = 436
Top = 9
Width = 169
Height = 20
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 76
Top = 91
Width = 1573
Height = 542
Height = 527
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
ExplicitTop = 97
object TV1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -208,7 +257,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
end
item
Kind = skSum
Column = V1Column7
end
item
Kind = skSum
@ -232,7 +280,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
end
item
Kind = skSum
Column = V1Column16
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -240,106 +287,34 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_Financial.Default
Styles.BandHeader = DataLink_Financial.Default
Bands = <
item
Width = 795
end
item
Caption = #23545#36134#20449#24687
Width = 396
end
item
Caption = #24320#31080#20449#24687
Width = 287
end
item
Caption = #35814#32454#20449#24687
Width = 941
end>
object V1Column2: TcxGridDBBandedColumn
Caption = #23545#36134#26085#26399
Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 79
Width = 109
Position.BandIndex = 0
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column4: TcxGridDBBandedColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 87
Position.BandIndex = 3
Position.ColIndex = 3
Position.RowIndex = 0
end
object V1Column5: TcxGridDBBandedColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 91
Position.BandIndex = 3
Position.ColIndex = 4
Position.RowIndex = 0
end
object V1Column6: TcxGridDBBandedColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 92
Position.BandIndex = 3
Position.ColIndex = 5
Position.RowIndex = 0
end
object V1Column7: TcxGridDBBandedColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 77
Position.BandIndex = 3
Position.ColIndex = 7
Position.RowIndex = 0
end
object V1Column8: TcxGridDBBandedColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 84
Position.BandIndex = 3
Position.ColIndex = 9
Position.RowIndex = 0
end
object V1Column9: TcxGridDBBandedColumn
Caption = #24212#20184#37329#39069
Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'BQYFAmount'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
@ -351,8 +326,9 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
object V1Column12: TcxGridDBBandedColumn
Caption = #20184#27454#37329#39069
DataBinding.FieldName = 'BQFKAmount'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
@ -362,10 +338,11 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Position.RowIndex = 0
end
object V1Column15: TcxGridDBBandedColumn
Caption = #32047#35745#20313#39069
Caption = #20313#39069
DataBinding.FieldName = 'BQJYAmount'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
@ -374,21 +351,9 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column3: TcxGridDBBandedColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 129
Position.BandIndex = 3
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column10: TcxGridDBBandedColumn
DataBinding.FieldName = 'CWID'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
@ -397,104 +362,42 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Options.Moving = False
VisibleForCustomization = False
Width = 45
Position.BandIndex = 3
Position.ColIndex = 0
Position.RowIndex = 0
Position.BandIndex = -1
Position.ColIndex = -1
Position.RowIndex = -1
end
object V1Column14: TcxGridDBBandedColumn
Caption = #24207#21495
DataBinding.FieldName = 'keyNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 62
Width = 111
Position.BandIndex = 0
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column16: TcxGridDBBandedColumn
Caption = #24320#31080#37329#39069
DataBinding.FieldName = 'BQKPAmount'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 72
Position.BandIndex = 2
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column17: TcxGridDBBandedColumn
Caption = #32047#35745#27424#31080
DataBinding.FieldName = 'BQWKPAmount'
object V1Column20: TcxGridDBBandedColumn
Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 119
Position.BandIndex = 2
Position.BandIndex = 0
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column20: TcxGridDBBandedColumn
Caption = #31080#21495
DataBinding.FieldName = 'IVNo'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 91
Position.BandIndex = 2
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column21: TcxGridDBBandedColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 68
Position.BandIndex = 3
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column22: TcxGridDBBandedColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 71
Position.BandIndex = 3
Position.ColIndex = 6
Position.RowIndex = 0
end
object V1Column23: TcxGridDBBandedColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 64
Position.BandIndex = 3
Position.ColIndex = 12
Position.RowIndex = 0
end
object V1Column25: TcxGridDBBandedColumn
Caption = #22791#27880
DataBinding.FieldName = 'MxNote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -504,33 +407,10 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Position.ColIndex = -1
Position.RowIndex = -1
end
object V1Column26: TcxGridDBBandedColumn
Caption = #22791#27880
DataBinding.FieldName = 'YMxNote'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 58
Position.BandIndex = 3
Position.ColIndex = 8
Position.RowIndex = 0
end
object V1Column33: TcxGridDBBandedColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 83
Position.BandIndex = 3
Position.ColIndex = 10
Position.RowIndex = 0
end
object V1Column34: TcxGridDBBandedColumn
Caption = #36135#27454
DataBinding.FieldName = 'HKMONEY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
@ -539,24 +419,54 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Position.ColIndex = -1
Position.RowIndex = -1
end
object TV1Column1: TcxGridDBBandedColumn
Caption = #20943#20813#37329#39069
DataBinding.FieldName = 'Deduction'
object TV1Column3: TcxGridDBBandedColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.FieldName = 'BGDNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 78
Position.BandIndex = 3
Position.ColIndex = 11
Width = 85
Position.BandIndex = 0
Position.ColIndex = 3
Position.RowIndex = 0
end
object TV1Column2: TcxGridDBBandedColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsInvoice'
object TV1Column4: TcxGridDBBandedColumn
Caption = #27700#21333#32534#21495
DataBinding.FieldName = 'BankSlipNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
Position.BandIndex = 1
Position.ColIndex = 3
Width = 123
Position.BandIndex = 0
Position.ColIndex = 4
Position.RowIndex = 0
end
object TV1Column5: TcxGridDBBandedColumn
Caption = #31246#21495
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
Position.BandIndex = 0
Position.ColIndex = 5
Position.RowIndex = 0
end
object TV1Column6: TcxGridDBBandedColumn
Caption = #21378#21830#21517#31216
DataBinding.FieldName = 'oppconame'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Position.BandIndex = 0
Position.ColIndex = 6
Position.RowIndex = 0
end
object TV1Column7: TcxGridDBBandedColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
Position.BandIndex = 0
Position.ColIndex = 7
Position.RowIndex = 0
end
end

28
A09财务通用管理/U_SingleFtyStatement.pas
View File

@ -14,11 +14,11 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges,
dxBarBuiltInMenu;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxCurrencyEdit, U_BaseHelp;
type
TfrmSingleFtyStatement = class(TForm)
TfrmSingleFtyStatement = class(TfrmBaseHELP)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
@ -50,31 +50,21 @@ type
ADOQueryPrint: TADOQuery;
TV1: TcxGridDBBandedTableView;
V1Column2: TcxGridDBBandedColumn;
V1Column4: TcxGridDBBandedColumn;
V1Column5: TcxGridDBBandedColumn;
V1Column6: TcxGridDBBandedColumn;
V1Column7: TcxGridDBBandedColumn;
V1Column8: TcxGridDBBandedColumn;
V1Column9: TcxGridDBBandedColumn;
V1Column12: TcxGridDBBandedColumn;
V1Column15: TcxGridDBBandedColumn;
V1Column3: TcxGridDBBandedColumn;
V1Column10: TcxGridDBBandedColumn;
V1Column14: TcxGridDBBandedColumn;
V1Column16: TcxGridDBBandedColumn;
V1Column17: TcxGridDBBandedColumn;
V1Column20: TcxGridDBBandedColumn;
V1Column21: TcxGridDBBandedColumn;
V1Column22: TcxGridDBBandedColumn;
V1Column23: TcxGridDBBandedColumn;
V1Column25: TcxGridDBBandedColumn;
V1Column26: TcxGridDBBandedColumn;
V1Column33: TcxGridDBBandedColumn;
V1Column34: TcxGridDBBandedColumn;
OppCoName: TEdit;
ToolButton2: TToolButton;
TV1Column1: TcxGridDBBandedColumn;
TV1Column2: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn;
TV1Column4: TcxGridDBBandedColumn;
TV1Column5: TcxGridDBBandedColumn;
TV1Column6: TcxGridDBBandedColumn;
TV1Column7: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -147,7 +137,7 @@ end;
procedure TfrmSingleFtyStatement.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
PANEL1.SetFocus;
InitGrid();
end;

3
A09财务通用管理/U_ZDYBankSel.dfm
View File

@ -141,6 +141,7 @@ inherited frmZDYBankSel: TfrmZDYBankSel
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
Visible = False
OnClick = TBAddClick
end
object TBDel: TToolButton
@ -149,6 +150,7 @@ inherited frmZDYBankSel: TfrmZDYBankSel
AutoSize = True
Caption = #21024#34892
ImageIndex = 5
Visible = False
OnClick = TBDelClick
end
object TBEdit: TToolButton
@ -157,6 +159,7 @@ inherited frmZDYBankSel: TfrmZDYBankSel
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
Visible = False
OnClick = TBEditClick
end
object TBSave: TToolButton

5
A09财务通用管理/U_ZDYBankSel.pas
View File

@ -115,7 +115,8 @@ begin
begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.MainType=''' + MainType + '''');
// sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.MainType=''' + MainType + '''');
sql.Add(' select BankDeposit as ZDYName,BankCardNo as Note , SerialNo from BS_Bank order by SerialNo');
Open;
end;
SCreateCDS(ADOQueryMain, ClientDataSet1);
@ -393,7 +394,7 @@ var
begin
if Trim(ZDYName.Text) <> '' then
begin
fsj := ' zdyname like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or Note like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or ZJM like ''' + '%' + Trim(ZDYName.Text) + '%' + '''';
fsj := ' ZDYName like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' + ' or note like ''' + '%' + Trim(ZDYName.Text) + '%' + '''' ;
end;
if ADOQueryMain.Active then
begin

BIN
A09财务通用管理/testDll.res
View File

Binary file not shown.

14
B02基础纱线仓库/U_YarnInEdit.dfm
View File

@ -9,6 +9,7 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Font.Height = -16
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -343
ExplicitWidth = 1556
ExplicitHeight = 618
PixelsPerInch = 96
@ -21,7 +22,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Height = 549
Align = alClient
TabOrder = 0
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -223,11 +223,13 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'Kg'
'M')
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1QtyUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 54
end

24
B02基础纱线仓库/U_YarnInEdit.pas
View File

@ -89,6 +89,7 @@ type
procedure ToolButton5Click(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure Tv1FromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
@ -884,6 +885,29 @@ begin
end;
end;
procedure TfrmYarnInEdit.Tv1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SXQTYUNIT';
flagname := 'µ¥Î»';
MainType := FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('QtyUnit').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYarnInEdit.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin

194
B02基础纱线仓库/YarnStk.dproj.local
View File

@ -1,103 +1,103 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
B02基础纱线仓库/testDll.res
View File

Binary file not shown.

88
B04采购计划管理/PurchasePlan.dproj.local
View File

@ -1,62 +1,62 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>2025-12-06 09:54:40.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

4
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -10,7 +10,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -673
ExplicitWidth = 1540
ExplicitHeight = 757
PixelsPerInch = 96
@ -125,7 +124,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
ExplicitLeft = -6
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -428,7 +426,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
ParentColor = False
ParentCtl3D = False
TabOrder = 3
ExplicitTop = 36
ExplicitTop = 24
object lbl5: TLabel
Left = 32
Top = 50

158
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,85 +1,85 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2025/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>2025/11/26 15:57:54.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

BIN
E01梭织生产计划/testDll.res
View File

Binary file not shown.

12
E02梭织经轴仓库/U_TatWBPlan.dfm
View File

@ -33,7 +33,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ParentFont = False
ShowCaptions = True
TabOrder = 5
ExplicitTop = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -166,8 +165,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitLeft = 8
ExplicitTop = 32
object Label1: TLabel
Left = 18
Top = 14
@ -278,8 +275,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 541
Align = alLeft
TabOrder = 2
ExplicitLeft = -5
ExplicitTop = 117
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -500,7 +495,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#24050#32467#26463
#20840#37096)
OnChange = cxTabControl1Change
ExplicitLeft = -1
ClientRectBottom = 30
ClientRectRight = 1540
ClientRectTop = 30
@ -521,8 +515,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 61
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -675,8 +667,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 6
object ToolButton2: TToolButton
Left = 0
Top = 0
@ -730,8 +720,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#31232#36724
#27974#36724)
OnChange = cxTabControl2Change
ExplicitLeft = 6
ExplicitTop = 45
ClientRectBottom = 30
ClientRectRight = 709
ClientRectTop = 30

38
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
View File

@ -8,6 +8,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
ExplicitLeft = -12
ExplicitWidth = 1445
ExplicitHeight = 802
PixelsPerInch = 96
@ -337,9 +338,18 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Caption = #31570#37325'KG'
DataBinding.FieldName = 'TZQTY'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column5: TcxGridDBColumn
Caption = #21333#31570#32433#38271'M'
DataBinding.FieldName = 'TMETER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column4: TcxGridDBColumn
Caption = #35745#21010#24635#29992#37327'KG'
DataBinding.FieldName = 'JHYLQTY'
@ -392,6 +402,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
TabOrder = 2
OnDblClick = gynoDblClick
ExplicitLeft = 2
ExplicitTop = 41
object Label3: TLabel
Left = 708
@ -920,6 +931,19 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = []
ParentFont = False
end
object Label36: TLabel
Left = 558
Top = 81
Width = 112
Height = 21
Caption = #21333#20010#31232#36724#38271#24230#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object C_NAME: TEdit
Left = 788
Top = 5
@ -1378,6 +1402,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
TabOrder = 29
Width = 70
end
object wb_dgxzcd: TEdit
Left = 668
Top = 76
Width = 120
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
TabOrder = 30
OnKeyPress = ConNoKeyPress
end
end
inherited ADOQueryBaseCmd: TADOQuery
Left = 969

50
E02梭织经轴仓库/U_TatWBPlanInPut.pas
View File

@ -127,6 +127,9 @@ type
Label42: TLabel;
Tv1Supplier: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label36: TLabel;
wb_dgxzcd: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -148,8 +151,7 @@ type
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnTotalLenExit(Sender: TObject);
procedure ButtonEdit(Sender: TObject;
AButtonIndex: Integer);
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
private
procedure InitData();
function SaveData(): Boolean;
@ -169,7 +171,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2,
U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel,U_LogInput;
U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel, U_LogInput;
{$R *.dfm}
@ -301,8 +303,8 @@ begin
begin
Close;
sql.Clear;
sql.Add(' select A.* from Tat_Plan_Yarn A ');
sql.Add(' where YRType=''¾­Ë¿'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + '''');
sql.Add(' select A.*,MeterQty2=(select top 1 MeterQty from Tat_WB_Formula g where g.y_code=a.y_code and g.wbsid=(select wb_code from tat_plan_sub h where h.subid=a.subid)) ');
sql.Add(' from Tat_Plan_Yarn A where YRType=''¾­Ë¿'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
@ -324,7 +326,7 @@ begin
FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty2').Value;
// FieldByName('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value;
// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value;
@ -355,7 +357,6 @@ begin
try
ADOQueryCmd.Connection.BeginTrans;
try
if FTWPId <> '' then
begin
@ -378,8 +379,6 @@ begin
frmLogInput.Free;
end;
if Trim(FTWPId) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then
@ -554,7 +553,7 @@ end;
procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
ZS, ZGS, zms: double;
ZS, ZGS, zms, ZDDZL, FZS: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@ -575,6 +574,15 @@ begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('TZQTY').Value = null then
begin
ZDDZL := 0;
end
else
begin
ZDDZL := FieldByName('TZQTY').Value;
end;
if FieldByName('ZS').Value = null then
begin
ZS := 0; //循环根数
@ -583,15 +591,22 @@ begin
begin
ZS := FieldByName('ZS').Value; //循环根数
end;
FZS := StrToFloatDef(Z_ZHOUSHU1.Text, 0) + StrToFloatDef(Z_ZHOUSHU2.Text, 0);
end;
if ZS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS, 2);
FieldByName('TMETER').Value := roundfloat(ZS * ZDDZL * 1693, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS / 100 * zms, 2);
if FZS <> 0 then
begin
wb_dgxzcd.Text := FloatToStr(roundfloat(ZS * ZDDZL * 1693 / FZS, 2));
end;
Post;
end;
end;
@ -661,8 +676,7 @@ begin
end;
end;
procedure TfrmTatWBPlanInPut.ButtonEdit(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmTatWBPlanInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
@ -692,7 +706,7 @@ begin
finally
frmYarnStkSel.Free;
end;
Tv1Column6PropertiesEditValueChanged(Sender);
end;
procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject);
@ -838,8 +852,8 @@ begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS / 100 * zms, 2);
Post;
end;
end;

2
E02梭织经轴仓库/U_TatWBPlanZJZK.dfm
View File

@ -6,7 +6,6 @@ inherited frmTatWBPlanZJZK: TfrmTatWBPlanZJZK
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 691
PixelsPerInch = 96
@ -721,6 +720,7 @@ inherited frmTatWBPlanZJZK: TfrmTatWBPlanZJZK
DataBinding.FieldName = 'Ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 50
end

27
E02梭织经轴仓库/U_TatWBPlanZJZK.pas
View File

@ -176,9 +176,9 @@ type
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,U_TatWBCardInPut,
U_TatWBPlanZJZKInPut,U_TatWBPlanZJZKKaiKa ,
U_TatWBCardInPut2, U_RPFun,U_LogInput; //U_TatWBPlanCardInPut
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,
U_TatWBCardInPut, U_TatWBPlanZJZKInPut, U_TatWBPlanZJZKKaiKa,
U_TatWBCardInPut2, U_RPFun, U_LogInput; //U_TatWBPlanCardInPut
{$R *.dfm}
@ -416,16 +416,15 @@ begin
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('½¬É´¼Æ»®µ¥Ğ޸Ä')));
sql.Add(',' + quotedstr(trim('Õû¾­¼Æ»®µ¥Ğ޸Ä')));
sql.Add(',' + quotedstr(trim('¼Æ»®µ¥ºÅ£º' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('³É¹¦')));
sql.Add(')');
ExecSQL;
end;
try
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
with frmTatWBPlanInPut do
frmTatWBPlanZJZKInPut := TfrmTatWBPlanZJZKInPut.Create(Application);
with frmTatWBPlanZJZKInPut do
begin
PState := 1;
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
@ -436,8 +435,9 @@ begin
end;
end;
finally
frmTatWBPlanInPut.Free;
frmTatWBPlanZJZKInPut.Free;
end;
end;
procedure TfrmTatWBPlanZJZK.TBEndClick(Sender: TObject);
@ -545,7 +545,7 @@ begin
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TatWBPlan';
FLMType := 'TatWBPlan2';
FFiltration1 := WSql;
FFiltration2 := WSql;
FFiltration3 := WSql;
@ -604,8 +604,8 @@ end;
procedure TfrmTatWBPlanZJZK.TBViewClick(Sender: TObject);
begin
try
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
with frmTatWBPlanInPut do
frmTatWBPlanZJZKInPut := TfrmTatWBPlanZJZKInPut.Create(Application);
with frmTatWBPlanZJZKInPut do
begin
PState := 1;
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
@ -618,7 +618,7 @@ begin
end;
end;
finally
frmTatWBPlanInPut.Free;
frmTatWBPlanZJZKInPut.Free;
end;
end;
@ -708,7 +708,8 @@ begin
// begin
// FLMType := 'TatWBCard2';
// end;
// end;
// end; ¡¢
// FLMType := 'TatWBCard3';
FFiltration1 := RTValues[0];
if ShowModal = 1 then
begin

33
E02梭织经轴仓库/U_TatWBPlanZJZKInPut.dfm
View File

@ -3,13 +3,13 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Top = 14
Caption = #25972#32463#35745#21010#24405#20837
ClientHeight = 763
ClientWidth = 1049
ClientWidth = 1155
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1065
ExplicitWidth = 1171
ExplicitHeight = 802
PixelsPerInch = 96
TextHeight = 12
@ -17,7 +17,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Tag = 1
Left = 0
Top = 0
Width = 1049
Width = 1155
Height = 38
AutoSize = True
ButtonHeight = 38
@ -63,14 +63,14 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
object Panel2: TPanel [1]
Left = 0
Top = 441
Width = 1049
Width = 1155
Height = 322
Align = alClient
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 36
Width = 1047
Width = 1153
Height = 285
Align = alClient
Color = clWhite
@ -87,13 +87,13 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 285
ClientRectRight = 1047
ClientRectRight = 1153
ClientRectTop = 0
end
object Panel5: TPanel
Left = 1
Top = 1
Width = 1047
Width = 1153
Height = 35
Align = alTop
TabOrder = 1
@ -166,7 +166,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
object cxGrid1: TcxGrid
Left = 1
Top = 36
Width = 1047
Width = 1153
Height = 285
Align = alClient
TabOrder = 2
@ -338,9 +338,18 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Caption = #31570#37325'KG'
DataBinding.FieldName = 'TZQTY'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column5: TcxGridDBColumn
Caption = #21333#31570#32433#38271'M'
DataBinding.FieldName = 'TMETER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column4: TcxGridDBColumn
Caption = #35745#21010#24635#29992#37327'KG'
DataBinding.FieldName = 'JHYLQTY'
@ -378,7 +387,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 38
Width = 1049
Width = 1155
Height = 403
Align = alTop
BevelInner = bvNone
@ -457,6 +466,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
Visible = False
end
object Label6: TLabel
Left = 25
@ -470,6 +480,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
Visible = False
end
object Label13: TLabel
Left = 25
@ -672,6 +683,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
Visible = False
end
object Label24: TLabel
Left = 576
@ -685,6 +697,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
Visible = False
end
object Label33: TLabel
Left = 25
@ -876,6 +889,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Font.Style = []
ParentFont = False
TabOrder = 3
Visible = False
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
@ -891,6 +905,7 @@ inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut
Font.Style = []
ParentFont = False
TabOrder = 4
Visible = False
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end

46
E02梭织经轴仓库/U_TatWBPlanZJZKInPut.pas
View File

@ -113,6 +113,7 @@ type
Tv1IOTime: TcxGridDBColumn;
Label1: TLabel;
F_yushu: TEdit;
Tv1Column5: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -263,10 +264,11 @@ begin
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
Self.Z_BINGSHU.Text := ADOQueryTemp.fieldbyname('Z_BINGSHU').asstring;
Self.Z_MAXKESHU.Text := ADOQueryTemp.fieldbyname('Z_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU1').asstring;
Self.Z_BINGSHU.Text := ADOQueryTemp.fieldbyname('F_YarnStripQty').asstring;
Self.Z_MAXKESHU.Text := ADOQueryTemp.fieldbyname('F_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := ADOQueryTemp.fieldbyname('F_SJKESHU').asstring;
Self.F_YUSHU.Text := ADOQueryTemp.fieldbyname('F_YUSHU').asstring;
@ -285,9 +287,10 @@ begin
begin
Close;
sql.Clear;
sql.Add(' select A.* from Tat_Plan_Yarn A ');
sql.Add(' select A.*,MeterQty2=(select top 1 MeterQty from Tat_WB_Formula g where g.y_code=a.y_code and g.wbsid=(select wb_code from tat_plan_sub h where h.subid=a.subid)) from Tat_Plan_Yarn A ');
sql.Add(' where YRType=''¾­Ë¿'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
self.CDS_1.EmptyDataSet;
@ -308,7 +311,7 @@ begin
FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty2').Value;
// FieldByName('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value;
// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value;
@ -535,7 +538,7 @@ end;
procedure TfrmTatWBPlanZJZKInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
ZS, ZGS, zms: double;
ZS, ZGS, zms, ZDDZL: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@ -556,6 +559,15 @@ begin
ZGS := FieldByName('QFYARNQTY').Value; //È«·þ¸ùÊý
end;
if FieldByName('TZQTY').Value = null then
begin
ZDDZL := 0;
end
else
begin
ZDDZL := FieldByName('TZQTY').Value;
end;
if FieldByName('ZS').Value = null then
begin
ZS := 0; //Ñ­»·¸ùÊý
@ -571,11 +583,15 @@ begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS, 2);
FieldByName('TMETER').Value := roundfloat(ZS * ZDDZL * 1693, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS / 100 * zms, 2);
Post;
end;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject);
@ -672,7 +688,7 @@ begin
finally
frmYarnStkSel.Free;
end;
Tv1Column6PropertiesEditValueChanged(Sender);
end;
procedure TfrmTatWBPlanZJZKInPut.WB_CodeBtnUpClick(Sender: TObject);
@ -689,10 +705,12 @@ begin
Self.WB_Name.Text := Trim(CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := CDS_1.fieldbyname('WB_YarnQty').asstring;
Self.Z_BINGSHU.Text := CDS_1.fieldbyname('Z_BINGSHU').asstring;
Self.Z_BINGSHU.Text := CDS_1.fieldbyname('F_YarnStripQty').asstring;
Self.Z_MAXKESHU.Text := CDS_1.fieldbyname('Z_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := CDS_1.fieldbyname('Z_SJKESHU1').asstring;
Self.Z_MAXKESHU.Text := CDS_1.fieldbyname('F_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := CDS_1.fieldbyname('F_SJKESHU').asstring;
Self.F_YUSHU.Text := CDS_1.fieldbyname('F_YUSHU').asstring;
Self.gkbh.Text := Trim(CDS_1.fieldbyname('gkbh').AsString);
Self.WB_Width.Text := Trim(CDS_1.fieldbyname('WB_Width').AsString);
@ -815,8 +833,8 @@ begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS / 100 * zms, 2);
Post;
end;
end;

3
E02梭织经轴仓库/U_WBSpecInPut.dfm
View File

@ -308,7 +308,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 2
ExplicitTop = 24
object Label3: TLabel
Left = 11
Top = 17
@ -1004,7 +1003,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 91
Top = 90
Caption = #25972#27974#24182
ParentFont = False
Style.Font.Charset = ANSI_CHARSET

2
E02梭织经轴仓库/U_WeaveSel.dfm
View File

@ -64,7 +64,6 @@ inherited frmWeaveSel: TfrmWeaveSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 32
object Label3: TLabel
Left = 15
Top = 7
@ -170,7 +169,6 @@ inherited frmWeaveSel: TfrmWeaveSel
#24050#23433#25490
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectBottom = 545
ClientRectLeft = 1
ClientRectRight = 1539

2
E02梭织经轴仓库/U_WeaveSel.pas
View File

@ -132,7 +132,7 @@ begin
sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
SQL.Add(',apqty=(select sum(WB_YarnLen) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) ');
SQL.Add(',ORDQTY2=ROUND(ORDQTY*1.08,2)');
SQL.Add(',ORDQTY2=ROUND(ORDQTY*(100+isnull(zs,0))/100,2)');
sql.Add(',ISSizing=(select ISSizing from Tat_WB_Spec E where E.WB_Code =B.WB_Code) ');
sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId');

52
E02梭织经轴仓库/WarpBeamStk.dproj.local
View File

@ -147,31 +147,31 @@
<File Path="U_WBNeedHTList.dfm"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>2025/11/15 16:39:54.000.378,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>2025/11/15 17:02:40.000.598,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_LogInput.pas</Transaction>
<Transaction>2025/12/12 14:33:26.000.162,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKInPut.pas</Transaction>
<Transaction>2025/12/12 14:51:55.000.373,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKKaiKa.pas</Transaction>
<Transaction>2025/12/12 14:57:30.000.192,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZK.pas</Transaction>
<Transaction>2025/12/23 09:36:15.000.210,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTLook.pas</Transaction>
<Transaction>2025/12/25 16:38:57.000.020,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTLook.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.192,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZK.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.378,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKKaiKa.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.020,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.162,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.598,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_LogInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
</Transactions>
</BorlandProject>

BIN
E02梭织经轴仓库/WarpBeamStk.identcache
View File

Binary file not shown.

BIN
E02梭织经轴仓库/testDll.identcache
View File

Binary file not shown.

BIN
E02梭织经轴仓库/testDll.res
View File

Binary file not shown.