# 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