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,90 @@
+# 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 os
+SCHEMA smarmotech
+
+DEFINE xruta STRING
+FUNCTION load_demo()
+
+    DELETE FROM demos
+    DELETE FROM topics
+
+    -- SQLite is known to be slow if INSERTs are not in a transaction
+    BEGIN WORK 
+    CALL load_data_file("demo.data")
+#    CALL load_data_file("extensions.data")
+#    CALL load_data_file("extensions_2.data")
+#    CALL load_data_file("extensions_3.data")
+#    CALL load_data_file("extensions_4.data")
+    COMMIT WORK
+
+END FUNCTION
+
+PRIVATE FUNCTION load_data_file(fn)
+    DEFINE fn STRING
+    DEFINE doc om.DomDocument
+    DEFINE r om.DomNode
+    IF os.Path.exists(fn) THEN
+        LET doc = om.DomDocument.createFromXmlFile(fn)
+        LET r = doc.getDocumentElement()
+       
+        CALL walk_tree(r, "")
+    END IF
+END FUNCTION
+
+PRIVATE FUNCTION walk_tree(r, parentDir)
+    DEFINE r om.DomNode
+    DEFINE parentDir STRING
+
+    DEFINE n INT
+    DEFINE demo RECORD LIKE demos.*
+    DEFINE topic RECORD LIKE topics.*
+    DEFINE p, c om.DomNode
+
+    IF r.getTagName() == "DDir" THEN
+        LET topic.name = r.getAttribute("name")
+        IF r.getAttributeString("dirname", "none") <> "none" THEN
+            LET topic.dirname = r.getAttribute("dirname")
+        ELSE
+            LET topic.dirname = topic.name
+        END IF
+     #   IF parentDir IS NOT NULL AND topic.dirname IS NOT NULL THEN
+            LET topic.dirname = parentDir, "/", topic.dirname
+          
+     #   END IF
+        LET p = r.getParent()
+        LET topic.parent = p.getAttribute("name")
+        INSERT INTO topics VALUES(topic.*)
+    END IF
+    LET c = r.getFirstChild()
+    WHILE c IS NOT NULL
+    
+        IF c.getTagName() == "Mbs" THEN
+            IF c.getAttribute("name") <> "README" THEN
+                LET n = n + 1
+                LET demo.name = c.getAttribute("name")
+                LET demo.program = c.getAttribute("program")
+                LET demo.args = c.getAttribute("args")
+                LET demo.tipo = c.getAttribute("type")
+                LET demo.description = c.getAttribute("description")
+                LET xruta = c.getAttribute('ruta')
+                LET demo.basedatos = c.getAttribute('basedatos')
+                IF xruta IS NOT NULL THEN
+                   LET demo.ruta = xruta
+                END IF
+                LET demo.dirname = topic.dirname
+                INSERT INTO demos VALUES(demo.*)
+            END IF
+        ELSE
+            CALL walk_tree(c, topic.dirname)
+        END IF
+        LET c = c.getNext()
+    END WHILE
+END FUNCTION