database marmotech   
screen size 24 by 80
{
                       Consulta Cantidad Cajas de Factura 

    Factura [a     ] 
  \g----------------------------------------------------------------------\g 
     Producto Terminado                               Cantidad de Cajas      
  \g----------------------------------------------------------------------\g
     [b]-[c]-[d ]-[e  ][f                             ][g             ]  
     [b]-[c]-[d ]-[e  ][f                             ][g             ]  
     [b]-[c]-[d ]-[e  ][f                             ][g             ]  
     [b]-[c]-[d ]-[e  ][f                             ][g             ]  
}
end
tables
vetb00003 

attributes
a    = vetb00003.factura, noentry; 
b    = vetb00003.cod_n, noentry; 
c    = vetb00003.cod_grupo, noentry; 
d    = vetb00003.cod_tipo, noentry; 
e    = vetb00003.cod_sec, noentry; 
f    = formonly.descrip1, noentry; 
g    = formonly.unidades1, noentry; 

instructions
     screen record cs_074[4] 
                   (cod_n,cod_grupo,cod_tipo,cod_sec,descrip1,unidades1) 
     delimiters " "

end