Group_01/D7DJchuanghui
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-14 16:37:19 +08:00
parent de5b477751
commit febcdb2c22
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
检验管理/U_JYOrderCDOne.dfm
View File

@ -186,7 +186,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#22806#38144#30721#21333
#26816#39564#30721#21333'('#19977#32852#65289
#26816#39564#30721#21333'('#19977#32852#32454#30721')'
#26816#39564#30721#21333'('#19977#32852#31859')')
#26816#39564#30721#21333'('#19977#32852#31859')'
#22806#38144#30721#21333'2')
end
object TBAftChkHX: TToolButton
Left = 596

2
检验管理/U_JYOrderCDOne.pas
View File

@ -1559,7 +1559,7 @@ begin
// SCreateCDS20(ADOQueryTemp, CDS_PRT);
// SInitCDSData20(ADOQueryTemp, CDS_PRT);
end;
if (trim(ComboBox1.Text) = '棍饋쯤데2') then
if (trim(ComboBox1.Text) = '棍饋쯤데2') then
begin
with ADOQueryTemp do
begin

4
检验管理/U_OrderInPut.pas
View File

@ -913,12 +913,12 @@ begin
begin
Close;
sql.Clear;
sql.Add('select * from Contract_Cloth_LLMX where OrdSubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
sql.Add('select * from WFB_MJJY where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('已领料不能删除数据!', '提示', 0);
Application.MessageBox('已打卷不能删除数据!', '提示', 0);
Exit;
end;
with ADOTemp do