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 Text = #38144#21806#30721#21333
Items.Strings = ( Items.Strings = (
#38144#21806#30721#21333 #38144#21806#30721#21333
#20986#24211#30721#21333) #20986#24211#30721#21333
#26126#32454#30721#21333)
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 475 Left = 475

29
检验管理/U_CKProductBCPOutList.pas
View File

@ -385,6 +385,32 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_HZ); SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(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) = 'Ã÷ϸÂëµ¥' 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 with ADOQueryTemp do
begin begin
Close; Close;
@ -398,6 +424,7 @@ begin
SCreateCDS20(ADOQueryTemp, CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp, CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
end; end;
if (trim(ComboBox1.Text) = 'ÏúÊÛÂëµ¥') or (trim(combobox1.Text) = 'ÏúÊÛÂëµ¥-°²¿µ') then if (trim(ComboBox1.Text) = 'ÏúÊÛÂëµ¥') or (trim(combobox1.Text) = 'ÏúÊÛÂëµ¥-°²¿µ') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1304,7 +1331,7 @@ begin
CDS_Main.EnableControls; CDS_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
MovePanel2.Visible := False; MovePanel2.Visible := False;
Exit; Exit;
except except
MovePanel2.Visible := False; MovePanel2.Visible := False;
CDS_Main.EnableControls; CDS_Main.EnableControls;

4
检验管理/U_CpCkSaoMNewSel.pas
View File

@ -631,7 +631,7 @@ procedure TfrmCpCkSaoMNewSel.Button5Click(Sender: TObject);
var var
maxno, sqlstr: string; maxno, sqlstr: string;
CRID, i, SJ: Integer; CRID, i, SJ: Integer;
MaxCkNo, MaxCkSubNo: string; MaxCkNo, MaxCkSubNo: string;
begin begin
if GetLSNo(ADOQueryCmd, maxno, 'CC', 'CK_BanCp_CR', 4, 1) = False then if GetLSNo(ADOQueryCmd, maxno, 'CC', 'CK_BanCp_CR', 4, 1) = False then
@ -710,7 +710,7 @@ begin
FieldByName('SOrddefstr1').Value := Self.CDS_Main.fieldbyname('SOrddefstr1').Value; FieldByName('SOrddefstr1').Value := Self.CDS_Main.fieldbyname('SOrddefstr1').Value;
FieldByName('MJXH').Value := Self.CDS_Main.fieldbyname('MJXH').Value; FieldByName('MJXH').Value := Self.CDS_Main.fieldbyname('MJXH').Value;
FieldByName('AOrdDefstr1').Value := CDS_Main.fieldbyname('AOrdDefstr1').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('KHName').Value := CDS_Main.fieldbyname('KHName').Value;
FieldByName('RKOrdId').Value := CDS_Main.fieldbyname('RKOrdId').Value; FieldByName('RKOrdId').Value := CDS_Main.fieldbyname('RKOrdId').Value;
FieldByName('BaoNo').Value := CDS_Main.fieldbyname('BaoNo').Value; FieldByName('BaoNo').Value := CDS_Main.fieldbyname('BaoNo').Value;