Group_01/D7DJjinchao
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-02 15:50:06 +08:00
parent 2793786a07
commit 7ca0b281d7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
复合检验管理/U_JYOrderCDOne.pas
View File

@ -1669,12 +1669,13 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '金超复合厂') or (trim(ComboBox1.Text) = '金超复合厂(净重)') or (trim(ComboBox1.Text) = '金超复合厂(毛重)') then if (trim(ComboBox1.Text) = '金超复合厂') or (trim(ComboBox1.Text) = '金超复合厂(净重)')
or (trim(ComboBox1.Text) = '金超复合厂(毛重)') or (trim(ComboBox1.Text) = '金超复合厂(内销码单)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDYDL_HS '); sql.add('exec P_Print_CKMDYDL_HS ');
SQL.Add('@ZRow =25'); SQL.Add('@ZRow =25');
SQL.Add(',@Zcol =4'); SQL.Add(',@Zcol =4');