SCHEMA smarmotech ACTION DEFAULTS ACTION busca_foto ( TEXT="Buscar", IMAGE="find", ACCELERATOR = Enter, ACCELERATOR2 = Return ) END TOOLBAR ITEM ADICIONAR (TEXT="ADICIONAR",IMAGE="new") ITEM Consultar (TEXT="CONSULTAR MODIFICAR",IMAGE="find") ITEM SALIR (TEXT="SALIR",IMAGE="exit") LAYOUT (TEXT="MAESTRA PRODUCTOS") GRID { Origen [p1][p4 ] [img ] Codigo Producto [a ][b ][c ][e ] Codigo B [kk ] [pro ][prgrupo ] [dtipo ][prm ] Descripcion Espanol [d ] Descripcion Ingles [f ] Unidad Medida [k ] Producto [prod ] [sh ] Bodega [l ] Despiece: [des66 ] Control Existencia [s ]Control ITBIS [it1 ] 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 IMAGE img = formonly.foto_producto,STRETCH =BOTH,AUTOSCALE; BUTTON sh: busca_foto; LABEL kk = formonly.codid; COMBOBOX s = formonly.control_existencia, INCLUDE=("SI","NO"),default="SI"; COMBOBOX it1 = formonly.control_itbis,INCLUDE=("SI","NO"),default="SI"; des66 = formonly.despiece,WIDGET="RADIO",config="S Si N no"; dtipo = formonly.descrip_tipo; pro = formonly.producto,noentry; prgrupo = formonly.descrip_grupo; prm = formonly.descrip_medida; 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,scroll; f = iptb00002.descrip_ing,upshift,scroll; 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; COMBOBOX k = formonly.unidad_med,upshift,include=('UD','M2','M3','ML'); instructions delimiters " " end