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=

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

@ -1,7 +1,7 @@
unit U_MJManageNewFDNew; unit U_MJManageNewFDNew;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
@ -10,7 +10,7 @@ uses
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
BtnEdit, FTComboBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, BtnEdit, FTComboBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
@ -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;
@ -634,10 +645,11 @@ begin
i1 := Message.WParam; i1 := Message.WParam;
i2 := Message.LParam; i2 := Message.LParam;
if IsJsMessage then if IsJsMessage then
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