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

2
检验管理/U_OrderInPut.pas
View File

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