{
------------------------------------------------------------------------
 FORMULARIO        : ADFMMT012
 OBJETIVO          : Pantalla para introducir las informaciones de las
                     referencias personales de la solicitud de empleo.
                     Es utilizada por: ADPRMT012
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Junio 24, 1993  
------------------------------------------------------------------------
}
SCHEMA smarmotech  

TOOLBAR
  ITEM nuevo (TEXT="Nuevo", IMAGE="new", COMMENT="Adicionar Registos")
  ITEM buscar (TEXT="Buscar", IMAGE="find", COMMENT="Buscar Regustros")  SEPARATOR
  ITEM salir (TEXT="Salir", COMMENT = "Salir del Programa", IMAGE="quit") 
END

screen size 24 by 80
{
Applicants No.  [f000] [a                                       ]
\g------------------------------------------------------------------------------
  P E R S O N A L   R E F E R E N C E S
\g------------------------------------------------------------------------------
[f001                                              ]       [f2]  [f002    ]
[f003                         ] [f004] [f005             ] [f006             ]
[f001                                              ]       [f2]  [f002    ]
[f003                         ] [f004] [f005             ] [f006             ]
[f001                                              ]       [f2]  [f002    ]
[f003                         ] [f004] [f005             ] [f006             ]
[f001                                              ]       [f2]  [f002    ]
[f003                         ] [f004] [f005             ] [f006             ]
}
end
tables
adtb00014
attributes
f000 = adtb00014.cod_sol,autonext,color = blue,
 comments = "Digite el codigo del Solicitante";
a = formonly.nombre,noentry;
f001 = adtb00014.nom_ref,upshift,color = blue,
 comments = "Digite el nombre de la persona de referencia";
f2 = adtb00014.anos_rel,autonext,color = blue,
 comments = "Digite los anos de relacion";
f002 = adtb00014.telefono,picture = "XXX-XXXX",color = blue,
 comments = "Digite el telefono de la persona de referencia";
f003 = adtb00014.calle,upshift,color = blue,
 comments = "Digite la calle donde reside la persona de referencia";
f004 = adtb00014.casa_num,color = blue,
 comments = "Digite el numero de la casa de la persona de referencia";
f005 = adtb00014.barrio,upshift,color = blue,
 comments = "Digite el barrio donde reside la persona de referencia";
f006 = adtb00014.urbanizacion,upshift,color = blue,
 comments = "Digite la urbanizacion donde reside la persona de referencia";
instructions
  screen record consart[4] (nom_ref,anos_rel,telefono,calle,
                            casa_num,barrio,urbanizacion)
end