Program MES button to lauch bartender label file

Cool. I'll try that thank you. -Jeff

--- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@...> wrote:
>
> Easiest way is to put a button right over one of the blank buttonsthen
>
> Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnEpiCustom1.Click
>
> Process.Start("PathToBTLabel")
>
> End Sub
>
>
> --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> >
> > At this point, I just want the user to enter it into bartender at the time of printing. so I am just looking for a generic button to launch the bartender file. -Jeff
> >
> > --- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@> wrote:
> > >
> > > No, all of it will have to be modified to meet your requirments.
> > > Will you be passing data or do you want the user to input?
> > >
> > > --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> > > >
> > > > Thanks for the example. This is pretty new to me so I'm not entirely sure I follow. Would I just copy and paste this code into the script editor and change the strPath and stParam2 to my own information?
> > > >
> > > > --- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@> wrote:
> > > > >
> > > > > Here is an extended example.
> > > > >
> > > > > Private Sub btnOk_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnOk.Click
> > > > >
> > > > > Dim Printer As String = UDTagsForm.Session.UserID
> > > > >
> > > > > Dim UDTags As EpiDataView = Ctype(oTrans.EPiDataViews("UDTags"),EpiDataView)
> > > > > Dim TagNumber As String = UDTags.dataView(UDTags.Row)("Key1")
> > > > >
> > > > >
> > > > > Dim strPath As String = "C:\Progra~1\Seagull\BarTender\8.0\bartend.exe"
> > > > >
> > > > > Dim strParam As String = "/F=C:\Tags.btw /PRN= /P /X /?TagNumber="&TagNumber
> > > > >
> > > > >
> > > > > Dim strParam2 As String = strParam.Insert(20,Printer)
> > > > >
> > > > > Process.Start(strPath, strParam2)
> > > > > End Sub
> > > > >
> > > > > ~~~~~~~~~~~~
> > > > > Here is what you are really concerned with.
> > > > > "strPath" is the path to your bartender program and parameter "strParam2" should contain any other parameters, like file name to open, printer, autoclose & query prompt input.
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> > > > > >
> > > > > > Does anyone know how to program one of the unused MES buttons to launch a bartender label file?
> > > > > >
> > > > >
> > > >
> > >
> >
>
Does anyone know how to program one of the unused MES buttons to launch a bartender label file?
Here is an extended example.

Private Sub btnOk_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnOk.Click

Dim Printer As String = UDTagsForm.Session.UserID

Dim UDTags As EpiDataView = Ctype(oTrans.EPiDataViews("UDTags"),EpiDataView)
Dim TagNumber As String = UDTags.dataView(UDTags.Row)("Key1")


Dim strPath As String = "C:\Progra~1\Seagull\BarTender\8.0\bartend.exe"

Dim strParam As String = "/F=C:\Tags.btw /PRN= /P /X /?TagNumber="&TagNumber


Dim strParam2 As String = strParam.Insert(20,Printer)

Process.Start(strPath, strParam2)
End Sub

~~~~~~~~~~~~
Here is what you are really concerned with.
"strPath" is the path to your bartender program and parameter "strParam2" should contain any other parameters, like file name to open, printer, autoclose & query prompt input.




--- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@...> wrote:
>
> Does anyone know how to program one of the unused MES buttons to launch a bartender label file?
>
Thanks for the example. This is pretty new to me so I'm not entirely sure I follow. Would I just copy and paste this code into the script editor and change the strPath and stParam2 to my own information?

--- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@...> wrote:
>
> Here is an extended example.
>
> Private Sub btnOk_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnOk.Click
>
> Dim Printer As String = UDTagsForm.Session.UserID
>
> Dim UDTags As EpiDataView = Ctype(oTrans.EPiDataViews("UDTags"),EpiDataView)
> Dim TagNumber As String = UDTags.dataView(UDTags.Row)("Key1")
>
>
> Dim strPath As String = "C:\Progra~1\Seagull\BarTender\8.0\bartend.exe"
>
> Dim strParam As String = "/F=C:\Tags.btw /PRN= /P /X /?TagNumber="&TagNumber
>
>
> Dim strParam2 As String = strParam.Insert(20,Printer)
>
> Process.Start(strPath, strParam2)
> End Sub
>
> ~~~~~~~~~~~~
> Here is what you are really concerned with.
> "strPath" is the path to your bartender program and parameter "strParam2" should contain any other parameters, like file name to open, printer, autoclose & query prompt input.
>
>
>
>
> --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> >
> > Does anyone know how to program one of the unused MES buttons to launch a bartender label file?
> >
>
No, all of it will have to be modified to meet your requirments.
Will you be passing data or do you want the user to input?

--- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@...> wrote:
>
> Thanks for the example. This is pretty new to me so I'm not entirely sure I follow. Would I just copy and paste this code into the script editor and change the strPath and stParam2 to my own information?
>
> --- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@> wrote:
> >
> > Here is an extended example.
> >
> > Private Sub btnOk_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnOk.Click
> >
> > Dim Printer As String = UDTagsForm.Session.UserID
> >
> > Dim UDTags As EpiDataView = Ctype(oTrans.EPiDataViews("UDTags"),EpiDataView)
> > Dim TagNumber As String = UDTags.dataView(UDTags.Row)("Key1")
> >
> >
> > Dim strPath As String = "C:\Progra~1\Seagull\BarTender\8.0\bartend.exe"
> >
> > Dim strParam As String = "/F=C:\Tags.btw /PRN= /P /X /?TagNumber="&TagNumber
> >
> >
> > Dim strParam2 As String = strParam.Insert(20,Printer)
> >
> > Process.Start(strPath, strParam2)
> > End Sub
> >
> > ~~~~~~~~~~~~
> > Here is what you are really concerned with.
> > "strPath" is the path to your bartender program and parameter "strParam2" should contain any other parameters, like file name to open, printer, autoclose & query prompt input.
> >
> >
> >
> >
> > --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> > >
> > > Does anyone know how to program one of the unused MES buttons to launch a bartender label file?
> > >
> >
>
At this point, I just want the user to enter it into bartender at the time of printing. so I am just looking for a generic button to launch the bartender file. -Jeff

--- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@...> wrote:
>
> No, all of it will have to be modified to meet your requirments.
> Will you be passing data or do you want the user to input?
>
> --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> >
> > Thanks for the example. This is pretty new to me so I'm not entirely sure I follow. Would I just copy and paste this code into the script editor and change the strPath and stParam2 to my own information?
> >
> > --- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@> wrote:
> > >
> > > Here is an extended example.
> > >
> > > Private Sub btnOk_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnOk.Click
> > >
> > > Dim Printer As String = UDTagsForm.Session.UserID
> > >
> > > Dim UDTags As EpiDataView = Ctype(oTrans.EPiDataViews("UDTags"),EpiDataView)
> > > Dim TagNumber As String = UDTags.dataView(UDTags.Row)("Key1")
> > >
> > >
> > > Dim strPath As String = "C:\Progra~1\Seagull\BarTender\8.0\bartend.exe"
> > >
> > > Dim strParam As String = "/F=C:\Tags.btw /PRN= /P /X /?TagNumber="&TagNumber
> > >
> > >
> > > Dim strParam2 As String = strParam.Insert(20,Printer)
> > >
> > > Process.Start(strPath, strParam2)
> > > End Sub
> > >
> > > ~~~~~~~~~~~~
> > > Here is what you are really concerned with.
> > > "strPath" is the path to your bartender program and parameter "strParam2" should contain any other parameters, like file name to open, printer, autoclose & query prompt input.
> > >
> > >
> > >
> > >
> > > --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> > > >
> > > > Does anyone know how to program one of the unused MES buttons to launch a bartender label file?
> > > >
> > >
> >
>
Easiest way is to put a button right over one of the blank buttonsthen

Private Sub btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnEpiCustom1.Click

Process.Start("PathToBTLabel")

End Sub


--- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@...> wrote:
>
> At this point, I just want the user to enter it into bartender at the time of printing. so I am just looking for a generic button to launch the bartender file. -Jeff
>
> --- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@> wrote:
> >
> > No, all of it will have to be modified to meet your requirments.
> > Will you be passing data or do you want the user to input?
> >
> > --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> > >
> > > Thanks for the example. This is pretty new to me so I'm not entirely sure I follow. Would I just copy and paste this code into the script editor and change the strPath and stParam2 to my own information?
> > >
> > > --- In vantage@yahoogroups.com, "mmcwilliams22" <mmcwilliams22@> wrote:
> > > >
> > > > Here is an extended example.
> > > >
> > > > Private Sub btnOk_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnOk.Click
> > > >
> > > > Dim Printer As String = UDTagsForm.Session.UserID
> > > >
> > > > Dim UDTags As EpiDataView = Ctype(oTrans.EPiDataViews("UDTags"),EpiDataView)
> > > > Dim TagNumber As String = UDTags.dataView(UDTags.Row)("Key1")
> > > >
> > > >
> > > > Dim strPath As String = "C:\Progra~1\Seagull\BarTender\8.0\bartend.exe"
> > > >
> > > > Dim strParam As String = "/F=C:\Tags.btw /PRN= /P /X /?TagNumber="&TagNumber
> > > >
> > > >
> > > > Dim strParam2 As String = strParam.Insert(20,Printer)
> > > >
> > > > Process.Start(strPath, strParam2)
> > > > End Sub
> > > >
> > > > ~~~~~~~~~~~~
> > > > Here is what you are really concerned with.
> > > > "strPath" is the path to your bartender program and parameter "strParam2" should contain any other parameters, like file name to open, printer, autoclose & query prompt input.
> > > >
> > > >
> > > >
> > > >
> > > > --- In vantage@yahoogroups.com, "jefferson112296" <jefferson112296@> wrote:
> > > > >
> > > > > Does anyone know how to program one of the unused MES buttons to launch a bartender label file?
> > > > >
> > > >
> > >
> >
>