database smarmotech
screen size 24 by 80
{

Producto Terminado [a ]-[b ]-[c  ]-[d  ] [a1                             ]
\g_______________________________________________________________________\g
                        Existencia    Existencia     Dia de                 
 Producto       Cia     Actual        Minima         Llegada
\g-----------------------------------------------------------------------\g
[e ][f ][g  ][h  ] [j]    [f008       ] [f009       ]    [f01]
Descripcion: [k                            ]  Unidad: [l  ]  Bodega: [m]
Nomenclatura: [f004      ]
[e ][f ][g  ][h  ] [j]    [f008       ] [f009       ]    [f01]
Descripcion: [k                            ]  Unidad: [l  ]  Bodega: [m]
Nomenclatura: [f004      ]
[e ][f ][g  ][h  ] [j]    [f008       ] [f009       ]    [f01]
Descripcion: [k                            ]  Unidad: [l  ]  Bodega: [m]
Nomenclatura: [f004      ]
}
end
tables
iptb00002,intb00001
attributes
a = iptb00002.cod_n,autonext,
    comments = "Digite el nivel del Productos";
b = iptb00002.cod_grupo,autonext,
    comments = "Digite el grupo del Productos";
c = iptb00002.cod_tipo,autonext,
    comments = "Digite el tipo del Productos";
d = iptb00002.cod_sec,autonext,
    comments = "Digite la secuencia del Productos";
a1 = intb00001.descrip_esp,noentry;
e = formonly.cod_n1,noentry;
f = formonly.cod_grupo1,noentry;
g = formonly.cod_tipo1,noentry;
h = formonly.cod_sec1,noentry;
j = iptb00002.cod_cia,noentry;
f008 = formonly.existencia,noentry;
f009 = iptb00002.exist_min,noentry;
f01 = iptb00002.dia_llegada,noentry;
k = formonly.descrip_esp1,noentry;
l = intb00001.unidad_med,noentry;
m = iptb00002.bodega,noentry;
f004 = formonly.marca,noentry;
instructions
  delimiters " "

 screen record consart[3] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,descrip_esp1,
               unidad_med,bodega,marca,cod_cia,existencia,
               exist_min,dia_llegada)
end