database smarmotech     
screen size 24 by 80
{
 Origen              [p1][p4                                        ]
 Codigo Producto     [a ][b ][c  ][e  ]
                     [pro                 ][dtipo                   ]
 Descripcion Espanol [d                                             ]
 Descripcion Ingles  [f                                             ]
 Unidad Medida       [k  ]Producto  [prod                 ]
 Bodega              [l ] Despiece:[des66                            ]

 Existencia Maxima   [exma        ] Existencia Minima   [f005        ] 
 Existencia Actual   [f004        ] Dia de Llegada      [m           ]
 [q]
 Usuario creador  [f007            ]  Usuario modificador  [f009            ]
 Fecha Creacion   [f008            ]  Fecha Modificacion   [f010            ]
}
end
tables
iptb00002
attributes
des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no";
dtipo = formonly.descrip_tipo;
pro = formonly.producto,noentry;
a   = iptb00002.cod_n, autonext, 
      comments = "Digite el codigo de los productos";
b   = iptb00002.cod_grupo, autonext,
      comments = "Digite el codigo de los productos ";
c  = iptb00002.cod_tipo, autonext,
      comments = "Digite el codigo de los productos ";
e = iptb00002.cod_sec,autonext,
      comments = "Digite el codigo de los productos ";
p1   = iptb00002.cod_cia,include=(1,2,3),comments=
       "Digite   1 = Local       2 = Importado       3- Ptos. Material Importado"; 
d    = iptb00002.descrip_esp,upshift; 
f    = iptb00002.descrip_ing,upshift; 
p4   = formonly.nombre_cia,noentry;
prod = formonly.nomenclatura,upshift;

f004 = formonly.cantidad_2;
exma = iptb00002.exist_max,
       comments = "Digite la existencia Maxima en Almacen";
f005 = iptb00002.exist_min,
       comments = "Digite la existencia Minima en Almacen";
l    = iptb00002.bodega, comments ="Digite la bodega";
m    = iptb00002.dia_llegada,comments="Digite el dia de llegada del Producto ";
q    = iptb00002.status_t,noentry;
f007 = iptb00002.us_crea, noentry;
f008 = iptb00002.fech_crea, noentry;
f009 = iptb00002.us_mod, noentry;
f010 = iptb00002.fech_mod, noentry;
k    = formonly.unidad_med,upshift;

instructions
  delimiters " "
end