|
Para crear la subrutina de abrir los archivos a ser
usados, seleccione New Subroutine/Function desde el botón de Lista de
Object y digite Abrir Archivo, seguidamente a las marcas de encabezado
en el área de edición del Guibuilder, RESPETANDO las mayúsculas y minúsculas
que se indican, digite el siguiente código:
abrir_archivo:
data_chan = unt
open(data_chan)"Maest_pl"
rem abre un canal alterno para realizar operaciones con el archivo
rem este canal no será atado el grid
alt_chan = unt
open(alt_chan)"Maest_pl"
Rem crea el template
datarec_desc$=""
datarec_desc$=datarec_desc$+"codigo:c(6):SHOW=1 ALIGN=0 LABEL=Código:,"
datarec_desc$=datarec_desc$+"nombre:c(30):SHOW=1 ALIGN=0 LENGTH=30 LABEL=Nombre:,"
datarec_desc$=datarec_desc$+"cedula:c(20):SHOW=1 ALIGN=0 LENGTH=20 LABEL=Cedula:,"
datarec_desc$=datarec_desc$+"direccion:c(50):SHOW=1 ALIGN=0 LENGTH=50
:LABEL=Direccion:,"
datarec_desc$=datarec_desc$+"telefono:n(10):SHOW=1 ALIGN=0 OMASK=000-00-00
:LABEL=Telefono:,"
datarec_desc$=datarec_desc$+"fecha_ingreso:n(8):SHOW=1 ALIGN=0 OMASK=00/00/0000
:LABEL=Fecha_Ingreso:,"
datarec_desc$=datarec_desc$+"tipo_planilla:c(1):SHOW=1 ALIGN=0 LENGTH=1
:LABEL=Pl:,"
datarec_desc$=datarec_desc$+"salario:n(10):SHOW=1 ALIGN=1 OMASK=#,###,##0.00
:LABEL=Salario:,"
datarec_desc$=datarec_desc$+"sexo:c(1):SHOW=1 ALIGN=0 LENGTH=1 LABEL=Sexo:"
dim datarec$:datarec_desc$
return
El anterior código abre al archivo con dos canales: uno para ser usado
por el grid y el otro usado por el programa para la creación de nuevas llaves,
también se define una descripción de template en datarec_desc$ y el template
mismo datarec$: Note los atributos para cada campo, estos controlaran como se
comportará y como se verán los datos en el grid
Para crear la tercer subrutina seleccione New Subroutine/Function desde
el botón de Lista Object y de el siguiente nombre Atar Grid al Canal
y OK, seguido de las marcas de encabezado en una nueva línea en el área de edición
del Guibuilder digite lo siguiente:
Atar_grid_al_canal:
Rem obtiene el ID del grid desde el template del form
grid_id=num(fattr(datagrid_temp$,"grdmaestroGrid","ID"))
Rem envía la funcion de send message 80 (gridSetdataAware) para atar grid al canal
tf$=sendmsg(gb__sysgui,grid_id,gridSetDataAware,data_chan,datarec_desc$)
tf$=sendmsg(gb__sysgui,grid_id,gridShowCurrentHeading,gridHeadingDepressedMode,$$)
return
|
