SCHEMA sistemas   
screen size 24 by 80
{
Codigo [p  ] Descripcion  [f2                            ]
Ano    [f3  ]
----------------------------------------------------------
Mes                                           Valor
----------------------------------------------------------
[m ]    [dm                  ]      [va            ]
[m ]    [dm                  ]      [va            ]
[m ]    [dm                  ]      [va            ]
[m ]    [dm                  ]      [va            ]
[m ]    [dm                  ]      [va            ]
[m ]    [dm                  ]      [va            ]
[m ]    [dm                  ]      [va            ]
[m ]    [dm                  ]      [va            ]
}
end
--tables
--tetb00004 
attributes
p    = formonly.codigo,comments = "Digite la Codigo de Partida";
f2   = formonly.descripcion,noentry;
f3   = formonly.ano,comments = "Digite Ano del Presupuesto";
m    = formonly.mes,comments="Digite Mes del Presupuesto";
dm   = formonly.descrip,noentry;
va   = formonly.valor,comments="Digite Valor del Presupuesto";
instructions delimiters " "
  SCREEN RECORD scr_tetb04[8] (mes,descrip,valor)
end