From c64908589fc8ffa1f0eb05a5f2fe1d22945a2c59 Mon Sep 17 00:00:00 2001
From: funa <1559646174@qq.com>
Date: Wed, 24 Jun 2026 17:31:02 +0800
Subject: [PATCH] =?UTF-8?q?=E8=B4=A2=E5=8A=A1?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
A09财务通用管理/Financial.dproj.local | 10 ++++-----
A09财务通用管理/Financial.identcache | Bin 3119 -> 3119 bytes
A09财务通用管理/U_SingleCustStatement.dfm | 3 ++-
A09财务通用管理/U_SingleCustStatement.pas | 26 +++++++++++++---------
4 files changed, 23 insertions(+), 16 deletions(-)
diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local
index 65bfe89..ddf4c4d 100644
--- a/A09财务通用管理/Financial.dproj.local
+++ b/A09财务通用管理/Financial.dproj.local
@@ -15,11 +15,11 @@
1899/12/30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas
1899/12/30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm
1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj
@@ -42,13 +42,13 @@
1899/12/30 00:00:00.000.014,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_BatchEdit.pas
1899/12/30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.pas
1899/12/30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
1899/12/30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm
1899/12/30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas
1899/12/30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas
1899/12/30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas
1899/12/30 00:00:00.000.724,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_UpdatePrice.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\Unit2.dfm
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
1899/12/30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
@@ -71,8 +71,8 @@
1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas
1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
1899/12/30 00:00:00.000.256,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_ZDPrice.pas
- 1899/12/30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm
1899/12/30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm
diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache
index 6269a91016d406121b63e8a62d8251500f45f902..a8a88711ad3deeefb8f49812996d486a80b43090 100644
GIT binary patch
delta 38
wcmV+>0NMYq7_S(xtpk(b1BH|32vW0U1c3yT;0jK&I0>i$ldS_Yvn~q(0XRVpDgXcg
delta 50
zcmV-20L}le7_S(xtpk($3Nw?f1BJ7M1c3yTBnBjt?FJB&W&|FSH3d4ejR|f6lLZM*
Ivn~q(0pVy6Z~y=R
diff --git a/A09财务通用管理/U_SingleCustStatement.dfm b/A09财务通用管理/U_SingleCustStatement.dfm
index 9fd5c99..b64fcfb 100644
--- a/A09财务通用管理/U_SingleCustStatement.dfm
+++ b/A09财务通用管理/U_SingleCustStatement.dfm
@@ -144,6 +144,8 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Width = 48
Height = 12
Caption = #23545#26041#21333#20301
+ Color = clSkyBlue
+ ParentColor = False
end
object MPRTCodeName: TEdit
Tag = 2
@@ -626,7 +628,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Height = 542
Align = alClient
TabOrder = 3
- ExplicitTop = 73
object TV11: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
diff --git a/A09财务通用管理/U_SingleCustStatement.pas b/A09财务通用管理/U_SingleCustStatement.pas
index c7ddd4d..a23ae2f 100644
--- a/A09财务通用管理/U_SingleCustStatement.pas
+++ b/A09财务通用管理/U_SingleCustStatement.pas
@@ -180,7 +180,7 @@ begin
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));
sql.Add(' ,@OurCoNo=' + QuotedStr(Trim(FOurCoNo)));
sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency)));
- showmessage(sql.text);
+// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_HZ);
@@ -220,7 +220,7 @@ end;
procedure TfrmSingleCustStatement.FormShow(Sender: TObject);
begin
// readCxBandedGrid(trim(self.Caption), Tv11, 'Ӧտ˵');
- ReadCxGrid(trim(Self.Caption), Tv11, 'Ӧտ˵');
+// ReadCxGrid(trim(Self.Caption), Tv11, 'Ӧտ˵');
InitGrid();
end;
@@ -285,16 +285,22 @@ procedure TfrmSingleCustStatement.TV11CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
- ARecord: TcxCustomGridRecord;
+ isCheckedCol: TcxGridColumn;
+ isCheckedVal: Variant;
begin
- ARecord := AViewInfo.GridRecord;
- if ARecord = nil then
- Exit;
+ try
+ isCheckedCol := TV11.GetColumnByFieldName('is_checked');
+ if isCheckedCol = nil then Exit;
- if (not VarIsNull(ARecord.Values[TV11is_checked.Index])) and
- (ARecord.Values[TV11is_checked.Index] = 1) then
- begin
- ACanvas.Brush.Color := $CCFFCC;
+ isCheckedVal := AViewInfo.GridRecord.Values[isCheckedCol.Index];
+
+ if not VarIsNull(isCheckedVal) and (isCheckedVal = True) then
+ begin
+ ACanvas.Brush.Color := clMoneyGreen;
+ end;
+ except
+ on E: Exception do
+ OutputDebugString(PChar('TV11CustomDrawCell: ' + E.Message));
end;
end;