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

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

@ -53,7 +53,6 @@ type
SHuangSeCu: TcxStyle; SHuangSeCu: TcxStyle;
CoName: TcxTextEdit; CoName: TcxTextEdit;
cxImageList_bar: TcxImageList; cxImageList_bar: TcxImageList;
ToolButton2: TToolButton;
TV1Column4: TcxGridDBColumn; TV1Column4: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); 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 Options.Editing = False
Width = 58 Width = 58
end end
object TV1Column3: TcxGridDBColumn
Caption = #32463#32433'/'#32428#32433
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object TV1Column13: TcxGridDBColumn object TV1Column13: TcxGridDBColumn
Caption = #32433#32447#32534#21495 Caption = #32433#32447#32534#21495
DataBinding.FieldName = 'Y_Code' DataBinding.FieldName = 'Y_Code'

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

@ -86,6 +86,7 @@ type
TV1Column17: TcxGridDBColumn; TV1Column17: TcxGridDBColumn;
TV1Column18: TcxGridDBColumn; TV1Column18: TcxGridDBColumn;
TV1Column19: TcxGridDBColumn; TV1Column19: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -157,10 +158,10 @@ begin
begin begin
Close; Close;
sql.Clear; 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(',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(',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); // showmessage(sql.Text);
Open; Open;
end; end;

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

@ -79,7 +79,7 @@
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <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> <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> </PropertyGroup>
<ItemGroup> <ItemGroup>

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

@ -1,45 +1,45 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm</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.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.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.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.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.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.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.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.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.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.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.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.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.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.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</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.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</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.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.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.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.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.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.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.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.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.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.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.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.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.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.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.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.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.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm</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.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.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.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm</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.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.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.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.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>2025/09/16 11:02:56.000.629,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\U_SupplierImport.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.629,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\U_SupplierImport.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -91,10 +91,10 @@
<File Path="U_CustInput.dfm"/> <File Path="U_CustInput.dfm"/>
<File Path="U_Customer.pas"/> <File Path="U_Customer.pas"/>
<File Path="U_Customer.dfm"/> <File Path="U_Customer.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_Factory.pas"/> <File Path="U_Factory.pas"/>
<File Path="U_Factory.dfm"/> <File Path="U_Factory.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_FactoryInput.pas"/> <File Path="U_FactoryInput.pas"/>
<File Path="U_FactoryInput.dfm"/> <File Path="U_FactoryInput.dfm"/>
<File Path="U_GetDllForm.pas"/> <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 ImageIndex = 3
OnClick = btnEditClick OnClick = btnEditClick
end end
object TBDel: TToolButton object TbLook: TToolButton
Left = 284 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475
ImageIndex = 8
OnClick = TbLookClick
end
object TBDel: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
OnClick = TBDelClick OnClick = TBDelClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 355 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -78,15 +86,23 @@ inherited frmFactory: TfrmFactory
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 426 Left = 497
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
ImageIndex = 11 ImageIndex = 11
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton4: TToolButton
Left = 600
Top = 0
AutoSize = True
Caption = #35843#25972#36134#26399
ImageIndex = 3
OnClick = ToolButton4Click
end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 529 Left = 703
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -94,7 +110,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 600 Left = 774
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -102,7 +118,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 703 Left = 877
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -110,7 +126,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 774 Left = 948
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -118,7 +134,7 @@ inherited frmFactory: TfrmFactory
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 845 Left = 1019
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -199,9 +215,14 @@ inherited frmFactory: TfrmFactory
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object Tv1ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'CoCode' DataBinding.FieldName = 'CoCode'
@ -300,6 +321,13 @@ inherited frmFactory: TfrmFactory
Options.Editing = False Options.Editing = False
Width = 120 Width = 120
end end
object Tv1BillCycle: TcxGridDBColumn
Caption = #36134#26399
DataBinding.FieldName = 'BillCycle'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #31246#21495 Caption = #31246#21495
DataBinding.FieldName = 'ShuiNo' DataBinding.FieldName = 'ShuiNo'
@ -417,7 +445,7 @@ inherited frmFactory: TfrmFactory
TabOrder = 4 TabOrder = 4
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 1
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23457#26680 #26410#23457#26680
#24050#23457#26680 #24050#23457#26680

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

@ -72,6 +72,10 @@ type
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ToolButton3: TToolButton; ToolButton3: TToolButton;
TbLook: TToolButton;
Tv1BillCycle: TcxGridDBColumn;
ToolButton4: TToolButton;
Tv1ssel: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -95,6 +99,8 @@ type
procedure CoCodePropertiesChange(Sender: TObject); procedure CoCodePropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure TbLookClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -109,7 +115,8 @@ var
implementation implementation
uses 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} {$R *.dfm}
@ -304,6 +311,56 @@ begin
TcxGridToExcel(self.Caption, cxGrid1); TcxGridToExcel(self.Caption, cxGrid1);
end; 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); procedure TfrmFactory.CoCodeChange(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
@ -429,6 +486,26 @@ begin
SInitCDSData(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1);
end; 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); procedure TfrmFactory.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
with ADOQueryTemp do with ADOQueryTemp do

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

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

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

