database smarmotech
ACTION DEFAULTS
 ACTION buscalista (TEXT="Busca Informacion",image="find")
 ACTION guardar    (TEXT="Actualiza Informacion",image="save")
 ACTION limpia    (TEXT="Limpia Screen",image="clear")
 ACTION cancel     (TEXT="Cancela operacion",image="stop")
END

TOOLBAR 
  ITEM nuevo (TEXT="Precio", IMAGE="ventas", COMMENT="ADMINISTRACION PRECIOS")
  
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT (TEXT="ADMINISTRACION PRECIOS",STYLE="basic")
  FOLDER
   PAGE p1 (TEXT="LISTA PRODUCTOS")
     SCROLLGRID
{   

<t                                                                                                                                                                                                                                               >
  [cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][std          ][creal          ][fe        ][ex          ][p          ][p1           ][p2           ][p3          ][k2]
  [cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][std          ][creal          ][fe        ][ex          ][p          ][p1           ][p2           ][p3          ][k2]
  [cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][std          ][creal          ][fe        ][ex          ][p          ][p1           ][p2           ][p3          ][k2]
  [cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][std          ][creal          ][fe        ][ex          ][p          ][p1           ][p2           ][p3          ][k2]
  [cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][std          ][creal          ][fe        ][ex          ][p          ][p1           ][p2           ][p3          ][k2]
  [cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][std          ][creal          ][fe        ][ex          ][p          ][p1           ][p2           ][p3          ][k2]
  [cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][std          ][creal          ][fe        ][ex          ][p          ][p1           ][p2           ][p3          ][k2]
  
}
 END 
END
END
tables
vetb00025,vetb00003
attributes
LABEL ex= formonly.existencia,FORMAT="---,--&.##",TITLE="EXISTENCIA";
LABEL fe= formonly.fecha_liq, FORMAT="dd/mm/yyyy",TITLE="FECHA LQ";
cod = formonly.codLista,TITLE="Codigo Lista";
x5 = formonly.codn,TITLE="Clase";
x6 = formonly.codgrupo,TITLE="Grupo";
x7 = formonly.codtipo,TITLE="Tipo";
x8 = formonly.codsec,TITLE="Secuencia";
x9 = formonly.descripcion_p,TITLE="Producto";
x10 = formonly.unidadMed;
a1  = formonly.tipoCliente,TITLE="Tipo Cliente";
a21  = formonly.secCliente,TITLE="Codigo Cliente";
nom = formonly.nombreCliente,TITLE="Nombre";
p   = formonly.pprecio,TITLE="RD$";
p1  = formonly.pprecio1,TITLE="USD$ LOCAL";
p2  = formonly.pprecio2,TITLE="USD$ EXP";
p3  = formonly.pprecio3,TITLE="EURO";
std = formonly.costo_std1,TITLE="Costo STD";
creal = formonly.costo_r,TITLE="Costo Liquidado";

k2   = formonly.pventas, HIDDEN;
instructions
 delimiters " "
 screen record lproducto (codLista,codn,codgrupo,codtipo,codsec,descripcion_p,unidadMed,tipoCliente,secCliente,nombreCliente,costo_std1,costo_r,fecha_liq,existencia,pprecio,pprecio1,pprecio2,pprecio3,pventas)
end