Array - Protección contra Errores

Existen algunos cuidados necesarios para la creación y  utilización de variables del tipo array, como por ejemplo:

• En la creación siempre debe inicializarse como un Array.
  
  
  

Ejemplo:

// ArrayInitializationSample.prw

Local aRet1 := {}

Local aRet2 := Array()

De esta manera garantizamos que cuando utilicemos funciones como Len(), no se mostrará “Error”.

• Cargar en líneas en lugar de colocarlos en una sola línea de comando y colocar una posición por línea.
  
  

Ejemplo:

// ArrayAAddSample.prw

AAdd(aRet,{ X3Titulo(),;                   // 01

                           X3_CAMPO,;         // 02

                           X3_PICTURE,;      // 03

                           X3_TAMANHO,;      // 04

                           X3_DECIMAL,;      // 05

                           X3_VALID,;         // 06

                           X3_USADO,;         // 07

                           X3_TIPO,;          // 08

                           X3_ARQUIVO,;      // 09

                           X3_CONTEXT,;      // 10

                           X3_PROPRI   } )    // 11

• Para ayudar en el mantenimiento y utilización de este Array, es importante documentar siempre cada posición.
  
  

Ejemplo:

// ArrayAssignmentSample.prw

// [01] Descuentos

// [02] Corrección monetaria

// [03] Intereses

// [04] Aumento

// [05] Decremento

// [06] Descuento

// [07] Valor original del título

// [08] Saldo del título en la moneda del título

// [09] Saldo del título en la moneda corriente

// [10] Pago parcial

// [11] Valor que se recibirá en la moneda del título

// [12] Valor que se recibirá en la moneda corriente

aRdpTlc[1][2]     := aRdpTlc[1][2] + aValores[2]

aRdpTlc[2][2]     := aRdpTlc[2][2] + aValores[10]

aRdpTlc[3][2]     := aRdpTlc[3][2] + aValores[8]

aRdpTlc[4][2]     := aRdpTlc[4][2] + aValores[5]

aRdpTlc[5][2]     := aRdpTlc[5][2] + aValores[4]

aRdpTlc[6][2]     := aRdpTlc[6][2] + aValores[9]

aRdpTlc[7][2]     := aRdpTlc[7][2] + aValores[1]

aRdpTlc[8][2]     := aRdpTlc[8][2] + aValores[6]

aRdpTlc[9][2]     := aRdpTlc[9][2] + aValores[7]

aRdpTlc[10][2]:= aRdpTlc[10][2] + aValores[3]

aRdpTlc[11][2]:= aRdpTlc[11][2] + aValores[11]

aRdpTlc[12][2]:= aRdpTlc[12][2] + aValores[12]

• Antes de referenciar los datos de un Array, es necesario verificar si realmente tiene datos cargados, para que no haya error.
  
  

Ejemplo:

// ArrayReferenceSample.prw

If Len(aRet) > 0

      cRet := aRet[1]

EndIf