TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
idnativo	integer	IN
idunidadefederativa	integer	IN
idunidadefederativa_externalid	character varying	IN
externalid	character varying	IN
codigo	character varying	IN

Definition

begin
	
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutCidade.externalid,'')='' and PutCidade.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutCidade.externalid, PutCidade.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;  
		
		--DESCRICAO NULA
		if descricao is null then 
			RAISE EXCEPTION 'descricao = %', descricao
				USING HINT = 'Field descricao must be not null';
		end if;

-- LOOKUP 
		-- CIDADE
		IF PutCidade.internalid IS NULL 
			THEN PutCidade.internalid = (SELECT IDCIDADE FROM CIDADE WHERE CODIGOERP = PutCidade.externalid);
		END IF;

-- UF
		if idunidadefederativa is null and idunidadefederativa_externalid is not null then 
			SELECT INTO idunidadefederativa unidadefederativa.idunidadefederativa FROM unidadefederativa WHERE unidadefederativa.codigoerp = PutCidade.idunidadefederativa_externalid;
		end if; 
		
		if idunidadefederativa is null then 
			RAISE EXCEPTION 'unidadefederativa = %', idunidadefederativa
				USING HINT = 'Field idunidadefederativa or idunidadefederativa_externalid must be not null';
		end if;

-- UPDATE
	update cidade set 
		descricao = case when PutCidade.descricao = 'NOVALUEWS' then cidade.descricao else PutCidade.descricao end, 
		idnativo = case when PutCidade.idnativo = -99999 then cidade.idnativo else PutCidade.idnativo end, 
		idunidadefederativa = case when PutCidade.idunidadefederativa = -99999 then cidade.idunidadefederativa else PutCidade.idunidadefederativa end, 
		codigo = case when PutCidade.codigo = 'NOVALUEWS' then cidade.codigo else PutCidade.codigo end,
		codigoerp = case when PutCidade.externalid = 'NOVALUEWS' then codigoerp else PutCidade.externalid end
	where idcidade = internalid;

return query select internalid;
END;

putcidade(integer, character varying, integer, integer, character varying, character varying, character varying)

Parameters

Definition