From ed7824bf4762f2ea71c59cbf877b5a43fc074871 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 23 Sep 2025 15:55:46 +0800 Subject: [PATCH] =?UTF-8?q?=E5=AE=A2=E6=88=B7=E7=AE=A1=E7=90=86=EF=BC=8C?= =?UTF-8?q?=E5=AE=A2=E6=88=B7=E7=AE=80=E7=A7=B0=E6=94=B9=E4=BB=A3=E8=A1=A8?= =?UTF-8?q?=E4=BA=BA=EF=BC=8C=E6=89=93=E5=8D=B0=E5=90=88=E5=90=8C=E6=B7=BB?= =?UTF-8?q?=E5=8A=A0=E5=AD=97=E6=AE=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 合同管理(ContractManagement.dll)/U_ContractListNX.pas | 6 +++++- 客户供应商管理(Company.dll)/U_CustomerInput.dfm | 8 ++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/合同管理(ContractManagement.dll)/U_ContractListNX.pas b/合同管理(ContractManagement.dll)/U_ContractListNX.pas index 9d99c17..0febc14 100644 --- a/合同管理(ContractManagement.dll)/U_ContractListNX.pas +++ b/合同管理(ContractManagement.dll)/U_ContractListNX.pas @@ -513,10 +513,14 @@ 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(' 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 '); - // ShowMessage(SQL.Text); + //ShowMessage(SQL.Text); Open; end; if FileExists(fPrintFile) then diff --git a/客户供应商管理(Company.dll)/U_CustomerInput.dfm b/客户供应商管理(Company.dll)/U_CustomerInput.dfm index 28c3131..2d81841 100644 --- a/客户供应商管理(Company.dll)/U_CustomerInput.dfm +++ b/客户供应商管理(Company.dll)/U_CustomerInput.dfm @@ -1,6 +1,6 @@ object frmCustomerInput: TfrmCustomerInput - Left = 210 - Top = 420 + Left = 511 + Top = 413 Width = 1123 Height = 574 Caption = #23458#25143#36164#26009#24405#20837 @@ -263,11 +263,11 @@ object frmCustomerInput: TfrmCustomerInput Caption = #19994' '#21153' '#21592 end object Label1: TLabel - Left = 547 + Left = 548 Top = 35 Width = 56 Height = 14 - Caption = #23458#25143#31616#31216 + Caption = #20195' '#34920' '#20154 end object Label3: TLabel Left = 41