EFD_0150;0150 - Cadastro de Emitentes;sys_tbbrow;10; 0;23;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
COMANDO ANTES ZNIL = ABRA_ARQ('VB_MUNIC')
COMANDO ANTES ZNIL = VB_MUNIC->(DbSetOrder(2))
COMANDO ANTES ZNIL = DBSELECTAREA('EFD_0150')
VARIAVEL Z_XTELA = SAVESCREEN(3,0,9,79)
VARIAVEL z_blkPpo =            "Z_COR := SetColor('R/W'),Scroll(2,0,9,79,0),DispBox(2,0,9,79), vb_munic->(DbSeek(efd_0150->cod_mun)),"
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(3,2), DevOut(pad("COD_PART: "+COD_PART+"  NOME:"+NOME,76)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,2), DevOut(pad("ENDERECO: "+Alltrim(END)+" NUM:"+num+" BAIRRO:"+BAIRRO,76)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(6,2), DevOut(pad("COD_MUN : "+STR(COD_MUN,7)+" - "+vb_munic->(uf+" "+cidade),76)),'
VARIAVEL z_blkPpo = z_blkPpo + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_blkPpo )
VARIAVEL zBlkMun = {|nCodMun| vb_munic->(dbseek(nCodMun)), vb_munic->(uf+" "+cidade) }
COMANDO DEPOIS Z_NIL = RESTSCREEN(3,0,9,79,Z_XTELA)
:TBMT
 13;doget(D_ob);Enter-Edita ;
 63;hGetCNPJwww(lTrim(Str(Val(Cod_Part),14)));?-Pesq.Cod.Mun ;
  7;tb_del(D_ob);DEL-DELeta ;
 32;tb_cons();Barra-Exibe ;
 65;tb_update(D_OB);A-Altera ;
 22;tb_insert(D_OB);Ins-Inclui ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
:TBFI
COD_PART;COD_PART;C;@S14; 14;;
NOME;NOME;C;@S60; 30;;
COD_MUN;COD_MUN;N;9999999;  7;;
Municipio;Eval(zBlkMun,COD_MUN);C;@S20;20;N;
CNPJ;CNPJ;N;99999999999999; 14;;
CPF;CPF;N;99999999999; 11;;
IE;IE;C;@S14; 14;;
END;END;C;@S60; 60;;
NUM;NUM;C;@S10; 10;;
COMPL;COMPL;C;@S60; 60;;
BAIRRO;BAIRRO;C;@S20; 20;;
COD_PAIS;COD_PAIS;N;99999;  5;;
SUFRAMA;SUFRAMA;C;@S9;  9;;
AAAAMM;AAAAMM;C;@S6;  6;;
REG;REG;C;xxxx;  4;;
