TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
sigla	character varying	IN
idnativo	integer	IN
idpais	integer	IN
idpais_externalid	character varying	IN
externalid	character varying	IN
codigo	character varying	IN

Definition

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

-- LOOKUP
		-- UNIDADE FEDERATIVA	
		IF PutUnidadeFederativa.internalid IS NULL 
		THEN PutUnidadeFederativa.internalid = (SELECT IDUNIDADEFEDERATIVA FROM UNIDADEFEDERATIVA WHERE CODIGOERP = PutUnidadeFederativa.externalid);
		END IF;  
	
		-- PAIS
		IF PutUnidadeFederativa.idpais IS NULL AND PutUnidadeFederativa.idpais_externalid IS NOT NULL
			THEN PutUnidadeFederativa.idpais = (SELECT C2.idpais FROM pais C2 WHERE C2.CODIGOERP = PutUnidadeFederativa.idpais_externalid);
		END IF;

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

-- UPDATE
	update unidadefederativa set 
		descricao = case when PutUnidadeFederativa.descricao = 'NOVALUEWS' then unidadefederativa.descricao else PutUnidadeFederativa.descricao end, 
		sigla = case when PutUnidadeFederativa.sigla = 'NOVALUEWS' then unidadefederativa.sigla else PutUnidadeFederativa.sigla end, 
		idnativo = case when PutUnidadeFederativa.idnativo = -99999 then unidadefederativa.idnativo else PutUnidadeFederativa.idnativo end, 
		idpais = case when PutUnidadeFederativa.idpais = -99999 then unidadefederativa.idpais else PutUnidadeFederativa.idpais end, 
		codigo = case when PutUnidadeFederativa.codigo = 'NOVALUEWS' then unidadefederativa.codigo else PutUnidadeFederativa.codigo end,
		codigoerp = case when PutUnidadeFederativa.externalid = 'NOVALUEWS' then codigoerp else PutUnidadeFederativa.externalid end
	where 
		idunidadefederativa = internalid;
		
	return query select internalid;
END;

putunidadefederativa(integer, character varying, character varying, integer, integer, character varying, character varying, character varying)

Parameters

Definition