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

6
检验管理/U_OrderInPut.pas
View File

@ -2,7 +2,7 @@ unit U_OrderInPut;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
@ -586,7 +586,7 @@ begin
sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(FMainId) + ''''); sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(FMainId) + '''');
sql.Add(' and SubId=''' + Trim(maxno) + ''''); sql.Add(' and SubId=''' + Trim(maxno) + '''');
Open; Open;
end; end;
with ADOCmd do with ADOCmd do
begin begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
@ -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