Group_DJD/D7DJailisi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-19 09:45:42 +08:00
parent 3c6344e2cb
commit bf59918d30
2 changed files with 86 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
检验管理/U_MJManageNewFDNew.dfm
View File

@ -2431,7 +2431,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel9: TPanel object Panel9: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 491 Width = 713
Height = 30 Height = 30
BevelOuter = bvNone BevelOuter = bvNone
Color = clSkyBlue Color = clSkyBlue
@ -2475,6 +2475,32 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label54: TLabel
Left = 489
Top = 5
Width = 84
Height = 20
Caption = #21253#21495#33539#22260
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label55: TLabel
Left = 631
Top = 5
Width = 14
Height = 25
Caption = '-'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -25
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MaxRollNo: TEdit object MaxRollNo: TEdit
Left = 431 Left = 431
Top = 1 Top = 1
@ -2535,9 +2561,39 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 3 TabOrder = 3
OnClick = Button6Click OnClick = Button6Click
end end
object MinbaoNo: TEdit
Left = 575
Top = 2
Width = 57
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Edit1Click
OnKeyPress = MaxRollNoKeyPress
end
object MaxbaoNo: TEdit
Left = 648
Top = 2
Width = 57
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Edit1Click
OnKeyPress = MaxRollNoKeyPress
end
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 491 Left = 713
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = ' '#20462#25913' ' Caption = ' '#20462#25913' '
@ -2545,7 +2601,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 600 Left = 822
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = ' '#21024#38500' ' Caption = ' '#21024#38500' '
@ -2553,7 +2609,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBCD: TToolButton object TBCD: TToolButton
Left = 699 Left = 921
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = ' '#37325#25171' ' Caption = ' '#37325#25171' '
@ -2561,7 +2617,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = TBCDClick OnClick = TBCDClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 798 Left = 1020
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
@ -2569,7 +2625,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 877 Left = 1099
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

27
检验管理/U_MJManageNewFDNew.pas
View File

@ -265,6 +265,10 @@ type
Tv3Column5: TcxGridDBColumn; Tv3Column5: TcxGridDBColumn;
Edit13: TEdit; Edit13: TEdit;
Tv3Column6: TcxGridDBColumn; Tv3Column6: TcxGridDBColumn;
Label54: TLabel;
Label55: TLabel;
MinbaoNo: TEdit;
MaxbaoNo: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -900,7 +904,23 @@ begin
exit; exit;
end; end;
end; end;
if MinbaoNo.Text <> '' then
begin
if StrToIntDef(MinbaoNo.Text, 0) > StrToIntDef(baoNo.Text, 0) then
begin
Application.MessageBox('小于最小包号，不能保存！', '提示', 0);
exit;
end;
end;
if MaxbaoNo.Text <> '' then
begin
if StrToIntDef(MaxbaoNo.Text, 0) < StrToIntDef(baoNo.Text, 0) then
begin
Application.MessageBox('已超出最大包号，不能保存！', '提示', 0);
exit;
end;
end;
try try
ADOCmd.Connection.BeginTrans; ADOCmd.Connection.BeginTrans;
if PState = 2 then if PState = 2 then
@ -2874,7 +2894,7 @@ begin
// CDS_MJID.First; // CDS_MJID.First;
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,C.KHorderNo,'); sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,C.KHorderNo,');
sql.Add('PRTCodeName=DBO.F_Get_Order_SubStr(BaoID,''BNCodeName''),'); sql.Add('PRTCodeName=DBO.F_Get_Order_SubStr(BaoID,''BNCodeName''),');
@ -2920,7 +2940,7 @@ begin
exit; exit;
end; end;
with ADOTmp do with ADOTmp do
begin begin
close; close;
sql.Clear; sql.Clear;
@ -2932,7 +2952,8 @@ begin
end; end;
open; open;
end; end;
baoNo.Text := inttostr(ADOTmp.fieldbyname('maxbaoNO').AsInteger + 1); baoNo.Text := inttostr(strTointdef(trim(baoNo.Text), 0) + 1);
// baoNo.Text := inttostr(ADOTmp.fieldbyname('maxbaoNO').AsInteger + 1);
if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then
begin begin
Application.MessageBox('取包条码最大号失败！', '提示', 0); Application.MessageBox('取包条码最大号失败！', '提示', 0);