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

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

@ -372,6 +372,7 @@ type
function deletePack(packId: string): boolean;
function checkPicecNo(): boolean;
function getCurPieceNO(mCcid: string): string;
function InitDevComboboxG(ADOQueryTmp: TADOQuery; combobox: TcxCombobox; mFlag: string; selFlag: Boolean = true): Boolean;
type
public
@ -432,6 +433,21 @@ begin
Application.MessageBox('等级不能为空!', '提示', 0);
exit;
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
exit;
@ -901,6 +917,49 @@ begin
frmMachRollMain := nil;
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);
var
i: Integer;
@ -913,7 +972,7 @@ begin
cxGridPopupMenu1.Grid := cxGrid3;
end;
TgridLiSet.Visible := gIsCanDesign;
InitDevCombobox(ADOQueryBaseTemp, grade, 'CPGRADE');
InitDevComboboxG(ADOQueryBaseTemp, grade, 'CPGRADE');
ReadCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption);
ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption);
ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
@ -1589,8 +1648,8 @@ begin
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('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('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Bs_Cloth_IO.STKID=X.RTValue ) ');
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 Trade_Cloth_Stock.CIID=X.RTValue ) ');
// showmessage(SQL.text);
ExecSQL;
end;
@ -1637,8 +1696,8 @@ begin
sql.Clear;
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('Update Bs_Cloth_IO Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null ');
SQL.Add('WHERE STKID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)));
SQL.Add('Update Trade_Cloth_Stock Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null ');
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) + ') ');
// showmessage(sql.text);
@ -2143,10 +2202,10 @@ begin
begin
Close;
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;
end;
if ADOQuery1.fieldbyName('JS').AsInteger =1 then
if ADOQuery1.fieldbyName('JS').AsInteger = 1 then
begin
Application.MessageBox('包号重复，请重新打包!', '提示', 0);
Exit;
@ -2168,8 +2227,8 @@ begin
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('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('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Bs_Cloth_IO.STKID=X.RTValue ) ');
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 Trade_Cloth_Stock.STKID=X.RTValue ) ');
ExecSQL;
end;
if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then
@ -2287,8 +2346,8 @@ begin
begin
edtChen.Text := '';
end;
if not cds_params.IsEmpty then
begin
// if not cds_params.IsEmpty then
// begin
cds_params.Edit;
with cds_params do
begin
@ -2299,7 +2358,7 @@ begin
end;
cds_params.Post;
end;
// end;
end;
procedure TfrmMachRollMain.outPageClick(Sender: TObject);
@ -2313,8 +2372,8 @@ begin
begin
outPage.Text := '';
end;
if not cds_params.IsEmpty then
begin
// if not cds_params.IsEmpty then
// begin
cds_params.Edit;
with cds_params do
begin
@ -2322,7 +2381,7 @@ begin
cds_params.fieldByName('outPage').Value := outPage.Text;
end;
cds_params.Post;
end;
// end;
end;
procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject);
@ -2374,8 +2433,8 @@ begin
begin
edtMaBiao.Text := '';
end;
if not cds_params.IsEmpty then
begin
// if not cds_params.IsEmpty then
// begin
cds_params.Edit;
with cds_params do
begin
@ -2385,7 +2444,7 @@ begin
cds_params.fieldByName('mabiao').Value := '0';
end;
cds_params.Post;
end;
// end;
end;
procedure TfrmMachRollMain.Edit_pieceOrderClick(Sender: TObject);
@ -3053,7 +3112,8 @@ begin
frameBads1.lblCIFName.Caption := trim(TSpeedButton(Sender).Hint);
frameBads1.CIFNumber.SetFocus;
frameBads1.CIFNumber.text := '1';
frameBads1.CIFBeg.text := trim(Self.InputLen.text);
frameBads1cxCheckBox_readLenPropertiesChange(frameBads1.IsSubtract);
end;