53 lines
1.5 KiB
Plaintext
53 lines
1.5 KiB
Plaintext
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 |