database smarmotech   
 screen size 24 by 80
{
   Suplidor [r3][r8  ] [r4                                          ]
   Clasificacion [r]
   Fecha Inicial [f1      ] Fecha Final [f2      ]
\g----------------------------------------------------------------------------\g
 No.Ord Tipo  Fecha     Codigo   Nombre                            Monto
\g----------------------------------------------------------------------------\g
[r1    ][a4][r2       ][b      ][b1                            ][r5            ]
[r1    ][a4][r2       ][b      ][b1                            ][r5            ]
[r1    ][a4][r2       ][b      ][b1                            ][r5            ]
[r1    ][a4][r2       ][b      ][b1                            ][r5            ]
[r1    ][a4][r2       ][b      ][b1                            ][r5            ]

                                 Total General ====>           [r6             ]
}
tables
 cotb00014,cotb00001,
 cotb00015
attributes
r3 = cotb00001.cod_sp,autonext,
comments = "Digite el codigo del suplidor o Presione <Esc> para buscar todos";
r8 = cotb00001.cod_sp_sec,autonext;
r4 = cotb00001.nom_sp,noentry;
r  = formonly.pendiente type char,reverse,include = ("P","C","T"),upshift,
    comments = "(P) Pendientes, (C) Cerradas,  (T) Todas";
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";
b  = formonly.codigo_s,noentry;
b1 = formonly.nombre1,noentry;
r5 = formonly.Monto1,noentry;
r6  = formonly.total_g_e1,noentry;
instructions
     screen record orden[5] (num_oc1,tipo1,fecha1,codigo_s,nombre1,monto1)
 delimiters " "
end