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

A-2
Figure A-1. Forms File Listing
_______________________________________________________________________________________
| |
| FORMSPEC VERSION B.04.12 FRI, AUG 8, 1986, 2:24 PM|
| FORMS FILE: ORDFORM1.PUB.W PAGE 2|
| |
| Form: ORDER_HEAD |
| Repeat Option: N |
| |
| Next Form Option: F |
| Next Form ORDER_LINE |
| Reproduced From: |
| |
| Comments: EXECUTE THIS FORM FIRST |
| ********* ********* ********* ********* ********* ********* ********* ********* |
| |
| *****ABC MANUFACTURING***** |
| |
| ORDER NUMBER: ORDNUM DATE: ORDATE___________ |
| |
| SHIP TO: |
| |
| NAME: NAME_______________________________________ |
| ADDRESS: ADDRESS____________________________________ |
| CITY: CITY______________________________STATE:_ST |
| ZIP: ZIP_____________ TELEPHONE: PHONE_________ |
| |
| UNIT TOTAL |
| QTY PART NO DESCRIPTION PRICE PRICE |
| ********* ********* ********* ********* ********* ********* ********* **********|
| |
| Field: ORDNUM |
| Num: 8 Len: 6 Name: ORDNUM Enh: HI FType: D DType: DIG |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDNUM TO SORDNUM \Move order number to this field |
| SET STOTNET TO 0 \Initialize totals save field |
| SET LINE_COUNT TO 0 \Initialize counter for order lines |
| |
| Field: ORDATE |
| Num: 1 Len: 17 Name: ORDATE Enh: HI FType: D DType: MDY |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDATE TO $TODAY \Assign today's date to field |
| |
| Field: NAME |
| Num: 2 Len: 42 Name: NAME Enh: HI FType: R DType: CHAR |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| SET SNAME TO NAME \Save customer name for ORDER_TOTALS |
_______________________________________________________________________________________