TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
numeromatricula	character varying	IN
cnpj	character varying	IN
bairro	character varying	IN
cep	character varying	IN
inscricaoestadual	character varying	IN
inscricaomunicipal	character varying	IN
logradouro	character varying	IN
numero	character varying	IN
complemento	character varying	IN
idcidade	integer	IN
idcidade_externalid	character varying	IN
idnativo	integer	IN
externalid	character varying	IN
homepage	character varying	IN
nomefantasia	character varying	IN
razaosocial	character varying	IN

Definition

declare	
	idparceiro_ integer;
	idunidadefederativa integer;	
	curdate date;
begin
	curdate = current_date;

-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutFilialLocal.externalid,'')='' and PutFilialLocal.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutFilialLocal.externalid, PutFilialLocal.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;  
		
		--RAZAO SOCIAL NULA
		if razaosocial is null then 
			RAISE EXCEPTION 'razaosocial = %', razaosocial
				USING HINT = 'Field razaosocial must be not null';
		end if; 
		
		--NOME FANTASIA NULO
		if nomefantasia is null then 
			RAISE EXCEPTION 'nomefantasia = %', nomefantasia
				USING HINT = 'Field nomefantasia must be not null';
		end if;	
		
		--DESCRICAO NULA
		if descricao is null or descricao = '' then 
			RAISE EXCEPTION 'descricao = %', descricao
				USING HINT = 'Field descricao must be not null';
		end if;
	 
	-- LOOKUP
		-- FILIAL LOCAL
		IF PutFilialLocal.internalid IS NULL 
		THEN PutFilialLocal.internalid = (SELECT IDLOCAL FROM LOCAL WHERE CODIGOERP = PutFilialLocal.externalid);
		END IF;
			-- PARCEIRO
			idparceiro_ = (SELECT distinct C2.idparceiro FROM parceirolocal C2 WHERE C2.idlocal = PutFilialLocal.internalid limit 1);
		
		-- CIDADE
		IF PutFilialLocal.idcidade IS NULL AND PutFilialLocal.idcidade_externalid IS NOT NULL
			THEN PutFilialLocal.idcidade = (SELECT C2.idcidade FROM cidade C2 WHERE C2.CODIGOERP = PutFilialLocal.idcidade_externalid);
		END IF;	
		if PutFilialLocal.idcidade is null then 
			RAISE EXCEPTION 'idcidade = %', PutFilialLocal.idcidade
				USING HINT = 'Field idcidade must be not null';
		end if; 		
			-- UF
			idunidadefederativa = (SELECT C2.idunidadefederativa FROM cidade C2 WHERE C2.idcidade = PutFilialLocal.idcidade);

-- UPDATE		
	update local set 
		idnativo = case when PutFilialLocal.idnativo = -99999 then local.idnativo else PutFilialLocal.idnativo end, 
		descricao = case when PutFilialLocal.descricao = 'NOVALUEWS' then local.descricao else PutFilialLocal.descricao end, 
		numeromatricula = case when PutFilialLocal.numeromatricula = 'NOVALUEWS' then local.numeromatricula else PutFilialLocal.numeromatricula end, 
		bairro = case when PutFilialLocal.bairro = 'NOVALUEWS' then local.bairro else PutFilialLocal.bairro end, 
		cnpj = case when PutFilialLocal.cnpj = 'NOVALUEWS' then local.cnpj else PutFilialLocal.cnpj end, 
		cep = case when PutFilialLocal.cep = 'NOVALUEWS' then local.cep else PutFilialLocal.cep end, 
		inscricaoestadual = case when PutFilialLocal.inscricaoestadual = 'NOVALUEWS' then local.inscricaoestadual else PutFilialLocal.inscricaoestadual end, 
		inscricaomunicipal = case when PutFilialLocal.inscricaomunicipal = 'NOVALUEWS' then local.inscricaomunicipal else PutFilialLocal.inscricaomunicipal end, 
		logradouro = case when PutFilialLocal.logradouro = 'NOVALUEWS' then local.logradouro else PutFilialLocal.logradouro end, 
		numerologradouro = case when PutFilialLocal.numero = 'NOVALUEWS' then local.numerologradouro else PutFilialLocal.numero end, 
		complemento = case when PutFilialLocal.complemento = 'NOVALUEWS' then local.complemento else PutFilialLocal.complemento end,
		dataultimaatualizacao = curdate, 
		idcidade = case when PutFilialLocal.idcidade = -99999 then local.idcidade else PutFilialLocal.idcidade end, 
		idunidadefederativafiscal = case when PutFilialLocal.idcidade = -99999 then local.idunidadefederativafiscal else idunidadefederativa end,
		codigoerp = case when PutFilialLocal.externalid = 'NOVALUEWS' then codigoerp else PutFilialLocal.externalid end
	where idlocal = PutFilialLocal.internalid ;
	
	update parceiro set 
		idnativo = case when PutFilialLocal.idnativo = -99999 then parceiro.idnativo else PutFilialLocal.idnativo end, 
		nomeparceiro = case when PutFilialLocal.razaosocial = 'NOVALUEWS' then parceiro.nomeparceiro else PutFilialLocal.razaosocial end, 
		nomeparceirofantasia = case when PutFilialLocal.nomefantasia = 'NOVALUEWS' then parceiro.nomeparceirofantasia else PutFilialLocal.nomefantasia end, 
		homepage = case when PutFilialLocal.homepage = 'NOVALUEWS' then parceiro.homepage else PutFilialLocal.homepage end,
		codigoerp = case when PutFilialLocal.externalid = 'NOVALUEWS' then codigoerp else PutFilialLocal.externalid end
	where idparceiro = idparceiro_ ;
		
	update localtipolocal set 
		idnativo = case when PutFilialLocal.idnativo = -99999 then localtipolocal.idnativo else PutFilialLocal.idnativo end,
		codigoerp = case when PutFilialLocal.externalid = 'NOVALUEWS' then codigoerp else PutFilialLocal.externalid end
	where idlocal = PutFilialLocal.internalid ;
	
	return query select internalid;
END;