Poner el progress por ejemplo en un job:
{
#avifiles
SysOperationProgress sOP;
ERCustTv
ERCustTv;
ERSalesLine
ERSalesLine;
County County;
Numberof cont;
;
sOP = new
sysoperationprogress(1);
sOP.setAnimation(#aviupdate);
sOP.setTotal(100000,1);
while select
CountyId from County
{
while select
* from ERCustTv
index
hint Countyidx
where ERCustTv.CountyId == County.CountyId &&
ERCustTv.LastSales == NoYes::Yes
exists join ERSalesLine
index hint Phoneidx
where ERSalesLine.Phone ==
ERCustTv.Phone &&
ERSalesLine.AmountMST >= 50
{
cont++;
sOP.setText(strFmt("Clientes %1 ", cont));
sOP.setCount(cont);
}
}
info(int2str(cont));
}
No hay comentarios:
Publicar un comentario