~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
9b95b3f0d5
commit
d90f625457
|
|
@ -12,19 +12,19 @@ uses
|
|||
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
|
||||
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmJYOrderCDOne = class(TForm)
|
||||
|
|
@ -374,7 +374,7 @@ end;
|
|||
procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
WriteCxGrid('¼ìÑ鱨¸æJF', Tv1, '¼ìÑé¹ÜÀí');
|
||||
WriteCxGrid('检验报告JF', Tv1, '检验管理');
|
||||
end;
|
||||
|
||||
procedure TfrmJYOrderCDOne.InitGrid();
|
||||
|
|
@ -409,7 +409,7 @@ begin
|
|||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
tbfind.Click;
|
||||
end;
|
||||
|
|
@ -2173,7 +2173,7 @@ end;
|
|||
procedure TfrmJYOrderCDOne.Button13Click(Sender: TObject);
|
||||
var
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath: string;
|
||||
Txt, fImagePath, Txt1, fImagePath1: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
|
|
@ -2246,6 +2246,24 @@ begin
|
|||
sql.Add('@MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
|
||||
Open;
|
||||
end;
|
||||
try
|
||||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderNo').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJLen').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJStr4').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJXH').AsString);
|
||||
Txt1 := UTF8Encode(Txt1);
|
||||
fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||||
if FileExists(fImagePath1) then
|
||||
DeleteFile(fImagePath1);
|
||||
Makebar(pchar(Txt1), Length(Txt1), 3, 3, 0, PChar(fImagePath1), 3);
|
||||
except
|
||||
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
|
||||
Order_Main.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then
|
||||
begin
|
||||
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd);
|
||||
|
|
@ -2271,6 +2289,7 @@ begin
|
|||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
RMVariables['QRBARCODE'] := fImagePath;
|
||||
RMVariables['QRBARCODE1'] := fImagePath1;
|
||||
if ComboBox2.Text = 'Ó¢ÎÄ×ֶαêÇ©' then
|
||||
begin
|
||||
RM2.LoadFromFile(fPrintFile);
|
||||
|
|
|
|||
|
|
@ -337,9 +337,9 @@ type
|
|||
function SaveData(): Boolean;
|
||||
procedure BtnStatus(BSInt: Boolean);
|
||||
procedure AddSLNew(Fbtn: TSpeedButton);
|
||||
procedure AddCDNew(Fbtn: TSpeedButton);
|
||||
procedure AddCDNew(Fbtn: TSpeedButton);
|
||||
procedure SavedataCK();
|
||||
procedure PrtData(FMJID: string);
|
||||
procedure PrtData(FMJID: string);
|
||||
procedure PrtBaoData(FBaoid: string);
|
||||
procedure OpenCom(DllName: string);
|
||||
procedure CloseCom(DllName: string);
|
||||
|
|
@ -1760,7 +1760,7 @@ end;
|
|||
procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string);
|
||||
var
|
||||
fPrintFile: string;
|
||||
Txt, fImagePath: string;
|
||||
Txt, fImagePath, Txt1, fImagePath1: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
|
|
@ -1808,6 +1808,23 @@ begin
|
|||
CDS_MJID.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
try
|
||||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderNo').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJLen').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJStr4').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJXH').AsString);
|
||||
Txt1 := UTF8Encode(Txt1);
|
||||
fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||||
if FileExists(fImagePath1) then
|
||||
DeleteFile(fImagePath1);
|
||||
Makebar(pchar(Txt1), Length(Txt1), 3, 3, 0, PChar(fImagePath1), 3);
|
||||
except
|
||||
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
|
||||
CDS_MJID.EnableControls;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
|
||||
begin
|
||||
|
|
@ -1831,48 +1848,11 @@ begin
|
|||
ExportFtErpFile('ͨÓñêÇ©.rmf', ADOCmd);
|
||||
end;
|
||||
|
||||
// if FileExists(fPrintFile) then
|
||||
// begin
|
||||
// RMVariables['QRBARCODE'] := fImagePath;
|
||||
// RM2.LoadFromFile(fPrintFile);
|
||||
//
|
||||
// RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
||||
// RM2.ShowReport;
|
||||
// Sleep(1000);
|
||||
//// RM2.PrintReport;
|
||||
// if MggCDFalg = '99' then
|
||||
// begin
|
||||
// with ADOCmd do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,MainId) values( ');
|
||||
// sql.Add(' ' + quotedstr(trim(DName)));
|
||||
// sql.Add(',getdate() ');
|
||||
// sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||
// sql.Add(',' + quotedstr(trim('检验重打')));
|
||||
// sql.Add(',' + quotedstr(trim('卷条码:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ',' + trim(Label24.Caption) + ',' + trim(Label38.Caption) + ',' + trim(Label25.Caption) + ',缸号：' + trim(CDS_MJID.FieldByName('mjstr4').AsString) + ',卷号:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + ',张数:' + trim(ComboBox1.Text))));
|
||||
// sql.Add(',' + quotedstr(trim('成功')));
|
||||
// sql.Add(',' + quotedstr(trim(FMainId)));
|
||||
// sql.Add(')');
|
||||
// execsql;
|
||||
// end;
|
||||
// PlaySound('wav\重打成功.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||
// end;
|
||||
// MggCDFalg := '';
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// MggCDFalg := '';
|
||||
// PlaySound('wav\标签没有找到.wav', 0, SND_FILENAME or SND_ASYNC);
|
||||
// Application.MessageBox('标签没有找到，请尝试重新登录，有可能标签没有上传', '提示', 0);
|
||||
// end;
|
||||
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
|
||||
RMVariables['QRBARCODE'] := fImagePath;
|
||||
|
||||
RMVariables['QRBARCODE1'] := fImagePath1;
|
||||
if Edit5.Text <> '' then
|
||||
begin
|
||||
RM3.LoadFromFile(fPrintFile);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user