database smarmotech   
 LAYOUT (TEXT="CONSULTA TRANSACCIONES REPUESTOS")
  GRID
{
 <g                                                                             >
  Codigo Repuesto  :[a  ][b  ][c  ][d   ][a1                             ] [a2 ]
  Fecha Inicial    :[f1        ] Fecha Final:[f2        ]

<t                                                                              >  
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
 [d2      ][d1    ][des                              ][d4    ][d5    ][d6     ]
}
END
tables
 irtb00002,
 irtb00006
attributes
a      = irtb00002.cod_n,autonext;
b      = irtb00002.cod_grupo,autonext;
c      = irtb00002.cod_tipo,autonext;
d      = irtb00002.cod_sec,autonext;
a1     = irtb00002.descrip_esp,noentry;
a2     = irtb00002.unidad_med,noentry;
des    = formonly.descrip_mov;
DATEEDIT f1     = formonly.fech_in type date,format = "dd/mm/yyyy";
DATEEDIT f2     = formonly.fech_fi type date,format = "dd/mm/yyyy";
 d1     = irtb00006.num_doc,TITLE="DOCUMENTO";
 d2     = formonly.fecha type date,format = "dd/mm/yy",TITLE="FECHA";
d4     = formonly.entrada type decimal(8,2),TITLE="ENTRADAS";    
d5     = formonly.salida type decimal(8,2),TITLE="SALIDAS";     
d6     = formonly.balance type decimal(8,2),TITLE="BALANCE";

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