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 0000000..1998c2d Binary files /dev/null and b/合同管理(ContractManagement.dll)/ContractManagement_Icon.ico differ 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 ');