Kbase P5718: Example of a report template in speedscript
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
25/11/2003 |
|
Status: Unverified
GOAL:
Example of a report template in speedscript
FACT(s) (Environment):
WebSpeed 3.x
FACT(s) (Environment):
WebSpeed 2.x
FIX:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<META NAME="AUTHOR" CONTENT="Your Name">
<TITLE>WebSpeed Script</TITLE>
<SCRIPT LANGUAGE="SpeedScript">
Def var currentcustomer as i.
def var buttonpressed as c.
PROCEDURE output-header:
assign currentcustomer = integer(get-value("tcustNum")).
assign buttonpressed = get-value("Action").
IF currentcustomer = 0 THEN currentcustomer = 1.
find first customer where custnum = currentcustomer.
CASE buttonpressed:
/*For the other buttons just add additional case statements*/
WHEN "First" THEN
find first customer.
WHEN "Last" THEN
Find Last Customer.
WHEN "next" THEN
Find next Customer.
WHEN "SubmitOrders" THEN do:
OUTPUT-HTTP-HEADER("Status","302").
OUTPUT-HTTP-HEADER("Location","order.html?custnum=" + string(currentcustomer)).
OUTPUT-HTTP-HEADER("","").
END.
END CASE.
END.
</SCRIPT>
</HEAD>
<BODY>
<Form method="POST" Name="CustomerForm" action="order.html">
<table>
<TR><TD>number</TD><TD><input type="text" size="20" name="tcustNum" value=" `Customer.CustNum` "></TD></TR>
<TR><TD>country</TD><TD><input type="text" size="20" name="tstate" value=" `state` "></TD></TR>
<TR><TD>name</TD><TD> <input type="text" size="20" name="tName" value=" `name` "></TD></TR>
<TR><TD>address</TD><TD> <input type="text" size="20" name="taddress" value=" `address` "></TD></TR>
<TR><TD>city</TD><TD> <input type="text" size="20" name="tcity" value=" `city` "></TD></TR>
</table>
<input type="submit" name="Action" value="First">
<input type="submit" name="Action" value="previous">
<input type="submit" name="Action" value="new">
<input type="submit" name="Action" value="Save">
<input type="submit" name="Action" value="delete">
<input type="submit" name="Action" value="cancel">
<input type="submit" name="Action" value="next">
<input type="submit" name="Action" value="last">
<input type="submit" name="action" value="SubmitOrders">
</form>
</BODY>
</HTML>