From 6f11ee9bb2671b6d02dc6a9ea76c1f16751e81de Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 29 Sep 2025 16:12:51 +0800 Subject: [PATCH] 1 --- .../ContractManagement.dproj | 140 ++++++++++++++++++ .../ContractManagement_Icon.ico | Bin 0 -> 766 bytes .../U_ContractListNX.pas | 8 +- 3 files changed, 144 insertions(+), 4 deletions(-) create mode 100644 合同管理(ContractManagement.dll)/ContractManagement.dproj create mode 100644 合同管理(ContractManagement.dll)/ContractManagement_Icon.ico diff --git a/合同管理(ContractManagement.dll)/ContractManagement.dproj b/合同管理(ContractManagement.dll)/ContractManagement.dproj new file mode 100644 index 0000000..2ea0795 --- /dev/null +++ b/合同管理(ContractManagement.dll)/ContractManagement.dproj @@ -0,0 +1,140 @@ + + + {25FC07DF-9202-499C-9B72-CFBF27DAAB5F} + ContractManagement.dpr + True + Debug + Win32 + 38043 + Library + VCL + + + true + + + true + Base + true + + + true + Base + true + + + false + false + false + true + false + 00400000 + 1 + 1 + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias) + D:\富通ERP;$(DCC_UnitSearchPath) + vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL;$(DCC_UsePackage) + true + ContractManagement + + + RELEASE;$(DCC_Define) + 0 + false + 0 + + + DEBUG;$(DCC_Define) + false + true + + + + MainSource + + + + +
frmModuleNote
+ + +
DataLink_ContractManagement
+ TDataModule + + +
frmZDYHelpSel
+ + + + +
frmSelExportField
+ + +
frmColumnSet
+ + +
frmColumnBandSet
+ + +
frmSelPrintFieldNew
+ + +
frmRTZDYHelp
+ + + +
frmSysLogHelp
+ + +
frmFactoryGYS
+ + +
frmSCJHOrderList
+ + +
frmZdyAttachGYS
+ + +
frmZDYHelp
+ + + +
frmCPSel
+ + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + + + + + ContractManagement.dpr + + + + True + True + True + True + True + True + True + True + + + 12 + + + + diff --git a/合同管理(ContractManagement.dll)/ContractManagement_Icon.ico b/合同管理(ContractManagement.dll)/ContractManagement_Icon.ico new file mode 100644 index 0000000000000000000000000000000000000000..1998c2db4f9d3c870f5dc2715f351a4b348b459b GIT binary patch literal 766 zcmaKqyK2KQ6o!A-#TrvnD4m*&9aB1V$dFEXfxdvdXz>yV#03xaH8JZaCjlJ?fc?;C-O)_f`S?P*r~7$R$;w zZCg65e6ZH7D0XLZLuhGwwO`8oKgTc4_%!^;O3X(t`#=H5K0(b9_ebO@ynz7=?O6L% zHBU?}oP~g?X@o;SVT|#dNiB6?Eu7?L=KY?v4*O}@V61iS>uK#aAZy{g7ETVlIO8&J z&f-gB>eGC3;}{|T%``^-h#c`e#cVNqqFW_8i>@D+>20m&E}jKxm^>tPHsEE+fwCy2 z8Iz??V1$c;8n`Qw6LVKCV+oLwayXjU6h`z)@o=X!7UKFb*jCwt)?I6hZ pK9d#jz6ORtU9wZB{X@>T7jqO9Z-Cb=u-PHn+A7}JRfo^d+HY9lw=e(z literal 0 HcmV?d00001 diff --git a/合同管理(ContractManagement.dll)/U_ContractListNX.pas b/合同管理(ContractManagement.dll)/U_ContractListNX.pas index 0febc14..fb7c357 100644 --- a/合同管理(ContractManagement.dll)/U_ContractListNX.pas +++ b/合同管理(ContractManagement.dll)/U_ContractListNX.pas @@ -513,10 +513,10 @@ begin sql.Add('select A.*,B.*,MXNote=B.Note '); sql.Add(',TJNAME=( select TOP 1 TJNAME from BS_Company_Main X where X.CoType=''ͻ'' and X.Valid=''Y'' and X.Code= A.buyno) '); - sql.Add(',ShortName=( select ShortName from BS_Company_Main X where X.CoType=''ͻ'' and X.Valid=''Y'' and X.Code= A.buyno) '); - sql.Add(',BankName=( select BankName from BS_Company_Main X where X.CoType=''ͻ'' and X.Valid=''Y'' and X.Code= A.buyno) '); - sql.Add(',BankNo=( select BankNo from BS_Company_Main X where X.CoType=''ͻ'' and X.Valid=''Y'' and X.Code= A.buyno) '); - sql.Add(',Telephone=( select Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''ͻ'' and Y.Valid=''Y'' and Y.Code= A.buyno) '); + sql.Add(',ShortName=( select TOP 1 ShortName from BS_Company_Main X where X.CoType=''ͻ'' and X.Valid=''Y'' and X.Code= A.buyno) '); + sql.Add(',BankName=( select TOP 1 BankName from BS_Company_Main X where X.CoType=''ͻ'' and X.Valid=''Y'' and X.Code= A.buyno) '); + sql.Add(',BankNo=( select TOP 1 BankNo from BS_Company_Main X where X.CoType=''ͻ'' and X.Valid=''Y'' and X.Code= A.buyno) '); + sql.Add(',Telephone=( select TOP 1 Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''ͻ'' and Y.Valid=''Y'' and Y.Code= A.buyno) '); sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId '); sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + ''''); sql.Add(' order by B.XHNo ');