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

TEST/MultipleDialogs/FormWizard/formwizard_old.per

@@ -0,0 +1,54 @@
+# 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.
+
+LAYOUT(STYLE="dialog3",TEXT="Form assistant")
+GRID
+{
+[img            ]
+[               ]          [quest                       :    ]
+[               ]
+[               ]
+[gocombo:                 ]
+[currtable                ]
+ <T t                    >       <T z                         >
+    Available fields                 Chosen fields
+ [x|afields              ] [r   ][y|cfields             ]
+ [x|afields              ] [rr  ][y|cfields             ]
+ [x|afields              ]       [y|cfields             ]
+ [x|afields              ] [l   ][y|cfields             ]
+ [x|afields              ] [ll  ][y|cfields             ]
+
+[goleft  ]                      [goright     ]
+[""]
+---------------------------------------------------------------
+                    [    :cancel:" ":back  : next :" ":finish ]
+}
+END
+ATTRIBUTES
+IMAGE img:IMAGE="formwizard.png";
+LABEL quest:TEXT="Which fields your form should contain ?";
+COMBOBOX currtable=FORMONLY.currtable,COMMENT="You can choose from more than one table.",NOT NULL;
+x=FORMONLY.atable,SCROLL,HIDDEN;
+afields=FORMONLY.acol,SCROLL;
+y=FORMONLY.ctable,SCROLL,HIDDEN;
+cfields=FORMONLY.ccol;
+BUTTON gocombo:gocombo,TEXT="Tables:";
+BUTTON goleft:goleft,TEXT="Edit Left";
+BUTTON goright:goright,TEXT="Edit Right";
+BUTTON r:right,TEXT=">";
+BUTTON rr:allright,TEXT=">>";
+BUTTON l:left,TEXT="<";
+BUTTON ll:allleft,TEXT="<<";
+BUTTON cancel:cancel,TEXT="Cancel";
+BUTTON back:prevwiz,TEXT="< &Back";
+BUTTON next:nextwiz,TEXT="&Next >";
+BUTTON finish:accept,TEXT="&Finish";
+INSTRUCTIONS
+SCREEN RECORD a(atable,acol);
+SCREEN RECORD c(ctable,ccol);