@ -24,7 +24,7 @@ type
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ToolButton3: TToolButton; TbSave: TToolButton;
CDS_LXR: TClientDataSet; CDS_LXR: TClientDataSet;
DSLXR: TDataSource; DSLXR: TDataSource;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
@ -77,7 +77,7 @@ type
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure TbSaveClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -406,7 +406,7 @@ begin
end; end;
end; end;
procedure TfrmFactoryInput.ToolButton3Click(Sender: TObject); procedure TfrmFactoryInput.TbSaveClick(Sender: TObject);
begin begin
// if Trim(CoAbbrName.Text) = '' then // 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"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.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.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.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.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.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.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.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.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.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.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</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.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.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.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.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.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.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.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.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.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>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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <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 Left = 261
Top = 149 Top = 149
Caption = #36153#29992#30331#35760 Caption = #36153#29992#30331#35760
ClientHeight = 524 ClientHeight = 551
ClientWidth = 1014 ClientWidth = 1194
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -21,7 +21,7 @@ object frmExpenseInput: TfrmExpenseInput
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1014 Width = 1194
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -54,8 +54,8 @@ object frmExpenseInput: TfrmExpenseInput
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1014 Width = 1194
Height = 486 Height = 513
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -164,6 +164,13 @@ object frmExpenseInput: TfrmExpenseInput
Height = 21 Height = 21
Caption = #38134#34892#27700#21333#32534#30721 Caption = #38134#34892#27700#21333#32534#30721
end end
object Label15: TLabel
Left = 787
Top = 36
Width = 48
Height = 21
Caption = #21457#31080#21495
end
object FinanceNote: TMemo object FinanceNote: TMemo
Tag = 2 Tag = 2
Left = 168 Left = 168
@ -199,7 +206,7 @@ object frmExpenseInput: TfrmExpenseInput
Text = 'CNY' Text = 'CNY'
Width = 66 Width = 66
end end
object TaxNumber: TcxTextEdit object oppShuiNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 541 Left = 541
Top = 189 Top = 189
@ -315,21 +322,19 @@ object frmExpenseInput: TfrmExpenseInput
Width = 200 Width = 200
end end
object Panel1: TPanel object Panel1: TPanel
Left = 542 Left = 656
Top = 224 Top = 275
Width = 428 Width = 314
Height = 201 Height = 150
TabOrder = 15 TabOrder = 15
Visible = False Visible = False
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 426 Width = 312
Height = 199 Height = 148
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitTop = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -377,6 +382,19 @@ object frmExpenseInput: TfrmExpenseInput
end end
end 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 end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = DataLink_Financial.ADOLink

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

@ -31,7 +31,6 @@ type
ReimburseType: TcxButtonEdit; ReimburseType: TcxButtonEdit;
Label1: TLabel; Label1: TLabel;
Currency: TcxComboBox; Currency: TcxComboBox;
TaxNumber: TcxTextEdit;
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
OppBankCardNo: TcxTextEdit; OppBankCardNo: TcxTextEdit;
@ -68,6 +67,9 @@ type
PM_1: TPopupMenu; PM_1: TPopupMenu;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
N1: TMenuItem; N1: TMenuItem;
Label15: TLabel;
IVNo: TcxButtonEdit;
oppShuiNo: TcxTextEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -87,15 +89,16 @@ type
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure ScrollBox1Click(Sender: TObject); procedure ScrollBox1Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
function SaveData(): Boolean; function SaveData(): Boolean;
procedure InitGrid2(); procedure InitGrid2();
public public
{ Public declarations } { Public declarations }
FFFID: string; FFFID: string;
FoppShuiNoChange: string;
end; end;
var var
@ -105,7 +108,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel, U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel,
U_FinTradeSalesContractSel, U_ZDYBankSel; U_FinTradeSalesContractSel, U_ZDYBankSel, U_InvoiceSel;
{$R *.dfm} {$R *.dfm}
@ -148,7 +151,7 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.* from BS_Company A where 1=1 '); sql.Add('select A.* from BS_Company A where 1=1 ');
sql.Add(' and A.CoType=''供应商'' '); sql.Add(' and A.CoType=''供应商'' ');
SQL.Add(' and ShuiNo like ''%' + TaxNumber.Text + '%'' '); SQL.Add(' and ShuiNo like ''%' + oppShuiNo.Text + '%'' ');
Open; Open;
end; end;
@ -218,11 +221,12 @@ begin
FCoType := '供应商'; FCoType := '供应商';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString); OppCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); OppCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
TaxNumber.Text := Trim(CDS_1.fieldbyname('ShuiNo').AsString); oppShuiNo.Text := Trim(frmCompanySel.CDS_1.fieldbyname('ShuiNo').AsString);
OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString); OppBankName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('BankName').AsString);
OppBankCardNo.Text := Trim(CDS_1.fieldbyname('BankNo').AsString); OppBankCardNo.Text := Trim(frmCompanySel.CDS_1.fieldbyname('BankNo').AsString);
end; end;
end; end;
@ -401,9 +405,7 @@ begin
if CaretPos > 0 then if CaretPos > 0 then
begin begin
// 计算添加逗号后的光标位置偏移 // 计算添加逗号后的光标位置偏移
CaretPos := Length(TextBeforeCaret) + CaretPos := Length(TextBeforeCaret) + (StringReplace(Copy(Amount.Text, 1, Length(TextBeforeCaret)), ',', '', [rfReplaceAll]).Length - TextBeforeCaret.Length);
(StringReplace(Copy(Amount.Text, 1, Length(TextBeforeCaret)), ',', '', [rfReplaceAll])
.Length - TextBeforeCaret.Length);
if CaretPos <= Length(Amount.Text) then if CaretPos <= Length(Amount.Text) then
Amount.SelStart := CaretPos; Amount.SelStart := CaretPos;
end; end;
@ -413,6 +415,61 @@ begin
end; end;
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); procedure TfrmExpenseInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
@ -420,11 +477,15 @@ begin
end; end;
procedure TfrmExpenseInput.TaxNumberPropertiesChange(Sender: TObject); procedure TfrmExpenseInput.TaxNumberPropertiesChange(Sender: TObject);
begin
if FoppShuiNoChange <> '0' then
begin begin
InitGrid2(); InitGrid2();
Panel1.Visible := True; Panel1.Visible := True;
end; end;
end;
procedure TfrmExpenseInput.TBCloseClick(Sender: TObject); procedure TfrmExpenseInput.TBCloseClick(Sender: TObject);
begin begin
@ -494,7 +555,9 @@ begin
// FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode); // FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
// FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode); // FieldByName('OurBankID').Value := Trim(OurBankName.TxtCode);
// FieldByName('FFID').Value := Trim(MaxId); // 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); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2);
Post; Post;
end; end;
@ -539,7 +602,7 @@ procedure TfrmExpenseInput.Tv1DblClick(Sender: TObject);
begin begin
OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString); OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').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); OppBankName.Text := Trim(CDS_1.fieldbyname('BankName').AsString);
OppBankCardNo.Text := Trim(CDS_1.fieldbyname('BankNo').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 ImageIndex = 11
OnClick = TbnRePayClick OnClick = TbnRePayClick
end end
object ToolButton9: TToolButton object TbFP: TToolButton
Left = 842 Left = 842
Top = 0 Top = 0
AutoSize = True 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 Caption = #38468#20214#19978#20256
ImageIndex = 22 ImageIndex = 22
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 945 Left = 1048
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -125,7 +133,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TbPrint: TToolButton object TbPrint: TToolButton
Left = 1016 Left = 1119
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -133,7 +141,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbPrintClick OnClick = TbPrintClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 1087 Left = 1190
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -141,7 +149,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1190 Left = 1293
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -160,7 +168,6 @@ inherited frmExpenseList: TfrmExpenseList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 218 Left = 218
Top = 6 Top = 6
@ -288,7 +295,6 @@ inherited frmExpenseList: TfrmExpenseList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 130
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -411,7 +417,7 @@ inherited frmExpenseList: TfrmExpenseList
end end
object Tv1TaxNumber: TcxGridDBColumn object Tv1TaxNumber: TcxGridDBColumn
Caption = #31246#21495 Caption = #31246#21495
DataBinding.FieldName = 'TaxNumber' DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
@ -512,6 +518,27 @@ inherited frmExpenseList: TfrmExpenseList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1FJFlag: TcxGridDBColumn
Caption = #38468#20214 Caption = #38468#20214
DataBinding.FieldName = 'FJFlag' DataBinding.FieldName = 'FJFlag'
@ -543,7 +570,6 @@ inherited frmExpenseList: TfrmExpenseList
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 94
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

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

@ -90,6 +90,10 @@ type
Tv1Use: TcxGridDBColumn; Tv1Use: TcxGridDBColumn;
btnChk2: TToolButton; btnChk2: TToolButton;
btnReChk2: TToolButton; btnReChk2: TToolButton;
Tv1IVNo: TcxGridDBColumn;
TbFP: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -114,6 +118,7 @@ type
procedure TbPrintClick(Sender: TObject); procedure TbPrintClick(Sender: TObject);
procedure btnChk2Click(Sender: TObject); procedure btnChk2Click(Sender: TObject);
procedure btnReChk2Click(Sender: TObject); procedure btnReChk2Click(Sender: TObject);
procedure TbFPClick(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -125,7 +130,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ExpenseInput, U_ZDYHelp, U_AttachmentUpload, U_DataLink, U_RTFun, U_ExpenseInput, U_ZDYHelp, U_AttachmentUpload,
U_LabelPrint; U_LabelPrint, U_InvoiceSel, U_FKandFPUpload;
{$R *.dfm} {$R *.dfm}
procedure TfrmExpenseList.SetStatus(); procedure TfrmExpenseList.SetStatus();
@ -142,15 +147,21 @@ begin
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
btnDel.Enabled := false; //删除 btnDel.Enabled := false; //删除
TbFP.Enabled := False;
if Trim(FAuthority) = '审核' then if Trim(FAuthority) = '审核' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
cxTabControl1.Tabs[2].Visible := False;
cxTabControl1.Tabs[3].Visible := False;
// cxTabControl1.Tabs[0].caption := 'aa';
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
btnChk.Enabled := true; btnChk.Enabled := true;
TbFP.Enabled := true;
end; end;
1: 1:
begin begin
@ -172,12 +183,15 @@ begin
if Trim(FAuthority) = '审核2' then if Trim(FAuthority) = '审核2' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
cxTabControl1.Tabs[0].Visible := False;
cxTabControl1.Tabs[3].Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
// btnChk.Enabled := true; // btnChk.Enabled := true;
TbFP.Enabled := true;
end; end;
1: 1:
begin begin
@ -198,12 +212,17 @@ begin
if Trim(FAuthority) = '付款' then if Trim(FAuthority) = '付款' then
begin begin
cxTabControl1.Tabs[0].Visible := False;
cxTabControl1.Tabs[1].Visible := False;
cxTabControl1.Tabs[2].caption := '未付款';
btnAdd.Enabled := true; btnAdd.Enabled := true;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
TbFP.Enabled := true;
// btnChk.Enabled := true; // btnChk.Enabled := true;
end; end;
1: 1:
@ -231,6 +250,7 @@ begin
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
TbFP.Enabled := true;
end; end;
1: 1:
begin begin
@ -329,6 +349,50 @@ begin
Close; Close;
end; 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); procedure TfrmExpenseList.TbnPayClick(Sender: TObject);
var var
FFFIDS: string; FFFIDS: string;
@ -430,7 +494,6 @@ begin
// 显示选择的日期和银行水单编码（调试用） // 显示选择的日期和银行水单编码（调试用）
// ShowMessage('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode); // ShowMessage('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode);
// 这里可以添加审核确认 // 这里可以添加审核确认
if application.MessageBox(PChar('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode + #13#10 + '确认付款吗？'), '确认付款', MB_YESNO + MB_ICONQUESTION) = IDYES then if application.MessageBox(PChar('付款日期: ' + DateToStr(SelectedDate) + #13#10 + '银行水单编码: ' + BankSlipCode + #13#10 + '确认付款吗？'), '确认付款', MB_YESNO + MB_ICONQUESTION) = IDYES then
begin begin
@ -819,7 +882,12 @@ begin
Enddate.Date := SGetServerDate(ADOQueryTemp); Enddate.Date := SGetServerDate(ADOQueryTemp);
begdate.Date := Enddate.Date - 30; begdate.Date := Enddate.Date - 30;
FAuthority := self.fParameters1; FAuthority := self.fParameters1;
if FAuthority = '付款' then
begin
cxTabControl1.TabIndex := 2;
end;
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;
@ -1199,20 +1267,22 @@ begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
try try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); frmFKandFPUpload := TfrmFKandFPUpload.Create(Application);
with frmAttachmentUpload do with frmFKandFPUpload do
begin begin
if Trim(Self.CDS_1.fieldbyname('filler').AsString) = dname then if Trim(Self.CDS_1.fieldbyname('filler').AsString) = dname then
FEditAuthority := True; FEditAuthority := True;
fkeyNO := Trim(Self.CDS_1.fieldbyname('FFID').AsString); fkeyNO := Trim(Self.CDS_1.fieldbyname('FFID').AsString);
fkeyNO2 := Trim(Self.CDS_1.fieldbyname('IVID').AsString);
fType := '费用登记'; fType := '费用登记';
fType2 := '进项发票';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
end; end;
end; end;
finally finally
frmAttachmentUpload.Free; frmFKandFPUpload.Free;
end; end;
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 AutoSize = True
Caption = #24212#20184#26126#32454#21333 Caption = #24212#20184#26126#32454#21333
ImageIndex = 21 ImageIndex = 21
Visible = False
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
@ -104,6 +105,7 @@ inherited frmFtyStatement: TfrmFtyStatement
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 36
object Label3: TLabel object Label3: TLabel
Left = 400 Left = 400
Top = 13 Top = 13
@ -170,6 +172,7 @@ inherited frmFtyStatement: TfrmFtyStatement
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -253,11 +256,9 @@ inherited frmFtyStatement: TfrmFtyStatement
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column1
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -267,6 +268,13 @@ inherited frmFtyStatement: TfrmFtyStatement
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object Tv2Column3: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'oppshuino'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 150
end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'OppCoName'
@ -281,8 +289,8 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #19978#26399#27424#27454 Caption = #19978#26399#27424#27454
DataBinding.FieldName = 'SQJYAmount' DataBinding.FieldName = 'SQJYAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 96 Width = 96
@ -291,8 +299,8 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #26412#26399#24212#20184 Caption = #26412#26399#24212#20184
DataBinding.FieldName = 'BQYFAmount' DataBinding.FieldName = 'BQYFAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 106 Width = 106
@ -301,8 +309,8 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #26412#26399#20184#27454 Caption = #26412#26399#20184#27454
DataBinding.FieldName = 'BQFKAmount' DataBinding.FieldName = 'BQFKAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 108 Width = 108
@ -311,42 +319,12 @@ inherited frmFtyStatement: TfrmFtyStatement
Caption = #26412#26399#27424#27454 Caption = #26412#26399#27424#27454
DataBinding.FieldName = 'BQJYAmount' DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 104 Width = 104
end 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 end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv2 GridView = Tv2
@ -361,17 +339,21 @@ inherited frmFtyStatement: TfrmFtyStatement
TabOrder = 3 TabOrder = 3
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 11 Properties.Style = 11
Properties.TabIndex = 0 Properties.TabIndex = 1
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
' $ ' ' USD '
' '#65509' ' ' CNY '
' '#8364' ') ' VND ')
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 322
Top = 204
ExplicitLeft = 322
ExplicitTop = 204
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

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

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, cxPC, dxDateRanges, dxBarBuiltInMenu, cxPC, dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd,
U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, cxContainer, dxCore, DateUtils, cxContainer, dxCore, cxDateUtils, cxDropDownEdit, dxSkinsCore,
cxDateUtils, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, cxCurrencyEdit;
dxScrollbarAnnotations, cxProgressBar;
type type
TfrmFtyStatement = class(TfrmBaseList) TfrmFtyStatement = class(TfrmBaseList)
@ -52,16 +51,13 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
ToolButton6: TToolButton; ToolButton6: TToolButton;
Label2: TLabel; Label2: TLabel;
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
Label4: TLabel; Label4: TLabel;
Tv2Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -94,6 +90,7 @@ uses
procedure TfrmFtyStatement.InitGrid(); procedure TfrmFtyStatement.InitGrid();
begin begin
Panel1.SetFocus();
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
@ -115,10 +112,10 @@ begin
end; end;
2: 2:
begin begin
sql.Add(' ,@Currency=''EUR'' '); sql.Add(' ,@Currency=''VND'' ');
end; end;
end; end;
// ShowMessage(sql.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_HZ); SCreateCDS(ADOQueryMain, CDS_HZ);
@ -195,7 +192,7 @@ begin
begdate.Date := self.begdate.Date; begdate.Date := self.begdate.Date;
enddate.Date := self.Enddate.Date; enddate.Date := self.Enddate.Date;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString; 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; FZKType := Self.FZKType;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -208,7 +205,7 @@ begin
end; end;
2: 2:
begin begin
FCurrency := 'EUR'; FCurrency := 'VND';
end; end;
end; end;
show; 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; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1:='¹ÜÀí'; Parameters1:='¹ÜÀí';
// Parameters1 := 'ÉóºË2'; // Parameters1 := 'ÉóºË2';
// Parameters1 := '마운'; Parameters1 := '마운';
end end
else else
begin begin
@ -236,7 +236,7 @@ begin
end; end;
end; end;
311: //롤痰되션 311: //마운<EFBFBD>헝
begin begin
with TfrmExpenseList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmExpenseList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin

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

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

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

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

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

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

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

@ -13,10 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels, cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList,
dxDateRanges, U_BaseList, Vcl.Clipbrd, cxContainer, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
dxCore, cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, cxCurrencyEdit;
dxScrollbarAnnotations, cxProgressBar;
type type
TfrmInvoiceInList = class(TfrmBaseList) TfrmInvoiceInList = class(TfrmBaseList)
@ -85,8 +84,9 @@ type
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Chker: TcxGridDBColumn; Tv1Chker: TcxGridDBColumn;
Tv1Chktime: TcxGridDBColumn; Tv1Chktime: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1PayStatus: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1PayTime: TcxGridDBColumn;
TbYFK: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -110,6 +110,8 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure TbYFKClick(Sender: TObject);
procedure SaveFlowInvoice(const IVID, FFFIDs: string);
private private
{ Private declarations } { Private declarations }
@ -127,7 +129,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_LabelPrint, U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_LabelPrint,
U_AttachmentUpload; U_AttachmentUpload, U_PayableSel;
{$R *.dfm} {$R *.dfm}
@ -137,6 +139,7 @@ begin
tnochk.Visible := false; tnochk.Visible := false;
TUPDATE.Visible := false; TUPDATE.Visible := false;
tbdel.Visible := false; tbdel.Visible := false;
// TbYFK.visible := False;
if trim(DParameters1) <> '高权限' then if trim(DParameters1) <> '高权限' then
begin begin
@ -146,6 +149,7 @@ begin
TUPDATE.Visible := true; TUPDATE.Visible := true;
tbdel.Visible := true; tbdel.Visible := true;
TCHK.Visible := true; TCHK.Visible := true;
// TbYFK.visible := true;
end; end;
1: 1:
begin begin
@ -166,6 +170,7 @@ begin
TUPDATE.Visible := true; TUPDATE.Visible := true;
tbdel.Visible := true; tbdel.Visible := true;
TCHK.Visible := true; TCHK.Visible := true;
// TbYFK.visible := true;
end; end;
1: 1:
begin begin
@ -189,7 +194,10 @@ begin
SQL.Clear; SQL.Clear;
sql.Add(' select A.* '); 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(',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(' from Finance_Invoice A ');
sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' '); sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' ');
@ -250,6 +258,151 @@ begin
InitGrid(); InitGrid();
end; 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); procedure TfrmInvoiceInList.ToolButton2Click(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
@ -325,6 +478,8 @@ begin
end; end;
if application.MessageBox('确定要删除发票吗？', '提示', 1) = 2 then if application.MessageBox('确定要删除发票吗？', '提示', 1) = 2 then
exit; exit;
ADOQueryCmd.Connection.BeginTrans;
with CDS_Invoice do with CDS_Invoice do
begin begin
DisableControls; 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 )'); sql.add('and exists(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FIVIDS) + ','','') X where X.RTVALUE=Finance_Invoice.IVID )');
execsql; execsql;
end; 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('删除成功', '提示'); application.MessageBox('删除成功', '提示');
ADOQueryCmd.Connection.CommitTrans; // 提交事务
except except
ADOQueryCmd.Connection.RollbackTrans; // 出错回滚
application.MessageBox('删除失败', '提示'); application.MessageBox('删除失败', '提示');
InitGrid(); InitGrid();
end; end;
@ -548,7 +714,7 @@ begin
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do with frmAttachmentUpload do
begin begin
fkeyNO := Trim(Self.CDS_Invoice.fieldbyname('IVNo').AsString); fkeyNO := Trim(Self.CDS_Invoice.fieldbyname('IVID').AsString);
fType := '进项发票'; fType := '进项发票';
FEditAuthority := True; FEditAuthority := True;
if ShowModal = 1 then 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 ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -96,8 +95,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 1 TabOrder = 1
ExplicitLeft = -8
ExplicitTop = 36
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -161,6 +158,34 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
end 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 object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
@ -175,34 +200,19 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 91
end end
object Tv1ourShuiNo: TcxGridDBColumn object Tv1FinType: TcxGridDBColumn
Caption = #25105#26041#31246#21495 Caption = #31867#22411
DataBinding.FieldName = 'ourShuiNo' DataBinding.FieldName = 'FinType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#32433#32447
#38050#31576
#22383#24067
#26426#29289#26009)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1FFAbstract: TcxGridDBColumn
Caption = #25688#35201 Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract' DataBinding.FieldName = 'FFAbstract'
@ -217,6 +227,13 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object Tv1PurNo: TcxGridDBColumn object Tv1PurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'PurNo' DataBinding.FieldName = 'PurNo'
@ -247,13 +264,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 91
end end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object Tv1BuyConNo: TcxGridDBColumn object Tv1BuyConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495 Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
@ -261,19 +271,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 127 Width = 127
end 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 object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'F_Code' DataBinding.FieldName = 'F_Code'

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

