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 #22806#38144#30721#21333
#26816#39564#30721#21333'('#19977#32852#65289 #26816#39564#30721#21333'('#19977#32852#65289
#26816#39564#30721#21333'('#19977#32852#32454#30721')' #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 end
object TBAftChkHX: TToolButton object TBAftChkHX: TToolButton
Left = 596 Left = 596

2
检验管理/U_JYOrderCDOne.pas
View File

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

4
检验管理/U_OrderInPut.pas
View File

@ -913,12 +913,12 @@ begin
begin begin
Close; Close;
sql.Clear; 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; Open;
end; end;
if ADOTemp.IsEmpty = False then if ADOTemp.IsEmpty = False then
begin begin
Application.MessageBox('已领料不能删除数据!', '提示', 0); Application.MessageBox('已打卷不能删除数据!', '提示', 0);
Exit; Exit;
end; end;
with ADOTemp do with ADOTemp do