database smarmotech    
screen size 24 by 80
{

         Fecha Corte     [f         ]          Existencia [f4        ] 
         Codigo Repuesto [a]-[b]-[c ]-[d  ]  Total      [f5        ]
}
end
tables
irtb00002
attributes
f   = formonly.fech_fi type date ,format="dd/mm/yyyy";
f4  = formonly.t_existe,noentry;
f5  = formonly.t_valor,noentry;
a   = irtb00002.cod_n;
b   = irtb00002.cod_grupo;
c   = irtb00002.cod_tipo;
d   = irtb00002.cod_sec;
  instructions
     delimiters " "
end