database marmotech    
screen size 24 by 80
{
                Consulta de Descuentos
  \g-----------------------------------------------------\g
  Codigo Descuento  [f0] 
  Descripcion       [f001                          ]
  Codigo de la Pila [g]-[h]-[i ]-[j  ]
                    [k                             ]

  Porciento de Descuento      [f006   ]%
  Cantidad Minima de Pilas      [f007 ]Cajas
  Cantidad Maxima de Pilas      [f008 ]Cajas
  Cantidad de Cajas Bonificadas [f009 ]Cajas


}
end
tables
intb00001
vetb00013
attributes
f0   = vetb00013.tipo_desc,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
f001 = vetb00013.descrip, upshift, autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
g    = vetb00013.cod_n,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
h    = vetb00013.cod_grupo,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
i    = vetb00013.cod_tipo,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
j    = vetb00013.cod_sec,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
k    = intb00001.descrip_esp, noentry,
       comments="         <Esc> Selecciona todos los descuentos"; 
f006 = vetb00013.porc_desc,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
f007 = vetb00013.cantidad_1,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
f008 = vetb00013.cantidad_2,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
f009 = vetb00013.cajas_bonif,autonext,
       comments="         <Esc> Selecciona todos los descuentos"; 
end

INSTRUCTIONS
delimiters " "