database rayovac 
 screen size 24 by 80
{

 Codigo Materia Prima :[a]-[b]-[c ]-[d  ] [a1                            ] [a2 ]
 Bodega:  [h ]
 Fecha Inicial:[f1        ] Fecha Final:[f2        ]
\g------------------------------------------------------------------------------\g
                                   C a n t i d a d
 Fecha        Documento        Entrada         Salida             Balance   
\g------------------------------------------------------------------------------\g


  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
  [d2        ][d1         ][d4            ] [d5            ]  [d6             ]
}
tables
 intb00001,
 intb00002,
 intb00006
attributes
a      = intb00001.cod_n,autonext;
b      = intb00001.cod_grupo,autonext;
c      = intb00001.cod_tipo,autonext;
d      = intb00001.cod_sec,autonext;
a1     = intb00001.descrip_esp,noentry;
a2     = intb00001.unidad_med,noentry;
h      = intb00006.bodega,autonext;
f1     = formonly.fech_in type date,format = "dd/mm/yyyy";
f2     = formonly.fech_fi type date,format = "dd/mm/yyyy";
 d1     = intb00006.num_doc;
 d2     = formonly.fecha type date,format = "dd/mm/yyyy";
d4     = formonly.entrada;    
d5     = formonly.salida;     
d6     = formonly.balance;

 instructions
     screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance)
delimiters " "
end