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

Dias de Efectividad del Descuento [l  ] Dias 
Porciento de Descuento        [f006   ]% 
Cargos a la factura           [f020   ]
Cantidad Minima de Pila       [f007 ] Cajas 
Cantidad Maxima de Pila       [f008 ] Cajas 
Cantidad de Cajas Bonificadas [f009 ] Cajas 
                                                                             [a]
Usuario Creador [f010     ]               Usuario Modificador [f012     ]
Fecha Creacion  [f011            ]        Fecha Modificacion  [f013            ]
}
end
tables
intb00001
vetb00013
attributes
f0   = vetb00013.tipo_desc,autonext, 
       comments = "Digite el Codigo del Descuento";
f001 = vetb00013.descrip, upshift, autonext, 
       comments = "Digite la Descripcion o Nombre del Descuento"; 
g    = vetb00013.cod_n,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
h    = vetb00013.cod_grupo,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
i    = vetb00013.cod_tipo,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
j    = vetb00013.cod_sec,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
k    = intb00001.descrip_esp, noentry; 
l    = vetb00013.dias_validos, autonext,
       comments = "Dias de validez del descuento a partir de la fecha de factura"; 
f006 = vetb00013.porc_desc,autonext, default = 0, 
       comments = "Digite el Porciento de Descuento de la Pila";
f007 = vetb00013.cantidad_1,autonext, default = 0, 
       comments = "Cantidad Minima Requerida para Obtener Descuento o Bonificacion"; 
f008 = vetb00013.cantidad_2,autonext, default = 0, 
       comments = "Cantidad Maxima Requerida para Obtener Descuento o Bonificacion"; 
f009 = vetb00013.cajas_bonif,autonext, default = 0, 
       comments = "Cantidad de Cajas a Donar por Descuento o Bonificacion"; 
a    = vetb00013.status_t, noentry;
f010 = vetb00013.us_crea, noentry;
f011 = vetb00013.fech_crea, noentry;
f012 = vetb00013.us_mod, noentry;
f013 = vetb00013.fech_mod, noentry;
f020 = vetb00013.valor_desc,autonext;
end

INSTRUCTIONS
delimiters " "