From 6fbfc9069605fb55bcc781a0584935fd5fc4e38e Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 30 Aug 2025 16:53:31 +0800
Subject: [PATCH] ~

---
 检验管理/U_OrderInPut.dfm | 2 --
 检验管理/U_OrderInPut.pas | 6 +++---
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/检验管理/U_OrderInPut.dfm b/检验管理/U_OrderInPut.dfm
index fc8a3fc..525aabc 100644
--- a/检验管理/U_OrderInPut.dfm
+++ b/检验管理/U_OrderInPut.dfm
@@ -1686,8 +1686,6 @@ object frmOrderInPut: TfrmOrderInPut
       object v1PRTMF: TcxGridDBColumn
         Caption = #38376#24133'(cm)'
         DataBinding.FieldName = 'PRTMF'
-        PropertiesClassName = 'TcxCurrencyEditProperties'
-        Properties.AssignedValues.DisplayFormat = True
         HeaderAlignmentHorz = taCenter
         Width = 75
       end
diff --git a/检验管理/U_OrderInPut.pas b/检验管理/U_OrderInPut.pas
index d622786..ac283d3 100644
--- a/检验管理/U_OrderInPut.pas
+++ b/检验管理/U_OrderInPut.pas
@@ -2,7 +2,7 @@ unit U_OrderInPut;
 
 interface
 
-uses
+uses                      
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
   cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
@@ -586,7 +586,7 @@ begin
           sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(FMainId) + '''');
           sql.Add(' and SubId=''' + Trim(maxno) + '''');
           Open;
-        end;
+        end;                      
         with ADOCmd do
         begin
           if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
@@ -598,7 +598,7 @@ begin
           FieldByName('MainId').Value := Trim(FMainId);
           FieldByName('SubId').Value := Trim(maxno);
           RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0);
-          fieldbyname('PRTMF').Value := Order_Sub.fieldbyname('PRTMF').AsFloat;
+          fieldbyname('PRTMF').Value := Order_Sub.fieldbyname('PRTMF').AsString;
           fieldbyname('PRTKZ').Value := Order_Sub.fieldbyname('PRTKZ').AsFloat;
           if Trim(fieldbyname('PRTOrderQty').AsString) = '' then
           begin