Group_99/D10myBiaoqi
7
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-05-13 09:17:14 +08:00
parent a500748e12
commit 9c4e5fe048
32 changed files with 218 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
A09财务通用管理/Financial.dpr
View File

@ -45,7 +45,8 @@ uses
U_ZDPrice in 'U_ZDPrice.pas' {frmZDPrice}, U_ZDPrice in 'U_ZDPrice.pas' {frmZDPrice},
U_BatchEdit in 'U_BatchEdit.pas' {frmBatchEdit}, U_BatchEdit in 'U_BatchEdit.pas' {frmBatchEdit},
U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails}, U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails},
U_TaxSet in 'U_TaxSet.pas' {frmTaxSet}; U_TaxSet in 'U_TaxSet.pas' {frmTaxSet},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
{$R *.res} {$R *.res}

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

@ -80,7 +80,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<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>
<Debugger_HostApplication>E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\D10W\项目代码\D10zzbiaoqi\A09财务通用管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -222,6 +222,7 @@
<Form>frmTaxSet</Form> <Form>frmTaxSet</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -1,52 +1,53 @@
<?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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.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.318,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.318,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.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.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_PictureUpload.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.255,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.255,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.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.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm</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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,=D:\D10W\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.215,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.215,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.297,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.255,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.255,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.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.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.684,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.684,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.531,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_PlanProfitDetails.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.659,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.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.402,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.402,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.889,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.889,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPriceDetails.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</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.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.014,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_BatchEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.014,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_BatchEdit.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.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.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.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.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.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
@ -69,9 +70,9 @@
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.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.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.256,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPrice.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.256,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPrice.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm</Transaction>
@ -100,7 +101,7 @@
<File Path="..\T00贸易通用窗体"/> <File Path="..\T00贸易通用窗体"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.pas"/> <File Path="..\T00贸易通用窗体\U_TradePlanSel.pas"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/> <File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/>
<File Path="..\..\..\..\Dp10Repo"/> <File Path="D:\D10W"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/> <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
@ -121,6 +122,7 @@
<File Path="..\..\..\public10\ThreeFun\Fun"/> <File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<File Path="U_DataLink.pas"/> <File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/> <File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/> <File Path="U_GetDllForm.pas"/>

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

Binary file not shown.

2
A09财务通用管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\D10V1W\项目代码\D10zzbiaoqi\A09财务通用管理\Financial.dproj"/> <Projects ActiveProject="D:\D10W\项目代码\D10zzbiaoqi\A09财务通用管理\Financial.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

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

@ -167,7 +167,6 @@ inherited frmCollectList: TfrmCollectList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 172 Left = 172
Top = 13 Top = 13
@ -323,7 +322,6 @@ inherited frmCollectList: TfrmCollectList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 142
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

15
A09财务通用管理/U_CollectList.pas
View File

