Using VPLUS: An Introduction to Forms Design (32209-90004)

A-6
Figure A-1. Forms File Listing, (cont'd)
_______________________________________________________________________________________
| |
| FORMSPEC VERSION B.04.12 FRI, AUG 8, 1986, 2:24 PM|
| FORMS FILE: ORDFORM1.PUB.W PAGE 7|
| |
| FORM NAME: ORDER_TOTALS 3RD FORM OF A 3-PART ORDER TRANSACTION |
| |
| Field: totnet |
| Num: 3 Len: 10 Name: TOTNET Enh: HI FType: D DType: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET TOTNET TO STOTNET \Set to accumulated totals (collect) |
| |
| FIELD |
| SET TOTNET TO STOTNET |
| |
| Field: dp |
| Num: 4 Len: 2 Name: DISCNT_PERCNT Enh: HI FType: O DType: NUM0 |
| Init Value: 10 |
| |
| Field: discnt |
| Num: 5 Len: 10 Name: DISCNT Enh: HI FType: D DType: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| IF TOTNET GE 1000 THEN \If net price exceeds $999.00 |
| SET DISCNT TO DISCNT_PERCNT % TOTNET \Calculate discount |
| ELSE SET DISCNT TO 0 \Otherwise, set discount to zero |
| |
| Field: sub |
| Num: 6 Len: 10 Name: SUB Enh: HI FType: D DTYPE: NUM2 |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| SET SUB TO TOTNET - DISCNT \Calculate subtotal |
| |
| Field: tr |
| Num: 7 Len: 4 Name: TAX_RATE Enh: HI FType: R DType: NUM2 |
| Init Value: 6.25 |
| |
| Field: tax |
| Num: 8 Len: 10 Name: TAX Enh: HI FType: D DType: NUM2 |
| *** PROCESSING SPECIFICATIONS *** |
| SET TAX TO TAX_RATE % SUB \Calculate tax |
| |
| Field: ship |
| Num: 9 Len: 10 Name: SHIP Enh: HI FType: O DType: NUM2 |
| Init Value: .00 |
| *** PROCESSING SPECIFICATIONS *** |
| JUSTIFY RIGHT |
| STRIP LEADING "0" \Format Shipping cost |
| |
_______________________________________________________________________________________