database marmotech
screen size 24 by 80
{


       Cliente       [a ]-[b   ] 
       Fecha Inicial [f       ]           Fecha Final [g       ]
       --------------------------------------------------------------
                                                       Cantidad       
         Cliente       Nombre                         En Unidades    
       --------------------------------------------------------------
        [h      ][l                             ]   [m             ]  
        [h      ][l                             ]   [m             ]  
        [h      ][l                             ]   [m             ]  
        [h      ][l                             ]   [m             ]  
}
end
tables
vetb00002 

attributes
a    = vetb00002.tipo_cliente, autonext, 
       comments = "Construya Criterio de para Cliente(s)"; 
b    = vetb00002.sec_cliente, autonext, 
       comments = "Construya Criterio de para Cliente(s)"; 
f    = formonly.fech_in type date, format = "dd/mm/yy", autonext, 
       comments = "Digite la Fecha Inicial"; 
g    = formonly.fech_fi type date, format = "dd/mm/yy", autonext, 
       comments = "Digite la Fecha Final"; 
h    = formonly.codigo1, noentry; 
l    = formonly.descrip1, noentry; 
m    = formonly.unidades1, noentry; 

instructions
     screen record cs_104[4] (codigo1, descrip1, unidades1) 
     delimiters " "

end