ARR_VND;("Vendedores na "+x_tmp[1]);sys_tbbrow; 3; 5;23;79;x;;
:SKEL
VARIAVEL W_footSEP = "="
VARIAVEL Z_BLOCK = {|x_vnd| sf_vend->(dbgoto(x_vnd)), if(fnumero>0,if(ffg_demit," - d -"," m"+strzero(fnumero,4))+" "+sf_vend->nome," c"+strzero(x_vnd,4)+" -Inativo-") }

:TBMT
:TBFI
Rk Vendedor;Str(nrow,3)+" "+eval( z_block, v_vnd[nrow,1]);C;@s25;25;;
Na Loja x Geral;Transform(v_vnd[nrow,2],"@E 999,999")+if(v_vnd[nrow,6]=v_vnd[nrow,2],"        ","x"+Transform(v_vnd[nrow,6],"@E 999,999"));N;@s15;15;;
%Loja %Ger;Str(if(x_tmp[4]>0,100*v_vnd[nrow,2]/x_tmp[4],0),5,1)+"% "+Str(if(x_tmp[17]>0,10*100*v_vnd[nrow,2]/x_tmp[17],0),5,1)+"%";C;@s13;13;;
Unids  Cups;Transform( v_vnd[nrow,4],"@e 99999")+" "+Transform( v_vnd[nrow,5],"@e 99999");N;@s11;11;;
:TBFO
"    Venda da "+x_tmp[1]+":";
Transform( x_tmp[4], "@E 999,999");
Str(if(x_tmp[17]>0,100*x_tmp[4]/x_tmp[17],0),5,1)+"% Geral";
" ";
