# 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 cust_query ( IMAGE="find", COMMENT = "Query customers", ACCELERATOR = control-q )
   ACTION cust_append ( IMAGE="new", COMMENT = "Create new customer", ACCELERATOR = control-n )
   ACTION cust_undo ( IMAGE="refresh", COMMENT = "Undo last changes", ACCELERATOR = control-u, VALIDATE = NO )
   ACTION cust_save ( IMAGE="disk", COMMENT = "Save changes in database", ACCELERATOR = control-s )
   ACTION cust_delete ( IMAGE="eraser", COMMENT = "Delete current customer", ACCELERATOR = control-d, VALIDATE = NO )
   ACTION cust_fetch ( IMAGE="services", COMMENT = "Search records in database", ACCELERATOR = enter, ACCELERATOR2 = return )
   ACTION cust_first ( IMAGE = "gobegin", COMMENT = "Move to first customer in list")
   ACTION cust_previous ( IMAGE = "gorev", COMMENT = "Move to previous customer in list")
   ACTION cust_next ( IMAGE = "goforw", COMMENT = "Move to next customer in list")
   ACTION cust_last ( IMAGE = "goend", COMMENT = "Move to last customer in list")
   ACTION cust_print ( IMAGE="printer", COMMENT = "Print customer")
   ACTION ord_append ( IMAGE = "new", COMMENT="Add a new order")
   ACTION ord_modify ( IMAGE = "pen", COMMENT="Modify selected order")
   ACTION ord_delete ( IMAGE = "eraser", COMMENT="Delete selected order")
END

TOPMENU
   GROUP cust ( TEXT="Customers" )
      COMMAND cust_query ( TEXT="Query" )
      COMMAND cust_append ( TEXT="New" )
      COMMAND cust_undo ( TEXT="Undo" )
      COMMAND cust_save ( TEXT="Save" )
      COMMAND cust_print ( TEXT="Print" )
      SEPARATOR
      COMMAND cust_fetch ( TEXT="Fetch" )
      COMMAND cancel
      SEPARATOR
      COMMAND cust_first ( TEXT="First" )
      COMMAND cust_previous ( TEXT="Previous" )
      COMMAND cust_next ( TEXT="Next" )
      COMMAND cust_last ( TEXT="Last" )
      SEPARATOR
      COMMAND close ( TEXT="Close" )
   END
   GROUP ord ( TEXT="Orders" )
      COMMAND ord_append ( TEXT="Append" )
      COMMAND ord_modify ( TEXT="Modify" )
      COMMAND ord_delete ( TEXT="Delete" )
   END
   GROUP help ( TEXT="Help" )
      COMMAND help
      SEPARATOR
      COMMAND about ( TEXT="About" )
   END
END

LAYOUT ( STYLE="main2", TEXT = "Customers and Orders" )
GRID
{
<g g1                                                               >
[f1        ][f2                                                     ]
 State:     [f3                                ] [f4            ]
 City:      [f5                                ]
 Zipcode:   [f6        ]
 Address:   [f7                                                     ]
            [                                                       ]
 -------------------------------------------------------------------
 [tr                                 |cq:cx:cf:cp:cn:cl:ca:cd:cu:cs]
<                                                                   >
<g g2                                                               >
 <t t1                                                        >[oad]
 [c1          |c2                     |c3                     ][omo]
 [c1          |c2                     |c3                     ][ode]
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 <                                                            >
<                                                                   >
}
END
END

ATTRIBUTES

GROUP g1: TEXT = "Customer information";
EDIT       f1 = FORMONLY.cust_id TYPE INTEGER, NOT NULL, NOENTRY;
EDIT       f2 = FORMONLY.cust_name TYPE VARCHAR, NOT NULL, REQUIRED;
COMBOBOX   f3 = FORMONLY.cust_state TYPE VARCHAR, NOT NULL, REQUIRED,
                QUERYEDITABLE, DEFAULT="CA", INITIALIZER=combo_fill_states;
CHECKBOX   f4 = FORMONLY.cust_checked TYPE CHAR, TEXT="Checked";
BUTTONEDIT f5 = FORMONLY.cust_city TYPE CHAR, NOT NULL, REQUIRED,
                ACTION=zoom_city, IMAGE="find";
EDIT       f6 = FORMONLY.cust_zipcode TYPE VARCHAR, NOT NULL, REQUIRED,
                COMMENT="Possible values: 10000 to 99999",
                INCLUDE=(10000 to 99999);
TEXTEDIT   f7 = FORMONLY.cust_address TYPE CHAR,
                COMMENT="Must hold '<number>, <street name>'";


LABEL tr = FORMONLY.cust_info, STYLE="information";

BUTTON cq: cust_query, TABINDEX=0;
BUTTON cx: cust_fetch, TABINDEX=0;
BUTTON cf: cust_first, TABINDEX=0;
BUTTON cp: cust_previous, TABINDEX=0;
BUTTON cn: cust_next, TABINDEX=0;
BUTTON cl: cust_last, TABINDEX=0;
BUTTON ca: cust_append, TABINDEX=0;
BUTTON cd: cust_delete, TABINDEX=0;
BUTTON cu: cust_undo, TABINDEX=0;
BUTTON cs: cust_save, TABINDEX=0;

GROUP g2: TEXT = "Orders";
TABLE t1: DOUBLECLICK=ord_modify;
EDIT c1 = FORMONLY.ord_id TYPE INTEGER, TITLE = "Id";
EDIT c2 = FORMONLY.ord_crea TYPE DATE, TITLE = "Creation";
EDIT c3 = FORMONLY.ord_amount TYPE MONEY(15,2), TITLE = "Amount";

BUTTON oad: ord_append, TABINDEX=0;
BUTTON omo: ord_modify, TABINDEX=0;
BUTTON ode: ord_delete, TABINDEX=0;

END

INSTRUCTIONS
SCREEN RECORD custrec (FORMONLY.cust_id THROUGH FORMONLY.cust_address);
SCREEN RECORD ordlist (FORMONLY.ord_id THROUGH FORMONLY.ord_amount);
END