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,43 @@
+FUNCTION extract_value(criterio, campo)
+
+    DEFINE criterio, campo VARCHAR(500)
+    DEFINE tok, tok2 base.StringTokenizer
+    DEFINE token, VALUE, token2 VARCHAR(200)
+    DEFINE idx INTEGER
+
+    LET tok = base.StringTokenizer.create(criterio, " ")
+    LET value = ""
+    LET campo = '*',campo,'*'
+    LET idx = 1
+    
+    WHILE tok.hasMoreTokens()
+        LET token = tok.nextToken()
+        
+        -- Verifica si el token comienza con el campo
+        IF token MATCHES campo THEN
+
+            LET tok2 = base.StringTokenizer.create(token, "=")
+
+            WHILE tok2.hasMoreTokens()
+                LET token2 = tok2.nextToken()
+                DISPLAY token2
+                
+                IF idx = 2 THEN 
+
+                    LET VALUE = token2
+                    EXIT WHILE 
+
+                END IF 
+
+                LET idx = idx + 1
+                
+            END WHILE 
+
+        END IF
+    END WHILE
+
+    
+    DISPLAY VALUE 
+    RETURN VALUE
+
+END FUNCTION