TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idtipolocal	integer	IN
idtipolocal_externalid	character varying	IN
descricao	character varying	IN
numeromatricula	character varying	IN
cgc	character varying	IN
rg	character varying	IN
bairro	character varying	IN
cep	character varying	IN
inscricaoestadual	character varying	IN
inscricaomunicipal	character varying	IN
logradouro	character varying	IN
numerologradouro	character varying	IN
complemento	character varying	IN
idcidade	integer	IN
idcidade_externalid	character varying	IN
idnativo	integer	IN
externalid	character varying	IN
idcliente	integer	IN
idcliente_externalid	character varying	IN

Definition

declare	
	sgltipopessoa varchar(10);	
	idunidadefederativa integer;	
	curdate date;
begin  		
	curdate = current_date;

-- VALIDACAO EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutClienteLocal.externalid,'')='' and PutClienteLocal.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutClienteLocal.externalid, PutClienteLocal.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if;

--IDNATIVO FORA DO PADRAO 
		if idnativo not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnativo = %', idnativo
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;

-- LOOKUP CLIENTE LOCAL
		IF PutClienteLocal.internalid IS NULL 
		THEN PutClienteLocal.internalid = (SELECT IDLOCAL FROM LOCAL WHERE CODIGOERP = PutClienteLocal.externalid);
		END IF;

-- CLIENTE
		IF PutClienteLocal.idcliente IS NULL AND PutClienteLocal.idcliente_externalid IS NOT NULL
			THEN PutClienteLocal.idcliente = (SELECT C2.idparceiro FROM parceiro C2 WHERE C2.CODIGOERP = PutClienteLocal.idcliente_externalid);
		END IF;

if PutClienteLocal.idcliente is null then 
			RAISE EXCEPTION 'idcliente = %', idcliente
				USING HINT = 'Field idcliente must be not null';
		end if; 
			-- TIPO PESSOA
			sgltipopessoa = (SELECT C2.sgltipopessoa FROM parceiro C2 WHERE C2.idparceiro = PutClienteLocal.idcliente);

-- TIPOLOCAL
		IF PutClienteLocal.idtipolocal IS NULL AND PutClienteLocal.idtipolocal_externalid IS NOT NULL
			THEN PutClienteLocal.idtipolocal = (SELECT C2.idtipolocal FROM tipolocal C2 WHERE C2.CODIGOERP = PutClienteLocal.idtipolocal_externalid);
		END IF;

if PutClienteLocal.idtipolocal is null then 
			RAISE EXCEPTION 'idtipolocal = %', PutClienteLocal.idtipolocal
				USING HINT = 'Field idtipolocal must be not null';
		end if;

-- CIDADE
		IF PutClienteLocal.idcidade IS NULL AND PutClienteLocal.idcidade_externalid IS NOT NULL
			THEN PutClienteLocal.idcidade = (SELECT C2.idcidade FROM cidade C2 WHERE C2.CODIGOERP = PutClienteLocal.idcidade_externalid);
		END IF;	
			
		if PutClienteLocal.idcidade is null then 
			RAISE EXCEPTION 'idcidade = %', PutClienteLocal.idcidade
				USING HINT = 'Field idcidade must be not null';
		end if; 
			-- UNIDADE FEDERATIVA
			idunidadefederativa = (SELECT C2.idunidadefederativa FROM cidade C2 WHERE C2.idcidade = PutClienteLocal.idcidade);

-- UPDATE
	update local set 
		idnativo = case when PutClienteLocal.idnativo = -99999 then local.idnativo else PutClienteLocal.idnativo end, 
		descricao = case when PutClienteLocal.descricao = 'NOVALUEWS' then local.descricao else PutClienteLocal.descricao end, 
		numeromatricula = case when PutClienteLocal.numeromatricula = 'NOVALUEWS' then local.numeromatricula else PutClienteLocal.numeromatricula end, 
		bairro = case when PutClienteLocal.bairro = 'NOVALUEWS' then local.bairro else PutClienteLocal.bairro end, 
		cnpj = case when PutClienteLocal.cgc = 'NOVALUEWS' then local.cnpj else PutClienteLocal.cgc end, 
		documentoidentificacao = case when PutClienteLocal.rg = 'NOVALUEWS' then local.documentoidentificacao else PutClienteLocal.rg end, 
		cep = case when PutClienteLocal.cep = 'NOVALUEWS' then local.cep else PutClienteLocal.cep end, 
		inscricaoestadual = case when PutClienteLocal.inscricaoestadual = 'NOVALUEWS' then local.inscricaoestadual else PutClienteLocal.inscricaoestadual end, 
		inscricaomunicipal = case when PutClienteLocal.inscricaomunicipal = 'NOVALUEWS' then local.inscricaomunicipal else PutClienteLocal.inscricaomunicipal end, 
		logradouro = case when PutClienteLocal.logradouro = 'NOVALUEWS' then local.logradouro else PutClienteLocal.logradouro end, 
		numerologradouro = case when PutClienteLocal.numerologradouro = 'NOVALUEWS' then local.numerologradouro else PutClienteLocal.numerologradouro end, 
		complemento = case when PutClienteLocal.complemento = 'NOVALUEWS' then local.complemento else PutClienteLocal.complemento end,
		dataultimaatualizacao = curdate, 
		idcidade = case when PutClienteLocal.idcidade = -99999 then local.idcidade else PutClienteLocal.idcidade end, 
		idunidadefederativafiscal = case when PutClienteLocal.idcidade = -99999 then local.idunidadefederativafiscal else idunidadefederativa end,
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then codigoerp else PutClienteLocal.externalid end
	where idlocal = internalid ;

update localidentificacao set 
		documentoidentificacao = case when PutClienteLocal.cgc = 'NOVALUEWS' then localidentificacao.documentoidentificacao else PutClienteLocal.cgc end,
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then codigoerp else PutClienteLocal.externalid end
	where idlocal = internalid
	AND idtipoidentificacao = (select idtipoidentificacao from tipoidentificacao where sigla = CASE WHEN sgltipopessoa = 'PJ' THEN 'cnpj' ELSE 'cpf' END);
	
	update localidentificacao set 
		documentoidentificacao = case when PutClienteLocal.inscricaoestadual = 'NOVALUEWS' then localidentificacao.documentoidentificacao else PutClienteLocal.inscricaoestadual end
	where idlocal = internalid
	AND idtipoidentificacao = (select idtipoidentificacao from tipoidentificacao where lower(sigla) = 'inscricaoestadual');
	
	update localidentificacao set 
		documentoidentificacao = case when PutClienteLocal.inscricaomunicipal = 'NOVALUEWS' then localidentificacao.documentoidentificacao else PutClienteLocal.inscricaomunicipal end
	where idlocal = internalid
	AND idtipoidentificacao = (select idtipoidentificacao from tipoidentificacao where lower(sigla) = 'inscricaomunicipal');
	
	update parceirolocal set 
		idparceiro = case when PutClienteLocal.idcliente = -99999 then parceirolocal.idparceiro else PutClienteLocal.idcliente end,
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then codigoerp else PutClienteLocal.externalid end
	where idlocal = internalid ;
	
	update localtipolocal set 
		idtipolocal = case when PutClienteLocal.idtipolocal = -99999 then localtipolocal.idtipolocal else PutClienteLocal.idtipolocal end, 
		idnativo = case when PutClienteLocal.idnativo = -99999 then localtipolocal.idnativo else PutClienteLocal.idnativo end,
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then codigoerp else PutClienteLocal.externalid end
	where idlocal = internalid ;

return query select internalid;
END;