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,83 @@
+# 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 clear_criterias ( VALIDATE = NO )
+  ACTION clear_list ( TEXT = "Clear list" )
+  ACTION close ( VALIDATE = NO )
+END
+
+LAYOUT ( TEXT = "Query customers" )
+GRID
+{
+ <g g1                                                               >
+  [fr                            ] Count: [frc         ]
+ <                                                                   >
+ <g g2                                                               >
+  Id: [f1        ] Name: [f2                                        ]
+                  State: [f3                       ]
+                   City: [f4                       ]
+                Zipcode: [f5                       ]
+ [cr  :ld  :sv  :sr  :                                               ]
+  SQL Condition:
+ [sql                                                                ]
+ [                                                                   ]
+ <                                                                   >
+ <g g3                                                               >
+  <t t1                                                             >
+   Id        Name                          Timestamp
+  [c1       |c2                           |c3                       ]
+  [c1       |c2                           |c3                       ]
+  [c1       |c2                           |c3                       ]
+  [c1       |c2                           |c3                       ]
+  [c1       |c2                           |c3                       ]
+  [c1       |c2                           |c3                       ]
+  [c1       |c2                           |c3                       ]
+  [c1       |c2                           |c3                       ]
+  <                                                                 >
+ <                                                                   >
+[el     :                                                      :cw    ]
+}
+END
+END
+
+ATTRIBUTES
+
+GROUP g1: TEXT = "Search options";
+CHECKBOX   fr = FORMONLY.first_rows TYPE SMALLINT, NOT NULL, TEXT="Select first N rows";
+EDIT       frc= FORMONLY.first_rows_count, NOT NULL;
+
+GROUP g2: TEXT = "Search criterias";
+EDIT       f1 = FORMONLY.cust_id TYPE INTEGER;
+EDIT       f2 = FORMONLY.cust_name TYPE VARCHAR;
+COMBOBOX   f3 = FORMONLY.cust_state TYPE VARCHAR,
+                QUERYEDITABLE, DEFAULT="CA", INITIALIZER=combo_fill_states;
+BUTTONEDIT f4 = FORMONLY.cust_city TYPE CHAR, ACTION=zoom_city, IMAGE="find";
+EDIT       f5 = FORMONLY.cust_zipcode TYPE VARCHAR;
+
+GROUP g3: TEXT = "Customer list";
+EDIT     c1 = FORMONLY.c_id TYPE INTEGER;
+EDIT     c2 = FORMONLY.c_name TYPE VARCHAR;
+DATEEDIT c3 = FORMONLY.c_ts TYPE DATETIME YEAR TO SECOND;
+
+BUTTON cr : clear_criterias, TEXT="Clear";
+BUTTON ld : load_criterias, TEXT="Load";
+BUTTON sv : save_criterias, TEXT="Save";
+BUTTON sr : fetch, TEXT="Fetch";
+
+TEXTEDIT sql = FORMONLY.where_clause, STRETCH=X;
+
+BUTTON el : clear_list;
+BUTTON cw : close;
+
+END
+
+INSTRUCTIONS
+SCREEN RECORD sr (FORMONLY.c_id THROUGH FORMONLY.c_ts);
+END