TOTVS CRM | SFA - 12.1.2501

Parameters

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

Definition

declare	
	internalid integer;
begin

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

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

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

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

--CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if;

--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM USUARIOHIERARQUIA WHERE CODIGOERP = PostUsuarioHierarquia.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostUsuarioHierarquia.externalid 
				USING HINT = 'The record (externalid = '|| PostUsuarioHierarquia.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into usuariohierarquia (idusuariohierarquia, idusuario, idusuariosuperior, idnusuarioresponsavel, codigoerp, idnenviaclient, idnpadrao, idnusuarionotificacao) values (nextval('seqpkusuariohierarquia'),idusuariosubordinado,idusuariosuperior,1,externalid, 0, 0, 0) returning idusuariohierarquia into internalid ;	
     end if;
	 
	return query select internalid;
END;

postusuariohierarquia(integer, character varying, integer, character varying, character varying)

Parameters

Definition