~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
b787816d16
commit
15126d51fa
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\徐加艳项目代码\项目代码\雄山\复合检验管理\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\项目代码\D7DJxiongshan\复合检验管理\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
unit U_MJManageNewFDNew;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
|
||||
Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
|
|
@ -10,7 +10,7 @@ uses
|
|||
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
|
||||
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
|
||||
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
|
||||
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
|
||||
BtnEdit, FTComboBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
|
|
@ -475,6 +475,7 @@ type
|
|||
procedure On1201(var Message: Tmessage); message 1201;
|
||||
procedure On1301(var Message: Tmessage); message 1301;
|
||||
function JsXj(str1: string): string;
|
||||
function NewRoundTo(value: Double; ws: Integer): Double;
|
||||
public
|
||||
fmanage, ftest: string;
|
||||
{ Public declarations }
|
||||
|
|
@ -493,6 +494,16 @@ uses
|
|||
U_SCPersonColor, U_SysLogOrder;
|
||||
|
||||
{$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);
|
||||
var
|
||||
fPrintFile: string;
|
||||
|
|
@ -634,10 +645,11 @@ begin
|
|||
i1 := Message.WParam;
|
||||
i2 := Message.LParam;
|
||||
if IsJsMessage then
|
||||
begin
|
||||
begin
|
||||
if trim(Edit9.Text) = '√' then
|
||||
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;
|
||||
|
|
@ -892,7 +904,7 @@ begin
|
|||
with CDS_MJCD do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('cdname').Value := Trim(TButton(Fbtn).Caption);
|
||||
FieldByName('cdname').value := Trim(TButton(Fbtn).Caption);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -902,7 +914,7 @@ begin
|
|||
with CDS_MJCD do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('cdname').Value := Trim(TSpeedButton(Fbtn).Hint);
|
||||
FieldByName('cdname').value := Trim(TSpeedButton(Fbtn).Hint);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -925,9 +937,9 @@ begin
|
|||
with CDS_MJCD do
|
||||
begin
|
||||
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
|
||||
Fieldbyname('CDQty').Value := Trim(fieldbyname('CDQtyS').AsString);
|
||||
Fieldbyname('CDQty').value := Trim(fieldbyname('CDQtyS').AsString);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -1054,13 +1066,13 @@ begin
|
|||
Edit;
|
||||
if Length(CDS_MJCD.FieldByName(FColumn).AsString) = 1 then
|
||||
begin
|
||||
FieldByName(FColumn).Value := null;
|
||||
FieldByName('CDQty').Value := 0;
|
||||
FieldByName(FColumn).value := null;
|
||||
FieldByName('CDQty').value := 0;
|
||||
end
|
||||
else
|
||||
begin
|
||||
FieldByName(FColumn).Value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1);
|
||||
FieldByName('CDQty').Value := FieldByName(FColumn).Value;
|
||||
FieldByName(FColumn).value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1);
|
||||
FieldByName('CDQty').value := FieldByName(FColumn).value;
|
||||
end;
|
||||
Post;
|
||||
end;
|
||||
|
|
@ -1207,56 +1219,56 @@ begin
|
|||
FieldByName('MainId').value := Trim(FMainId);
|
||||
FieldByName('SubId').value := Trim(FSubId);
|
||||
FieldByName('APId').value := Trim(FAPId);
|
||||
FieldByName('MJID').Value := Trim(maxno);
|
||||
FieldByName('MJStr2').Value := 'δÈë¿â';
|
||||
FieldByName('MJBanZu').Value := Trim(FBanZu);
|
||||
FieldByName('MJstr3').Value := Trim(MJstr3.Text);
|
||||
FieldByName('MJstr4').Value := Trim(MJstr4.Text);
|
||||
FieldByName('MJstr5').Value := Trim(MJstr5.Text);
|
||||
FieldByName('mjxh').Value := Trim(mjxh.Text);
|
||||
FieldByName('MJID').value := Trim(maxno);
|
||||
FieldByName('MJStr2').value := 'δÈë¿â';
|
||||
FieldByName('MJBanZu').value := Trim(FBanZu);
|
||||
FieldByName('MJstr3').value := Trim(MJstr3.Text);
|
||||
FieldByName('MJstr4').value := Trim(MJstr4.Text);
|
||||
FieldByName('MJstr5').value := Trim(MJstr5.Text);
|
||||
FieldByName('mjxh').value := Trim(mjxh.Text);
|
||||
// FieldByName('BaoNO').Value := Trim(BaoNO.Text);
|
||||
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
|
||||
FieldByName('MJStr1').Value := Trim(Label13.Caption);
|
||||
FieldByName('MJTypeOther').value := Trim(Label9.Caption);
|
||||
FieldByName('MJStr1').value := Trim(Label13.Caption);
|
||||
|
||||
if PM.Text <> '' then
|
||||
begin
|
||||
FieldByName('PM').Value := Trim(PM.Text);
|
||||
FieldByName('PM').value := Trim(PM.Text);
|
||||
end;
|
||||
if KH.Text <> '' then
|
||||
begin
|
||||
FieldByName('KH').Value := Trim(KH.Text);
|
||||
FieldByName('KH').value := Trim(KH.Text);
|
||||
end;
|
||||
if SHDZ.Text <> '' then
|
||||
begin
|
||||
FieldByName('SHDZ').Value := Trim(SHDZ.Text);
|
||||
FieldByName('SHDZ').value := Trim(SHDZ.Text);
|
||||
end;
|
||||
if LXR.Text <> '' then
|
||||
begin
|
||||
FieldByName('LXR').Value := Trim(LXR.Text);
|
||||
FieldByName('LXR').value := Trim(LXR.Text);
|
||||
end;
|
||||
if YS.Text <> '' then
|
||||
begin
|
||||
FieldByName('YS').Value := Trim(YS.Text);
|
||||
FieldByName('YS').value := Trim(YS.Text);
|
||||
end;
|
||||
if DBYS.Text <> '' then
|
||||
begin
|
||||
FieldByName('DBYS').Value := Trim(DBYS.Text);
|
||||
FieldByName('DBYS').value := Trim(DBYS.Text);
|
||||
end;
|
||||
if HX.Text <> '' then
|
||||
begin
|
||||
FieldByName('HX').Value := Trim(HX.Text);
|
||||
FieldByName('HX').value := Trim(HX.Text);
|
||||
end;
|
||||
if SH.Text <> '' then
|
||||
begin
|
||||
FieldByName('SH').Value := Trim(SH.Text);
|
||||
FieldByName('SH').value := Trim(SH.Text);
|
||||
end;
|
||||
if SHDZ.Text <> '' then
|
||||
begin
|
||||
FieldByName('SHDZ').Value := Trim(SHDZ.Text);
|
||||
FieldByName('SHDZ').value := Trim(SHDZ.Text);
|
||||
end;
|
||||
if LXR.Text <> '' then
|
||||
begin
|
||||
FieldByName('LXR').Value := Trim(LXR.Text);
|
||||
FieldByName('LXR').value := Trim(LXR.Text);
|
||||
end;
|
||||
|
||||
// FieldByName('KH').Value := Trim(KH.Text);
|
||||
|
|
@ -1265,47 +1277,47 @@ begin
|
|||
// FieldByName('HX').Value := Trim(HX.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
|
||||
begin
|
||||
FieldByName('DingMaFlag').Value := '¶¨³¤';
|
||||
FieldByName('DingMaFlag').value := '¶¨³¤';
|
||||
end;
|
||||
if Edit10.Text <> '' then
|
||||
begin
|
||||
FieldByName('DaoXuFlag').Value := '¾íºÅµ¹Ðò';
|
||||
FieldByName('DaoXuFlag').value := '¾íºÅµ¹Ðò';
|
||||
end;
|
||||
FieldByName('QuhaoFlag').Value := Trim(ComboBox2.Text);
|
||||
FieldByName('QuhaoFlag').value := Trim(ComboBox2.Text);
|
||||
if (FDC <> 0) and (Edit12.text <> '') then
|
||||
begin
|
||||
FieldByName('MJLen').Value := FDC;
|
||||
FieldByName('MJLen').value := FDC;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if StrToFloatdef(trim(mbxs.Text), 1) > 0 then
|
||||
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
|
||||
else
|
||||
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)]);
|
||||
end;
|
||||
// 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;
|
||||
end;
|
||||
|
||||
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
|
||||
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
|
||||
FieldByName('MJQty5').Value := StrToFloatdef(trim(MJQty5.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('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ;
|
||||
FieldByName('MJQty1').value := StrToFloatdef(trim(MJQty1.Text), 0);
|
||||
FieldByName('MJQty2').value := StrToFloatdef(trim(MJQty2.Text), 0);
|
||||
FieldByName('MJQty5').value := StrToFloatdef(trim(MJQty5.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('MJMaoZ').value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ;
|
||||
|
||||
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
|
||||
if Trim(MJFK.Text) <> '' then
|
||||
begin
|
||||
FieldByName('MJFK').Value := MJFK.Text;
|
||||
FieldByName('MJFK').value := MJFK.Text;
|
||||
end;
|
||||
// if Trim(MJMaoZ.Text) <> '' then
|
||||
// begin
|
||||
|
|
@ -1313,39 +1325,39 @@ begin
|
|||
// end;
|
||||
if Trim(MJSJKZ.Text) <> '' then
|
||||
begin
|
||||
FieldByName('MJSJKZ').Value := MJSJKZ.Text;
|
||||
FieldByName('MJSJKZ').value := MJSJKZ.Text;
|
||||
end;
|
||||
FieldByName('MJType').Value := '';
|
||||
FieldByName('MJType').value := '';
|
||||
if Trim(Edit3.Text) <> '' then
|
||||
begin
|
||||
FieldByName('MJType').Value := 'ÕýÆ·';
|
||||
FieldByName('MJType').value := 'ÕýÆ·';
|
||||
end;
|
||||
if Trim(Edit4.Text) <> '' then
|
||||
begin
|
||||
FieldByName('MJType').Value := '´ÎÆ·';
|
||||
FieldByName('MJType').value := '´ÎÆ·';
|
||||
end;
|
||||
FieldByName('MJStr1').Value := Trim(Label13.Caption);
|
||||
FieldByName('MJStr1').value := Trim(Label13.Caption);
|
||||
|
||||
if Trim(FMJID) = '' then
|
||||
begin
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
FieldByName('Filler').value := Trim(DName);
|
||||
end
|
||||
else
|
||||
begin
|
||||
FieldByName('Editer').Value := Trim(DName);
|
||||
FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp);
|
||||
FieldByName('Editer').value := Trim(DName);
|
||||
FieldByName('EditTime').value := SGetServerDateTime(ADOTmp);
|
||||
end;
|
||||
if Trim(SCXFlag) <> '' then
|
||||
begin
|
||||
FieldByName('JTType').Value := Trim(SCXFlag);
|
||||
FieldByName('JTType').value := Trim(SCXFlag);
|
||||
end;
|
||||
|
||||
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
|
||||
FieldByName('MJTypeOther').value := Trim(Label9.Caption);
|
||||
|
||||
if trim(fbaotype) = '手动打包' then
|
||||
begin
|
||||
FieldByName('baoNO').Value := Trim(baono.text);
|
||||
FieldByName('baoID').Value := Trim(baoID.Text);
|
||||
FieldByName('baoNO').value := Trim(baono.text);
|
||||
FieldByName('baoID').value := Trim(baoID.Text);
|
||||
end;
|
||||
|
||||
Post;
|
||||
|
|
@ -1744,21 +1756,21 @@ begin
|
|||
Append
|
||||
else
|
||||
Edit;
|
||||
FieldByName('MJId').Value := Trim(FMJID);
|
||||
FieldByName('MCID').Value := Trim(maxno);
|
||||
FieldByName('MJId').value := Trim(FMJID);
|
||||
FieldByName('MCID').value := Trim(maxno);
|
||||
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;
|
||||
end;
|
||||
CDS_MJCD.Edit;
|
||||
CDS_MJCD.FieldByName('MCID').Value := Trim(maxno);
|
||||
CDS_MJCD.FieldByName('MCID').value := Trim(maxno);
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
with CDS_MJID do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('MJID').Value := Trim(FMJID);
|
||||
FieldByName('MJID').value := Trim(FMJID);
|
||||
Post;
|
||||
end;
|
||||
with ADOCmd do
|
||||
|
|
@ -2190,7 +2202,7 @@ begin
|
|||
sql.Add('select * from CK_BanCP_CRID');
|
||||
Open;
|
||||
end;
|
||||
CRID := ADOCmd.fieldbyname('CRID').Value;
|
||||
CRID := ADOCmd.fieldbyname('CRID').value;
|
||||
if GetLSNo(ADOCmd, MaxCkNo, 'JR', 'CK_BanCP_CR', 4, 1) = False then
|
||||
begin
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
|
|
@ -2207,34 +2219,34 @@ begin
|
|||
with ADOCmd do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('MainId').Value := Trim(FMainId);
|
||||
FieldByName('SubId').Value := Trim(FSubId);
|
||||
FieldByName('APID').Value := Trim(FAPID);
|
||||
FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJId').AsString);
|
||||
FieldByName('BCID').Value := Trim(MaxCkNo);
|
||||
FieldByName('CRTime').Value := SGetServerDateTime(ADOTmp);
|
||||
FieldByName('CRFlag').Value := 'Èë¿â';
|
||||
FieldByName('CRType').Value := '¼ìÑéÈë¿â';
|
||||
FieldByName('MainId').value := Trim(FMainId);
|
||||
FieldByName('SubId').value := Trim(FSubId);
|
||||
FieldByName('APID').value := Trim(FAPID);
|
||||
FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJId').AsString);
|
||||
FieldByName('BCID').value := Trim(MaxCkNo);
|
||||
FieldByName('CRTime').value := SGetServerDateTime(ADOTmp);
|
||||
FieldByName('CRFlag').value := 'Èë¿â';
|
||||
FieldByName('CRType').value := '¼ìÑéÈë¿â';
|
||||
//FieldByName('JTType').Value:=Trim(XJFlag);
|
||||
FieldByName('CRID').Value := CRID;
|
||||
FieldByName('CRID').value := CRID;
|
||||
if Trim(MJMaoZ.Text) <> '' then
|
||||
begin
|
||||
FieldByName('KGQty').Value := StrToFloat(MJMaoZ.Text);
|
||||
FieldByName('KGQty').value := StrToFloat(MJMaoZ.Text);
|
||||
end;
|
||||
if Trim(MJLen.Text) <> '' then
|
||||
begin
|
||||
FieldByName('Qty').Value := StrToFloat(MJLen.Text);
|
||||
FieldByName('Qty').value := StrToFloat(MJLen.Text);
|
||||
end;
|
||||
FieldByName('QtyUnit').Value := Trim(Label9.Caption);
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
FieldByName('FillTime').Value := SGetServerDateTime(ADOTmp);
|
||||
FieldByName('QtyUnit').value := Trim(Label9.Caption);
|
||||
FieldByName('Filler').value := Trim(DName);
|
||||
FieldByName('FillTime').value := SGetServerDateTime(ADOTmp);
|
||||
if Trim(Edit3.Text) <> '' then
|
||||
begin
|
||||
FieldByName('CPType').Value := 'ÕýÆ·';
|
||||
FieldByName('CPType').value := 'ÕýÆ·';
|
||||
end;
|
||||
if Trim(Edit4.Text) <> '' then
|
||||
begin
|
||||
FieldByName('CPType').Value := '´ÎÆ·';
|
||||
FieldByName('CPType').value := '´ÎÆ·';
|
||||
end;
|
||||
Post;
|
||||
end;
|
||||
|
|
@ -2248,18 +2260,18 @@ begin
|
|||
with ADOCmd do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('CRID').Value := CRID;
|
||||
FieldByName('BCID').Value := Trim(MaxCkNo);
|
||||
FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJID').AsString);
|
||||
FieldByName('CRID').value := CRID;
|
||||
FieldByName('BCID').value := Trim(MaxCkNo);
|
||||
FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJID').AsString);
|
||||
if Trim(MJMaoZ.Text) <> '' then
|
||||
begin
|
||||
FieldByName('KCKGQty').Value := StrToFloat(MJMaoZ.Text);
|
||||
FieldByName('KCKGQty').value := StrToFloat(MJMaoZ.Text);
|
||||
end;
|
||||
if Trim(MJLen.Text) <> '' then
|
||||
begin
|
||||
FieldByName('KCQty').Value := StrToFloat(MJLen.Text);
|
||||
FieldByName('KCQty').value := StrToFloat(MJLen.Text);
|
||||
end;
|
||||
FieldByName('KCQtyUnit').Value := Trim(Label9.Caption);
|
||||
FieldByName('KCQtyUnit').value := Trim(Label9.Caption);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -2278,17 +2290,17 @@ begin
|
|||
if Trim(mvalue) <> '' then
|
||||
begin
|
||||
CDS_MJCD.Edit;
|
||||
CDS_MJCD.FieldByName('CDQty').Value := mvalue;
|
||||
CDS_MJCD.FieldByName('CDQty').value := mvalue;
|
||||
CDS_MJCD.Post;
|
||||
end
|
||||
else
|
||||
begin
|
||||
CDS_MJCD.Edit;
|
||||
CDS_MJCD.FieldByName('CDQty').Value := 0;
|
||||
CDS_MJCD.FieldByName('CDQty').value := 0;
|
||||
CDS_MJCD.Post;
|
||||
end;
|
||||
CDS_MJCD.Edit;
|
||||
CDS_MJCD.FieldByName('CDQtyS').Value := mvalue;
|
||||
CDS_MJCD.FieldByName('CDQtyS').value := mvalue;
|
||||
except
|
||||
Application.MessageBox('非法数字！', '提示', 0);
|
||||
end;
|
||||
|
|
@ -2396,7 +2408,7 @@ begin
|
|||
if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('SSel').Value := False;
|
||||
FieldByName('SSel').value := False;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
|
|
@ -2436,18 +2448,18 @@ begin
|
|||
with CDS_MJCD do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('cdname').Value := Trim(FCDName);
|
||||
FieldByName('CDbeg').Value := Trim(Edit1.Text);
|
||||
FieldByName('CDEnd').Value := Trim(Edit2.Text);
|
||||
FieldByName('KouFenQty').Value := RadioGroup1.ItemIndex + 1;
|
||||
FieldByName('JBQty').Value := strtofloatdef(trim(Edit8.Text), 0);
|
||||
FieldByName('cdname').value := Trim(FCDName);
|
||||
FieldByName('CDbeg').value := Trim(Edit1.Text);
|
||||
FieldByName('CDEnd').value := Trim(Edit2.Text);
|
||||
FieldByName('KouFenQty').value := RadioGroup1.ItemIndex + 1;
|
||||
FieldByName('JBQty').value := strtofloatdef(trim(Edit8.Text), 0);
|
||||
if Trim(CDQty.Text) <> '' then
|
||||
begin
|
||||
FieldByName('CDQty').Value := StrToFloat(CDQty.Text);
|
||||
FieldByName('CDQty').value := StrToFloat(CDQty.Text);
|
||||
end
|
||||
else
|
||||
begin
|
||||
FieldByName('CDQty').Value := 0;
|
||||
FieldByName('CDQty').value := 0;
|
||||
end;
|
||||
|
||||
Post;
|
||||
|
|
@ -2647,7 +2659,9 @@ begin
|
|||
if TryStrToFloat(MJQty3.Text, FReal) = False then
|
||||
Exit;
|
||||
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
|
||||
else
|
||||
begin
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user