UTPCONTROL DE SUBARCHIVO

-1-

Minicomputadoras

Utilice el componente subarchivo para visualizar una lista de registros, cada uno de los cuales consta de uno o ms campos. La funcin del componente subarchivo es similar a la de un subarchivo de iSeries . El usuario puede desplazar el contenido de la lista en sentido horizontal o vertical utilizando las barras de desplazamiento del subarchivo. Para crear un campo de entrada de subarchivo, aada un campo de la ventana Definir campos de referencia o de la paleta de componentes en el componente subarchivo. Tambin puede aadir campos utilizando el cuaderno de propiedades REMOVEITEM Suprime un elemento de una lista. El parmetro index determina el elemento que se va a suprimir. Para eliminar todos los elementos de una lista, especifique 0 como valor de ndice. En un componente subarchivo, este atributo se aplica a un campo de entrada de subarchivo que tenga valores definidos como tipo de validacin. Utilice este atributo para eliminar valores de la lista de validacin del campo de entrada del subarchivo. Primero ha de establecer el atributo ColNumber a fin de identificar la columna con la que se debe trabajar. En el caso de un componente selector cclico, solo puede eliminar todos los elementos; es decir, el valor de ndice debe establecerse en 0 (eliminar todos). No est permitido eliminar un elemento especfico de un selector cclico. Tipo Numrico Valor permitido El valor de ndice del elemento que se va a eliminar Ejemplo de formato libre *...1....+....2....+....3....+....4....+....5....+....6....+ ....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Le n++D+HiLoEq---* C EVAL %setatr('win01': 'LB1': 'RemoveItem') = 3 * Ejemplo de formato fijo *...1....+....2....+....3....+....4....+....5....+....6....+ ....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Le n++D+HiLoEq---* C 'LB1' SETATR 3 'REMOVEITEM' *

Propiedades de SubArchivo:

UTP

-2-

Minicomputadoras

READS .- Lee toda la fila que se ha seleccionado su sintaxis: READS SUB01

CHAIN .- A travs de un campo o ndice del subarchivo busca y ubica el puntero dentro del archivo , permitiendo leer cualquier campo de esa fila. Siempre debe estar asociado a un indicador en la columna mayor su sintaxis: Fact1 indice operador CHAIN FAC2 Sub01 HI req

El indicador en la columna mayor esta activado si el valor no es encontrado 1 o *ON Write Sub01 .- Permite escribir en el subarchivo una vez que los campos de cada columna tengan sus valores correspondientes.

CountProporciona el nmero de elementos de la parte de lista de un componente. El atributo Count se actualiza cada vez que se aade o suprime un elemento de la lista. Ejemplo de formato libre

C

EVAL

rc = %getatr('win01': 'LB1': 'Count')

CellFGMix Consulta o establece la mezcla de colores de primer plano de una casilla de un subarchivo. Debe utilizar los atributos Index y ColNumber para identificar la casilla en la que se consultar o se establecer la mezcla de colores. Tipo Serie Se aplica a los componentes

Subarchivo Cdigos de operacin

Operativo durante la ejecucin SETATR GETATR s s

UTPValor permitido

-3-

Minicomputadoras

La mezcla de colores de primer plano debe tener el formato siguiente: 'rojo:verde:azul' donde rojo, verde y azul son valores situados entre 0 y 255 que representan la intensidad del color respectivo.Ejemplo de formato libre

*...1....+....2....+....3....+....4....+....5....+.. ..6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++ ++++++Len++D+HiLoEq---* C EVAL CFclrMx=%getatr('win01':'SFL1':'CellFGMix') * C CFclrMx IFNE '10:23:200' C EVAL %setatr('win01':'SFL1':'CellFGMix')='10:23:200' C ENDIF *

Ejemplo .- empleando subarchivo , matrices en tiempo de compilacin Controles: Cuadro Combinado CBA (colocar seis datos en tiempo de diseo)

Select Este evento se produce cuando el usuario selecciona un componente pulsando sobre el mismo con el ratn o utilizando las teclas de flechas. En un recuadro de combinacin, contenedor, recuadro de lista, subarchivo de mensajes y subarchivo, este evento se produce cuando se selecciona un elemento de la lista.

UTP

-4-

Minicomputadoras

su diseo:

LBPRE Tipo Label numerico (6,0) TXTCAN tipo TextBox Numerico(4,0)

UTP Un boton Aceptar nombre BtnOk Un subarchivo aadir campos (sub01)

-5-

Minicomputadoras

despus

codificacin del programa:

Cuando se activa el formulario , carga todos los datos que esta en la matriz

Cuando se elige un articulo en el combo o cuadro combinado

UTP

-6-

Minicomputadoras

Subrutina creada BEGSR (inicio) y ENDSR final , ser llamada en cualquier parte del programa

El Boton aceptar Pasa los datos hacia los campos y escribe en el subarchivo

Se invoca a la subrutina

Los datos en la matriz siempre se colocan al final , no se debe dejar lneas en blancos

UTP

-7-

Minicomputadoras

Aplicacin 2.Ingrese en una caja de texto el monto a depositar y la cantidad de meses para ver los intereses.

.

el diseo del formulario es como se muestra:

UTP

-8-

Minicomputadoras

Prof. Ing. Alberto Moreno C.