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,86 @@
+# 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