检验信息管理: 将出库日期显示一下
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
d37af89883
commit
a77b9e2072
|
|
@ -1,6 +1,6 @@
|
|||
object frmJYOrderCDOne: TfrmJYOrderCDOne
|
||||
Left = 405
|
||||
Top = 314
|
||||
Left = 680
|
||||
Top = 458
|
||||
Width = 1382
|
||||
Height = 754
|
||||
Caption = #26816#39564#25253#21578
|
||||
|
|
@ -1183,8 +1183,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object MovePanel2: TMovePanel
|
||||
Left = 416
|
||||
Top = 192
|
||||
Left = 448
|
||||
Top = 176
|
||||
Width = 289
|
||||
Height = 49
|
||||
BevelInner = bvLowered
|
||||
|
|
@ -1247,8 +1247,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 480
|
||||
Top = 268
|
||||
Left = 544
|
||||
Top = 460
|
||||
Width = 273
|
||||
Height = 101
|
||||
Color = clSkyBlue
|
||||
|
|
@ -1308,8 +1308,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 503
|
||||
Top = 203
|
||||
Left = 855
|
||||
Top = 411
|
||||
Width = 231
|
||||
Height = 216
|
||||
TabOrder = 6
|
||||
|
|
@ -1398,7 +1398,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
object RadioGroup2: TRadioGroup
|
||||
Left = 56
|
||||
Top = 24
|
||||
Top = 56
|
||||
Width = 129
|
||||
Height = 145
|
||||
ItemIndex = 0
|
||||
|
|
@ -1599,8 +1599,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel9: TPanel
|
||||
Left = 788
|
||||
Top = 264
|
||||
Left = 1036
|
||||
Top = 280
|
||||
Width = 225
|
||||
Height = 117
|
||||
Color = clSkyBlue
|
||||
|
|
@ -1642,8 +1642,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
|
|||
end
|
||||
end
|
||||
object Panel_SMCK: TPanel
|
||||
Left = 456
|
||||
Top = 204
|
||||
Left = 120
|
||||
Top = 492
|
||||
Width = 317
|
||||
Height = 97
|
||||
Color = clSkyBlue
|
||||
|
|
|
|||
|
|
@ -10,8 +10,8 @@ uses
|
|||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
|
||||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer,ShellAPI,
|
||||
cxCurrencyEdit,MMSystem;
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
|
||||
cxCurrencyEdit, MMSystem;
|
||||
|
||||
type
|
||||
TfrmJYOrderCDOne = class(TForm)
|
||||
|
|
@ -480,15 +480,15 @@ begin
|
|||
TBManage.Visible := True;
|
||||
v1Column22.visible := True;
|
||||
v1Column15.Options.Focusing := True;
|
||||
TCPDB.Visible:=True;
|
||||
TBPrintBao.Visible:=True;
|
||||
TCPDB.Visible := True;
|
||||
TBPrintBao.Visible := True;
|
||||
|
||||
TBck.Visible:=true;
|
||||
TBSMck.Visible:=True;
|
||||
TBnoCK.Visible:=True;
|
||||
TBDW.Visible:=True;
|
||||
TBMS.Visible:=True;
|
||||
TBPZ.Visible:=True;
|
||||
TBck.Visible := true;
|
||||
TBSMck.Visible := True;
|
||||
TBnoCK.Visible := True;
|
||||
TBDW.Visible := True;
|
||||
TBMS.Visible := True;
|
||||
TBPZ.Visible := True;
|
||||
|
||||
end;
|
||||
if Trim(DParameters2) = '成品管理' then
|
||||
|
|
@ -502,13 +502,13 @@ begin
|
|||
TBZF.Visible := False;
|
||||
TBManage.Visible := False;
|
||||
v1Column22.visible := False;
|
||||
TBck.Visible:=false;
|
||||
TBSMck.Visible:=false;
|
||||
TBnoCK.Visible:=false;
|
||||
TBDW.Visible:=false;
|
||||
TBMS.Visible:=false;
|
||||
TBPZ.Visible:=false;
|
||||
TCPDB.Visible:=True;
|
||||
TBck.Visible := false;
|
||||
TBSMck.Visible := false;
|
||||
TBnoCK.Visible := false;
|
||||
TBDW.Visible := false;
|
||||
TBMS.Visible := false;
|
||||
TBPZ.Visible := false;
|
||||
TCPDB.Visible := True;
|
||||
TBPrintBao.Visible := True;
|
||||
end;
|
||||
if Trim(DParameters2) = '' then
|
||||
|
|
@ -516,12 +516,12 @@ begin
|
|||
TBZF.Visible := False;
|
||||
TBManage.Visible := False;
|
||||
v1Column22.visible := False;
|
||||
TBck.Visible:=false;
|
||||
TBSMck.Visible:=false;
|
||||
TBnoCK.Visible:=false;
|
||||
TBDW.Visible:=false;
|
||||
TBMS.Visible:=false;
|
||||
TBPZ.Visible:=false;
|
||||
TBck.Visible := false;
|
||||
TBSMck.Visible := false;
|
||||
TBnoCK.Visible := false;
|
||||
TBDW.Visible := false;
|
||||
TBMS.Visible := false;
|
||||
TBPZ.Visible := false;
|
||||
// TCPDB.Visible:=False;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -800,8 +800,6 @@ begin
|
|||
TBFind.Click;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
|
|
@ -871,7 +869,8 @@ end;
|
|||
|
||||
procedure TfrmJYOrderCDOne.TBPrintJYBBClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then Exit;
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if Order_Main.Locate('SSel', True, []) = False then
|
||||
begin
|
||||
|
|
@ -1384,7 +1383,6 @@ var
|
|||
sqlStr: string;
|
||||
begin
|
||||
|
||||
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
if trim(ComboBox1.Text) = '' then
|
||||
|
|
@ -1463,7 +1461,7 @@ begin
|
|||
ExecSQL;
|
||||
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
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
|
@ -1566,7 +1564,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
if (trim(ComboBox1.Text) = '检验码单(染色)') OR (trim(ComboBox1.Text) = '检验码单(印花)') then
|
||||
if (trim(ComboBox1.Text) = '检验码单(染色)') or (trim(ComboBox1.Text) = '检验码单(印花)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
|
@ -1591,7 +1589,7 @@ begin
|
|||
Open;
|
||||
end;
|
||||
end;
|
||||
if (trim(ComboBox1.Text) = '检验码单(染色米数)') OR (trim(ComboBox1.Text) = '检验码单(印花米数)') then
|
||||
if (trim(ComboBox1.Text) = '检验码单(染色米数)') or (trim(ComboBox1.Text) = '检验码单(印花米数)') then
|
||||
begin
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
|
|
@ -1709,7 +1707,7 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
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) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
|
|
@ -1725,7 +1723,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
Order_Main.EnableControls;
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.TBNoCKClick(Sender: TObject);
|
||||
|
|
@ -1750,7 +1748,10 @@ begin
|
|||
begin
|
||||
Close;
|
||||
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;
|
||||
end;
|
||||
|
||||
|
|
@ -1765,7 +1766,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
Order_Main.EnableControls;
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject);
|
||||
|
|
@ -1871,32 +1872,36 @@ begin
|
|||
panel3.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject;
|
||||
var Key: Char);
|
||||
procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
IF key=#13 then
|
||||
if Key = #13 then
|
||||
begin
|
||||
IF trim(Edit_CKMJID.Text)='' then exit;
|
||||
if trim(Edit_CKMJID.Text) = '' then
|
||||
exit;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
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;
|
||||
end;
|
||||
PlaySound('wav\正确.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||
except
|
||||
PlaySound('wav\扫描错误.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||
end;
|
||||
Edit_CKMJID.Text:='';
|
||||
Edit_CKMJID.Text := '';
|
||||
end;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject);
|
||||
begin
|
||||
Panel_SMCK.Visible:=false;
|
||||
Panel_SMCK.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user