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

Porciento de Descuento        [f006   ]% 
Cantidad Minima de Pila       [f007 ] Cajas 
Cantidad Maxima de Pila       [f008 ] Cajas 
Cantidad de Cajas Bonificadas [f009 ] Cajas           Fecha de Cambio [f091    ]
                                                                             [a]
Usuario Creador [f010     ]               Usuario Modificador [f012     ]
Fecha Creacion  [f011            ]        Fecha Modificacion  [f013            ]
}
end
tables
iptb00002
vetb00027
attributes
f0   = vetb00027.tipo_desc,autonext, 
       comments = "Digite el Codigo del Descuento";
f001 = vetb00027.descrip, upshift, autonext, 
       comments = "Digite la Descripcion o Nombre del Descuento"; 
g    = vetb00027.cod_n,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
h    = vetb00027.cod_grupo,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
i    = vetb00027.cod_tipo,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
j    = vetb00027.cod_sec,autonext, 
       comments = "Digite el Codigo de la Pila o Ctrl-W para busqueda"; 
k    = iptb00002.descrip_esp, noentry; 
f006 = vetb00027.porc_desc,autonext, default = 0, 
       comments = "Digite el Porciento de Descuento de la Pila";
f007 = vetb00027.cantidad_1,autonext, default = 0, 
       comments = "Cantidad Minima Requerida para Obtener Descuento o Bonificacion"; 
f008 = vetb00027.cantidad_2,autonext, default = 0, 
       comments = "Cantidad Maxima Requerida para Obtener Descuento o Bonificacion"; 
f009 = vetb00027.cajas_bonif,autonext, default = 0, 
       comments = "Cantidad de Cajas a Donar por Descuento o Bonificacion"; 
f091 = vetb00027.fecha_cambio,autonext, 
       comments = "Fecha en cambio algun(os) dato(s) del Descuento"; 
a    = vetb00027.status_t, noentry;
f010 = vetb00027.us_crea, noentry;
f011 = vetb00027.fech_crea, noentry;
f012 = vetb00027.us_mod, noentry;
f013 = vetb00027.fech_mod, noentry;
end

INSTRUCTIONS
delimiters " "