SCCRCLI;Pesquisa Cliente;sys_tbbrow;12;0;20;79;clivb;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)

VARIAVEL ztEmi=0
VARIAVEL ztVc=0
VARIAVEL ztAv=0
VARIAVEL ztAvHoje=0

VARIAVEL zbCor0 = ""
VARIAVEL zbCor = ""
VARIAVEL zbCor2 = ""
VARIAVEL znAzul0:=16711680
VARIAVEL znAzul1:=10027008
VARIAVEL zAzul2:=16776960
VARIAVEL zWhite:=16777215
VARIAVEL zBlack:=0
VARIAVEL zRed:=255
VARIAVEL zGreen:=32768
VARIAVEL znCinza:=8421504
VARIAVEL zYellow:=65535

VARIAVEL zCorVc := {zRed,zWhite,zWhite,zRed}
VARIAVEL zCorHoje:= {znAzul0,zWhite,zWhite,znAzul0}
VARIAVEL zCorAv:= {8388736,zWhite,zWhite,8388736}
VARIAVEL zCorQtOk:={zGreen,zWhite,zWhite,zGreen}

variavel #TEXTO_FONTE
   //ONINIT
   if sGuiMode
      IF xGetEnv("USA_CORES_NO_BROWSE")="S"
         // Uma definicao de cores pega 4 parametros: {textColor, backColor, textColorSelecionado, backColorSelecionado}
         // Para colocar uma coluna colorida, defina um criterio de cores e adicione no fim da linha a zbCor: hwg_TbFi(D_oB, 'Cod;cr_cod_cli;N;999999;6;N;zbCor;')
         zbCor0:= {||IF(ztVc>0,zCorVc,IF(ztAvHoje>0, zCorHoje, If(ztAv>0,zCorAv,If(ztEmi-ztVc-ztAv>0,zCorQtOk,{d_ob:tcolor,d_ob:bcolor,D_oB:tColorSel,D_oB:bColorSel})) ))}
         zbCor := {||DebCli(sccrcli->(if(cr_cod_cli=0,Recno(),cr_cod_cli)),.f.,.f.,@ztEmi,@ztVc,@ztAv,@ztAvHoje), EVAL(zbCor0) }
         hwg_TbFi(D_oB, 'Nome;Cr_nome;C;@s40;40;N;zbCor;')
         hwg_TbFi(D_oB,'CodCli;if(Cr_Cod_Cli=0,Recno(),Cr_Cod_Cli);P;999999;6;N;')
         hwg_TbFi(D_oB, 'Quitacoes;if(ztEmi-ztVc-ztAv>0,ztEmi-ztVc-ztAv,0);P;999999.99;9;N;zbCor0;')
         hwg_TbFi(D_oB, 'Vencidas;ztVc;P;999999.99;9;N;zbCor0;')
         hwg_TbFi(D_oB, 'A_Vencer;ztAv;P;999999.99;9;N;zbCor0;')
      ELSE
         hwg_TbFi(D_oB, 'Nome;Cr_nome;C;@s40;40;N;')
         hwg_TbFi(D_oB,'CodCli;if(Cr_Cod_Cli=0,Recno(),Cr_Cod_Cli);P;999999;6;N;')
      ENDIF
      hwg_TbFi(D_oB, 'Ult Comp;tv_desd(recno());C;@s9;9;;')
      hwg_TbFi(@D_oB,"CGC/CPF;Cr_cgc;C;@s18;18;S;")
      hwg_TbFi(D_oB, 'Vd;CR_ZONA;C;99;2;N;')
      hwg_TbFi(D_oB, 'T;cr_tip_cli;C;9;1;N;')
      hwg_TbFi(D_oB, 'Tb;cr_tabela;N;99;2;S;')
   else
      hwg_TbFi(@D_oB,"CodCli;if(Cr_Cod_Cli=0,rec_del(),Cr_Cod_Cli);N;999999;6;N;")
      hwg_TbFi(@D_oB,"Nome;Cr_nome;C;@s20;20;N;")
      hwg_TbFi(@D_oB,"CGC/CPF;Cr_cgc;C;@s18;18;S;")
      hwg_TbFi(D_oB, 'Vd;CR_ZONA;C;99;2;N;')
      hwg_TbFi(D_oB, 'T;cr_tip_cli;C;9;1;N;')
      hwg_TbFi(D_oB, 'Tb;cr_tabela;N;99;2;S;')
      hwg_TbFi(@D_oB,"Ult Comp;tv_desd(recno());C;@s9;9;;")
   endif
   hwg_TbFi(D_oB, 'Fone;Cr_fone;C;@s15;15;N;')
   hwg_TbFi(D_oB, 'Bairro;Cr_bairro;C;@s30;30;S;')
   hwg_TbFi(D_oB, 'Rua;Cr_rua;C;@s40;40;N;')
   hwg_TbFi(@D_oB,"Cod;cr_cod_cli;N;999999;6;N;")
   hwg_TbFi(@D_oB,'Acesso;rec_del();N;999999;6;N;')
   hwg_TbFi(@D_oB,"gp;cr_TabGp;C;x;2;S;")
   hwg_TbFi(@D_oB,"Ponto Ref;Cr_PONTORE;C;@s30;30;N;")
   hwg_TbFi(@D_oB,"Contato;Cr_contato;C;@s15;15;N;")
   hwg_TbFi(@D_oB,"Cidade;Cr_cidade;C;@s20;25;N;")
   hwg_TbFi(@D_oB,"CEP;Cr_CEP;C;@s9;9;N;")
   hwg_TbFi(@D_oB,"UF;Cr_UF;C;xx;2;N;")
   hwg_TbFi(@D_oB,"Fantasia;Cr_fantasi;C;@s30;30;N;")
   //ENDONINIT
   //ONDLGINIT
      // oDlg:Maximize()
   //ENDDLGINIT
#FIM_TEXTO_FONTE

comando depois znil:=x_operacao=1.and.m_cr_cod_cli<>sccrcli->(Recno()).and.sccrcli->(RegLock(),_FIELD->cr_cod_cli:=RecNo(),DbCommit(),DbUnlock()),.t.)

:TBMT
 80;tb_pesq(D_OB);P-Pesquisa ;
 22;tb_insert(D_OB);Ins-Inclui ;
 13;psq_enter();Enter-Confirma ;
 32;vb_ass_cli();Barra-Associados ;
 65;tb_update(D_OB);A-Altera ;
 79;tb_index(D_oB);O-Ordena ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
  69;vb_dup_cli();E-Extrato ;
 70;CiBrow("sccrdup",,"SCCRDPC2");F-Fechamentos ;
 -7;Relat( "vb_r5(.f.,"+str(recno(),5)+")",,"SemDbCloseall" );F8-Extrato de Produtos;
