Files
MBS/PROYECTO/codir/cofmcs007.per
T

38 lines
1.6 KiB
Plaintext

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