From 7bb899fdd612ae980f336f7f108e381f807b2249 Mon Sep 17 00:00:00 2001 From: funa <1559646174@qq.com> Date: Mon, 15 Jun 2026 17:18:42 +0800 Subject: [PATCH] =?UTF-8?q?=E8=AE=A1=E5=88=92=E5=8D=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- T01贸易生产计划/TradePlan.dproj.local | 98 +++++++++++++------------- T01贸易生产计划/TradePlan.identcache | Bin 2367 -> 2367 bytes T01贸易生产计划/U_TradePlanList.dfm | 1 - T01贸易生产计划/U_TradePlanList.pas | 26 +++++-- T01贸易生产计划/U_TradePlanLoss.dfm | 7 +- T01贸易生产计划/U_TradePlanLoss.pas | 62 ++++++++++++---- T01贸易生产计划/testDll.identcache | Bin 164 -> 164 bytes 7 files changed, 123 insertions(+), 71 deletions(-) diff --git a/T01贸易生产计划/TradePlan.dproj.local b/T01贸易生产计划/TradePlan.dproj.local index df864cc..caf13f0 100644 --- a/T01贸易生产计划/TradePlan.dproj.local +++ b/T01贸易生产计划/TradePlan.dproj.local @@ -1,59 +1,59 @@  - 1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas - 1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm - 1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm - 1899/12/30 00:00:00.000.723,=D:\D10W\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas - 1899/12/30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.pas - 1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas - 1899/12/30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas= - 1899/12/30 00:00:00.000.539,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.dfm - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas - 1899/12/30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.504,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanList.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm - 1899/12/30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas - 1899/12/30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas - 1899/12/30 00:00:00.000.307,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanLoss.pas - 1899/12/30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas + 1899/12/30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas + 1899/12/30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas + 1899/12/30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas= + 1899/12/30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.723,=D:\D10W\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.539,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas + 1899/12/30 00:00:00.000.307,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanLoss.pas + 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.dfm + 1899/12/30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas + 1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas + 1899/12/30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.504,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanList.pas + 1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas diff --git a/T01贸易生产计划/TradePlan.identcache b/T01贸易生产计划/TradePlan.identcache index c40d0f4ab26874600b02e2f79a7bcd7f740acbb1..9ed32cccc6f115274550c6d94f3f8bc3cb3947dc 100644 GIT binary patch delta 50 zcmdllv|ng~`Q(=zVUs_wnE+{(jeCR`8MP*VWRu%$$E3(O(L8Z;Jo7~6%_{6i87H4( G3 ScrollbarAnnotations.CustomAnnotations = <> diff --git a/T01贸易生产计划/U_TradePlanList.pas b/T01贸易生产计划/U_TradePlanList.pas index 7ebd3ad..5d00af9 100644 --- a/T01贸易生产计划/U_TradePlanList.pas +++ b/T01贸易生产计划/U_TradePlanList.pas @@ -1516,16 +1516,32 @@ begin end; procedure TfrmTradePlanList.ToolButton5Click(Sender: TObject); +var + HasRed: Integer; begin if Order_Main.IsEmpty then exit; -// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then -// begin -// Application.MessageBox('ܲ˵!', 'ʾ', 0); -// Exit; -// end; if Application.MessageBox('Ƿʵݣ', 'ʾ', 32 + 4) <> IDYES then Exit; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('EXEC P_Check_PlanLossRed :MainID'); + Parameters.ParamByName('MainID').Value := Order_Main.FieldByName('mainID').AsString; + Open; + HasRed := FieldByName('HasRed').AsInteger; + Close; + end; + + if HasRed = 1 then + begin + Application.MessageBox('üƻݴ쳣5%ұעΪգɣ' + #13#10 + + 'ƶܽᱸעʵݡ', 'ʾ', MB_ICONERROR); + Exit; + end; + try with ADOQueryCmd do begin diff --git a/T01贸易生产计划/U_TradePlanLoss.dfm b/T01贸易生产计划/U_TradePlanLoss.dfm index 34caa14..940c1db 100644 --- a/T01贸易生产计划/U_TradePlanLoss.dfm +++ b/T01贸易生产计划/U_TradePlanLoss.dfm @@ -6,7 +6,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss ClientWidth = 1540 Position = poScreenCenter WindowState = wsMaximized - ExplicitLeft = -371 + ExplicitLeft = -93 ExplicitWidth = 1556 ExplicitHeight = 663 PixelsPerInch = 96 @@ -460,6 +460,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss Width = 80 end object Tv1Column26: TcxGridDBColumn + Tag = 77 Caption = #26579#25972#32553#29575#65288'%'#65289 DataBinding.FieldName = 'RZSL' DataBinding.IsNullValueType = True @@ -536,6 +537,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss Width = 80 end object Tv1Column30: TcxGridDBColumn + Tag = 78 Caption = #29983#20135#25439#32791#65288'%'#65289 DataBinding.FieldName = 'SCSH' DataBinding.IsNullValueType = True @@ -592,6 +594,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss Width = 85 end object Tv1Column36: TcxGridDBColumn + Tag = 79 Caption = #26816#39564#25439#32791#65288'%'#65289 DataBinding.FieldName = 'JYSH' DataBinding.IsNullValueType = True @@ -613,6 +616,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss Width = 80 end object Tv1Column39: TcxGridDBColumn + Tag = 80 Caption = #31859#38271#20559#24046#29575#65288'%'#65289 DataBinding.FieldName = 'MCPCL' DataBinding.IsNullValueType = True @@ -648,6 +652,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss Width = 80 end object Tv1Column44: TcxGridDBColumn + Tag = 81 Caption = #20837#24211#20559#24046#29575#65288'%'#65289 DataBinding.FieldName = 'RKPCL' DataBinding.IsNullValueType = True diff --git a/T01贸易生产计划/U_TradePlanLoss.pas b/T01贸易生产计划/U_TradePlanLoss.pas index 2ac64dc..b2ddfbe 100644 --- a/T01贸易生产计划/U_TradePlanLoss.pas +++ b/T01贸易生产计划/U_TradePlanLoss.pas @@ -396,26 +396,58 @@ begin WriteCxGrid(self.Caption + '3', Tv1, 'ıѯ'); end; -procedure TfrmTradePlanLoss.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +//procedure TfrmTradePlanLoss.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +//var +// val1: string; +// val2: string; +// val3: string; +//begin +// inherited; +// val1 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('SJMC').Index]); +// val2 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('LossNote').Index]); +// if not ((val1 = '') or (val1 = '0')) and (val2 = '') then +// begin +// if Abs(StrTofloat(val1)) > 5 then +// ACanvas.Brush.Color := $4763FF; +// end; +// +// val3 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('RKPCL').Index]); +// if not (val3 = '') and (val2 = '') then +// begin +// if Abs(StrTofloat(val3)) > 5 then +// ACanvas.Brush.Color := $4763FF; +// end; +//end; + +procedure TfrmTradePlanLoss.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); var - val1: string; - val2: string; - val3: string; + column: TcxGridDBColumn; + tag: Integer; + cellValue: string; + lossNote: string; + floatValue: Double; begin inherited; - val1 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('SJMC').Index]); - val2 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('LossNote').Index]); - if not ((val1 = '') or (val1 = '0')) and (val2 = '') then - begin - if Abs(StrTofloat(val1)) > 5 then - ACanvas.Brush.Color := $4763FF; - end; + column := AViewInfo.Item as TcxGridDBColumn; + tag := column.Tag; - val3 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('RKPCL').Index]); - if not (val3 = '') and (val2 = '') then + if (tag >= 77) and (tag <= 81) then begin - if Abs(StrTofloat(val3)) > 5 then - ACanvas.Brush.Color := $4763FF; + cellValue := VarToStr(AViewInfo.Value); + lossNote := VarToStr(AViewInfo.GridRecord.Values[ + TcxGridDBTableView(Sender).GetColumnByFieldName('LossNote').Index]); + + if (lossNote = '') and (cellValue <> '') then + begin + try + floatValue := StrToFloat(cellValue); + if Abs(floatValue) > 5 then + ACanvas.Brush.Color := $4763FF; + except + end; + end; end; end; diff --git a/T01贸易生产计划/testDll.identcache b/T01贸易生产计划/testDll.identcache index 754fc1546c4e4f15e16f430e492f702b982e2060..60b0907eef55e205d10f00899a6382ba27da3334 100644 GIT binary patch delta 12 TcmZ3&xP+0BX<|UgL>7Ml7M=rV delta 12 TcmZ3&xP+0BX<|^&M3z7R7NP@b