Group_01/D7DJxiongshan
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 17:02:29 +08:00
parent b787816d16
commit 15126d51fa
2 changed files with 112 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
复合检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\雄山\复合检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJxiongshan\复合检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

202
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -475,6 +475,7 @@ type
procedure On1201(var Message: Tmessage); message 1201; procedure On1201(var Message: Tmessage); message 1201;
procedure On1301(var Message: Tmessage); message 1301; procedure On1301(var Message: Tmessage); message 1301;
function JsXj(str1: string): string; function JsXj(str1: string): string;
function NewRoundTo(value: Double; ws: Integer): Double;
public public
fmanage, ftest: string; fmanage, ftest: string;
{ Public declarations } { Public declarations }
@ -493,6 +494,16 @@ uses
U_SCPersonColor, U_SysLogOrder; U_SCPersonColor, U_SysLogOrder;
{$R *.dfm} {$R *.dfm}
function TfrmMJManageNewFDNewSF.NewRoundTo(value: Double; ws: Integer): Double;
var
iLen: Integer;
E: Extended;
begin
iLen := StrToInt('1' + stringOfChar('0', ws));
E := StrToFloat(FloatToStr(value));
Result := Ceil(E * iLen) / iLen;
end;
procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string); procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
var var
fPrintFile: string; fPrintFile: string;
@ -637,7 +648,8 @@ begin
begin begin
if trim(Edit9.Text) = '√' then if trim(Edit9.Text) = '√' then
begin begin
MJMaoZ.Text := format('%.' + trim(fxsws1) + 'f', [i1 / 100000]); // MJMaoZ.Text := format('%.3f', [i1 / 100000]);
MJMaoZ.Text := FloatToStr(NEWroundto((i1 / 100000), strtointdef(fxsws1, 0)));
end; end;
end; end;
end; end;
@ -892,7 +904,7 @@ begin
with CDS_MJCD do with CDS_MJCD do
begin begin
Append; Append;
FieldByName('cdname').Value := Trim(TButton(Fbtn).Caption); FieldByName('cdname').value := Trim(TButton(Fbtn).Caption);
Post; Post;
end; end;
end; end;
@ -902,7 +914,7 @@ begin
with CDS_MJCD do with CDS_MJCD do
begin begin
Append; Append;
FieldByName('cdname').Value := Trim(TSpeedButton(Fbtn).Hint); FieldByName('cdname').value := Trim(TSpeedButton(Fbtn).Hint);
Post; Post;
end; end;
end; end;
@ -925,9 +937,9 @@ begin
with CDS_MJCD do with CDS_MJCD do
begin begin
Edit; Edit;
FieldByName(FColumn).Value := Trim(FieldByName(FColumn).AsString) + Trim(TButton(Fbtn).Caption); FieldByName(FColumn).value := Trim(FieldByName(FColumn).AsString) + Trim(TButton(Fbtn).Caption);
if Trim(fieldbyname('CDQtyS').AsString) <> '' then if Trim(fieldbyname('CDQtyS').AsString) <> '' then
Fieldbyname('CDQty').Value := Trim(fieldbyname('CDQtyS').AsString); Fieldbyname('CDQty').value := Trim(fieldbyname('CDQtyS').AsString);
Post; Post;
end; end;
end; end;
@ -1054,13 +1066,13 @@ begin
Edit; Edit;
if Length(CDS_MJCD.FieldByName(FColumn).AsString) = 1 then if Length(CDS_MJCD.FieldByName(FColumn).AsString) = 1 then
begin begin
FieldByName(FColumn).Value := null; FieldByName(FColumn).value := null;
FieldByName('CDQty').Value := 0; FieldByName('CDQty').value := 0;
end end
else else
begin begin
FieldByName(FColumn).Value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1); FieldByName(FColumn).value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1);
FieldByName('CDQty').Value := FieldByName(FColumn).Value; FieldByName('CDQty').value := FieldByName(FColumn).value;
end; end;
Post; Post;
end; end;
@ -1207,56 +1219,56 @@ begin
FieldByName('MainId').value := Trim(FMainId); FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').value := Trim(FSubId); FieldByName('SubId').value := Trim(FSubId);
FieldByName('APId').value := Trim(FAPId); FieldByName('APId').value := Trim(FAPId);
FieldByName('MJID').Value := Trim(maxno); FieldByName('MJID').value := Trim(maxno);
FieldByName('MJStr2').Value := 'δÈë¿â'; FieldByName('MJStr2').value := 'δÈë¿â';
FieldByName('MJBanZu').Value := Trim(FBanZu); FieldByName('MJBanZu').value := Trim(FBanZu);
FieldByName('MJstr3').Value := Trim(MJstr3.Text); FieldByName('MJstr3').value := Trim(MJstr3.Text);
FieldByName('MJstr4').Value := Trim(MJstr4.Text); FieldByName('MJstr4').value := Trim(MJstr4.Text);
FieldByName('MJstr5').Value := Trim(MJstr5.Text); FieldByName('MJstr5').value := Trim(MJstr5.Text);
FieldByName('mjxh').Value := Trim(mjxh.Text); FieldByName('mjxh').value := Trim(mjxh.Text);
// FieldByName('BaoNO').Value := Trim(BaoNO.Text); // FieldByName('BaoNO').Value := Trim(BaoNO.Text);
FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJTypeOther').value := Trim(Label9.Caption);
FieldByName('MJStr1').Value := Trim(Label13.Caption); FieldByName('MJStr1').value := Trim(Label13.Caption);
if PM.Text <> '' then if PM.Text <> '' then
begin begin
FieldByName('PM').Value := Trim(PM.Text); FieldByName('PM').value := Trim(PM.Text);
end; end;
if KH.Text <> '' then if KH.Text <> '' then
begin begin
FieldByName('KH').Value := Trim(KH.Text); FieldByName('KH').value := Trim(KH.Text);
end; end;
if SHDZ.Text <> '' then if SHDZ.Text <> '' then
begin begin
FieldByName('SHDZ').Value := Trim(SHDZ.Text); FieldByName('SHDZ').value := Trim(SHDZ.Text);
end; end;
if LXR.Text <> '' then if LXR.Text <> '' then
begin begin
FieldByName('LXR').Value := Trim(LXR.Text); FieldByName('LXR').value := Trim(LXR.Text);
end; end;
if YS.Text <> '' then if YS.Text <> '' then
begin begin
FieldByName('YS').Value := Trim(YS.Text); FieldByName('YS').value := Trim(YS.Text);
end; end;
if DBYS.Text <> '' then if DBYS.Text <> '' then
begin begin
FieldByName('DBYS').Value := Trim(DBYS.Text); FieldByName('DBYS').value := Trim(DBYS.Text);
end; end;
if HX.Text <> '' then if HX.Text <> '' then
begin begin
FieldByName('HX').Value := Trim(HX.Text); FieldByName('HX').value := Trim(HX.Text);
end; end;
if SH.Text <> '' then if SH.Text <> '' then
begin begin
FieldByName('SH').Value := Trim(SH.Text); FieldByName('SH').value := Trim(SH.Text);
end; end;
if SHDZ.Text <> '' then if SHDZ.Text <> '' then
begin begin
FieldByName('SHDZ').Value := Trim(SHDZ.Text); FieldByName('SHDZ').value := Trim(SHDZ.Text);
end; end;
if LXR.Text <> '' then if LXR.Text <> '' then
begin begin
FieldByName('LXR').Value := Trim(LXR.Text); FieldByName('LXR').value := Trim(LXR.Text);
end; end;
// FieldByName('KH').Value := Trim(KH.Text); // FieldByName('KH').Value := Trim(KH.Text);
@ -1265,47 +1277,47 @@ begin
// FieldByName('HX').Value := Trim(HX.Text); // FieldByName('HX').Value := Trim(HX.Text);
// FieldByName('SH').Value := Trim(SH.Text); // FieldByName('SH').Value := Trim(SH.Text);
FieldByName('DJ').Value := StrToFloatDef(Trim(DJ.Text), 0); FieldByName('DJ').value := StrToFloatDef(Trim(DJ.Text), 0);
if Edit12.Text <> '' then if Edit12.Text <> '' then
begin begin
FieldByName('DingMaFlag').Value := '¶¨³¤'; FieldByName('DingMaFlag').value := '¶¨³¤';
end; end;
if Edit10.Text <> '' then if Edit10.Text <> '' then
begin begin
FieldByName('DaoXuFlag').Value := '¾íºÅµ¹Ðò'; FieldByName('DaoXuFlag').value := '¾íºÅµ¹Ðò';
end; end;
FieldByName('QuhaoFlag').Value := Trim(ComboBox2.Text); FieldByName('QuhaoFlag').value := Trim(ComboBox2.Text);
if (FDC <> 0) and (Edit12.text <> '') then if (FDC <> 0) and (Edit12.text <> '') then
begin begin
FieldByName('MJLen').Value := FDC; FieldByName('MJLen').value := FDC;
end end
else else
begin begin
if StrToFloatdef(trim(mbxs.Text), 1) > 0 then if StrToFloatdef(trim(mbxs.Text), 1) > 0 then
begin begin
FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(mbxs.Text), 1)) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(mbxs.Text), 1)) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
end end
else else
begin begin
FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
// FieldByName('Sjcd').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0)]); // FieldByName('Sjcd').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0)]);
end; end;
// FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen1.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc; // FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen1.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
// FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; // FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
end; end;
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty5').Value := StrToFloatdef(trim(MJQty5.Text), 0); FieldByName('MJQty5').value := StrToFloatdef(trim(MJQty5.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').value := StrToFloatdef(trim(MJQty3.Text), 0);
FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0); //+ StrToFloatdef(trim(MJQty5.Text), 0) + fjZ FieldByName('MJQty4').value := StrToFloatdef(trim(MJQty4.Text), 0); //+ StrToFloatdef(trim(MJQty5.Text), 0) + fjZ
FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ; FieldByName('MJMaoZ').value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ;
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
if Trim(MJFK.Text) <> '' then if Trim(MJFK.Text) <> '' then
begin begin
FieldByName('MJFK').Value := MJFK.Text; FieldByName('MJFK').value := MJFK.Text;
end; end;
// if Trim(MJMaoZ.Text) <> '' then // if Trim(MJMaoZ.Text) <> '' then
// begin // begin
@ -1313,39 +1325,39 @@ begin
// end; // end;
if Trim(MJSJKZ.Text) <> '' then if Trim(MJSJKZ.Text) <> '' then
begin begin
FieldByName('MJSJKZ').Value := MJSJKZ.Text; FieldByName('MJSJKZ').value := MJSJKZ.Text;
end; end;
FieldByName('MJType').Value := ''; FieldByName('MJType').value := '';
if Trim(Edit3.Text) <> '' then if Trim(Edit3.Text) <> '' then
begin begin
FieldByName('MJType').Value := 'ÕýÆ·'; FieldByName('MJType').value := 'ÕýÆ·';
end; end;
if Trim(Edit4.Text) <> '' then if Trim(Edit4.Text) <> '' then
begin begin
FieldByName('MJType').Value := '´ÎÆ·'; FieldByName('MJType').value := '´ÎÆ·';
end; end;
FieldByName('MJStr1').Value := Trim(Label13.Caption); FieldByName('MJStr1').value := Trim(Label13.Caption);
if Trim(FMJID) = '' then if Trim(FMJID) = '' then
begin begin
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').value := Trim(DName);
end end
else else
begin begin
FieldByName('Editer').Value := Trim(DName); FieldByName('Editer').value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp); FieldByName('EditTime').value := SGetServerDateTime(ADOTmp);
end; end;
if Trim(SCXFlag) <> '' then if Trim(SCXFlag) <> '' then
begin begin
FieldByName('JTType').Value := Trim(SCXFlag); FieldByName('JTType').value := Trim(SCXFlag);
end; end;
FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJTypeOther').value := Trim(Label9.Caption);
if trim(fbaotype) = '手动打包' then if trim(fbaotype) = '手动打包' then
begin begin
FieldByName('baoNO').Value := Trim(baono.text); FieldByName('baoNO').value := Trim(baono.text);
FieldByName('baoID').Value := Trim(baoID.Text); FieldByName('baoID').value := Trim(baoID.Text);
end; end;
Post; Post;
@ -1744,21 +1756,21 @@ begin
Append Append
else else
Edit; Edit;
FieldByName('MJId').Value := Trim(FMJID); FieldByName('MJId').value := Trim(FMJID);
FieldByName('MCID').Value := Trim(maxno); FieldByName('MCID').value := Trim(maxno);
SSetSaveDataCDSNew(ADOCmd, Tv2, CDS_MJCD, 'WFB_MJJY_CD', 0); SSetSaveDataCDSNew(ADOCmd, Tv2, CDS_MJCD, 'WFB_MJJY_CD', 0);
FieldByName('KouFenType').Value := CDS_MJCD.fieldbyname('KouFenType').Value; FieldByName('KouFenType').value := CDS_MJCD.fieldbyname('KouFenType').value;
Post; Post;
end; end;
CDS_MJCD.Edit; CDS_MJCD.Edit;
CDS_MJCD.FieldByName('MCID').Value := Trim(maxno); CDS_MJCD.FieldByName('MCID').value := Trim(maxno);
Next; Next;
end; end;
end; end;
with CDS_MJID do with CDS_MJID do
begin begin
Append; Append;
FieldByName('MJID').Value := Trim(FMJID); FieldByName('MJID').value := Trim(FMJID);
Post; Post;
end; end;
with ADOCmd do with ADOCmd do
@ -2190,7 +2202,7 @@ begin
sql.Add('select * from CK_BanCP_CRID'); sql.Add('select * from CK_BanCP_CRID');
Open; Open;
end; end;
CRID := ADOCmd.fieldbyname('CRID').Value; CRID := ADOCmd.fieldbyname('CRID').value;
if GetLSNo(ADOCmd, MaxCkNo, 'JR', 'CK_BanCP_CR', 4, 1) = False then if GetLSNo(ADOCmd, MaxCkNo, 'JR', 'CK_BanCP_CR', 4, 1) = False then
begin begin
ADOCmd.Connection.RollbackTrans; ADOCmd.Connection.RollbackTrans;
@ -2207,34 +2219,34 @@ begin
with ADOCmd do with ADOCmd do
begin begin
Append; Append;
FieldByName('MainId').Value := Trim(FMainId); FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').Value := Trim(FSubId); FieldByName('SubId').value := Trim(FSubId);
FieldByName('APID').Value := Trim(FAPID); FieldByName('APID').value := Trim(FAPID);
FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJId').AsString); FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJId').AsString);
FieldByName('BCID').Value := Trim(MaxCkNo); FieldByName('BCID').value := Trim(MaxCkNo);
FieldByName('CRTime').Value := SGetServerDateTime(ADOTmp); FieldByName('CRTime').value := SGetServerDateTime(ADOTmp);
FieldByName('CRFlag').Value := 'Èë¿â'; FieldByName('CRFlag').value := 'Èë¿â';
FieldByName('CRType').Value := '¼ìÑéÈë¿â'; FieldByName('CRType').value := '¼ìÑéÈë¿â';
//FieldByName('JTType').Value:=Trim(XJFlag); //FieldByName('JTType').Value:=Trim(XJFlag);
FieldByName('CRID').Value := CRID; FieldByName('CRID').value := CRID;
if Trim(MJMaoZ.Text) <> '' then if Trim(MJMaoZ.Text) <> '' then
begin begin
FieldByName('KGQty').Value := StrToFloat(MJMaoZ.Text); FieldByName('KGQty').value := StrToFloat(MJMaoZ.Text);
end; end;
if Trim(MJLen.Text) <> '' then if Trim(MJLen.Text) <> '' then
begin begin
FieldByName('Qty').Value := StrToFloat(MJLen.Text); FieldByName('Qty').value := StrToFloat(MJLen.Text);
end; end;
FieldByName('QtyUnit').Value := Trim(Label9.Caption); FieldByName('QtyUnit').value := Trim(Label9.Caption);
FieldByName('Filler').Value := Trim(DName); FieldByName('Filler').value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOTmp); FieldByName('FillTime').value := SGetServerDateTime(ADOTmp);
if Trim(Edit3.Text) <> '' then if Trim(Edit3.Text) <> '' then
begin begin
FieldByName('CPType').Value := 'ÕýÆ·'; FieldByName('CPType').value := 'ÕýÆ·';
end; end;
if Trim(Edit4.Text) <> '' then if Trim(Edit4.Text) <> '' then
begin begin
FieldByName('CPType').Value := '´ÎÆ·'; FieldByName('CPType').value := '´ÎÆ·';
end; end;
Post; Post;
end; end;
@ -2248,18 +2260,18 @@ begin
with ADOCmd do with ADOCmd do
begin begin
Append; Append;
FieldByName('CRID').Value := CRID; FieldByName('CRID').value := CRID;
FieldByName('BCID').Value := Trim(MaxCkNo); FieldByName('BCID').value := Trim(MaxCkNo);
FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJID').AsString); FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJID').AsString);
if Trim(MJMaoZ.Text) <> '' then if Trim(MJMaoZ.Text) <> '' then
begin begin
FieldByName('KCKGQty').Value := StrToFloat(MJMaoZ.Text); FieldByName('KCKGQty').value := StrToFloat(MJMaoZ.Text);
end; end;
if Trim(MJLen.Text) <> '' then if Trim(MJLen.Text) <> '' then
begin begin
FieldByName('KCQty').Value := StrToFloat(MJLen.Text); FieldByName('KCQty').value := StrToFloat(MJLen.Text);
end; end;
FieldByName('KCQtyUnit').Value := Trim(Label9.Caption); FieldByName('KCQtyUnit').value := Trim(Label9.Caption);
Post; Post;
end; end;
end; end;
@ -2278,17 +2290,17 @@ begin
if Trim(mvalue) <> '' then if Trim(mvalue) <> '' then
begin begin
CDS_MJCD.Edit; CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQty').Value := mvalue; CDS_MJCD.FieldByName('CDQty').value := mvalue;
CDS_MJCD.Post; CDS_MJCD.Post;
end end
else else
begin begin
CDS_MJCD.Edit; CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQty').Value := 0; CDS_MJCD.FieldByName('CDQty').value := 0;
CDS_MJCD.Post; CDS_MJCD.Post;
end; end;
CDS_MJCD.Edit; CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQtyS').Value := mvalue; CDS_MJCD.FieldByName('CDQtyS').value := mvalue;
except except
Application.MessageBox('非法数字！', '提示', 0); Application.MessageBox('非法数字！', '提示', 0);
end; end;
@ -2396,7 +2408,7 @@ begin
if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then
begin begin
Edit; Edit;
FieldByName('SSel').Value := False; FieldByName('SSel').value := False;
end; end;
Next; Next;
end; end;
@ -2436,18 +2448,18 @@ begin
with CDS_MJCD do with CDS_MJCD do
begin begin
Append; Append;
FieldByName('cdname').Value := Trim(FCDName); FieldByName('cdname').value := Trim(FCDName);
FieldByName('CDbeg').Value := Trim(Edit1.Text); FieldByName('CDbeg').value := Trim(Edit1.Text);
FieldByName('CDEnd').Value := Trim(Edit2.Text); FieldByName('CDEnd').value := Trim(Edit2.Text);
FieldByName('KouFenQty').Value := RadioGroup1.ItemIndex + 1; FieldByName('KouFenQty').value := RadioGroup1.ItemIndex + 1;
FieldByName('JBQty').Value := strtofloatdef(trim(Edit8.Text), 0); FieldByName('JBQty').value := strtofloatdef(trim(Edit8.Text), 0);
if Trim(CDQty.Text) <> '' then if Trim(CDQty.Text) <> '' then
begin begin
FieldByName('CDQty').Value := StrToFloat(CDQty.Text); FieldByName('CDQty').value := StrToFloat(CDQty.Text);
end end
else else
begin begin
FieldByName('CDQty').Value := 0; FieldByName('CDQty').value := 0;
end; end;
Post; Post;
@ -2647,7 +2659,9 @@ begin
if TryStrToFloat(MJQty3.Text, FReal) = False then if TryStrToFloat(MJQty3.Text, FReal) = False then
Exit; Exit;
jz := StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text); jz := StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text);
MJQty4.Text := format('%.' + trim(fxsws1) + 'f', [jz]);
MJQty4.Text := FloatToStr(NEWroundto((jz), strtointdef(fxsws1, 0)));
// MJQty4.Text := format('%.' + trim(fxsws1) + 'f', [jz]);
end end
else else
begin begin