# 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 close(VALIDATE=NO)
   ACTION cancel(VALIDATE=NO)
   ACTION undo(TEXT="Undo",IMAGE="refresh",VALIDATE=NO)
   ACTION ord_modify ( TEXT="Edit Order", IMAGE="pen", COMMENT="Modifies selected order")
END
TOOLBAR
  ITEM firstrow (COMMENT="Move to the first record")
  ITEM prevrow (TEXT="Prev",COMMENT="Move to the previous record")
  ITEM nextrow (COMMENT="Move to the next record")
  ITEM lastrow (COMMENT="Move to the last record")
  SEPARATOR
  ITEM append (TEXT="New",IMAGE="new",COMMENT="Input a new record")
  ITEM delete (TEXT="Del",IMAGE="delete",COMMENT="Delete the current record")
  SEPARATOR
  ITEM ord_modify
END

LAYOUT (TEXT = "Customers and Orders" )
GRID
{
<g g1                                                               >
[f1        ][f2                                                     ]
 State:     [f3                                ] [f4            ]
 City:      [f5                                ]
 Zipcode:   [f6        ]
 Address:   [f7                                                     ]
            [                                                       ]
 -------------------------------------------------------------------
 [tr                                          :              :undo  ]

<g g2                                                               >
 <t t1                                                        >
 [c1          |c2                     |c3                     ]
 [c1          |c2                     |c3                     ]
 [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";
           f1 = FORMONLY.cust_id TYPE INTEGER, NOT NULL, NOENTRY,DEFAULT=0;
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",HIDDEN;
BUTTONEDIT f5 = FORMONLY.cust_city TYPE CHAR, NOT NULL, REQUIRED,
                ACTION=zoom_city, IMAGE="find";
           f6 = FORMONLY.cust_zipcode TYPE VARCHAR, NOT NULL, REQUIRED,DEFAULT=11111, 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",SIZEPOLICY=FIXED;
BUTTON undo:undo,TEXT="Undo";

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";

END

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