UET on label printing

The documentation that I can find is very lacking, If someone could point me in the right direction I would be grateful!

I am needing to add UET fields to label printing. We are using FactoryTrack and Bartender. Labels are printing just fine, we would like to add out custom fields to them.

Find more posts tagged with

General Discussions

Accepted answers

All comments

unknown

Our team did it by following the section "Extending Factory Track to print additional
information on the Barcode label" of the Infor document "Infor Factory Track Extensibility
Guide for CSI". I don't know the details but I think I remember it worked right away.

unknown

I read the "Extending Factory Track to print additional information on the Barcode label", which it works great, you can also use the method I've outlined below.

In Bartender:

Set your field to use Visual Basic Script.

Here is an example to get your started using Factory Track:

The retrieves the operator's name and clock number to show on the label:

strJob = Field("Standard_Layout.Standard_Layout.OrderNumber")
strOpe = Field("Standard_Layout.Standard_Layout.Operation")

strScrap = Null

--Make sure to set you User ID, Password, and Catalog (DB NAME), and Data Source (SQL Server)

StrConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=XXXX;Password=XXXX;Initial Catalog=XXXFT_APP;Data Source=MYSQLSERVER"
Set cnt = CreateObject("ADODB.Connection")
cnt.Open StrConnect

strSQL = "Select Top(1) T.* FROM wm_punch_dtl_mst AS T WHERE LTRIM(T.order_number) = '" & strJob & "' AND T.operation = " & strOpe & " ORDER BY T.CreateDate DESC"

If(err.number=0) then

Set rstA = CreateObject("ADODB.Recordset")
rstA.Open strSQL, cnt

If rstA.EOF = True Then
rstA.Close
'cnt.Close
Set rstA = Nothing
'Set cnt = Nothing
strOperator = ""
Else
Do While rstA.EOF = False
If IsNull(rstA.Fields("emp_num")) = True THEN
strOperator = "Unknown"
Else
strOperator = rstA.Fields("emp_num")
End If
rstA.MoveNext
Loop
rstA.Close
'cnt.Close
End If

strOperator = TRIM(strOperator)

End If

--We have different sites, set your site to your appropriate one

strSQL = "SELECT E.first_name, E.last_name FROM employee_mst AS E WHERE E.site_ref='XXX-APP' AND LTRIM(E.emp_num)='" & strOperator & "'"

If(err.number=0) then

Set rstB = CreateObject("ADODB.Recordset")
rstB.Open strSQL, cnt

If rstB.EOF = True Then
rstB.Close
'cnt.Close
Set rstB = Nothing
'Set cnt = Nothing
strOperName = ""
Else
Do While rstB.EOF = False
If IsNull(rstB.Fields("last_name")) = True THEN
strLastName = "Unknown"
Else
strFirstName = rstB.Fields("first_name")
strLastName = rstB.Fields("last_name")
End If
rstB.MoveNext
Loop
rstB.Close
'cnt.Close
End If

End If

cnt.Close

strOutput = "Operator: " & TRIM(strOperator) & " - " & TRIM(strFirstName) & " " & TRIM(strLastName)

value = strOutput

unknown

Thanks guys! Finally found the document, its NOT on docs.infor.com..... now to the reading!

unknown

I find that most interesting Infor documents are available only via Infor Support Portal / Concierge, not docs.infor.com, especially for v9 and earlier.

unknown

It is a hot mess. They have documentation removed that isn't in docs.infor too. The documentation was much more complete in certain subjects and easier to read. I found information in doc.infor that I haven't seen in documentation though, that part is nice. It is just far from complete.

Copyright © 2025 Infor. All rights reserved.