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

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-03-24 10:22:19 +08:00
parent 0886812848
commit 9c9076e6af
36 changed files with 11903 additions and 306 deletions
Show Stats Download Patch File Download Diff File 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);

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.

47
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,22 @@ 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 ExplicitLeft = 0
ExplicitTop = 0 ExplicitWidth = 426
ExplicitHeight = 183
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -377,6 +385,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

72
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,42 @@ 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';
with frmInvoiceSel.CDS_Invoice do
begin
Self.IVNo.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString;
Self.IVNo.Properties.LookupItems.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString;
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.Amount.Text := frmInvoiceSel.CDS_Invoice.FieldByName('Amount').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;
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 +458,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 +536,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 +583,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);

29
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,13 @@ inherited frmExpenseList: TfrmExpenseList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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'

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

@ -90,6 +90,8 @@ type
Tv1Use: TcxGridDBColumn; Tv1Use: TcxGridDBColumn;
btnChk2: TToolButton; btnChk2: TToolButton;
btnReChk2: TToolButton; btnReChk2: TToolButton;
Tv1IVNo: TcxGridDBColumn;
TbFP: TToolButton;
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 +116,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 +128,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 +145,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 +181,15 @@ begin
if Trim(FAuthority) = '审核2' then if Trim(FAuthority) = '审核2' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
cxTabControl1.Tabs[1].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 +210,16 @@ 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 +247,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 +346,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 +491,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
@ -1199,20 +1259,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.

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

@ -170,6 +170,8 @@ inherited frmFtyStatement: TfrmFtyStatement
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -8
ExplicitTop = 97
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -363,9 +365,9 @@ inherited frmFtyStatement: TfrmFtyStatement
Properties.Style = 11 Properties.Style = 11
Properties.TabIndex = 0 Properties.TabIndex = 0
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

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

@ -77,8 +77,8 @@ begin
user := 'kaixiyasa'; user := 'kaixiyasa';
pswd := 'rightsoft,.KXY@YN'; pswd := 'rightsoft,.KXY@YN';
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 := '审核';
// Parameters1 := '¸¶¿î'; // Parameters1 := '¸¶¿î';
end end
else else
@ -236,7 +236,7 @@ begin
end; end;
end; end;
311: //费用登记 311: //付款申请
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

43
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,9 +92,11 @@ 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
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
@ -201,7 +203,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 +212,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 +221,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,13 +231,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
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end
@ -241,8 +240,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 +259,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

69
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,7 +215,9 @@ 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;
@ -224,10 +228,12 @@ begin
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 +281,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
@ -558,11 +587,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 +614,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 := '1102083046';
Self.CDS_Invoice.FieldByName('OurShuiNo').value := 'W0001';
CDS_Invoice.Post; CDS_Invoice.Post;
end; end;
@ -716,11 +750,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 +771,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;

36
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
@ -252,6 +259,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
ExplicitTop = 132
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -379,6 +387,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 +396,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 +405,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 +426,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 +436,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 +445,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 +480,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

141
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,108 @@ 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;
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 +435,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 +474,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 +671,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

2
A09财务通用管理/U_InvoiceOutList.dfm
View File

@ -252,6 +252,8 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
ExplicitLeft = 8
ExplicitTop = 118
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

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

@ -0,0 +1,335 @@
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 ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
Visible = False
OnClick = ToolButton1Click
end
object ToolButton5: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #24212#20184#27454
ImageIndex = 2
Visible = False
OnClick = ToolButton5Click
end
object ToolButton2: TToolButton
Left = 229
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
Visible = False
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 300
Top = 0
AutoSize = True
Caption = #23548#20837
ImageIndex = 18
Visible = False
OnClick = ToolButton4Click
end
object Tbssel: TToolButton
Left = 371
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = TbsselClick
end
object ToolButton3: TToolButton
Left = 442
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 545
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 30
Width = 1530
Height = 474
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 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 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

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

@ -0,0 +1,789 @@
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;
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;
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);
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'' ');
sql.add(' and not exists (select 1 from Finance_Flow X where X.IVID = A.IVID) ');
// ShowMessage(sql.Text);
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, '财务管理');
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;
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.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, '财务管理');
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;
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

21
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:

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.

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.