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

PROYECTOS/test/treeview.4gl

@@ -0,0 +1,53 @@
+MAIN
+  DEFINE arreglo DYNAMIC ARRAY OF RECORD
+    producto,almacen STRING,
+    existencia  SMALLINT,
+    nodo        CHAR(10) ,
+  hijos         CHAR(10)  
+  END RECORD,
+  i SMALLINT,
+  producto, almacen STRING
+
+  LET producto = 'ESTE ES EL PRODUCTO NO '
+  LET almacen ='ESTE ES EL ALMACEN NO '
+ { FOR i = 1 TO 10
+     LET arreglo[i].producto = producto CLIPPED,i USING "<<<"
+     LET arreglo[i].almacen  = almacen CLIPPED, i USING "<<<"
+     IF i < 5 THEN
+         LET arreglo[i].nodo = NULL
+     ELSE
+        LET arreglo[i].nodo='1'    
+     END IF 
+  END for}
+  LET arreglo[1].producto = '1'
+  LET arreglo[1].existencia = 0
+  LET arreglo[1].almacen = ''
+  LET arreglo[1].nodo=''
+  LET arreglo[1].hijos = '1'
+
+  LET arreglo[2].producto = '1'
+  LET arreglo[2].existencia = 2
+  LET arreglo[2].almacen = 'GENERAL'
+  LET arreglo[2].nodo='1'
+LET arreglo[2].hijos = '1.1'
+  
+  LET arreglo[3].producto = '1'
+  LET arreglo[3].existencia = 1
+  LET arreglo[3].almacen = 'EXHIBICION'
+  LET arreglo[3].nodo='1'
+  LET arreglo[3].hijos = '1.2'
+
+  
+  LET arreglo[4].producto = '1'
+  LET arreglo[4].existencia = 1
+  LET arreglo[4].almacen = 'PRINCIPAL'
+  LET arreglo[4].nodo='1'
+  LET arreglo[4].hijos = '1.3'
+  FOR i = 1 TO arreglo.getLength()
+    DISPLAY arreglo[i].producto,"    ",arreglo[i].almacen,"    ",arreglo[i].existencia,"   -- ",arreglo[i].nodo,"    ",arreglo[i].hijos
+  END FOR
+  OPEN WINDOW w1 WITH FORM 'treeviewfrm' 
+  DISPLAY ARRAY arreglo TO sarreglo.*
+  CLOSE WINDOW w1
+
+END MAIN