database marmotech 
screen size 24 by 80
{
      Cantidad Meses a Proyectar [f ]    Fecha Inicial [e       ]    

      Producto Terminado [a][b][c ][d  ] [g                             ] 
     \g--------------------------------------------------------------------
        Fecha            Fecha                             Cantidad a 
       Inicial           Final             Mes              Producir 
     \g--------------------------------------------------------------------
      [f000      ]     [f001      ]     [f002      ]     [f007        ]
      [f000      ]     [f001      ]     [f002      ]     [f007        ]
      [f000      ]     [f001      ]     [f002      ]     [f007        ]
      [f000      ]     [f001      ]     [f002      ]     [f007        ]
      [f000      ]     [f001      ]     [f002      ]     [f007        ]
}
end
tables
intb00001, 
cotb00026
attributes
e    = formonly.fecha_inicial type date,autonext , format = "dd/mm/yy", 
       comments = "Digite la Fecha Inicial del Plan. Use el formato DDMMAA"; 
f    = formonly.cantidad_meses,autonext ,
       comments = "Digite la Cantidad de Meses del Plan"; 
a    = cotb00026.cod_n,autonext,
comments = "Digite el Codigo del Producto Terminado o Ctrl-W para Busqueda";
b    = cotb00026.cod_grupo,autonext,
comments = "Digite el Codigo del Producto Terminado o Ctrl-W para Busqueda";
c    = cotb00026.cod_tipo,autonext,
comments = "Digite el Codigo del Producto Terminado o Ctrl-W para Busqueda";
d    = cotb00026.cod_sec,autonext,
comments = "Digite la Codigo del Producto Terminado o Ctrl-W para Busqueda";
g    = intb00001.descrip_esp, noentry; 
f000 = formonly.fecha_ini,noentry;
f001 = formonly.fecha_fin,noentry;
f002 = formonly.mes,noentry; 
f007 = cotb00026.cantidad,autonext;

INSTRUCTIONS
screen record sc_plan_prod[5] (fecha_ini,fecha_fin,mes,cantidad) 
end