|
Posted by Rob on December 3, 2005, 3:33 pm
Please log in for more thread options Thanks Vince but to be honest I customized that almost a year ago just had it
sitting around collecting dust.
Rob
"Vince" wrote:
> Just wanted to say that was very very nice of you to write that code for the
> person who needs it. Personally this is why this message group rocks :)
> --
> Thank You,;
> Vince
>
>
> "Rob" wrote:
>
> > Copy and past the code below into Notepad or Frontpage and save it as an
.htm
> > file.
> > If you use Notepad be sure to change the File Type to All Files. Or just
> > piece the code that you need from this example into your file.
> > I modified this to display the image of the last item added to the
> > transaction or the currenlty highlighted item. If the item does not have an
> > image assiged then it displays a generic 'no image available' pic.
> >
> > Rob
> >
> >
> > <html>
> > <head>
> > <meta http-equiv="Content-Language" content="en-us">
> > <title>Default Status Screen</title>
> > <style>
> >
> > .LineHeader {
> > font-family: Arial;
> > font-size: 16;
> > color: white;
> > background-color: black;
> > }
> >
> > .LineDivider {
> > color: white;
> > background-color: gray;
> > }
> >
> > .LineData {
> > font-family: Arial;
> > font-size: 36;
> > color: #00FF00;
> > background-color: black;
> > }
> >
> > </style>
> > <!--
> > // ------------------------------------
> > // external opjects used by JScript
> > // ------------------------------------
> > -->
> > <!--
> > // QSBridge exposes internal QSC objects and allows scripting language to
> > access information on the current
> > // transaction.
> > -->
> > <OBJECT classid="clsid:44C4C3AC-D0F1-11D2-919D-006008C88FC3" height="0"
> > id="qsBridge" style="LEFT: 0px; TOP: 0px" width="0" >
> > <PARAM NAME="_ExtentX" VALUE="26">
> > <PARAM NAME="_ExtentY" VALUE="26">
> > </OBJECT>
> > <script language="VBScript">
> > <!--
> >
> > Dim TimerID
> >
> >
> > ' ------------------------------------
> > ' displayVariables
> > ' ------------------------------------
> >
> > Function displayVariables
> > On Error Resume Next
> >
> > Dim QSRules
> > Dim Entry
> > Dim TransasctionItem
> > Dim txtItemLookupCode
> > Dim txtDescription
> > Dim txtPrice
> > Dim txtQuantity
> > Dim txtExtended
> > Dim PictureFileName
> >
> > Dim RS
> > Dim SQL
> > Dim Conn
> >
> > Set QSRules = qsBridge.RequestQSRules()
> >
> > txtDescription = " "
> > txtQuantity = " "
> > txtPrice = " "
> > txtExtended = " "
> > txtPicture = "noimage.jpg"
> > PictureFileName = ""
> > SQL = ""
> >
> > Set RS = Nothing
> >
> > Set Entry = Nothing
> > Set TransactionItem = Nothing
> >
> > If Not QSRules Is Nothing Then
> >
> > ' This line is valid after version 1.07
> > Set Entry =
> > QSRules.Transaction.Entries(QSRules.Transaction.CurrentEntryKey)
> >
> >
> > If Entry Is Nothing then
> > Set Entry =
> > QSRules.Transaction.Entries(QSRules.Transaction.Entries.Count)
> > End IF
> >
> > If Not Entry Is Nothing Then
> > txtDescription = Entry.Description
> > txtQuantity = Entry.Quantity
> > txtPrice = FormatCurrency(Entry.Price)
> > txtExtended = FormatCurrency(Entry.ExtendedPrice)
> > SQL = "SELECT PictureName FROM Item WHERE ItemLookupCode = '" +
> > Entry.Item.ItemLookupcode + "'"
> > Set Rs = QSRules.OpenRecordSet((SQL),(-1))
> > If Not Rs.EOF Then
> > PictureFileName = Rs("PictureName")
> > End If
> > End If
> > End If
> >
> > If Description.innerText <> txtDescription Then
> > Description.innerText = txtDescription
> > End If
> >
> > If Quantity.innerText <> txtQuantity Then
> > Quantity.innerText = txtQuantity
> > End If
> >
> > If Price.innerText <> txtPrice Then
> > Price.innerText = txtPrice
> > End If
> >
> > If Extended.innerText <> txtExtended Then
> > Extended.innerText = txtExtended
> > End If
> >
> > If PictureFileName <> "" Then
> > PictureFile.src = "C:Program FilesMicrosoft Retail Management
> > SystemStore OperationsPictures" & PictureFileName
> > Else
> > PictureFile.src = "C:Program FilesMicrosoft Retail Management
> > SystemStore OperationsPictures" & txtPicture
> > End If
> >
> > End Function
> >
> >
> > Function doStartup
> >
> > ' use a timer to run displayVariables() periodically every second
> > TimerID = window.setInterval("displayVariables()", 500)
> >
> > End Function
> >
> > //-->
> > </script>
> > </head>
> > <body bgcolor="black" topmargin="0" leftmargin="0" onload="doStartup()"
> > scroll="yes">
> > <table border="0" width="100%" cellspacing="1" cellpadding="0">
> > <tr class="LineHeader" valign="top">
> > <td width="40%" align="left">
> > Description
> > </td>
> > <td width="10%" align="right">
> > Quantity
> > </td>
> > <td width="20%" align="right">
> > Price
> > </td>
> > <td width="20%" align="right">
> > Extended
> > </td>
> > <td width="10%" align="right">
> > Picture
> > </td>
> > </tr>
> > <tr class="LineDivider" width="100%" valign="top" height="1">
> > <td colspan="5">
> > </td>
> > </tr>
> > <tr class="LineData" valign="top">
> > <td width="10%" align="left" id="Description">
> >
> > </td>
> > <td width="10%" align="right" id="Quantity">
> >
> > </td>
> > <td width="20%" align="right" id="Price">
> >
> > </td>
> > <td width="20%" align="right" id="Extended">
> >
> > </td>
> > <td width="40%" align="right">
> > <img id = "PictureFile" height="100" width="110">
> >
> > </td>
> > </tr>
> > </table>
> > </body>
> > </html>
> >
> >
> > "Josh" wrote:
> >
> > > It there a way for me to customize the status bar to show the item picture
> > > after a item is scanned?
| 
Yahoo! 
Google 
Windows Live 
del.icio.us 
digg 
Netscape 
XML Sitemap