Group_DJD/D7DJqianjing
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

检验信息管理: 将出库日期显示一下

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-31 09:20:09 +08:00
parent d37af89883
commit a77b9e2072
2 changed files with 61 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 405 Left = 680
Top = 314 Top = 458
Width = 1382 Width = 1382
Height = 754 Height = 754
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -1183,8 +1183,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object MovePanel2: TMovePanel object MovePanel2: TMovePanel
Left = 416 Left = 448
Top = 192 Top = 176
Width = 289 Width = 289
Height = 49 Height = 49
BevelInner = bvLowered BevelInner = bvLowered
@ -1247,8 +1247,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 480 Left = 544
Top = 268 Top = 460
Width = 273 Width = 273
Height = 101 Height = 101
Color = clSkyBlue Color = clSkyBlue
@ -1308,8 +1308,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 503 Left = 855
Top = 203 Top = 411
Width = 231 Width = 231
Height = 216 Height = 216
TabOrder = 6 TabOrder = 6
@ -1398,7 +1398,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object RadioGroup2: TRadioGroup object RadioGroup2: TRadioGroup
Left = 56 Left = 56
Top = 24 Top = 56
Width = 129 Width = 129
Height = 145 Height = 145
ItemIndex = 0 ItemIndex = 0
@ -1599,8 +1599,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel9: TPanel object Panel9: TPanel
Left = 788 Left = 1036
Top = 264 Top = 280
Width = 225 Width = 225
Height = 117 Height = 117
Color = clSkyBlue Color = clSkyBlue
@ -1642,8 +1642,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
end end
object Panel_SMCK: TPanel object Panel_SMCK: TPanel
Left = 456 Left = 120
Top = 204 Top = 492
Width = 317 Width = 317
Height = 97 Height = 97
Color = clSkyBlue Color = clSkyBlue

91
检验管理/U_JYOrderCDOne.pas
View File

