Group_01/D7DJchuanghui
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-08-30 16:53:31 +08:00
parent febcdb2c22
commit 6fbfc90696
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/U_OrderInPut.dfm
View File

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

6
检验管理/U_OrderInPut.pas
View File

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