@ -86,9 +86,7 @@ type
procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1CurrencyPropertiesChange(Sender: TObject); procedure Tv1CurrencyPropertiesChange(Sender: TObject);
procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject); procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
procedure TV1OurCoNamePropertiesButtonClick(Sender: TObject; procedure TV1OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
@ -127,7 +125,16 @@ begin
Filtered := False; Filtered := False;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(' from Finance_Flow 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; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);
@ -339,11 +346,11 @@ begin
Application.MessageBox('登记日期不能为空!', '提示', 0); Application.MessageBox('登记日期不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_1.Locate('ReconciliationDate', null, []) = True then // if CDS_1.Locate('ReconciliationDate', null, []) = True then
begin // begin
Application.MessageBox('¶ÔÕËÈÕÆÚ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); // Application.MessageBox('对账日期不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
if CDS_1.Locate('FinType', null, []) = True then if CDS_1.Locate('FinType', null, []) = True then
begin begin
@ -408,6 +415,9 @@ begin
self.CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd); self.CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
self.CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd); self.CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
self.CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD'; 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('FinType').Value := '纱线';
self.CDS_1.FieldByName('Currency').Value := 'CNY'; self.CDS_1.FieldByName('Currency').Value := 'CNY';
self.CDS_1.FieldByName('SSel').Value := False; self.CDS_1.FieldByName('SSel').Value := False;
@ -641,7 +651,7 @@ begin
begin begin
Self.CDS_1.Edit; Self.CDS_1.Edit;
Self.CDS_1.FieldByName('OppCoName').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('CoName').AsString); 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.FieldByName('oppShuiNo').asstring := Trim(frmCompanySel.CDS_1.fieldbyname('ShuiNo').AsString);
Self.CDS_1.Post; Self.CDS_1.Post;
end; end;
@ -702,8 +712,7 @@ begin
end; end;
end; end;
procedure TfrmPayableBatchInput.TV1OurCoNamePropertiesButtonClick( procedure TfrmPayableBatchInput.TV1OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmCompanySel := TfrmCompanySel.Create(Application); frmCompanySel := TfrmCompanySel.Create(Application);

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

@ -316,7 +316,7 @@ inherited frmPayableList: TfrmPayableList
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 38
end end
object Tv1FFTime: TcxGridDBColumn object Tv1FFTime: TcxGridDBColumn
Tag = 7 Tag = 7
@ -330,24 +330,27 @@ inherited frmPayableList: TfrmPayableList
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
end end
object Tv1Column1: TcxGridDBColumn object Tv1IVNo: TcxGridDBColumn
Caption = #21457#31080#21495#30721 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 DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1oppShuiNo: TcxGridDBColumn
Caption = #20379#24212#21830#31246#21495 Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'oppShuiNo' DataBinding.FieldName = 'oppShuiNo'
@ -421,7 +424,7 @@ inherited frmPayableList: TfrmPayableList
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 127 Width = 130
end end
object Tv1F_Code: TcxGridDBColumn object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
@ -568,7 +571,6 @@ inherited frmPayableList: TfrmPayableList
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

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

@ -92,11 +92,11 @@ type
TbnBatchAdd: TToolButton; TbnBatchAdd: TToolButton;
Tv1FinType: TcxGridDBColumn; Tv1FinType: TcxGridDBColumn;
Tv1PurNo: TcxGridDBColumn; Tv1PurNo: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1oppShuiNo: TcxGridDBColumn; Tv1oppShuiNo: TcxGridDBColumn;
Tv1ourShuiNo: TcxGridDBColumn; Tv1ourShuiNo: TcxGridDBColumn;
Tv1IVNo: TcxGridDBColumn;
Tv1BGDNum: TcxGridDBColumn;
Tv1IVDate: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -181,12 +181,21 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
Filtered := False; 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(',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 确保只取第一条
// 内关联 Finance_Invoice（发票主表）：通过关联表B的IVId关联
sql.Add(' from Finance_Flow A '); sql.Add(' left JOIN Finance_Invoice C ON B.IVId = C.IVId ');
sql.Add(' where A.FFType=''Ó¦¸¶¿îµÇ¼Ç'' '); sql.Add(' where A.FFType=''Ó¦¸¶¿îµÇ¼Ç'' ');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -299,7 +308,7 @@ end;
procedure TfrmPayableList.TBRafreshClick(Sender: TObject); procedure TfrmPayableList.TBRafreshClick(Sender: TObject);
begin begin
begdate.SetFocus; panel1.SetFocus;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;

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

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

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

@ -88,7 +88,6 @@ type
procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject); procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
procedure TbSSelClick(Sender: TObject); procedure TbSSelClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
@ -133,18 +132,20 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
Filtered := False; Filtered := False;
sql.Add(' select A.* '); sql.Add(' select A.*,B.BillCycle ');
sql.Add(' from Finance_Flow A '); 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 = ''应付付'' '); SQL.Add(' and FFFlag = ''应付付'' ');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin 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; end;
1: 1:
begin 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;
end; end;
Open; Open;
@ -935,9 +936,12 @@ begin
ShowMessage('选择的对方单位不相同'); ShowMessage('选择的对方单位不相同');
exit; exit;
end; end;
if FFFIDs <> '' then
begin
ModalResult := 1; ModalResult := 1;
end; end;
end;
end. end.

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

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

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

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

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

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

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

@ -115,7 +115,8 @@ begin
begin begin
Close; Close;
sql.Clear; 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; Open;
end; end;
SCreateCDS(ADOQueryMain, ClientDataSet1); SCreateCDS(ADOQueryMain, ClientDataSet1);
@ -393,7 +394,7 @@ var
begin begin
if Trim(ZDYName.Text) <> '' then if Trim(ZDYName.Text) <> '' then
begin 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; end;
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin 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 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -343
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 618 ExplicitHeight = 618
PixelsPerInch = 96 PixelsPerInch = 96
@ -21,7 +22,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Height = 549 Height = 549
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 36
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -223,11 +223,13 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.DropDownListStyle = lsEditFixedList Properties.Buttons = <
Properties.Items.Strings = ( item
'Kg' Default = True
'M') Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1QtyUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 54 Width = 54
end end

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

@ -89,6 +89,7 @@ type
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure Tv1FromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1FromConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
function SaveCKData(): Boolean; function SaveCKData(): Boolean;
@ -884,6 +885,29 @@ begin
end; end;
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); procedure TfrmYarnInEdit.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin

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

@ -1,103 +1,103 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.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.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.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.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.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.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.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.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.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.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.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.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.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.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.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.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.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.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.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.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.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.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.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.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.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.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.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.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <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"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.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.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.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.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.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.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.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</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.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.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.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.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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.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>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

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

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

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

@ -1,85 +1,85 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</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.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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.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.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.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.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</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.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.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.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.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.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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</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.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.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\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.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:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.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.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.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm</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\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</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.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>2025/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <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 ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 5 TabOrder = 5
ExplicitTop = 4
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -166,8 +165,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 6 TabOrder = 6
ExplicitLeft = 8
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 14 Top = 14
@ -278,8 +275,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 541 Height = 541
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
ExplicitLeft = -5
ExplicitTop = 117
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -500,7 +495,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#24050#32467#26463 #24050#32467#26463
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitLeft = -1
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 30 ClientRectTop = 30
@ -521,8 +515,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 61
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -675,8 +667,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 6
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -730,8 +720,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#31232#36724 #31232#36724
#27974#36724) #27974#36724)
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ExplicitLeft = 6
ExplicitTop = 45
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 709 ClientRectRight = 709
ClientRectTop = 30 ClientRectTop = 30

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

@ -8,6 +8,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
ExplicitLeft = -12
ExplicitWidth = 1445 ExplicitWidth = 1445
ExplicitHeight = 802 ExplicitHeight = 802
PixelsPerInch = 96 PixelsPerInch = 96
@ -337,9 +338,18 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Caption = #31570#37325'KG' Caption = #31570#37325'KG'
DataBinding.FieldName = 'TZQTY' DataBinding.FieldName = 'TZQTY'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object Tv1Column5: TcxGridDBColumn
Caption = #21333#31570#32433#38271'M'
DataBinding.FieldName = 'TMETER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #35745#21010#24635#29992#37327'KG' Caption = #35745#21010#24635#29992#37327'KG'
DataBinding.FieldName = 'JHYLQTY' DataBinding.FieldName = 'JHYLQTY'
@ -392,6 +402,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
OnDblClick = gynoDblClick OnDblClick = gynoDblClick
ExplicitLeft = 2
ExplicitTop = 41 ExplicitTop = 41
object Label3: TLabel object Label3: TLabel
Left = 708 Left = 708
@ -920,6 +931,19 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end 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 object C_NAME: TEdit
Left = 788 Left = 788
Top = 5 Top = 5
@ -1378,6 +1402,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
TabOrder = 29 TabOrder = 29
Width = 70 Width = 70
end 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 end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Left = 969 Left = 969

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

@ -127,6 +127,9 @@ type
Label42: TLabel; Label42: TLabel;
Tv1Supplier: TcxGridDBColumn; Tv1Supplier: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn; Tv1IOTime: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label36: TLabel;
wb_dgxzcd: TEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -148,8 +151,7 @@ type
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnTotalLenExit(Sender: TObject); procedure WB_YarnTotalLenExit(Sender: TObject);
procedure ButtonEdit(Sender: TObject; procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
private private
procedure InitData(); procedure InitData();
function SaveData(): Boolean; function SaveData(): Boolean;
@ -301,8 +303,8 @@ begin
begin begin
Close; Close;
sql.Clear; 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)) ');
sql.Add(' where YRType=''¾­Ë¿'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + ''''); 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 '); sql.Add(' Order by RowNo ');
Open; Open;
end; end;
@ -324,7 +326,7 @@ begin
FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value; FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').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('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value;
// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value; // FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value;
@ -355,7 +357,6 @@ begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
try try
if FTWPId <> '' then if FTWPId <> '' then
begin begin
@ -378,8 +379,6 @@ begin
frmLogInput.Free; frmLogInput.Free;
end; end;
if Trim(FTWPId) = '' then if Trim(FTWPId) = '' then
begin begin
if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then
@ -554,7 +553,7 @@ end;
procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
ZS, ZGS, zms: double; ZS, ZGS, zms, ZDDZL, FZS: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -575,6 +574,15 @@ begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数 ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end; end;
if FieldByName('TZQTY').Value = null then
begin
ZDDZL := 0;
end
else
begin
ZDDZL := FieldByName('TZQTY').Value;
end;
if FieldByName('ZS').Value = null then if FieldByName('ZS').Value = null then
begin begin
ZS := 0; //循环根数 ZS := 0; //循环根数
@ -583,15 +591,22 @@ begin
begin begin
ZS := FieldByName('ZS').Value; //循环根数 ZS := FieldByName('ZS').Value; //循环根数
end; end;
FZS := StrToFloatDef(Z_ZHOUSHU1.Text, 0) + StrToFloatDef(Z_ZHOUSHU2.Text, 0);
end; end;
if ZS <> 0 then if ZS <> 0 then
begin begin
with CDS_1 do with CDS_1 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 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; Post;
end; end;
end; end;
@ -661,8 +676,7 @@ begin
end; end;
end; end;
procedure TfrmTatWBPlanInPut.ButtonEdit(Sender: TObject; procedure TfrmTatWBPlanInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmYarnStkSel := TfrmYarnStkSel.Create(Application); frmYarnStkSel := TfrmYarnStkSel.Create(Application);
@ -692,7 +706,7 @@ begin
finally finally
frmYarnStkSel.Free; frmYarnStkSel.Free;
end; end;
Tv1Column6PropertiesEditValueChanged(Sender);
end; end;
procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject); procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject);
@ -838,8 +852,8 @@ begin
with CDS_1 do with CDS_1 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2); FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS / 100 * zms, 2);
Post; Post;
end; end;
end; end;

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

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

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

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

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

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

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

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

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

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

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

@ -64,7 +64,6 @@ inherited frmWeaveSel: TfrmWeaveSel
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 15 Left = 15
Top = 7 Top = 7
@ -170,7 +169,6 @@ inherited frmWeaveSel: TfrmWeaveSel
#24050#23433#25490 #24050#23433#25490
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectBottom = 545 ClientRectBottom = 545
ClientRectLeft = 1 ClientRectLeft = 1
ClientRectRight = 1539 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(' 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(',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(',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(',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'); 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"/> <File Path="U_WBNeedHTList.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <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.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.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.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.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.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.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.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.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.210,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTLook.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.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.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</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.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.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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</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.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.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.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.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.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.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.378,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>2025/11/15 16:39:54.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>2025/11/15 17:02:40.000.598,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_LogInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.020,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTList.pas</Transaction>
<Transaction>2025/12/12 14:33:26.000.162,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.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>1899-12-30 00:00:00.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas</Transaction>
<Transaction>2025/12/12 14:57:30.000.192,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZK.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.598,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_LogInput.pas</Transaction>
<Transaction>2025/12/23 09:36:15.000.210,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTLook.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.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.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
</Transactions> </Transactions>
</BorlandProject> </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.