Using VPLUS: An Introduction to Forms Design (32209-90004)
6-16
| 5 | ST | O | CHAR | IN $STATE | -- |
|| ||| | |
| 6 | ZIP | O | CHAR | MATCH ddddd[-dddd] | -- |
|| ||| | |
| 7 | PHONE | O | CHAR | MATCH [(ddd)]b*ddd-dddd | -- |
| 9 |QTY |R |DIG |GE1 |-- |
|| ||| | |
| 10 | PARTNUM | R | CHAR | MATCH Puddd-??? | -- |
| 11 | DESCRIPTION | O | CHAR | -- | -- |
|| ||| | |
| 12 | UPRICE | R | NUM2 | JUSTIFY RIGHT | -- |
| | | | | STRIP LEADING "0" | |
|| ||| | |
| 13 | TPRICE | D | NUM2 | SET TPRICE TO QTY * UPRICE | -- |
| | | | | SET STOTNET TO TPRICE | |
|| ||| | |
---------------------------------------------------------------------------------------------
Table 6-5. Summary of Current Fields in TOTALS
---------------------------------------------------------------------------------------------
|||| ||
| Field || | | |
|||| ||
---------------------------------------------------------------------------------------------
|| || | | |
| Num | Name | FType| DType | Processing | Value |
| | | | | Specifications | |
|| || | | |
---------------------------------------------------------------------------------------------
|| || | | |
| 1 | ORDNUM | D | DIG | INIT | -- |
| | | | | SET ORDNUM TO SORDNUM | |
| | | | | IF SORDNUM GT 999999 THEN | |
| | | | | SET SORDNUM TO 100001 | |
| | | | | ELSE SET SORDNUM TO | |
| | | | | SORDNUM + 1 | |
|| || | | |
| 2 | ORDATE | D | MDY | INIT | -- |
| | | | | SET ORDATE TO $TODAY | |
|| || | | |
| 3 | TOTNET | D | NUM2 | INIT | -- |
| | | | | SET TOTNET TO STOTNET | |
| | | | | FIELD | |
| | | | | SET TOTNET TO STOTNET | |
|| || | | |
| 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 | D | CHAR | SET NAME TO SNAME | -- |
|| || | |
|--------------------------------------------------------------------------------------------