'MacroName:CCSrandomBarcode

'$Include "CCS!replace"

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   
   CS.GetField "049", 1, tag049$
   tag049$ = mid(tag049$, 6, 3)

   barcode$ = tag049$ & "-" & now()
   barcode$ = replace(barcode$, "/", "")
   barcode$ = replace(barcode$, ":", "")
   barcode$ = replace(barcode$, " ", "")
   CS.GetField "949", 1, tag949$
   tag949$ = tag949$ & " " & barcode$
   CS.SetField 1, tag949$

End Sub