SCCRCLI;Clientes Com Debitos Pendentes;sys_tbbrow; 8;0;20;79;clitv;;eval(zbDadosCli);
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zbDtProc:={|nCli| sd_clicb->(cr_cod_cli=nCli.or.dbseek(nCli), cr_dtproc) }
VARIAVEL zbDtMaisAntig:= {|nCli| sd_clicb->(cr_cod_cli=nCli.or.dbseek(nCli), DtMaiorAtr) }
VARIAVEL zbTotAbertas:= {|nCli| sd_clicb->(cr_cod_cli=nCli.or.dbseek(nCli), CR_TVC+CR_TAV)}
VARIAVEL zSaveScreen := if(sGuiMode,'',SAVESCREEN(0,25,5,79))
VARIAVEL z_recno:=Recno()

VARIAVEL zbDadosCli := #TEXTO_FONTE
      Private Z_COR:=SetColor('B/W') , zCli:=cr_cod_cli
      Sd_CliCb->(zCli=cr_cod_cli.or.DbSeek(zCli) , SCCRCLI->(DbGoto(zCli)), Scroll(0,25,5,79,0), DispBox(0,25,5,79) )
      Sd_CliCb->(DevPos(0,27),DevOut("R$ "+Padr(Ltrim(Str(cr_tvc+cr_tav,10,2)),10)+" (Cli "+Str(zCli,6)+") "+Alltrim(Left(Sccrcli->Cr_Nome,26))) )
      Sd_CliCb->(DevPos(1,27),DevOut("("+Str(QtdAberta,4)+" abertas ha "+str(PzMedAbert,7,2)+" dias )  (Desde:"+Dtoc(DtMaiorAtr)+")") )
      Sd_CliCb->(DevPos(2,27),DevOut("("+Str(QtdQuitada,4)+" pagas com  "+str(PzMedQuit,7,2)+" dias )") )
      Sd_CliCb->(DevPos(3,27),DevOut("Contactado em "+Dtoc(cr_dt_cont)+", Carta "+cr_tip_car+" em "+Dtoc(cr_dt_cart)) )
      Sd_CliCb->(DevPos(4,27),DevOut(AllTrim(cr_obs1)) , SetColor(Z_COR) )
#FIM_TEXTO_FONTE

VARIAVEL zbOpenAll := #TEXTO_FONTE
      DbCloseAll()
      ABRA("0NOIDX",R_Siga,"SD_CLICB", "SD_CLICB", "SD_CLICB", "CR_COD_CLI")
      ABRA("0NOIDX",R_Siga,"Sccrcli", "Sccrcli")
      DbSetFilter({||Sd_CliCb->(DbSeek(Sccrcli->(Recno())))},"cr_tvc>0")
      DbGoTo(z_recno)
#FIM_TEXTO_FONTE
VARIAVEL zNil := eVal( zbOpenAll )
VARIAVEL zbExec:= {|bFunc| z_recno:=Recno(), eVal(bFunc), eVal(zbOpenAll)}

COMANDO DEPOIS #TEXTO_FONTE
   SD_CLICB->( DbCloseArea() )
   Sccrcli->(DbCloseArea () )
   if(sGuiMode,'',RESTSCREEN(0,25,5,79,zSaveScreen))
#FIM_TEXTO_FONTE

:TBMT
 -7;(Relat( "vb_r5(.f.,"+ltrim(Str(CR_COD_CLI,6))+")",,"SemDbCloseall" ), eVal(zbOpenAll));F8-Extrato de Produtos;
 81;(vb_quit_dupl(D_oB,.t.,.t.),eVal(zbOpenAll));Q-Prejuizo ;
 69;(vb_dup_cli(CR_COD_CLI),eVal(zbOpenAll));E-Extrato ;
 79;tb_index(D_oB);O-Ordena ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 70;tb_filter(d_ob);F-Filtra ;
 65;tb_update(D_OB);A-Altera;
:TBFI
Razao Social;Cr_nome;C;@s20;20;;
Fantasia;Cr_fantasi;C;@s12;12;N;
Debito;eval(zbTotAbertas,CR_COD_CLI);N;999999;6;;
Mais Ant;Dma_Str( eval(zbDtMaisAntig,CR_COD_CLI) );C;@s9;9;N;
Ult Compra;tv_desd(CR_COD_CLI);C;@s9;9;N;
CNPJ/CPF;Cr_cgc;C;@S8;8;;
CodCli;CR_COD_CLI;N;999999;6;;
Cli Desd;cr_dt_desd;D;;8;;
CNPJ/CPF;Cr_cgc;C;@s18; 18;;
Dt Proc;eval(zbDtProc,CR_COD_CLI);C;@s9;9;N;
Fone;Cr_fone;C;@s10; 10;;
Bairro;Cr_bairro;C;@s14; 14;;
T;cr_tip_cli;C;9;  1;;
O;cr_tip_DES;N;9;  1;;
Rua;Cr_rua;C;@s35; 35;;
Ponto Ref;Cr_PONTORE;C;@s30; 30;;
Contato;Cr_contato;C;@s15; 15;;
Cidade;Cr_cidade;C;@s20; 25;;
CEP;Cr_CEP;C;@s9;  9;;
UF;Cr_UF;C;xx;  2;;