@ -10,8 +10,8 @@ uses
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer,ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit,MMSystem; cxCurrencyEdit, MMSystem;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -480,15 +480,15 @@ begin
TBManage.Visible := True; TBManage.Visible := True;
v1Column22.visible := True; v1Column22.visible := True;
v1Column15.Options.Focusing := True; v1Column15.Options.Focusing := True;
TCPDB.Visible:=True; TCPDB.Visible := True;
TBPrintBao.Visible:=True; TBPrintBao.Visible := True;
TBck.Visible:=true; TBck.Visible := true;
TBSMck.Visible:=True; TBSMck.Visible := True;
TBnoCK.Visible:=True; TBnoCK.Visible := True;
TBDW.Visible:=True; TBDW.Visible := True;
TBMS.Visible:=True; TBMS.Visible := True;
TBPZ.Visible:=True; TBPZ.Visible := True;
end; end;
if Trim(DParameters2) = '成品管理' then if Trim(DParameters2) = '成品管理' then
@ -502,13 +502,13 @@ begin
TBZF.Visible := False; TBZF.Visible := False;
TBManage.Visible := False; TBManage.Visible := False;
v1Column22.visible := False; v1Column22.visible := False;
TBck.Visible:=false; TBck.Visible := false;
TBSMck.Visible:=false; TBSMck.Visible := false;
TBnoCK.Visible:=false; TBnoCK.Visible := false;
TBDW.Visible:=false; TBDW.Visible := false;
TBMS.Visible:=false; TBMS.Visible := false;
TBPZ.Visible:=false; TBPZ.Visible := false;
TCPDB.Visible:=True; TCPDB.Visible := True;
TBPrintBao.Visible := True; TBPrintBao.Visible := True;
end; end;
if Trim(DParameters2) = '' then if Trim(DParameters2) = '' then
@ -516,12 +516,12 @@ begin
TBZF.Visible := False; TBZF.Visible := False;
TBManage.Visible := False; TBManage.Visible := False;
v1Column22.visible := False; v1Column22.visible := False;
TBck.Visible:=false; TBck.Visible := false;
TBSMck.Visible:=false; TBSMck.Visible := false;
TBnoCK.Visible:=false; TBnoCK.Visible := false;
TBDW.Visible:=false; TBDW.Visible := false;
TBMS.Visible:=false; TBMS.Visible := false;
TBPZ.Visible:=false; TBPZ.Visible := false;
// TCPDB.Visible:=False; // TCPDB.Visible:=False;
end; end;
end; end;
@ -800,8 +800,6 @@ begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
@ -871,7 +869,8 @@ end;
procedure TfrmJYOrderCDOne.TBPrintJYBBClick(Sender: TObject); procedure TfrmJYOrderCDOne.TBPrintJYBBClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then if Order_Main.Locate('SSel', True, []) = False then
begin begin
@ -1384,7 +1383,6 @@ var
sqlStr: string; sqlStr: string;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
if trim(ComboBox1.Text) = '' then if trim(ComboBox1.Text) = '' then
@ -1463,7 +1461,7 @@ begin
ExecSQL; ExecSQL;
end; end;
if (trim(ComboBox1.Text) = '检验码单(英文)') or (trim(ComboBox1.Text) = '检验码单(中文)') OR (trim(ComboBox1.Text) = '码单2') then if (trim(ComboBox1.Text) = '检验码单(英文)') or (trim(ComboBox1.Text) = '检验码单(中文)') or (trim(ComboBox1.Text) = '码单2') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1566,7 +1564,7 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '检验码单(染色)') OR (trim(ComboBox1.Text) = '检验码单(印花)') then if (trim(ComboBox1.Text) = '检验码单(染色)') or (trim(ComboBox1.Text) = '检验码单(印花)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1574,7 +1572,7 @@ begin
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMD '); sql.add('exec P_Print_CKMD ');
sql.add('@mainID=' + quotedstr(Trim(''))); sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
@ -1591,7 +1589,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '检验码单(染色米数)') OR (trim(ComboBox1.Text) = '检验码单(印花米数)') then if (trim(ComboBox1.Text) = '检验码单(染色米数)') or (trim(ComboBox1.Text) = '检验码单(印花米数)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1599,7 +1597,7 @@ begin
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDDB '); sql.add('exec P_Print_CKMDDB ');
sql.add('@mainID=' + quotedstr(Trim(''))); sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
@ -1709,7 +1707,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''已出库'' '); sql.Add('update WFB_MJJY set CKFlag=''已出库'' ');
sql.Add(' ckTime=Getdate(),Cker=''' + trim(DName) + ''''); sql.Add(' ,ckTime=Getdate(),Cker=''' + trim(DName) + '''');
sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
@ -1725,7 +1723,7 @@ begin
end; end;
end; end;
Order_Main.EnableControls; Order_Main.EnableControls;
InitGrid();
end; end;
procedure TfrmJYOrderCDOne.TBNoCKClick(Sender: TObject); procedure TfrmJYOrderCDOne.TBNoCKClick(Sender: TObject);
@ -1750,7 +1748,10 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''未出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); //sql.Add('update WFB_MJJY set CKFlag=''未出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('update WFB_MJJY set CKFlag=''未出库'' ');
sql.Add(' ,ckTime=null,Cker=null');
sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
@ -1765,7 +1766,7 @@ begin
end; end;
end; end;
Order_Main.EnableControls; Order_Main.EnableControls;
InitGrid();
end; end;
procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject); procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject);
@ -1871,32 +1872,36 @@ begin
panel3.Visible := false; panel3.Visible := false;
end; end;
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
var Key: Char);
begin begin
IF key=#13 then if Key = #13 then
begin begin
IF trim(Edit_CKMJID.Text)='' then exit; if trim(Edit_CKMJID.Text) = '' then
exit;
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); // sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('update WFB_MJJY set CKFlag=''已出库'' ');
sql.Add(' ,ckTime=Getdate(),Cker=''' + trim(DName) + '''');
sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
PlaySound('wav\正确.wav', 0, SND_FILENAME or SND_ASYNC); PlaySound('wav\正确.wav', 0, SND_FILENAME or SND_ASYNC);
except except
PlaySound('wav\扫描错误.wav', 0, SND_FILENAME or SND_ASYNC); PlaySound('wav\扫描错误.wav', 0, SND_FILENAME or SND_ASYNC);
end; end;
Edit_CKMJID.Text:=''; Edit_CKMJID.Text := '';
end; end;
InitGrid();
end; end;
procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject); procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject);
begin begin
Panel_SMCK.Visible:=false; Panel_SMCK.Visible := false;
end; end;
procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject); procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject);