SCCRCLI;Clientes por Curva ABC;sys_tbbrow; 8;0;20;79;clitv;;
:SKEL
VARIAVEL Z_NIL=DbClearIndex()
COMANDO ANTES Z_NIL = Mensagem("Aguarde...Classificando Clientes em ABC...")
COMANDO ANTES Z_NIL = DBCREATEINDEX(R_SIGA-"ntx\$CLITVAB","If(!cr_abc$'ABC','Z',Cr_Abc)+Cr_Nome",_CreateBlock("if(!cr_abc$'ABC','Z',Cr_Abc)+Cr_Nome"))
COMANDO ANTES Z_NIL = DbGoTop()
COMANDO DEPOIS Z_NIL=DbClearIndex()
COMANDO DEPOIS Z_NIL = FERASE(R_SIGA-"TMP\$CLITVAB"-ORDBAGEXT())
:TBMT
 80;tb_pesq(D_OB);P-Pesquisa ;
 13;vb_venda("V","N",.F.,recno(),d_ob);D-Venda ;
 93;CiBrow("Sd_Cli",,"sd_cli0");]-Compras ;
 -7;Relat( "vb_r5(.f.,"+str(recno(),5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;
 81;vb_quit_dupl(D_oB);Q-Quitacao ;
 69;vb_dup_cli();E-Cupons ;
 79;tb_index(D_oB);O-Ordena ;
 76;tb_locate(D_OB);L-Localiza ;
 65;tb_update(D_OB);A-Altera;
 32;doget(D_ob);Barra-Edita ;
:TBFI
* Nome;Cr_Abc+" "+Cr_nome;C;@s35; 32;;
Fone;Cr_fone;C;@s10; 10;;
MedMes;cr_compmed;N;999999;6;;
Cli Desd;cr_dt_desd;D;;8;;
Ult Compra;tv_desd(recno());C;@s9;  9;;
MaiorM;cr_cota;N;999999;6;;
UltCmp;cr_vl_ulti;N;999999;6;;
Bairro;Cr_bairro;C;@s14; 14;;
T;cr_tip_cli;C;9;  1;;
O;cr_tip_DES;N;9;  1;;
Cod;rec_del();C;X99999;6;;
Rua;Cr_rua;C;@s35; 35;;
Ponto Ref;Cr_PONTORE;C;@s30; 30;;
Contato;Cr_contato;C;@s15; 15;;
CGC/CPF;Cr_cgc;C;@s18; 18;;
Cidade;Cr_cidade;C;@s20; 25;;
CEP;Cr_CEP;C;@s9;  9;;
UF;Cr_UF;C;xx;  2;;
