| Dica | ||
|---|---|---|
| ||
Abaixo iremos mostrar como configurar o Processo de Envio Cliente do Protheus para integra-lo com o sistema Totvs Live. Siga o Passo a Passo. |
Para integrarmos o Cliente com o Totvs Live primeiramente é necessário acessar o cadastro do Processo para verificar se o Cliente foi criado automaticamente no Protheus.
...
Chave: A1_FILIAL+A1_COD
1- No módulo 12 (Controle de Lojas), acesse Atualizações/ RMI/ Cadastros/ Assinantes.
...
| Bloco de código |
|---|
&"<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:liv='http://LiveConnector/'>
<soapenv:Header/>
<soapenv:Body>
<liv:ManterClienteLC_Integracao_Xml>
<liv:codigoSistemaSatelite>" + self:oLive:getSatelite(self) + "</liv:codigoSistemaSatelite>
<liv:xmlTicketCliente><![CDATA[<?xml version='1.0'?><LC_TicketCliente>
<Chave>" + self:oLive:getToken(self) + "</Chave>
<CodigoSistemaSatelite>" + self:oLive:getSatelite(self) + "</CodigoSistemaSatelite>
<Data>" + DtoS( Date() ) + "</Data>
<Hora>" + StrTran(Time(), ':', '') + "</Hora>
<Numero>" + RMITImeStamp() + "</Numero>
<Documentos>
<LC_Cliente>
<Apelido>" + self:oPublica['A1_NOME'] + "</Apelido>
<CPF_CNPJ>" + (self:cIdRetaguarda := self:oPublica['A1_CGC']) + "</CPF_CNPJ>
<DataNascimento>" +IIF(!Empty(self:oPublica['A1_DTNASC']),Substr(self:oPublica['A1_DTNASC'],1,4)+'-'+Substr(self:oPublica['A1_DTNASC'],5,2)+'-'+Substr(self:oPublica['A1_DTNASC'],7,2),'2003-10-30')+ "</DataNascimento>
<Inativo>" + IIF(self:oPublica['A1_MSBLQL']=='2','false','true') + "</Inativo>
<Indicacao></Indicacao>
<Nome_RazaoSocial>" + self:oPublica['A1_NOME'] + "</Nome_RazaoSocial>
<Nota>0</Nota>
<NumeroSequencia>1</NumeroSequencia>
<Observacoes>CLIENTE-INTEGRADO-PROTHEUS</Observacoes>
<Sexo>"+IIF(self:oPublica['A1_XXSEXO'] == 'M','0','1')+"</Sexo>
<TipoCliente>" + IIF(self:oPublica['A1_PESSOA'] == 'F','0','1') + "</TipoCliente>
<TipoClassificacaoCliente>1</TipoClassificacaoCliente>
<ListaDocumentosCliente>
<LC_DocumentoCliente>
<Identificacao>" + self:oPublica['A1_CGC'] + "</Identificacao>
<TipoDocumentoCliente>"+IIF(self:oPublica['A1_PESSOA'] == 'F','2','3')+"</TipoDocumentoCliente>
</LC_DocumentoCliente>
</ListaDocumentosCliente>
<ListaEnderecos>
<LC_Endereco>
<Bairro>" + self:oPublica['A1_BAIRRO'] + "</Bairro>
<CEP>" + self:oPublica['A1_CEP'] + "</CEP>
<Cidade_NumeroMunicipioIBGE>" +RmiRetIBGE(self:oPublica['A1_EST'], self:oPublica['A1_COD_MUN']) + "</Cidade_NumeroMunicipioIBGE>
<Complemento>" + self:oPublica['A1_COMPLEM'] + "</Complemento>
<Estado>" + self:oPublica['A1_EST'] + "</Estado>
<Logradouro>" + self:oPublica['A1_END'] + "</Logradouro>
<Numero>0</Numero>
<TipoEndereco>0</TipoEndereco>
</LC_Endereco>
</ListaEnderecos>
<ListaEnderecosEletronico>
<LC_EnderecoEletronico>
<Descricao>"+ IIF(Empty(self:oPublica['A1_EMAIL']),'[email protected]',self:oPublica['A1_EMAIL'])+ "</Descricao>
<TipoEnderecoEletronico>0</TipoEnderecoEletronico>
</LC_EnderecoEletronico>
</ListaEnderecosEletronico>
<ListaTelefones>
<LC_Telefone>
<Complemento></Complemento>
<DDD>" + self:oPublica['A1_DDD'] + "</DDD>
<Numero>" + self:oPublica['A1_TEL'] + "</Numero>
<TipoTelefone>0</TipoTelefone>
</LC_Telefone>
</ListaTelefones>
<ListaLimiteCredito>
<LC_LimiteCredito>
<Ativo>true</Ativo>
<CodigoLoja>"+self:aArrayFil[1][1]+"</CodigoLoja>
<LimiteCredito>" + cValToChar(self:oPublica['A1_LC']) + "</LimiteCredito>
<LimiteMensal>" + cValToChar(self:oPublica['A1_LC']) + "</LimiteMensal>
<NomeContrato>" + self:oPublica['A1_NOME'] + "</NomeContrato>
</LC_LimiteCredito>
</ListaLimiteCredito>
<ListaModalidades>
<LC_Modalidade>
<Codigo>1</Codigo>
<Descricao>Consumidor Final</Descricao>
</LC_Modalidade>
</ListaModalidades>
</LC_Cliente>
</Documentos>
</LC_TicketCliente>]]></liv:xmlTicketCliente>
</liv:ManterClienteLC_Integracao_Xml>
</soapenv:Body>
</soapenv:Envelope>" |
...
