Group_DJD/D7DJshunyang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-30 16:25:10 +08:00
parent a67ea2a863
commit 07fc581124
1 changed files with 77 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

137
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1116,7 +1116,7 @@ end;
procedure TfrmJYOrderCDOne.PRTCodeNameChange(Sender: TObject); procedure TfrmJYOrderCDOne.PRTCodeNameChange(Sender: TObject);
begin begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmJYOrderCDOne.ToolButton3Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton3Click(Sender: TObject);
@ -1134,66 +1134,82 @@ begin
application.MessageBox('未打包不能打印', '提示'); application.MessageBox('未打包不能打印', '提示');
exit; exit;
end; end;
try Order_Main.DisableControls;
Moudle := LoadLibrary('MakeQRBarcode.dll'); with Order_Main do
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(Order_Main.fieldbyname('BaoID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
Order_Main.EnableControls;
exit;
end;
with ADOQueryPrint do
begin begin
Close; First;
SQL.Clear; while not Eof do
sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); begin
sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); if Order_Main.FieldByName('SSel').AsBoolean = True then
sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); begin
sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); try
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); Moudle := LoadLibrary('MakeQRBarcode.dll');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); @Makebar := GetProcAddress(Moudle, 'Make');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); @Mixtext := GetProcAddress(Moudle, 'MixText');
sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); Txt := Trim(Order_Main.fieldbyname('BaoID').AsString);
SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
sql.Add('from WFB_MJJY A'); if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); if FileExists(fImagePath) then
SQL.Add(' where A.BaoID=''' + Trim(Order_Main.fieldbyname('BaoID').AsString) + ''''); DeleteFile(fImagePath);
SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName'); Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
Open; except
end; application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then Order_Main.EnableControls;
begin exit;
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString), ADOQueryCmd); end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString); with ADOQueryPrint do
end begin
else Close;
begin SQL.Clear;
ExportFtErpFile('通用包标签.rmf', ADOQueryCmd); sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,');
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用包标签.rmf'; sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),');
end; sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), ');
sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), ');
sql.Add('MJxh=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), ');
SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen');
sql.Add('from WFB_MJJY A');
sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID');
sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID');
SQL.Add(' where A.BaoID=''' + Trim(Order_Main.fieldbyname('BaoID').AsString) + '''');
SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName');
Open;
end;
if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then
begin
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString), ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString);
end
else
begin
ExportFtErpFile('通用包标签.rmf', ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用包标签.rmf';
end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RMVariables['QRBARCODE'] := fImagePath; RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile); RM2.LoadFromFile(fPrintFile);
RM2.ShowReport; RM2.ShowReport;
//RM2.printReport; //RM2.printReport;
end end
else else
begin begin
Order_Main.EnableControls; Order_Main.EnableControls;
Application.MessageBox(PChar('没有找' + trim(fPrintFile)), '提示', 0); Application.MessageBox(PChar('没有找' + trim(fPrintFile)), '提示', 0);
Exit; Exit;
end;
end;
Next;
end;
end; end;
Order_Main.EnableControls;
end; end;
procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject); procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject);
@ -2175,7 +2191,7 @@ begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
if Order_Main.Locate('SSel', True, []) = False then if Order_Main.Locate('SSel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据!', '提示', 0); Application.MessageBox('没有选择数据!', '提示', 0);
Exit; Exit;
end; end;
@ -2196,8 +2212,9 @@ begin
sql.Clear; sql.Clear;
sql.Add('Update JYOrder_Sub Set kmxs=''' + trim(Edit5.Text) + ''' '); sql.Add('Update JYOrder_Sub Set kmxs=''' + trim(Edit5.Text) + ''' ');
sql.Add('where subid=''' + Trim(Order_Main.fieldbyname('subid').AsString) + ''''); sql.Add('where subid=''' + Trim(Order_Main.fieldbyname('subid').AsString) + '''');
sql.Add('Update WFB_MJJY A,JYOrder_Sub B Set A.MJLen=A.MJQty4*B.kmxs '); sql.Add('UPDATE A SET A.MJLen = A.MJQty4 * B.kmxs ');
sql.Add('where A.subid=B.subid and MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('FROM WFB_MJJY A JOIN JYOrder_Sub B ON A.subid = B.subid');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
// ShowMessage(SQL.Text); // ShowMessage(SQL.Text);
ExecSQL; ExecSQL;
end; end;