_CNPJCPF is string=""
_IE is string=""
_xNome is string=""
_xFant is string=""
_fone is string=""
_xLgr is string=""
_nro is string=""
_xCpl is string=""
_xBairro is string=""
_cMun is string=""
_xMun is string=""
_cep is string=""
_UF is string=""
_PaisCod is string=""
_pais is string=""
_email is string=""
HReadSeekFirst(cliente,id_empresa_cliente,conhecimento.codigo_remetente_112)
IF HFound(cliente) THEN
_CNPJCPF=cliente.cnpj_cpf _IE=cliente.inscricao_estadual _xNome=cliente.razao_social_nome _xFant=cliente.nome_fantasia _fone="" IF cliente.telefone<>"" THEN _fone="51" IF cliente.telefone_ddd<>"" THEN _fone=cliente.telefone_ddd END _fone=cliente.telefone END _xLgr=cliente.endereco_rua _nro=cliente.endereco_numero _xCpl=cliente.endereco_complemento _xBairro=cliente.endereco_bairro _cMun=cliente.endereco_cmun _xMun=cliente.endereco_cidade _cep=cliente.endereco_cep _UF=cliente.endereco_uf _PaisCod=cliente.Endereco_cpais _pais=cliente.endereco_pais _email=cliente.email
END
s_CNPJ is string=empresa.cnpj
s_IE is string=empresa.inscricao_estadual
s_xNome is string=empresa.razao_social
s_xFant is string=empresa.nome_fantasia
s_xLgr is string=empresa.endereco_rua
s_nro is string=empresa.endereco_numero
s_xCpl is string=empresa.endereco_complemento
s_xBairro is string=empresa.endereco_bairro
s_cMun is string=empresa.codigo_municipio
s_xMun is string=empresa.endereco_cidade
s_cep is string=empresa.endereco_cep
s_UF is string=empresa.endereco_uf
s_fone is string=""
IF empresa.telefone<>"" THEN s_ddd_telefone is string="51" IF empresa.telefone_ddd="" THEN ELSE s_ddd_telefone=empresa.telefone_ddd END s_fone=s_ddd_telefone+empresa.telefone
END
