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 object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)' Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'PRTMF' DataBinding.FieldName = 'PRTMF'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.AssignedValues.DisplayFormat = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 75 Width = 75
end end

2
检验管理/U_OrderInPut.pas
View File

@ -598,7 +598,7 @@ begin
FieldByName('MainId').Value := Trim(FMainId); FieldByName('MainId').Value := Trim(FMainId);
FieldByName('SubId').Value := Trim(maxno); FieldByName('SubId').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0); 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; fieldbyname('PRTKZ').Value := Order_Sub.fieldbyname('PRTKZ').AsFloat;
if Trim(fieldbyname('PRTOrderQty').AsString) = '' then if Trim(fieldbyname('PRTOrderQty').AsString) = '' then
begin begin