Group_99/D7szChenfeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

客户管理，客户简称改代表人，打印合同添加字段

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-23 15:55:46 +08:00
parent e8e56e2828
commit ed7824bf47
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
合同管理(ContractManagement.dll)/U_ContractListNX.pas
View File

@ -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

8
客户供应商管理(Company.dll)/U_CustomerInput.dfm
View File

@ -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