schema 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")
 ACTION conversion (TEXT="Conversion Moneda",image="dollar")
END

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

LAYOUT (TEXT="ADMINISTRACION PRECIOS",STYLE="basic")
  FOLDER
   PAGE p1 (TEXT="LISTA PRODUCTOS")
     SCROLLGRID
{   
   [ppp                     ]
<t                                                                                                                                                                                                            >
  [e][id   ][cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][k2             ][m1  ][p          ][std          ][creal          ][fe        ][ex          ]
  [e][id   ][cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][k2             ][m1  ][p          ][std          ][creal          ][fe        ][ex          ]
  [e][id   ][cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][k2             ][m1  ][p          ][std          ][creal          ][fe        ][ex          ]
  [e][id   ][cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][k2             ][m1  ][p          ][std          ][creal          ][fe        ][ex          ]
  [e][id   ][cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][k2             ][m1  ][p          ][std          ][creal          ][fe        ][ex          ]
  [e][id   ][cod ][x5 ][x6  ][x7  ][x8   ][x9                               ][x10 ][a1][a21   ][nom                            ][k2             ][m1  ][p          ][std          ][creal          ][fe        ][ex          ]

}
 END 
END
END
tables
vetb00025,vetb00003
ATTRIBUTES
PROGRESSBAR ppp = formonly.progreso ,VALUEMIN=0,VALUEMAX=100,COLOR=GREEN;
      id = formonly.idrow,noentry;
CHECKBOX e=formonly.elimina TYPE CHAR, NOT NULL,VALUECHECKED="S",VALUEUNCHECKED="N",DEFAULT="N",TITLE="Elimina";      
 ex= formonly.existencia,FORMAT="---,--&.##",TITLE="EXISTENCIA";
 fe= formonly.fecha_liq, FORMAT="dd/mm/yyyy",TITLE="FECHA LQ";
COMBOBOX cod = formonly.codLista,TITLE="Codigo Lista",ITEMS=(("1","GENERAL"),("2","PRECIOS FERIA"),("3","FERIA 2"),("4","FERIA 3"));
x5 = formonly.codn,TITLE="Clase";
x6 = formonly.codgrupo,TITLE="Grupo";
x7 = formonly.codtipo,TITLE="Tipo";
x8 = formonly.codsec,TITLE="Medida";
LABEL x9 = formonly.descripcion_p,TITLE="Producto";
LABEL x10 = formonly.unidadMed;
a1  = formonly.tipoCliente,TITLE="Tipo Cliente";
a21  = formonly.secCliente,TITLE="Codigo Cliente";
LABEL nom = formonly.nombreCliente,TITLE="Nombre";
p   = formonly.pprecio,TITLE="PRECIO";

LABEL std = formonly.costo_std,TITLE="Costo STD";
LABEL creal = formonly.costo_lq,TITLE="Costo Liquidado";
COMBOBOX k2   = formonly.ventas,TITLE="Ventas";
LABEL m1  = formonly.moneda;
 
instructions
 delimiters " "
 screen record lproducto (elimina,idrow,codLista,codn,codgrupo,codtipo,codsec,descripcion_p,
                          unidadMed,tipoCliente,secCliente,nombreCliente,ventas,moneda,pprecio,
                          costo_std,costo_lq,fecha_liq,existencia)
end