@ -486,6 +486,19 @@ begin
DisableControls; DisableControls;
while CDS_1.Locate('SSel', True, []) do while CDS_1.Locate('SSel', True, []) do
begin begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
application.MessageBox(PChar('计划单' + CDS_1.FieldByName('OrderNo').AsString + '已完成或已清算，无法操作'), '提示');
Exit;
end;
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete; CDS_1.Delete;
end; end;
@ -580,7 +593,7 @@ begin
sql.Add(' update Costing_Table set HYStatus = 1 where COrderNO in (select B.orderno from Finance_WriteOff A '); sql.Add(' update Costing_Table set HYStatus = 1 where COrderNO in (select B.orderno from Finance_WriteOff A ');
sql.Add(' inner join Finance_Flow B on A.FromId=B.FFID '); sql.Add(' inner join Finance_Flow B on A.FromId=B.FFID ');
sql.Add(' inner join Finance_Flow C on A.ToId=C.FFID '); sql.Add(' inner join Finance_Flow C on A.ToId=C.FFID ');
sql.Add(' where FromId=''' + Trim(FFID.Text) + ''')' ); sql.Add(' where FromId=''' + Trim(FFID.Text) + ''')');
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
execsql; execsql;

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

@ -157,6 +157,7 @@ begin
SQL.Clear; SQL.Clear;
Filtered := False; Filtered := False;
sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00,CurSXFAmount=0.00,CurJHExchangeRate=0.0000 '); sql.Add('select *,NWoAmount=Amount-isnull(FFWoAmount,0),CurWoAmount=0.00,CurSXFAmount=0.00,CurJHExchangeRate=0.0000 ');
SQL.Add(',JHSTATUS=(SELECT STATUS FROM Trade_Plan_Main F WHERE F.ORDERNO=C.ORDERNO )');
sql.Add('from Finance_Flow A '); sql.Add('from Finance_Flow A ');
sql.Add(' where Amount-isnull(FFWoAmount,0)<>0'); sql.Add(' where Amount-isnull(FFWoAmount,0)<>0');
sql.Add(' and FFType=' + quotedstr(trim('Ó¦ÊÕ¿îµÇ¼Ç'))); sql.Add(' and FFType=' + quotedstr(trim('Ó¦ÊÕ¿îµÇ¼Ç')));
@ -330,6 +331,11 @@ begin
begin begin
if CDS_Ysk.FieldByName('ssel').AsBoolean and (Abs(CDS_Ysk.FieldByName('CurWoAmount').AsFloat) > 0.001) then if CDS_Ysk.FieldByName('ssel').AsBoolean and (Abs(CDS_Ysk.FieldByName('CurWoAmount').AsFloat) > 0.001) then
begin begin
if (CDS_Ysk.FieldByName('JHSTATUS').asstring = '10') or (CDS_Ysk.FieldByName('JHSTATUS').asstring = '12') then
begin
raise Exception.Create(pchar('已完成或已清算的计划单不能操作,计划单号:' + CDS_Ysk.FieldByName('OrderNO').asstring));
end;
with AdoqueryCmd do with AdoqueryCmd do
begin begin
Close; Close;

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

@ -109,6 +109,7 @@ begin
Filtered := False; Filtered := False;
sql.Add(' select WoID2 AS WoID,AA.* from( '); sql.Add(' select WoID2 AS WoID,AA.* from( ');
sql.Add(' select WoID2=cast (A.WoID AS Varchar),A.*,C.F_Code,C.F_Name,C.F_Color,C.F_ColorNo '); sql.Add(' select WoID2=cast (A.WoID AS Varchar),A.*,C.F_Code,C.F_Name,C.F_Color,C.F_ColorNo ');
SQL.Add(',JHSTATUS=(SELECT STATUS FROM Trade_Plan_Main F WHERE F.ORDERNO=C.ORDERNO )');
sql.Add(' ,C.BuyConNo,C.OrderNo,C.oppCoName from Finance_WriteOff A '); sql.Add(' ,C.BuyConNo,C.OrderNo,C.oppCoName from Finance_WriteOff A ');
sql.Add(' inner join Finance_Flow B on A.FromId=B.FFID '); sql.Add(' inner join Finance_Flow B on A.FromId=B.FFID ');
sql.Add(' inner join Finance_Flow C on A.ToId=C.FFID '); sql.Add(' inner join Finance_Flow C on A.ToId=C.FFID ');
@ -203,6 +204,11 @@ begin
begin begin
if Fieldbyname('ssel').AsBoolean then if Fieldbyname('ssel').AsBoolean then
begin begin
if (CDS_HZ.FieldByName('JHSTATUS').asstring = '10') or (CDS_HZ.FieldByName('JHSTATUS').asstring = '12') then
begin
raise Exception.Create(pchar('已完成或已清算的计划单不能操作,计划单号:' + CDS_HZ.FieldByName('OrderNO').asstring));
end;
with AdoqueryCmd do with AdoqueryCmd do
begin begin
Close; Close;

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

@ -419,6 +419,19 @@ begin
DisableControls; DisableControls;
while CDS_1.Locate('SSel', True, []) do while CDS_1.Locate('SSel', True, []) do
begin begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
application.MessageBox(PChar('计划单' + CDS_1.FieldByName('OrderNo').AsString + '已完成或已清算，无法操作'), '提示');
Exit;
end;
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete; CDS_1.Delete;
end; end;

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

@ -196,6 +196,7 @@ begin
enddate.DateTime := self.Enddate.DateTime; enddate.DateTime := self.Enddate.DateTime;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString; OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString; FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
FOppCoNAME := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FZKType := Self.FZKType; FZKType := Self.FZKType;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:

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

@ -18,7 +18,7 @@ uses
U_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList, U_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList,
U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList, U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList,
U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList, U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList,
U_OtherPayableList,U_handPayableList,U_ClaimsableList,U_TaxList, U_ZDPrice; U_OtherPayableList, U_handPayableList, U_ClaimsableList, U_TaxList, U_ZDPrice;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// ¹¦ÄÜ˵Ã÷:È¡DllÖеô°Ìå // // ¹¦ÄÜ˵Ã÷:È¡DllÖеô°Ìå //
@ -83,7 +83,7 @@ begin
// pswd := 'root'; // pswd := 'root';
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;
DParameters1 := '管理'; DParameters1 := '²éѯ';
end end
else else
begin begin

13
A09财务通用管理/U_OtherPayableList.pas
View File

@ -440,6 +440,19 @@ begin
DisableControls; DisableControls;
while CDS_1.Locate('SSel', True, []) do while CDS_1.Locate('SSel', True, []) do
begin begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
application.MessageBox(PChar('计划单' + CDS_1.FieldByName('OrderNo').AsString + '已完成或已清算，无法操作'), '提示');
Exit;
end;
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete; CDS_1.Delete;
end; end;

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

@ -531,6 +531,20 @@ begin
begin begin
if CDS_1.fieldbyname('SSel').AsBoolean then if CDS_1.fieldbyname('SSel').AsBoolean then
begin begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
application.MessageBox(PChar('计划单' + CDS_1.FieldByName('OrderNo').AsString + '已完成或已清算，无法操作'), '提示');
Exit;
end;
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
if Value = '' then if Value = '' then
begin begin

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

@ -6,7 +6,6 @@ inherited frmReceivableList: TfrmReceivableList
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -17
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
@ -135,7 +134,6 @@ inherited frmReceivableList: TfrmReceivableList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 172 Left = 172
Top = 13 Top = 13

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

@ -137,7 +137,8 @@ type
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_ReceivableInput, U_ReceivableEdit, U_CollectWriteOffList; U_DataLink, U_RTFun, U_ZDYHelp, U_ReceivableInput, U_ReceivableEdit,
U_CollectWriteOffList;
{$R *.dfm} {$R *.dfm}
procedure TfrmReceivableList.SetStatus(); procedure TfrmReceivableList.SetStatus();
@ -480,6 +481,19 @@ begin
DisableControls; DisableControls;
while CDS_1.Locate('SSel', True, []) do while CDS_1.Locate('SSel', True, []) do
begin begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add(' select * from Trade_Plan_Main where OrderNo = ' + QuotedStr(CDS_1.FieldByName('OrderNo').AsString) + ' and status in(''10'', ''12'') ');
open;
end;
if ADOQueryTemp.IsEmpty = false then
begin
application.MessageBox(PChar('计划单' + CDS_1.FieldByName('OrderNo').AsString + '已完成或已清算，无法操作'), '提示');
Exit;
end;
FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ','; FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
CDS_1.Delete; CDS_1.Delete;
end; end;

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

@ -610,8 +610,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Height = 542 Height = 542
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitLeft = -8
ExplicitTop = 82
object TV11: TcxGridDBTableView object TV11: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

2
A09财务通用管理/U_SingleCustStatement.pas
View File

@ -199,7 +199,7 @@ procedure TfrmSingleCustStatement.ToolButton1Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
Exit; Exit;
TcxGridToExcel(self.Caption + '-' + trim(OppCoName.Text), cxgrid2); TcxGridToExcel(self.Caption + '-' + trim(OppCoName.Text), cxgrid1);
//TcxGridToExcel(self.Caption , cxgrid2); //TcxGridToExcel(self.Caption , cxgrid2);
// TcxGridToExcel(trim(OppCoName.Text), cxgrid2); // TcxGridToExcel(trim(OppCoName.Text), cxgrid2);
end; end;

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

@ -198,9 +198,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Height = 542 Height = 542
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 73
ExplicitWidth = 712
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -602,7 +599,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Height = 542 Height = 542
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitTop = 73
object TV11: TcxGridDBTableView object TV11: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

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

@ -124,7 +124,7 @@ type
procedure InitGrid(); procedure InitGrid();
public public
{ Public declarations } { Public declarations }
FOppCoNo, FCurrency: string; FOppCoNo, FCurrency, FOppCoNAME: string;
end; end;
var var
@ -139,7 +139,17 @@ uses
procedure TfrmSingleFtyStatement.InitGrid(); procedure TfrmSingleFtyStatement.InitGrid();
begin begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
Filtered := False;
SQL.Add('UPDATE Finance_Flow SET OPPCONO=' + QuotedStr(FOppCoNo));
SQL.Add('WHERE OPPCONAME=' + QuotedStr(FOppCoNAME));
SQL.Add('AND ISNULL(OPPCONO,'''')=''''');
// ShowMessage(sql.text);
EXECSQL;
end;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
@ -150,7 +160,7 @@ begin
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1)))); sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo))); sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));
sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency))); sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency)));
ShowMessage(sql.text); // ShowMessage(sql.text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_HZ); SCreateCDS(ADOQueryMain, CDS_HZ);

8
A09财务通用管理/U_TaxList.pas
View File

@ -758,9 +758,9 @@ begin
open; open;
end; end;
if not ADOQueryTemp.IsEmpty then if ADOQueryTemp.IsEmpty = false then
begin begin
application.MessageBox('计划单已完成或已清算，无法删除', '提示'); application.MessageBox('计划单已完成或已清算，无法操作', '提示');
Exit; Exit;
end; end;
@ -787,7 +787,7 @@ begin
if not ADOQueryTemp.IsEmpty then if not ADOQueryTemp.IsEmpty then
begin begin
application.MessageBox('计划单已完成或已清算，无法删除', '提示'); application.MessageBox('计划单已完成或已清算，无法操作', '提示');
Exit; Exit;
end; end;
@ -929,6 +929,8 @@ begin
with frmTaxInput do with frmTaxInput do
begin begin
FFFID := Trim(SELF.CDS_1.fieldbyname('CostMID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('CostMID').AsString);
ToolButton3.Visible := false;
ToolButton2.Visible := false;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();

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

Binary file not shown.

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

Binary file not shown.

2
T01贸易生产计划/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\D10V1W\项目代码\D10zzbiaoqi\T01贸易生产计划\TradePlan.dproj"/> <Projects ActiveProject="D:\D10W\项目代码\D10zzbiaoqi\T01贸易生产计划\TradePlan.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

3
T01贸易生产计划/TradePlan.dpr
View File

@ -36,7 +36,8 @@ uses
U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails}, U_PlanProfitDetails in 'U_PlanProfitDetails.pas' {frmPlanProfitDetails},
U_ZDYHelp_P in 'U_ZDYHelp_P.pas' {frmZDYHelp_P}, U_ZDYHelp_P in 'U_ZDYHelp_P.pas' {frmZDYHelp_P},
U_TradePlanLoss in 'U_TradePlanLoss.pas' {frmTradePlanLoss}, U_TradePlanLoss in 'U_TradePlanLoss.pas' {frmTradePlanLoss},
U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList}; U_TradePlanList in 'U_TradePlanList.pas' {frmTradePlanList},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
{$R *.res} {$R *.res}

3
T01贸易生产计划/TradePlan.dproj
View File

@ -80,7 +80,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<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>
<Debugger_HostApplication>E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\D10W\项目代码\D10zzbiaoqi\T01贸易生产计划\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -186,6 +186,7 @@
<Form>frmTradePlanList</Form> <Form>frmTradePlanList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

88
T01贸易生产计划/TradePlan.dproj.local
View File

@ -1,58 +1,59 @@
<?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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanLoss.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.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.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.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.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.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.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.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.539,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.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.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.504,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanList.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.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.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.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.307,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanLoss.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.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2026-04-28 09:30:30.539,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2026-04-28 09:31:54.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>2026-04-28 09:31:54.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>2026-04-28 09:34:05.504,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>2026-05-11 10:37:21.723,=D:\D10W\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10zzbiaoqi"/> <File Path="..\..\D10zzbiaoqi"/>
@ -74,7 +75,7 @@
<File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/> <File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/>
<File Path="..\T00贸易通用窗体\U_TradeSalesContractSel.pas"/> <File Path="..\T00贸易通用窗体\U_TradeSalesContractSel.pas"/>
<File Path="..\T00贸易通用窗体\U_TradeSalesContractSel.dfm"/> <File Path="..\T00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
<File Path="..\..\..\..\Dp10Repo"/> <File Path="D:\D10W"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/> <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
@ -97,6 +98,7 @@
<File Path="..\..\..\public10\ThreeFun\Fun"/> <File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<File Path="U_DataLink.pas"/> <File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/> <File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/> <File Path="U_GetDllForm.pas"/>

BIN
T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

3
T01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -788,7 +788,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleReadOnly.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
OnDblClick = cxDBImage1DblClick OnDblClick = cxDBImage1DblClick
@ -1268,8 +1267,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 458
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

30
T01贸易生产计划/U_TradePlanList.dfm
View File

@ -7,7 +7,7 @@ inherited frmTradePlanList: TfrmTradePlanList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -539 ExplicitLeft = -359
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 799 ExplicitHeight = 799
PixelsPerInch = 96 PixelsPerInch = 96
@ -1357,8 +1357,8 @@ inherited frmTradePlanList: TfrmTradePlanList
end end
end end
object Panel4: TPanel [7] object Panel4: TPanel [7]
Left = 712 Left = 537
Top = 296 Top = 271
Width = 995 Width = 995
Height = 489 Height = 489
Hint = 'BGName/'#25253#20851#21697#21517 Hint = 'BGName/'#25253#20851#21697#21517
@ -1560,6 +1560,19 @@ inherited frmTradePlanList: TfrmTradePlanList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label27: TLabel
Left = 679
Top = 341
Width = 39
Height = 12
Caption = #36135#28304#22320
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ADO_BG: TRichEdit object ADO_BG: TRichEdit
Left = 1 Left = 1
Top = 1 Top = 1
@ -1660,7 +1673,7 @@ inherited frmTradePlanList: TfrmTradePlanList
end end
object Button3: TButton object Button3: TButton
Left = 560 Left = 560
Top = 444 Top = 443
Width = 97 Width = 97
Height = 25 Height = 25
Caption = #20445#23384 Caption = #20445#23384
@ -1730,6 +1743,15 @@ inherited frmTradePlanList: TfrmTradePlanList
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 18 TabOrder = 18
end end
object BGPLACE: TBtnEditC
Left = 741
Top = 338
Width = 188
Height = 20
Hint = 'BGPLACE/'#36135#28304#22320
TabOrder = 19
OnBtnUpClick = BGNameBtnUpClick
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink Connection = DataLink_TradePlan.ADOLink

19
T01贸易生产计划/U_TradePlanList.pas
View File

@ -226,6 +226,8 @@ type
DBPrice: TEdit; DBPrice: TEdit;
ToolButton10: TToolButton; ToolButton10: TToolButton;
ToolButton11: TToolButton; ToolButton11: TToolButton;
Label27: TLabel;
BGPLACE: TBtnEditC;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -645,11 +647,11 @@ begin
Open; Open;
end; end;
SCSHData(ADOQueryTemp, Panel4, 2); SCSHData(ADOQueryTemp, Panel4, 2);
BGName.text:=ADOQueryTemp.FieldByName('BGName').AsString; BGName.text := ADOQueryTemp.FieldByName('BGName').AsString;
BGCM.text:=ADOQueryTemp.FieldByName('CM').AsString; BGCM.text := ADOQueryTemp.FieldByName('CM').AsString;
BGJM.text:=ADOQueryTemp.FieldByName('JM').AsString; BGJM.text := ADOQueryTemp.FieldByName('JM').AsString;
BGPrice.text:=ADOQueryTemp.FieldByName('BGPrice').AsString; BGPrice.text := ADOQueryTemp.FieldByName('BGPrice').AsString;
BGPiece.text:=ADOQueryTemp.FieldByName('BGPiece').AsString; BGPiece.text := ADOQueryTemp.FieldByName('BGPiece').AsString;
end; end;
procedure TfrmTradePlanList.InitGrid(); procedure TfrmTradePlanList.InitGrid();
@ -1261,13 +1263,14 @@ begin
SQL.Add(',BGWidth=''' + Trim(BGWidth.Text) + ''''); SQL.Add(',BGWidth=''' + Trim(BGWidth.Text) + '''');
sql.Add(',BGGramWeight=''' + Trim(BGGramWeight.Text) + ''''); sql.Add(',BGGramWeight=''' + Trim(BGGramWeight.Text) + '''');
sql.Add(',BGPiece=''' + Trim(BGPiece.Text) + ''''); sql.Add(',BGPiece=''' + Trim(BGPiece.Text) + '''');
sql.Add(',BGGrossWeight=''' + FloatToStr(strtofloatdef(Trim(BGGrossWeight.Text),0)) + ''''); sql.Add(',BGGrossWeight=''' + FloatToStr(strtofloatdef(Trim(BGGrossWeight.Text), 0)) + '''');
sql.Add(',BGNetWeight=''' + FloatToStr(strtofloatdef(Trim(BGNetWeight.Text),0)) + ''''); sql.Add(',BGNetWeight=''' + FloatToStr(strtofloatdef(Trim(BGNetWeight.Text), 0)) + '''');
sql.Add(',BGLF=''' + Trim(BGLF.Text) + ''''); sql.Add(',BGLF=''' + Trim(BGLF.Text) + '''');
sql.Add(',BGMeter=''' + FloatToStr(strtofloatdef(Trim(BGMeter.Text),0)) + ''''); sql.Add(',BGMeter=''' + FloatToStr(strtofloatdef(Trim(BGMeter.Text), 0)) + '''');
sql.Add(',consignee=''' + Trim(consignee.Text) + ''''); sql.Add(',consignee=''' + Trim(consignee.Text) + '''');
sql.Add(',BGNote=''' + Trim(BGNote.Text) + ''''); sql.Add(',BGNote=''' + Trim(BGNote.Text) + '''');
sql.Add(',cm=''' + Trim(BGcm.Text) + ''''); sql.Add(',cm=''' + Trim(BGcm.Text) + '''');
sql.Add(',bgplace=''' + Trim(bgplace.Text) + '''');
sql.Add(',jm=''' + Trim(BGjm.Text) + ''''); sql.Add(',jm=''' + Trim(BGjm.Text) + '''');
SQL.Add(',Editer=''' + Trim(DName) + ''''); SQL.Add(',Editer=''' + Trim(DName) + '''');
SQL.Add(',EditId=''' + Trim(DCode) + ''''); SQL.Add(',EditId=''' + Trim(DCode) + '''');

BIN
T01贸易生产计划/testDll.identcache
View File

Binary file not shown.