Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,133 @@
|
||||
# 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
|
||||
Reference in New Issue
Block a user