Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 19

changes.mady.by.user Rafael Tenorio da Costa

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rafael Tenorio da Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Dica
titleIntegrando InventarioCliente

Abaixo iremos mostrar como configurar o Processo de Cliente no Protheus para integra-lo com o sistema Totvs Live. Siga o Passo a Passo.

Aviso
titleImportante
  1. É obrigatório a criação do campo A1_MSEXP, para que não ocorra um loop infinito, quando o processo de CLIENTE está ativo para BUSCA e ENVIO no mesmo assinante.
  2. Clientes com o conteúdo da tag TipoCliente = "INFORMAL" vindo do TVFR não são integrados porque, para o Protheus não existe este tipo, são permitidos clientes pessoa FISICA ou JURÍDICA.

Cadastrando o Processo de Cliente

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+A1_LOJA

Vinculando o Processo de Cliente ao Assinante Live


1- No módulo 12 (Controle de Lojas), acesse Atualizações/ RMI/ Cadastros/ Assinantes.

...

Ativo: Sim

Tipo Process: Busca

Filiais Proc: Informe o código de apenas uma filial para buscar o Processo. (todas as lojas abaixo do sistema satélite serão retornadas)

Configuração: Preencha esta campo de acordo com a sua URL da API  Cliente, como mostra o exemplo abaixo:

...

Bloco de código
{
	"A1_FILIAL": "&xFilial('SA1')",
	"A1_NOME": "&SubStr(self:oRegistro:_Nome_RazaoSocial:Text,1,TamSX3('A1_NOME')[1])",
	"A1_TIPO": "&IIF(Alltrim(self:oRegistro:_TipoClassificacaoClienteCodigo:Text) == '2','R','F')",
	"A1_LOJA": "&SuperGetMV('MV_LOJAPAD',.F., '01')",
	"A1_NREDUZ": "&SubStr(self:oRegistro:_ApelidoNome_RazaoSocial:Text,1,TamSX3('A1_NREDUZ')[1])",
	"A1_CGC": "&self:oRegistro:_CPF_CNPJ:Text",
	"A1_PESSOA": "&IIF(UPPER(Alltrim(self:oRegistro:_TipoCliente:Text)) == 'JURIDICA','J','F')",
	"A1_BAIRRO": "&self:oRegistro:_LISTAENDERECOSSAIDA:_LC_ENDERECOSAIDA:_BAIRRO:Text",
	"A1_CEP": "&StrTran( self:oRegistro:_LISTAENDERECOSSAIDA:_LC_ENDERECOSAIDA:_CEP:TEXT, '-', '' )",
	"A1_EST": "&self:oRegistro:_LISTAENDERECOSSAIDA:_LC_ENDERECOSAIDA:_Estado:Text",
	"A1_COMPLEM": "&self:oRegistro:_LISTAENDERECOSSAIDA:_LC_ENDERECOSAIDA:_Complemento:Text",
	"A1_END": "&self:oRegistro:_LISTAENDERECOSSAIDA:_LC_ENDERECOSAIDA:_LOGRADOURO:Text",
	"A1_COD_MUN": "&SUBSTR(self:oRegistro:_LISTAENDERECOSSAIDA:_LC_ENDERECOSAIDA:_Cidade_NumeroMunicipioIBGE:Text,3,5)",
	"A1_DDD": "&IIF(!EMPTY(self:oRegistro:_LISTATELEFONESSAIDA:TEXT),Iif(ValType(self:oRegistro:_LISTATELEFONESSAIDA:_LC_TELEFONESAIDA) == 'A',self:oRegistro:_LISTATELEFONESSAIDA:_LC_TELEFONESAIDA[1]:_DDD:TEXT,self:oRegistro:_LISTATELEFONESSAIDA:_LC_TELEFONESAIDA:_DDD:TEXT),'11')",
	"A1_TEL": "&IIF(!EMPTY(self:oRegistro:_LISTATELEFONESSAIDA:TEXT),Iif(ValType(self:oRegistro:_LISTATELEFONESSAIDA:_LC_TELEFONESAIDA) == 'A',self:oRegistro:_LISTATELEFONESSAIDA:_LC_TELEFONESAIDA[1]:_NUMERO:TEXT,self:oRegistro:_LISTATELEFONESSAIDA:_LC_TELEFONESAIDA:_NUMERO:TEXT),'31110300')",
	"A1_MSBLQL": "&IIF(UPPER(Alltrim(self:oRegistro:_Inativo:Text))=='FALSE','2','1')",
	"A1_DTNASC": "&self:oRegistro:_DataNascimento:Text",
	"A1_EMAIL": "&StrTran( IIF( XmlChildEx(self:oRegistro:_LISTAENDERECOSELETRONICOSAIDA, '_LC_ENDERECOELETRONICOSAIDA') <> Nil, IIF(ValType(self:oRegistro:_LISTAENDERECOSELETRONICOSAIDA:_LC_ENDERECOELETRONICOSAIDA) == 'A', self:oRegistro:_LISTAENDERECOSELETRONICOSAIDA:_LC_ENDERECOELETRONICOSAIDA[1]:_DESCRICAO:TEXT, self:oRegistro:_LISTAENDERECOSELETRONICOSAIDA:_LC_ENDERECOELETRONICOSAIDA:_DESCRICAO:TEXT), '' ), '´', '')"
}

...