{
================================================================================
FORMULARIO : prdfrm
OBJETIVO   : CAPTURAR LAS INFORMACIONES DE LAS FECHAS DE CORTE DE LOS MESES
             DEL ANO ESPECIFICO.
DISENADO POR: JUAN F. SOTO
FECHA       : ENERO 15, 1994.
================================================================================
}
DATABASE smarmotech

TOOLBAR 
  ITEM nuevo (TEXT="Periodo", IMAGE="new", COMMENT="Nuevo Periodo")
  ITEM buscar (TEXT="Buscar Periodo", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT (TEXT="PERIODOS", STYLE="basic")
GRID
{
<G "Generales"                                                                              >
                            Ano [f001]
                            Genero fechas dias calendario [k1 ]
                            
<G "Meses"                                                                                  >
 MESES      FECHA     FECHA         DIAS DIAS MESES       FECHA      FECHA        DIAS DIAS
 PERIOD.    INICIO    CORTE         HAB. GRA  PERIOD.     INICIO     CORTE        HAB. GRA.
[f2        ][f3        ][f4        ][f5][f6 ][f2        ][f3        ][f4        ][f5][f6 ]
[f2        ][f3        ][f4        ][f5][f6 ][f2        ][f3        ][f4        ][f5][f6 ]
[f2        ][f3        ][f4        ][f5][f6 ][f2        ][f3        ][f4        ][f5][f6 ]
[f2        ][f3        ][f4        ][f5][f6 ][f2        ][f3        ][f4        ][f5][f6 ]
[f2        ][f3        ][f4        ][f5][f6 ][f2        ][f3        ][f4        ][f5][f6 ]
[f2        ][f3        ][f4        ][f5][f6 ][f2        ][f3        ][f4        ][f5][f6 ]
 
 Usuario Creador [f7      ]         Usuario Modificador [f9       ]
 Fecha Creacion  [f8              ] Fecha Modificacion  [f10             ]
}
END
tables
prdtable
attributes
f001 = formonly.p_ano;
f2 = formonly.descrip_mes,NOENTRY;
CHECKBOX k1 = formonly.genero, VALUECHECKED='SI' , VALUEUNCHECKED = "NO", DEFAULT = 'SI';
DATEEDIT f3 = prdtable.fecha_inicio ,format = "dd/mm/yyyy",
     comments = "Entre Fecha Inicial Periodo";
DATEEDIT f4 = prdtable.fecha_corte ,format = "dd/mm/yyyy",
     comments = "Entre Fecha Corte Periodo";
f5 = formonly.dias_habiles,comments = "Entre Los Dias Laborables";
f6 = formonly.dias_gracia,comments = "Entre Los Dias De Gracias Para El Corte";
f7 = prdtable.us_crea,noentry;
f8 = prdtable.fech_crea,noentry;
f9 = prdtable.us_mod,noentry;
f10 = prdtable.fech_mod,noentry;
instructions
delimiters " "
screen record s_peri[12](descrip_mes,fecha_inicio,fecha_corte,dias_habiles,
                        dias_gracia)
end