Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,89 @@
+# 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