;Obras do Cliente;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL w_fcli:=if(Select('sccrcli')>0,sccrcli->cr_cod_cli,0)
VARIAVEL wccrnome := if(w_fcli>0,AllTrim(sccrcli->cr_nome),'')
VARIAVEL zAreaOrig:=Select('vb_pref')
variavel #TEXTO_FONTE
   if w_fcli>0
      vb_pref->(DbCloseArea())
      Abra ('0NOIDX',r_siga, 'vb_pref','vb_pref', 'vb_pref', 'cr_cod_cli')
      OrdScope(0,w_fcli)
      OrdScope(1,w_fcli)
      dbSetFilter({||cr_cod_cli=w_fcli},'cr_cod_cli=w_fcli')
      dbGOTOP()
      if cr_cod_cli<>w_fcli
         MyKeyb(22)
      endif
   endif
#FIM_TEXTO_FONTE
:TBFI
iObra;fobraNoCli;N;9999;4;S;
Fantasia;cr_fantasi;C;@s20;20;N;
Obra;fobra;N;999999;6;N;
Bairro;Cr_bairro;C;@s12;12;S;
Rua;Cr_rua;C;@s25;20;N;
Cli;Cr_Cod_Cli;N;999999;6;N;
Ponto Ref;Cr_PONTORE;C;@s30;30;N;
Contato;Cr_contato;C;@s15;15;N;
Cidade;Cr_cidade;C;@s20;25;N;
CEP;Cr_CEP;C;@s9;9;N;
UF;Cr_UF;C;xx;2;N;