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,38 @@
+IMPORT util
+
+MAIN
+  DEFINE rec RECORD
+             mywebcomp STRING,
+             result STRING
+         END RECORD
+
+  OPEN FORM f FROM "wc_echo"
+  DISPLAY FORM f
+
+  INPUT BY NAME rec.* ATTRIBUTES(UNBUFFERED)
+    ON ACTION get_title
+    
+       CALL ui.Interface.frontCall("webcomponent","getTitle",
+               ["formonly.mywebcomp"],[rec.result])
+    ON ACTION echo_string
+    
+       LET rec.result = wc_call("formonly.mywebcomp", "echoString", "Hello!")
+    ON ACTION echo_object
+    
+       LET rec.result = wc_call("formonly.mywebcomp", "echoObject",
+                                '{"id":"235","name":"Doorman"}')
+  END INPUT
+
+END MAIN
+
+FUNCTION wc_call(fn,fc,p1)
+  DEFINE fn,fc,p1 STRING
+  DEFINE res STRING
+  TRY
+    CALL ui.Interface.frontCall("webcomponent","call",[fn,fc,p1],[res])
+  CATCH
+     ERROR err_get(status)
+     RETURN NULL
+  END TRY
+  RETURN res
+END FUNCTION