87 lines
3.9 KiB
Plaintext
87 lines
3.9 KiB
Plaintext
# Property of Four Js*
|
|
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these
|
|
# samples are accurate and suitable for your purposes. Their inclusion is
|
|
# purely for information purposes only.
|
|
|
|
ACTION DEFAULTS
|
|
ACTION insert ( IMAGE = "listins", COMMENT="Insert a new item line")
|
|
ACTION append ( IMAGE = "listadd", COMMENT="Append a new item line")
|
|
ACTION delete ( IMAGE = "listdel", COMMENT="Delete current item line", VALIDATE=NO)
|
|
ACTION validate ( TEXT = "Validate", COMMENT="Validate the order", ACCELERATOR=Control-V)
|
|
END
|
|
|
|
LAYOUT ( STYLE="dialog4", TEXT = "Order" )
|
|
GRID
|
|
{
|
|
<g g1 >
|
|
Id: [f1 ] Name: [f2 ]
|
|
< >
|
|
<g g2 >
|
|
Id: [o1 ] Crea: [o3 ]
|
|
Delivery address: [o2 ]
|
|
Delivery date: [o4 ][o5 ]
|
|
< >
|
|
<g g3 >
|
|
<t t1 >[iad]
|
|
[c1 |c2 |c3 |c4 |c5 |c6][imo]
|
|
[c1 |c2 |c3 |c4 |c5 |c6][ide]
|
|
[c1 |c2 |c3 |c4 |c5 |c6]
|
|
[c1 |c2 |c3 |c4 |c5 |c6]
|
|
[c1 |c2 |c3 |c4 |c5 |c6]
|
|
[c1 |c2 |c3 |c4 |c5 |c6]
|
|
[c1 |c2 |c3 |c4 |c5 |c6]
|
|
< >
|
|
< >
|
|
<g g4 >
|
|
[ :o6 ]
|
|
< >
|
|
}
|
|
END
|
|
END
|
|
|
|
ATTRIBUTES
|
|
|
|
GROUP g1: TEXT = "Customer information";
|
|
EDIT f1 = FORMONLY.cust_id TYPE INTEGER, NOENTRY;
|
|
EDIT f2 = FORMONLY.cust_name TYPE VARCHAR, NOENTRY;
|
|
|
|
GROUP g2: TEXT = "Order header";
|
|
EDIT o1 = FORMONLY.ord_id, NOENTRY;
|
|
EDIT o2 = FORMONLY.ord_daddr TYPE VARCHAR, NOT NULL, REQUIRED;
|
|
EDIT o3 = FORMONLY.ord_crea TYPE DATE, NOENTRY,DEFAULT=TODAY;
|
|
DATEEDIT o4 = FORMONLY.ord_deliv TYPE DATE;
|
|
|
|
GROUP g3: TEXT = "Order items";
|
|
TABLE t1: DOUBLECLICK=none;
|
|
LABEL c1 = FORMONLY.item_line TYPE INTEGER, TITLE = "Pos";
|
|
BUTTONEDIT c2 = FORMONLY.item_name TYPE VARCHAR, TITLE = "Item name",
|
|
SCROLL, NOT NULL, REQUIRED, ACTION=zoom_item, IMAGE="find";
|
|
EDIT c3 = FORMONLY.item_quant TYPE DECIMAL(5,2), TITLE = "Quantity",
|
|
SCROLL, NOT NULL, REQUIRED, INCLUDE=(0.0001 TO 10000),DEFAULT=1;
|
|
LABEL c4 = FORMONLY.item_price TYPE MONEY(10,2), TITLE = "Unit price";
|
|
LABEL c5 = FORMONLY.item_total TYPE MONEY(15,2), TITLE = "Total";
|
|
LABEL c6 = FORMONLY.item_id TYPE INTEGER, TITLE = "Item id", HIDDEN=USER;
|
|
|
|
BUTTON iad: itemlist.insert;
|
|
BUTTON imo: itemlist.append;
|
|
BUTTON ide: itemlist.delete;
|
|
|
|
GROUP g4: TEXT = "Order amount", GRIDCHILDRENINPARENT;
|
|
CHECKBOX o5 = FORMONLY.ord_valid TYPE CHAR, NOT NULL, REQUIRED,
|
|
TEXT="Validated", VALUECHECKED="y", VALUEUNCHECKED="n",DEFAULT='n';
|
|
EDIT o6 = FORMONLY.ord_amount TYPE MONEY(15,2), STYLE="amount", NOENTRY;
|
|
|
|
END
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD custrec (FORMONLY.cust_id, FORMONLY.cust_name);
|
|
SCREEN RECORD ordrec (FORMONLY.ord_id, FORMONLY.ord_daddr,
|
|
FORMONLY.ord_crea, FORMONLY.ord_deliv,
|
|
FORMONLY.ord_valid, FORMONLY.ord_amount);
|
|
SCREEN RECORD itemlist (FORMONLY.item_line THROUGH FORMONLY.item_id);
|
|
END
|