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

TEST/MultipleDialogs/MultiMasterDetail/MsgBox.4gl

@@ -0,0 +1,36 @@
+# 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.
+
+FUNCTION mbox_ok(t, m, i)
+    DEFINE t,m,i STRING
+    MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
+      COMMAND "Ok"  EXIT MENU
+    END MENU
+END FUNCTION
+
+FUNCTION mbox_yn(t, m, i)
+    DEFINE t,m,i STRING
+    DEFINE r INTEGER
+    MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
+      COMMAND "Yes"  LET r = TRUE EXIT MENU
+      COMMAND "No"   LET r = FALSE EXIT MENU
+    END MENU
+    RETURN r
+END FUNCTION
+
+FUNCTION mbox_ync(t, m, i)
+    DEFINE t,m,i STRING
+    DEFINE r INTEGER
+    MENU t ATTRIBUTES(STYLE="dialog",COMMENT=m,IMAGE=i)
+      COMMAND "Yes"      LET r = 1 EXIT MENU
+      COMMAND "No"       LET r = 2 EXIT MENU
+      COMMAND "Cancel"   LET r = 3 EXIT MENU
+    END MENU
+    RETURN r
+END FUNCTION