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,49 @@
+# 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.
+
+IMPORT FGL filedlg
+
+MAIN
+  DEFINE cname STRING
+  DEFINE r1 FILEDLG_RECORD
+  DEFINE r2 FILEDLG_RECORD
+
+  OPTIONS INPUT WRAP
+
+  DISPLAY "Try options in the action panel" AT 5,5
+
+  MENU "File dialog"
+
+      COMMAND "Choose .per"
+          -- get back an existing .per filename
+          LET r1.title="Please choose a form"
+          LET r1.defaultfilename="filedlg.per"
+          LET r1.types[1].description="Form files (*.per)"
+          LET r1.types[1].suffixes="*.per"
+          LET r1.types[2].description="All files (*)"
+          LET r1.types[2].suffixes="*"
+          LET r1.opt_delete_files=TRUE
+          LET cname= filedlg_open(r1.*)
+          MESSAGE ">>>>chosen file:",cname
+
+      COMMAND "New .per"
+          -- get back a name for a file not existing yet
+          LET r2.title="Please enter a filename for save"
+          LET r2.defaultfilename="spong"
+          LET r2.types[1].description="All files (*.*)"
+          LET r2.types[1].suffixes="*.*"
+          LET cname= filedlg_save(r2.*)
+          MESSAGE ">>>>new file:",cname
+
+      COMMAND "Quit"
+          EXIT MENU
+
+  END MENU
+
+END MAIN