Group_99/D10myBiaoqi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

计划单

Browse Source
This commit is contained in:
funa 2026-06-15 17:18:42 +08:00
parent e8d86a34c7
commit 7bb899fdd6
7 changed files with 123 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
T01贸易生产计划/TradePlan.dproj.local
View File

@ -1,59 +1,59 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.723,=D:\D10W\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.539,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanLoss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.723,=D:\D10W\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.539,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanLoss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.dfm=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_SalesRanking.pas=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\T01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10myBiaoqi"/> <File Path="..\..\D10myBiaoqi"/>

BIN
T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

1
T01贸易生产计划/U_TradePlanList.dfm
View File

@ -440,7 +440,6 @@ inherited frmTradePlanList: TfrmTradePlanList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 173
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

26
T01贸易生产计划/U_TradePlanList.pas
View File

@ -1516,16 +1516,32 @@ begin
end; end;
procedure TfrmTradePlanList.ToolButton5Click(Sender: TObject); procedure TfrmTradePlanList.ToolButton5Click(Sender: TObject);
var
HasRed: Integer;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
// begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit;
// end;
if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('是否核实好数据？', '提示', 32 + 4) <> IDYES then
Exit; 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 try
with ADOQueryCmd do with ADOQueryCmd do
begin begin

7
T01贸易生产计划/U_TradePlanLoss.dfm
View File

@ -6,7 +6,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss
ClientWidth = 1540 ClientWidth = 1540
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -371 ExplicitLeft = -93
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 663 ExplicitHeight = 663
PixelsPerInch = 96 PixelsPerInch = 96
@ -460,6 +460,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss
Width = 80 Width = 80
end end
object Tv1Column26: TcxGridDBColumn object Tv1Column26: TcxGridDBColumn
Tag = 77
Caption = #26579#25972#32553#29575#65288'%'#65289 Caption = #26579#25972#32553#29575#65288'%'#65289
DataBinding.FieldName = 'RZSL' DataBinding.FieldName = 'RZSL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -536,6 +537,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss
Width = 80 Width = 80
end end
object Tv1Column30: TcxGridDBColumn object Tv1Column30: TcxGridDBColumn
Tag = 78
Caption = #29983#20135#25439#32791#65288'%'#65289 Caption = #29983#20135#25439#32791#65288'%'#65289
DataBinding.FieldName = 'SCSH' DataBinding.FieldName = 'SCSH'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -592,6 +594,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss
Width = 85 Width = 85
end end
object Tv1Column36: TcxGridDBColumn object Tv1Column36: TcxGridDBColumn
Tag = 79
Caption = #26816#39564#25439#32791#65288'%'#65289 Caption = #26816#39564#25439#32791#65288'%'#65289
DataBinding.FieldName = 'JYSH' DataBinding.FieldName = 'JYSH'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -613,6 +616,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss
Width = 80 Width = 80
end end
object Tv1Column39: TcxGridDBColumn object Tv1Column39: TcxGridDBColumn
Tag = 80
Caption = #31859#38271#20559#24046#29575#65288'%'#65289 Caption = #31859#38271#20559#24046#29575#65288'%'#65289
DataBinding.FieldName = 'MCPCL' DataBinding.FieldName = 'MCPCL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -648,6 +652,7 @@ inherited frmTradePlanLoss: TfrmTradePlanLoss
Width = 80 Width = 80
end end
object Tv1Column44: TcxGridDBColumn object Tv1Column44: TcxGridDBColumn
Tag = 81
Caption = #20837#24211#20559#24046#29575#65288'%'#65289 Caption = #20837#24211#20559#24046#29575#65288'%'#65289
DataBinding.FieldName = 'RKPCL' DataBinding.FieldName = 'RKPCL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True

60
T01贸易生产计划/U_TradePlanLoss.pas
View File

@ -396,26 +396,58 @@ begin
WriteCxGrid(self.Caption + '3', Tv1, 'ËðºÄ±í²éѯ'); WriteCxGrid(self.Caption + '3', Tv1, 'ËðºÄ±í²éѯ');
end; 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 var
val1: string; column: TcxGridDBColumn;
val2: string; tag: Integer;
val3: string; cellValue: string;
lossNote: string;
floatValue: Double;
begin begin
inherited; inherited;
val1 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('SJMC').Index]); column := AViewInfo.Item as TcxGridDBColumn;
val2 := VarToStr(AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('LossNote').Index]); tag := column.Tag;
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 (tag >= 77) and (tag <= 81) then
if not (val3 = '') and (val2 = '') then
begin begin
if Abs(StrTofloat(val3)) > 5 then 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; ACanvas.Brush.Color := $4763FF;
except
end;
end;
end; end;
end; end;

BIN
T01贸易生产计划/testDll.identcache
View File

Binary file not shown.