Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:Varejo
Módulo:SigaLoja (Controle de Loja)
Função:RMIENVLIVEOBJ
Ticket:Não há.
Story:DVARLOJ1-5117


02. SITUAÇÃO/REQUISITO

Viabilizar a integração de fornecedores do Protheus para o TOTVS LIVE, utilizando o método ManterFornecedorLC_Integracao_Xml do Live Connector.

03. SOLUÇÃO

Realizado a criação do layout de envio do processo Fornecedor do Protheus para o Live Connector.

04. DEMAIS INFORMAÇÕES

1 - Realizar o cadastro do processo FORNECEDOR a partir da rotina Processos. (RMICADPROC)


2 - Ativar o envio do Processo FORNECEDOR para o Assinante Live, a partir da rotina Assinantes x Processo. (RMICADASSI)


Modelo do JSON para o campo Configuração (MHO_CONFIG):

{
    "url_token": "http://XXXXXXXXXXX/PracticoLive/LiveConnector/XXXXXXXo.svc?wsdl",
    "operacao": "ObterChaveAcessoLC_Integracao",
    "sistemasatelite": "XXXXXX",
    "usuario": "[email protected]",
    "senha": "XXXXXX"
}


Modelo do JSON para o campo Configuração (MHP_CONFIG) no grid Assinantes x Processos:

{
    "url": "http://XXXXXXXXXXX/PracticoLive/LiveConnector/XXXXXXXo.svc?wsdl",
    "operacao": "ManterFornecedorLC_Integracao_Xml",
    "tagretorno": "<LC_Retorno>"
}


Modelo com o layout que será enviado ao Live, copiar o conteúdo do arquivo e colocar dentro do campo (MHP_LAYENV):

&"<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:liv='http://LiveConnector/'>
   <soapenv:Header/>
   <soapenv:Body>
      <liv:ManterFornecedorLC_Integracao_Xml>
         <liv:codigoSistemaSatelite>" + self:oConfAssin['sistemasatelite'] + "</liv:codigoSistemaSatelite>
         <liv:xmlTicketFornecedor><![CDATA[<?xml version='1.0'?>
				<LC_TicketFornecedor>
					<Chave>" + self:cToken + "</Chave>
					<CodigoSistemaSatelite>" + self:oConfAssin['sistemasatelite'] + "</CodigoSistemaSatelite>
					<Data>" + DtoS( Date() ) + "</Data>
					<Hora>" + StrTran(Time(), ':', '') + "</Hora>
					<Numero>" + FwTimeStamp(1) + "</Numero>
					<Documentos>
						<LC_Fornecedor>
							<NumeroSequencia>0</NumeroSequencia>
							<Apelido>" + self:oPublica['A2_NREDUZ'] + "</Apelido>
							<CPF_CNPJ>" + self:oPublica['A2_CGC'] + "</CPF_CNPJ>
							<DataNascimento>" + IIF(Empty(Self:oPublica['A2_DTNASC']),'1990-01-01T00:00:00', SubStr(Self:oPublica['A2_DTNASC'],1,4) + "-" + SubStr(Self:oPublica['A2_DTNASC'],5,2) + "-" + SubStr(Self:oPublica['A2_DTNASC'],7,2)+ 'T00:00:00') +"</DataNascimento>
							<Inativo>false</Inativo>
							<ListaDocumentosFornecedor>
								<LC_DocumentoFornecedor>
									<Identificacao>" + self:oPublica['A2_CGC'] + "</Identificacao>
									<TipoDocumentoFornecedor>" +IIF(self:oPublica['A2_TIPO']== 'J','3','2') + "</TipoDocumentoFornecedor>
								</LC_DocumentoFornecedor>
							</ListaDocumentosFornecedor>
							<ListaEnderecos>
								<LC_Endereco>
									<Bairro>" + self:oPublica['A2_BAIRRO'] + "</Bairro>
									<CEP>" + self:oPublica['A2_CEP'] + "</CEP>
									<Cidade_NumeroMunicipioIBGE>3550308</Cidade_NumeroMunicipioIBGE>
									<Complemento>" + self:oPublica['A2_COMPLEM'] + "</Complemento>
									<Estado>" + self:oPublica['A2_EST'] + "</Estado>
									<Logradouro>" + self:oPublica['A2_END'] + "</Logradouro>
									<Numero>"+ AllTrim(StrTran(SubStr(self:oPublica['A2_END'],AT( ",", self:oPublica['A2_END'] )),",","")) +"</Numero>
									<TipoEndereco>Principal</TipoEndereco>
								</LC_Endereco>
							</ListaEnderecos>
							<ListaEnderecosEletronico/>
							<ListaTelefones/>
							<Nome_RazaoSocial>" + self:oPublica['A2_NOME'] + "</Nome_RazaoSocial>
							<Sexo></Sexo>
							<TipoFornecedor>" +IIF(self:oPublica['A2_TIPO']== 'J','Juridica','Fisica') + "</TipoFornecedor>
						</LC_Fornecedor>
					</Documentos>
				</LC_TicketFornecedor>
			]]></liv:xmlTicketFornecedor>
      </liv:ManterFornecedorLC_Integracao_Xml>
   </soapenv:Body>
</soapenv:Envelope>"


05. ASSUNTOS RELACIONADOS