Group_DJD/D10myBahong
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-30 16:25:49 +08:00
parent 0b0280744f
commit 8625d20e95
3 changed files with 115 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
T03贸易布匹检验/DjdMachineInsp.identcache
View File

Binary file not shown.

34
T03贸易布匹检验/U_MachRollMain.dfm
View File

@ -317,7 +317,7 @@
end end
object OutPutWeight: TcxTextEdit object OutPutWeight: TcxTextEdit
Tag = 999 Tag = 999
Left = 8864 Left = 8561
Top = 10000 Top = 10000
AutoSize = False AutoSize = False
ParentFont = False ParentFont = False
@ -374,7 +374,7 @@
Width = 181 Width = 181
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Hint = 'FileName' Hint = 'FileName'
DataBinding.DataField = 'FilesOther' DataBinding.DataField = 'FilesOther'
@ -521,7 +521,7 @@
Width = 149 Width = 149
end end
object C_Pattern: TcxTextEdit object C_Pattern: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
ParentFont = False ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
@ -532,7 +532,7 @@
Width = 124 Width = 124
end end
object RuleYardstick: TcxTextEdit object RuleYardstick: TcxTextEdit
Left = 8703 Left = 8400
Top = 10000 Top = 10000
AutoSize = False AutoSize = False
ParentFont = False ParentFont = False
@ -554,7 +554,7 @@
Width = 69 Width = 69
end end
object C_StyleNo: TcxTextEdit object C_StyleNo: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
@ -579,7 +579,7 @@
OnClick = packPostBtnClick OnClick = packPostBtnClick
end end
object customStrField1: TcxTextEdit object customStrField1: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
@ -590,7 +590,7 @@
Width = 121 Width = 121
end end
object customStrField2: TcxTextEdit object customStrField2: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -600,7 +600,7 @@
Width = 121 Width = 121
end end
object C_Width: TcxTextEdit object C_Width: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
ParentFont = False ParentFont = False
Style.HotTrack = False Style.HotTrack = False
@ -611,7 +611,7 @@
Width = 121 Width = 121
end end
object C_GramWeight: TcxTextEdit object C_GramWeight: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
ParentFont = False ParentFont = False
Style.HotTrack = False Style.HotTrack = False
@ -622,7 +622,7 @@
Width = 121 Width = 121
end end
object addLen: TcxTextEdit object addLen: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -632,7 +632,7 @@
Width = 121 Width = 121
end end
object addWet: TcxTextEdit object addWet: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -642,7 +642,7 @@
Width = 121 Width = 121
end end
object bt_printmd: TButton object bt_printmd: TButton
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Width = 48 Width = 48
Height = 33 Height = 33
@ -658,7 +658,7 @@
OnClick = bt_printmdClick OnClick = bt_printmdClick
end end
object presentLen: TcxTextEdit object presentLen: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -668,7 +668,7 @@
Width = 121 Width = 121
end end
object presentWeight: TcxTextEdit object presentWeight: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -678,7 +678,7 @@
Width = 121 Width = 121
end end
object unitPieces: TcxTextEdit object unitPieces: TcxTextEdit
Left = 8864 Left = 8561
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
@ -764,7 +764,9 @@
'1' '1'
'2' '2'
'3' '3'
'4') '4'
'5'
'6')
end end
object dxLayoutControl_packGroup_Root: TdxLayoutGroup object dxLayoutControl_packGroup_Root: TdxLayoutGroup
AlignHorz = ahClient AlignHorz = ahClient

