馃搶 Arreglos Din谩micos en Progress 4gl: C贸mo Usarlos Eficientemente

En el post de esta semana vamos a platicar de un ejemplo en lenguaje Progress 4gl para hacer arreglos ( en mi caso solo vector que es un arreglo de solo una dimensi贸n) din谩micas, cuando decimos que es din谩mico es decir podemos definir de tama帽o variable una matriz (Algebra l铆neal), quiz谩 con una imagen sea m谩s f谩cil de entenderlo

Una Matriz
Algebra Lineal y Programaci贸n

Un Vector





La ventaja de un arreglo din谩mico es que si no sabes cual es el tama帽o exacto de un vector para poder realizar un programa o una operaci贸n, lo mejor es para no utilizar memoria dem谩s es definir un arreglo din谩mico, en Java  por ejemplo son arreglos que van cambiando de tama帽o con forme  se agregan elementos , la instrucci贸n es dynamic array. En Python  por ejemplo no definimos el tama帽o de los vectores y matrices, este se va modificando, conforme nosotros modifiquemos los datos. Progress tiene algo que realiza esta funci贸n que es utilizando la palabra Extent, esta instrucci贸n nos permite definir un vector sin tama帽o al inicio de un programa por ejemplo

DEF VAR arr_col         AS CHARACTER NO-UNDO EXTENT .

M谩s adelante en el programa cuando ya sabemos el tama帽o, actualizamos el dato asi:

EXTENT(arr_col) = vc-totcol.


Por ejemplo yo lo utilice para un reporte que dependiendo de las marcas que encontrara en una tabla fueran las columnas del reporte y las filas ser铆as los c贸digos de art铆culos, todo esto lo envi茅 a una tabla temporal y despu茅s mostr茅 los datos y como esto no era est谩tico, cree el reporte de manera din谩mica y utilice 2 vectores uno para las marcas y otro para los n煤meros de parte y para mostrar el resultado busco en la tabla temporal con dos bucles o ciclos uno que va leyendo las filas y otro que va leyendo las columnas y hace un for each con los datos que cumplen las 2 condiciones. 

vc-totrow = 0.
vc-totcol = 0.

FOR EACH ttresult NO-LOCK BREAK BY marca :
    
  IF LAST-OF(marca) THEN DO:
     vc-totrow =  vc-totrow + 1.
  END.  
END.

FOR EACH ttresult NO-LOCK BREAK BY part:
   IF LAST-OF(part) THEN DO:
    vc-totcol =  vc-totcol + 1.
   END.
END.

vc-indc = 1.
vc-indr = 1.

EXTENT(arr_col) = vc-totcol.

EXTENT(arr_row) = vc-totrow.


FOR EACH ttresult NO-LOCK BREAK BY marca:
    
  IF LAST-OF(marca) THEN DO:
     arr_row[vc-indr] = marca.
vc-indr = vc-indr + 1.
  END.  
END.

FOR EACH ttresult BREAK BY parte:
   IF LAST-OF(parte) THEN DO:
    arr_col[vc-indc] = parte .
vc-indc= vc-indc + 1.
   END.

END.


OUTPUT STREAM s-excel TO VALUE(vc-exc-file) PAGE-SIZE 0.

/* Headers */
PUT STREAM s-excel UNFORMATTED 
    "Marca"   "~011".

DO iy = 1 TO EXTENT(arr_col):
   IF arr_col[iy] <> "" THEN 
  PUT STREAM s-excel UNFORMATTED arr_col[iy] "~011" .
END.
  
  PUT STREAM s-excel UNFORMATTED SKIP.

/*Detail*/  
  
DO ix = 1 TO EXTENT(arr_row):
      IF SUBSTRING(arr_row[ix],1,8) <> "" THEN DO:   
     PUT STREAM s-excel UNFORMATTED 
         SUBSTRING(arr_row[ix],1,8)   "~011"
         TRIM(SUBSTRING(arr_row[ix],10,8)) "~011".
END.  
  DO iy = 1 TO EXTENT(arr_col):
  
 
  FIND FIRST ttresult WHERE marca = SUBSTRING(arr_row[ix],1,8) 
          AND parte       = arr_col[iy] NO-LOCK NO-ERROR.
   
  IF AVAIL ttresult AND arr_col[iy] <> ""   THEN DO:
   
     PUT STREAM s-excel UNFORMATTED 
     cantidad "~011".
END.
 
IF NOT AVAIL ttresult AND arr_col[iy] <> "" THEN DO:
     PUT STREAM s-excel UNFORMATTED 
     "0.00" "~011".
END.
 
  END. /* DO iy = 1 TO EXTENT(arr_col): */
   PUT STREAM s-excel UNFORMATTED SKIP.
END.  /* DO ix = 1 TO EXTENT(arr_row): */


OUTPUT STREAM s-excel CLOSE.

El resultado de ejecutar este programa es como la siguiente imagen



El tiempo de ejecuci贸n no es demorado y muestra la informaci贸n de manera f谩cil para los usuarios.

Otros art铆culos en este blog acerca de Progress 4gl

Espero este programa les sea de utilidad, compartan el post y nos sigan en el #programacionparatodos  y en nuestra p谩gina de Facebook

Comentarios

馃殌 Mantener este blog funcionando requiere tiempo y caf茅. ¡Puedes contribuir con uno aqu铆!

Entradas m谩s populares de este blog

Macro de Excel para abrir archivo csv

Gu铆a Pr谩ctica: Ejemplo Completo de ASPX para Desarrolladores Web

API de banxico para obtener tipo de cambio utilizando Javascript