database smarmotech   
screen
{

         Fecha Inicial   [f1        ]
         Fecha Final     [f2        ]
         Codigo Suplidor [cs][c6   ]
         Tipo Documento  [dc      ]
         Documento       [dt      ]

}
end
tables
cptb00001
attributes
DATEEDIT f1 = formonly.fecha_in type date,format = "dd/mm/yyyy";
DATEEDIT f2 = formonly.fecha_fi type date,format = "dd/mm/yyyy";
cs = cptb00001.cod_sp;
c6 = formonly.cod_sp_Sec;
dt = formonly.num_doc;
dc = cptb00001.tipo_doc,upshift,include =("NC","ND","CK","CP","FT"),comments =
"NC=NOTA CREDITO   ND=NOTA DEBITO  CK=CHEQUE  CP=PREPAGO  FT=FACTURA";
instructions delimiters " "
end