database marmotech   
 screen size 24 by 80
{
 Fecha Inicial [f1      ] Fecha Final [f2      ] 
\g----------------------------------------------------------------------------\g
 No.ord. Tipo Fecha     Codigo   Nombre                          Monto En RD$  
\g----------------------------------------------------------------------------\g
[r1    ][a4][r2       ][r3     ][r4                            ][r5            ]
[r1    ][a4][r2       ][r3     ][r4                            ][r5            ]
[r1    ][a4][r2       ][r3     ][r4                            ][r5            ]
[r1    ][a4][r2       ][r3     ][r4                            ][r5            ]
[r1    ][a4][r2       ][r3     ][r4                            ][r5            ]
[r1    ][a4][r2       ][r3     ][r4                            ][r5            ]

Registros [r7      ]           Total General ====>              [r6           ]
}
tables
 cotb00014,
 cotb00015
attributes
f1 = formonly.fech_in type date,reverse,format = "dd/mm/yy",
   comments = "Digite Primer Rango de Fecha";
f2 = formonly.fech_fi type date,reverse,format = "dd/mm/yy",
   comments = "Digite Segundo Rango de Fecha";
r1 = formonly.num_oc1 ,noentry;
a4 = formonly.tipo1,noentry;
r2 = formonly.fecha1 type date,noentry,format = "dd/mm/yy";
r3 = formonly.codigo_s,noentry;
r4 = formonly.nombre1  ,noentry;
r5 = formonly.Monto1,noentry;
r6 = formonly.total_g,noentry;
r7 = formonly.encontrado,noentry;
instructions
     screen record orden[6] (num_oc1,tipo1,fecha1,codigo_s,nombre1,monto1)
 delimiters " "
end