VB_SOCIO;Socios da Empresa;sys_tbbrow; 5; 0;20;79;padrao;;
:SKEL
// VB_SOCIO;("Socios "+if(select("sccrcli")>0,AllTrim(sccrcli->cr_nome),""));sys_tbbrow; 3; 0;23;79;padrao;;
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 zAreaSocio:=Select('vb_socio')
variavel #TEXTO_FONTE
   if w_fcli>0
      vb_socio->(DbCloseArea())
      Abra (lTrim(Str(zAreaSocio,3))+'NOIDX',r_siga, 'vb_socio','vb_socio', 'vb_socio', '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
Codigo:;codigo;N;999999;6;;
Nome;NOME;C;@S30; 30;;
CPF;CGC;C;@S14;14;;
Adm;Adm;C;!;3;;
Rg;RG;C;@S20; 20;;
Rua;RUA;C;@S54; 54;;
Bairro;BAIRRO;C;@S49; 49;;
Cidade;CIDADE;C;@S34; 34;;
Uf;UF;C;xxxx;  4;;
Fone;FONE;C;@S50; 50;;
CEP;CEP;C;@S9;  9;;
Obs;OBS;C;@S190;190;;
Cliente;CR_COD_CLI;N;999999;  6;;
