database marmotech    
screen size 24 by 80
{
Semi-Elaborado  [p1  ] [des1                          ]
\g------------------------------------------------------------------------
 Codigo                Descripcion               Medida        Cantidad   
\g-------------------------------------------------------------------------
 [h][i][j ][k  ] [g                             ] [l  ]    [f009          ]
 [h][i][j ][k  ] [g                             ] [l  ]    [f009          ]
 [h][i][j ][k  ] [g                             ] [l  ]    [f009          ]
 [h][i][j ][k  ] [g                             ] [l  ]    [f009          ]
 [h][i][j ][k  ] [g                             ] [l  ]    [f009          ]
}
end
tables
intb00001,cttb00011
attributes
p1    = cttb00011.cod_prod,autonext,comments =
"Digite Codigo de la produccion en el centro";
des1 = formonly.descrip1,noentry;
h    = formonly.cod_n_mp,autonext,
comments = "Digite codigo  de La Materia Prima ";
i    = formonly.cod_grupo_mp,autonext,
comments = "Digite codigo   de La Materia Prima ";
j    = formonly.cod_tipo_mp,autonext,
comments = "Digite codigo   de La Materia Prima ";
k    = formonly.cod_sec_mp,autonext,
comments = "Digite codigo   de La Materia Prima";
g    = intb00001.descrip_esp,noentry;
l    = intb00001.unidad_med,noentry;
f009 = formonly.cantidad,
       comments = "Digite la cantidad del producto terminado";
instructions
   screen record consart[5] (cod_n_mp,cod_grupo_mp,cod_tipo_mp,cod_sec_mp,
                             descrip_esp,unidad_med,cantidad)
end