Item Picture On Html Status Bar RMS 1.2/1.3


R

rjovel

hi everyone, if are interested on this y read a post here how to do it but
i
make my own changes. Open the Status.htm on your program files folder
microsoft
retail/ store operations/html with frontpage o notepad and replace with
this
code:

<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;
}

.style1 {
text-align: left;
}
.style2 {
text-align: right;
}

</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
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 = PictureFileName
Else
PictureFile.src = "C:program FilesMicrosoft Retail Management SystemStore
OperationsHTMLImages" & txtPicture
End If

End Function


Function doStartup

' use a timer to run displayVariables() periodically every second
TimerID = window.setInterval("displayVariables()", 100)

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="20%" align="Center">Fotografia</td>
<td width="30%" class="style1">Descripcion</td>
<td width="10%" align="right">Cantidad</td>
<td width="20%" align="right">Precio</td>
<td width="20%" class="style2">Subtotal</td>
</tr>

<tr class="LineDivider" width="100%" valign="top" height="1">
<td colspan="5">
</td>
</tr>

<tr class="LineData" valign="top">
<td width="20%" align="center">
<img id = "PictureFile" height="150" width="150"> </td>
<td width="30%" 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">
</tr>
</table>
</body>
</html>

hope be useful this re-post....


Roger Jovel
IT Manager / RMS Developer
www.acosa.com.hn
-------------------------------------




##-----------------------------------------------##
Newsgroup Access Courtesy http://www.rockryno.com/
Tax and Accounting Software Forums
Web and RSS access to your favorite newsgroup -
microsoft.public.pos - 40642 messages and counting!
##-----------------------------------------------##
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top