database smarmotech
 screen
{
     Codigo Maquina [mq1                            ] [mq3         ]         
     Fecha:Inicial  [f1        ]           Final   [f2        ]

     Repuesto       [a ]-[b   ]-[b1  ]-[b2   ] 
\g-----------------------------------------------------------------------------\g
 Repuesto                              Fecha     Docum.  Cantidad   Usa Acum.
\g-----------------------------------------------------------------------------\g
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
[co        ][r1                      ][f3      ][d     ][c1       ][c2        ]
}
end 
tables
irtb00006
irtb00009
irtb00002
attributes
COMBOBOX mq1 = formonly.codigo;
mq2 = irtb00009.nombre,color=blue,noentry;
mq3 = irtb00009.modelo,color=blue,noentry;
co  = formonly.codigo_r;
f1  = formonly.fecha_in type date,color=blue,format = "dd/mm/yy";
f2  = formonly.fecha_fi type date,color=blue,format = "dd/mm/yy";
a   = irtb00006.cod_n,color=blue,autonext,default = 7,noentry;
b   = irtb00006.cod_grupo,color=blue,autonext;
b1  = irtb00006.cod_tipo,color=blue,autonext;
b2  = irtb00006.cod_sec,color=blue,autonext;

r1  = formonly.descripcion type char,upshift,color=blue;
f3  = irtb00006.fecha,color=blue,noentry,format = "dd/mm/yy";
d   = irtb00006.num_doc,color=blue,noentry;
c1  = irtb00006.cantidad_2,color=blue,noentry;
c2  = formonly.balance1 type decimal,color=blue,noentry;
instructions  
  screen record p_pant[8](codigo_r,descripcion,fecha,
                           num_doc,cantidad_2,
                           balance1)
delimiters" "
end