Using VPLUS: An Introduction to Forms Design (32209-90004)
5-24
---------------------------------------------------------------------------------------------
Table 5-4. Summary of Current Fields in the TOTALS Form
---------------------------------------------------------------------------------------------
|||| ||
| Field ||| | |
|||| ||
---------------------------------------------------------------------------------------------
|| ||| | |
| Num | Name | FType | DType | Processing | Initial |
| | | | | Specifications | Value |
|| ||| | |
---------------------------------------------------------------------------------------------
|| ||| | |
| 1 | ORDNUM | R | CHAR | -- | 100000 |
|| ||| | |
| 2 | ORDATE | D | MDY | SET ORDATE TO $TODAY | -- |
|| ||| | |
| 3 | TOTNET | R | NUM2 | JUSTIFY RIGHT | -- |
| | | | | STRIP LEADING "0" | |
|| ||| | |
| 4 | DISCNT_PERCNT | O | NUM0 | -- | 10 |
|| ||| | |
| 5 | DISCNT | D | NUM2 | IF TOTNET GE 1000 THEN | -- |
| | | | | SET DISCNT TO | |
| | | | | DISCNT_PERCNT % TOTNET | |
| | | | | ELSE SET DISCNT TO 0 | |
|| ||| | |
| 6 | SUB | D | NUM2 | SET SUB TO TOTNET - DISCNT | -- |
|| ||| | |
| 7 | TAX_RATE | R | NUM2 | -- | 6.25 |
|| ||| | |
| 8 | TAX | D | NUM2 | SET TAX TO TAX_RATE % SUB | -- |
|| ||| | |
| 9 | SHIP | O | NUM2 | JUSTIFY RIGHT | .00 |
| | | | | STRIP LEADING"0" | |
|| ||| | |
| 10 | TOTAL | D | NUM2 | SET TOTAL TO SUB + TAX + | -- |
| | | | | SHIP | |
|| ||| | |
| 11 | NAME | O | CHAR | -- | -- |
|| ||| | |
---------------------------------------------------------------------------------------------
______________________________________________________________________
| |
|:
RUN ENTRY.PUB.SYS |
| |
| HP32209v.uu.ff ENTRY (C) HEWLETT-PACKARD CO. 1986 |
| |
| ENTER FORMS FILE NAME AND PRESS RETURN:
ORDFORM1 |
| ENTER BATCH FILE NAME AND PRESS RETURN:
DATA5 |
______________________________________________________________________