Group_01/D7DJenchuang
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-07-19 10:19:11 +08:00
parent 6716567ef8
commit d8cd5d0318
3 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
检验管理/U_CKProductBCPOutList.dfm
View File

@ -96,7 +96,8 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
Text = #38144#21806#30721#21333
Items.Strings = (
#38144#21806#30721#21333
#20986#24211#30721#21333)
#20986#24211#30721#21333
#26126#32454#30721#21333)
end
object TBClose: TToolButton
Left = 475

27
检验管理/U_CKProductBCPOutList.pas
View File

@ -398,6 +398,33 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT);
end;
if trim(ComboBox1.Text) = 'Ã÷ϸÂëµ¥' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''2'' ');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT);
end;
if (trim(ComboBox1.Text) = '饋簡쯤데') or (trim(combobox1.Text) = '饋簡쯤데-갛영') then
begin
with ADOQueryTemp do

2
检验管理/U_CpCkSaoMNewSel.pas
View File

@ -710,7 +710,7 @@ begin
FieldByName('SOrddefstr1').Value := Self.CDS_Main.fieldbyname('SOrddefstr1').Value;
FieldByName('MJXH').Value := Self.CDS_Main.fieldbyname('MJXH').Value;
FieldByName('AOrdDefstr1').Value := CDS_Main.fieldbyname('AOrdDefstr1').Value;
FieldByName('MJStr4').Value := CDS_Main.fieldbyname('MJStr4').Value;
// FieldByName('MJStr4').Value := Trim(CDS_Main.fieldbyname('MJStr4').AsString);
FieldByName('KHName').Value := CDS_Main.fieldbyname('KHName').Value;
FieldByName('RKOrdId').Value := CDS_Main.fieldbyname('RKOrdId').Value;
FieldByName('BaoNo').Value := CDS_Main.fieldbyname('BaoNo').Value;