134
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -372,6 +372,7 @@ type
function deletePack(packId: string): boolean; function deletePack(packId: string): boolean;
function checkPicecNo(): boolean; function checkPicecNo(): boolean;
function getCurPieceNO(mCcid: string): string; function getCurPieceNO(mCcid: string): string;
function InitDevComboboxG(ADOQueryTmp: TADOQuery; combobox: TcxCombobox; mFlag: string; selFlag: Boolean = true): Boolean;
type type
public public
@ -432,6 +433,21 @@ begin
Application.MessageBox('等级不能为空!', '提示', 0); Application.MessageBox('等级不能为空!', '提示', 0);
exit; exit;
end; end;
with ADOCmd do
begin
Close;
SQL.Clear;
SQL.Add(' select * from BS_Cloth_IO A where STKName=''贸易待检布'' ');
SQL.Add(' and A.FromSubId=''' + trim(Fsubid) + '''');
Open;
end;
if ADOCmd.IsEmpty then
begin
Application.MessageBox('该颜色未在待检布仓库，不可以检验该颜色！', '提示信息', MB_ICONERROR);
exit;
end;
if CheckData('提交') = false then if CheckData('提交') = false then
exit; exit;
@ -901,6 +917,49 @@ begin
frmMachRollMain := nil; frmMachRollMain := nil;
end; end;
function TfrmMachRollMain.InitDevComboboxG(ADOQueryTmp: TADOQuery; combobox: TcxCombobox; mFlag: string; selFlag: Boolean = true): Boolean;
begin
Result := false;
try
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select a.itemText from SY_Dict_Item a');
sql.Add(' inner join SY_Dict b on b.dictId=a.dictId');
sql.Add(' where b.dictcode=' + QuotedStr(mFlag));
sql.Add('and a.valid=1 and b.valid=1');
sql.Add('order by A.sortorder');
Open;
if IsEmpty then
begin
application.MessageBox(PWideChar('未定义对应的字段字典数据(' + mFlag + ')'), '', 0);
Exit;
end;
combobox.Properties.BeginUpdate;
combobox.Properties.Items.Clear;
first;
while not eof do
begin
combobox.Properties.Items.Add(trim(FieldByName('itemText').AsString));
next;
end;
if selFlag and (combobox.Properties.Items.Count > 0) then
begin
combobox.ItemIndex := 0;
end;
combobox.Properties.EndUpdate();
end;
except
raise Exception.Create(PWideChar('获取字段字典数据(' + mFlag + ')时，发生错误!'));
end;
end;
procedure TfrmMachRollMain.FormShow(Sender: TObject); procedure TfrmMachRollMain.FormShow(Sender: TObject);
var var
i: Integer; i: Integer;
@ -913,7 +972,7 @@ begin
cxGridPopupMenu1.Grid := cxGrid3; cxGridPopupMenu1.Grid := cxGrid3;
end; end;
TgridLiSet.Visible := gIsCanDesign; TgridLiSet.Visible := gIsCanDesign;
InitDevCombobox(ADOQueryBaseTemp, grade, 'CPGRADE'); InitDevComboboxG(ADOQueryBaseTemp, grade, 'CPGRADE');
ReadCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption); ReadCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption);
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption); ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption);
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption); ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
@ -1589,8 +1648,8 @@ begin
SQL.Clear; SQL.Clear;
SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName)));
SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) '); SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) ');
SQL.Add('Update Bs_Cloth_IO Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); SQL.Add('Update Trade_Cloth_Stock Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName)));
SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Bs_Cloth_IO.STKID=X.RTValue ) '); SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Trade_Cloth_Stock.CIID=X.RTValue ) ');
// showmessage(SQL.text); // showmessage(SQL.text);
ExecSQL; ExecSQL;
end; end;
@ -1637,8 +1696,8 @@ begin
sql.Clear; sql.Clear;
SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null '); SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null ');
SQL.Add('WHERE CIID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString))); SQL.Add('WHERE CIID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)));
SQL.Add('Update Bs_Cloth_IO Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null '); SQL.Add('Update Trade_Cloth_Stock Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null ');
SQL.Add('WHERE STKID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString))); SQL.Add('WHERE CIID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)));
SQL.Add('insert into Trade_Need_Up(UType,UOperation,UDataId,uoperator) values(''检验'',''检验删除'',' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)) + ',' + QuotedStr(DName) + ') '); SQL.Add('insert into Trade_Need_Up(UType,UOperation,UDataId,uoperator) values(''检验'',''检验删除'',' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)) + ',' + QuotedStr(DName) + ') ');
// showmessage(sql.text); // showmessage(sql.text);
@ -2143,10 +2202,10 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select isnull(count(*),0) as js from Trade_Cloth_Inspect where PacketNo=''' + trim(edtPacketNo.Text) + ''' and mainid='''+trim(Fmainid)+''' '); SQL.Add('select isnull(count(*),0) as js from Trade_Cloth_Inspect where PacketNo=''' + trim(edtPacketNo.Text) + ''' and mainid=''' + trim(Fmainid) + ''' ');
open; open;
end; end;
if ADOQuery1.fieldbyName('JS').AsInteger =1 then if ADOQuery1.fieldbyName('JS').AsInteger = 1 then
begin begin
Application.MessageBox('包号重复，请重新打包!', '提示', 0); Application.MessageBox('包号重复，请重新打包!', '提示', 0);
Exit; Exit;
@ -2168,8 +2227,8 @@ begin
SQL.Clear; SQL.Clear;
SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName)));
SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) '); SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) ');
SQL.Add('Update Bs_Cloth_IO Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); SQL.Add('Update Trade_Cloth_Stock Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName)));
SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Bs_Cloth_IO.STKID=X.RTValue ) '); SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Trade_Cloth_Stock.STKID=X.RTValue ) ');
ExecSQL; ExecSQL;
end; end;
if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then
@ -2287,19 +2346,19 @@ begin
begin begin
edtChen.Text := ''; edtChen.Text := '';
end; end;
if not cds_params.IsEmpty then // if not cds_params.IsEmpty then
// begin
cds_params.Edit;
with cds_params do
begin begin
cds_params.Edit; if Trim(edtChen.Text) = '√' then
with cds_params do cds_params.fieldByName('chen').Value := '1'
begin else
if Trim(edtChen.Text) = '¡Ì' then cds_params.fieldByName('chen').Value := '0';
cds_params.fieldByName('chen').Value := '1'
else
cds_params.fieldByName('chen').Value := '0';
end;
cds_params.Post;
end; end;
cds_params.Post;
// end;
end; end;
procedure TfrmMachRollMain.outPageClick(Sender: TObject); procedure TfrmMachRollMain.outPageClick(Sender: TObject);
@ -2313,16 +2372,16 @@ begin
begin begin
outPage.Text := ''; outPage.Text := '';
end; end;
if not cds_params.IsEmpty then // if not cds_params.IsEmpty then
// begin
cds_params.Edit;
with cds_params do
begin begin
cds_params.Edit;
with cds_params do
begin
// 出纸 // 出纸
cds_params.fieldByName('outPage').Value := outPage.Text; cds_params.fieldByName('outPage').Value := outPage.Text;
end;
cds_params.Post;
end; end;
cds_params.Post;
// end;
end; end;
procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject); procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject);
@ -2374,18 +2433,18 @@ begin
begin begin
edtMaBiao.Text := ''; edtMaBiao.Text := '';
end; end;
if not cds_params.IsEmpty then // if not cds_params.IsEmpty then
// begin
cds_params.Edit;
with cds_params do
begin begin
cds_params.Edit; if Trim(edtMaBiao.Text) = '√' then
with cds_params do cds_params.fieldByName('mabiao').Value := '1'
begin else
if Trim(edtMaBiao.Text) = '¡Ì' then cds_params.fieldByName('mabiao').Value := '0';
cds_params.fieldByName('mabiao').Value := '1'
else
cds_params.fieldByName('mabiao').Value := '0';
end;
cds_params.Post;
end; end;
cds_params.Post;
// end;
end; end;
procedure TfrmMachRollMain.Edit_pieceOrderClick(Sender: TObject); procedure TfrmMachRollMain.Edit_pieceOrderClick(Sender: TObject);
@ -3053,7 +3112,8 @@ begin
frameBads1.lblCIFName.Caption := trim(TSpeedButton(Sender).Hint); frameBads1.lblCIFName.Caption := trim(TSpeedButton(Sender).Hint);
frameBads1.CIFNumber.SetFocus; frameBads1.CIFNumber.SetFocus;
frameBads1.CIFNumber.text := '1';
frameBads1.CIFBeg.text := trim(Self.InputLen.text);
frameBads1cxCheckBox_readLenPropertiesChange(frameBads1.IsSubtract); frameBads1cxCheckBox_readLenPropertiesChange(frameBads1.IsSubtract);
end; end;