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

A-5
Figure A-1. Forms File Listing, (cont'd)
_______________________________________________________________________________________
| |
| FORMSPEC VERSION B.04.12 FRI, AUG 8, 1986, 2:24 PM|
| FORMS FILE: ORDFORM.PUB.W PAGE 5|
| |
| FORM NAME: ORDER_LINE 2ND FORM-REPEATED AUTOMATIALLY, APPENDED TO ITSELF|
| |
| *** PROCESSING SPECIFICATIONS *** |
| |
| IF EQ $EMPTY THEN \In Collect mode, |
| SET TPRICE TO QTY * UPRICE \ calculate line price |
| SET STOTNET TO STOTNET + TPRICE \ and accumulate it in save field. |
| |
| ELSE \In Browse mode |
| SET STOTNET TO STOTNET - TPRICE \ subtract old line price |
| SET TPRICE TO QTY * UPRICE \ calculate new line price |
| SET STOTNET TO STOTNET + TPRICE \ and accumulate it in save field. |
| |
_______________________________________________________________________________________
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 6|
| |
| Form: ORDER_TOTALS |
| Repeat Option: N |
| |
| Next Form Option: C |
| Next Form: $HEAD |
| Reproduced from: |
| |
| Comments: 3RD FORM OF A 3-PART ORDER TRANSACTION |
| ********* ********* ********* ********* ********* ********* ********* **********|
| |
| Order Number: [ordnum] Date: [ordate___________] |
| Total Net Price: [totnet______] |
| Discount % : [dp] Discount: [discnt______] |
| Subtotal: [sub_________] |
| Tax Rate : [tr__] tax: [tax_________] |
| Shipping: [ship________] |
| TOTAL: [total_______] |
| Customer Name: [name_____________________________________________] |
| ********* ********* ********* ********* ********* ********* ********* **********|
| |
| Field: ordnum |
| Num: 1 Len: 6 Name: ORDNUM Enh: HI FType: R DType: DIG |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDNUM TO SORDNUM \Move order number from save fields |
| |
| IF SORDNUM GT 999999 THEN \Terminate before 1,000,000 orders |
| CHANGE NFORM TO $END |
| ELSE SET SORDNUM TO SORDNUM + 1 \Otherwise, increment order number |
| |
| Field: ordate |
| Num: 2 Len: 17 Name: ORDATE Enh: HI FType: D DType: MDY |
| Init Value: |
| *** PROCESSING SPECIFICATIONS *** |
| INIT |
| SET ORDATE TO $TODAY \Assign today's date |
_______________________________________________________________________________________