ARR_VCRT;Venda por Cartoes;sys_tbbrow; 3; 15;20;70;arr_vnd;;
:SKEL
VARIAVEL W_footSEP = "="
:TBMT
13;exib_rut1(12, v_vnd, nrow);Enter-Lojas ;
:TBFI
Cartao;StrZero( v_vnd[nrow,1], 3)+"-"+v_vnd[nrow,2];C;@s25;25;;
Venda;v_vnd[nrow,3];N;999,999,999;11;;
%;100*if(m_fval>0,v_vnd[nrow,3]/m_fval,0);N;999.9%;6;;
:TBFO
"=> Totais:";
Transform( m_fval, "@E 999,999,999");
Transform( 100 ,"@E 999.9" )+"%";
