TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idusuariosubordinado	integer	IN
idusuariosubordinado_externalid	character varying	IN
idusuariosuperior	integer	IN
idusuariosuperior_externalid	character varying	IN
externalid	character varying	IN

Definition

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

-- LOOKUP
		-- USUARIO HIERARQUIA
		IF PutUsuarioHierarquia.internalid IS NULL 
		THEN PutUsuarioHierarquia.internalid = (SELECT IDUSUARIOHIERARQUIA FROM USUARIOHIERARQUIA WHERE CODIGOERP = PutUsuarioHierarquia.externalid);
		END IF;

-- IDUSUARIOSUPERIOR
		IF PutUsuarioHierarquia.idusuariosubordinado IS NULL AND PutUsuarioHierarquia.idusuariosubordinado_externalid IS NOT NULL
			THEN PutUsuarioHierarquia.idusuariosubordinado = (SELECT C2.idusuario FROM usuario C2 WHERE C2.CODIGOERP = PutUsuarioHierarquia.idusuariosubordinado_externalid);
		END IF;

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

-- IDUSUARIOSUPERIOR
		IF PutUsuarioHierarquia.idusuariosuperior IS NULL AND PutUsuarioHierarquia.idusuariosuperior_externalid IS NOT NULL
			THEN PutUsuarioHierarquia.idusuariosuperior = (SELECT C2.idusuario FROM usuario C2 WHERE C2.CODIGOERP = PutUsuarioHierarquia.idusuariosuperior_externalid);
		END IF;

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

-- UPDATE
	update usuariohierarquia set 
		idusuario = case when PutUsuarioHierarquia.idusuariosubordinado = -99999 then usuariohierarquia.idusuario else PutUsuarioHierarquia.idusuariosubordinado end, 
		idusuariosuperior = case when PutUsuarioHierarquia.idusuariosuperior = -99999 then usuariohierarquia.idusuariosuperior else PutUsuarioHierarquia.idusuariosuperior end,
		codigoerp = case when PutUsuarioHierarquia.externalid = 'NOVALUEWS' then codigoerp else PutUsuarioHierarquia.externalid end
	where idusuariohierarquia = internalid ;

return query select internalid;
END;

putusuariohierarquia(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition