📄 u_frmmain.pas
字号:
EXIT;
end;
Parameters.ParamByName('sku').Value := ' ';
end
else
Parameters.ParamByName('sku').Value := DM.QWrappingSKU.AsString;
Parameters.ParamByName('qzbz').value := DM.QWrappingT0448.AsString;
Parameters.ParamByName('zs').value := dm.QWRAPPINGPKSH.AsString;
DM.QFree2.Close;
DM.QFree2.SQL.Clear;
DM.QFree2.SQL.Text := 'SELECT PAPERKIND FROM PES.STACK_PACK_WRAPPING_DTL WHERE PLANNO = :PLANNO';
DM.QFree2.Params[0].AsString := DM.QWRAPPINGPlanno.AsString;
DM.QFree2.Open;
if Trim(dm.qfree2.fields[0].AsString) = 'ABU' then
Parameters.ParamByName('tc').value := 'C1S'
else
Parameters.ParamByName('tc').value := 'TEXT';
if dm.qwrappingpaperkind.asstring = 'P2G' then
begin
Parameters.ParamByName('gloss').value := 'GLOSS';
end
else if dm.qwrappingpaperkind.asstring = 'P2M' then
begin
Parameters.ParamByName('gloss').value := 'SILK';
end;
ExecSQL;
end;
end
//美国METEOR结束**************************************************************
else
//Robert Horne开始************************************************************
begin
//删除数据
DM.HR_Delete.Close;
DM.HR_Delete.ExecSQL;
with dm.HR_Insert do
begin
Close;
//赋参数
//规格
Parameters[0].value := DM.QWRAPPINGSPECIFICATION.AsString;
//克重kz
Parameters[1].value := DM.QWRAPPINGGWEIGHT.AsString;
//张/包
Parameters[2].value := DM.QWRAPPINGPKSH.AsFloat;
//Long Or Short
J:=POS('*', DM.QWRAPPINGSPECIFICATION.AsString);
temp1 := COPY(DM.QWRAPPINGSPECIFICATION.AsString, 1, J - 1);
temp2 := COPY(DM.QWRAPPINGSPECIFICATION.AsString, J + 1, length(DM.QWRAPPINGSPECIFICATION.AsString) - J);
if StrToFloat(temp1) <= StrToFloat(temp2) then
Parameters[3].value := 'LONG'
else
Parameters[3].value := 'SHORT';
//EAN
//ShowMessage(DM.QWRAPPING1T0422.AsString + ' ' + DM.QWRAPPING1T0423.AsString + ' ' + DM.QWRAPPING1T0421.AsString + ' ' + DM.QWRAPPING1T0426.AsString);
//显示Customer Code 和 EAN
with DM.A do
begin
close;
SQL.Clear;
SQL.Add('select EANNO From PES.STACK_ROBERTH where BRANDNO = :P1 and PAPERKIND = :P2 and GWEIGHT = :P3 and PAPER_FORM = :P4 AND CUTSIZE = :P5');
Params[0].AsString := DM.QWRAPPINGT0422.AsString;
Params[1].AsString := DM.QWRAPPINGT0423.AsString;
Params[2].AsString := DM.QWRAPPINGT0421.AsString;
Params[3].AsString := DM.QWRAPPINGT0426.AsString;
Params[4].AsString := DM.QWRAPPINGSPECIFICATION.AsString;
Open;
end;
{if pos('无令', DM.QWRAPPING1T0462T.AsString) > 0 then
//无令打印张数
Parameters[1].value := DM.QWRAPPING1SHPL.AsString
else
//有令打印包数
Parameters[1].value := DM.QWRAPPING1PKSH.AsString; }
Parameters[4].value := copy(DM.A.Fields[0].AsString, 2, 12);
//ShowMessage(Parameters[4].value);
ExecSQL;
end;
end;
//Robert Horne结束************************************************************
MessageBox(Self.Handle, '发送成功！', '信息', MB_OK + MB_ICONINFORMATION);
end;
procedure TfrmMain.FormCreate(Sender: TObject);
var
node: TTreeNode;
begin
with DM.QSysdate do
begin
Close;
Open;
dtpTime.DateTime := Fields[0].AsDateTime;
end;
StatusBar1.Panels[0].Text := '当前本机日期：' + FormatDateTime('yyyy-mm-dd', Date);
StatusBar1.Panels[1].Text := '当前本机时间：' + FormatDateTime('hh:mm:ss', Time);
node := TreeView1.Items.GetFirstNode;
node.Selected := true;
node.Expand(false);
end;
procedure TfrmMain.cmdSendXClick(Sender: TObject);
var
j: ShortInt;
temp1, temp2, tt: ShortString;
begin
if DM.QWRAPPINGPLANNO.AsString = '' then exit;
//删除数据
DM.ADODelete.Close;
DM.ADODelete.ExecSQL;
with dm.METEOR_Insert do
begin
Close;
//赋参数
//栈板号planno
Parameters[0].value := DM.QWRAPPINGPLANNO.AsString;
//磅重bz
if dm.QWRAPPINGGWEIGHT.AsInteger = 89 then
Parameters[1].value := '60LB'
else if dm.QWRAPPINGGWEIGHT.AsInteger = 104 then
Parameters[1].value := '70LB'
else if dm.QWRAPPINGGWEIGHT.AsInteger = 118 then
Parameters[1].value := '80LB'
else if dm.QWRAPPINGGWEIGHT.AsInteger = 148 then
Parameters[1].value := '100LB';
//克重kz
Parameters[2].value := DM.QWRAPPINGGWEIGHT.AsString + 'G';
//gg2
J:=POS('*', dm.QWRAPPINGspecification.AsString);
temp1 := COPY(dm.QWRAPPINGspecification.AsString,1,J-1);
temp2 := COPY(dm.QWRAPPINGspecification.AsString,J+1,length(dm.QWRAPPINGspecification.AsString)-J);
//FINISH栏位
if dm.QWRAPPINGPAPERKIND.AsString = 'P2G' then
Parameters[9].value := 'GLOSS'
else if dm.QWRAPPINGPAPERKIND.AsString = 'P2M' then
Parameters[9].value := 'SILK';
//gg1
temp1 := FormatFloat('0.0',StrToFloat(temp1) / 25.4);
temp2 := FormatFloat('0.0',StrToFloat(temp2) / 25.4);
Parameters[3].value := temp1 + 'X' + temp2;
tt := dm.QWRAPPINGspecification.asstring;
//如果是GV格式转换成分数形式
if (copy(dm.qwrappingcharg.asstring, 4, 2) = 'GV') and ( (tt = '216*279') or (tt = '314*460') or (tt= '318*483') or (tt = '337*460')) then// and ((tt = '216*279') or tt = '314*460') or (tt = '318*483') or (tt = '337*460') ) then
begin
if dm.qwrappingspecification.asstring = '216*279' then
Parameters[3].value := '8 1/2' + 'X' + '11'
else if dm.QWRAPPINGspecification.asstring = '314*460' then
Parameters[3].value := '12 3/8' + 'X' + '18 1/8'
else if dm.QWRAPPINGspecification.asstring = '318*483' then
Parameters[3].value := '12 1/2' + 'X' + '19'
else if dm.QWRAPPINGspecification.asstring = '337*460' then
Parameters[3].value := '13 1/4' + 'X' + '18 1/8'
end;
//Parameters[5].value := dm.QWRAPPING1SKU.AsString;
{//查询SKUNO
DM.QFree2.Close;
DM.QFree2.SQL.Clear;
DM.QFree2.SQL.Text := 'SELECT SKUNO FROM PES.STACK_USASKU WHERE MATNR = :MATNR AND CHARG = :CHARG';
DM.QFree2.Params[0].AsString := DM.QWRAPPING1MATNR.AsString;
DM.QFree2.Params[1].AsString := DM.QWRAPPING1charg.AsString;
DM.QFree2.Open; }
if trim(dm.qfree2.fields[0].AsString) = '' then
begin
if MessageBox(Self.Handle, '该物料批次没有对应的SKUNO，是否真得要打印？', '系统提示', MB_YESNO + MB_ICONQUESTION) = mrNO then
begin
EXIT;
end;
Parameters[5].Value := ' ';
end
else
Parameters[5].Value := dm.qfree2.fields[0].AsString;
Parameters[6].value := DM.QWrappingT0448.AsString;
Parameters[7].value := dm.QWRAPPINGPKSH.AsString;
DM.QFree2.Close;
DM.QFree2.SQL.Clear;
DM.QFree2.SQL.Text := 'SELECT PAPERKIND FROM PES.STACK_PACK_WRAPPING_DTL WHERE PLANNO = :PLANNO';
DM.QFree2.Params[0].AsString := DM.QWRAPPINGPlanno.AsString;
DM.QFree2.Open;
if Trim(dm.qfree2.fields[0].AsString) = 'ABU' then
Parameters[8].value := 'C1S'
else
Parameters[8].value := 'TEXT';
ExecSQL;
end;
MessageBox(Self.Handle, '发送成功！', '信息', MB_OK + MB_ICONINFORMATION);
end;
procedure TfrmMain.mnuAboutClick(Sender: TObject);
begin
frmAbout.ShowModal;
end;
procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[0].Text := '当前本机日期：' + FormatDateTime('yyyy-mm-dd', Date);
StatusBar1.Panels[1].Text := '当前本机时间：' + FormatDateTime('hh:mm:ss', Time);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -