TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
login	character varying	IN
nome	character varying	IN
senha	character varying	IN
email	character varying	IN
idnativo	integer	IN
endereco	character varying	IN
cep	character varying	IN
idperfilacesso	integer	IN
idperfilacesso_externalid	character varying	IN
externalid	character varying	IN

Definition

begin  
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutUsuario.externalid,'')='' and PutUsuario.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutUsuario.externalid, PutUsuario.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;

--LOGIN NULO
		if login is null then 
			RAISE EXCEPTION 'login = %', login
				USING HINT = 'Field login must be not null';
		end if;
		
		--NOME NULO
		if nome is null then 
			RAISE EXCEPTION 'nome = %', nome
				USING HINT = 'Field nome must be not null';
		end if;

--SENHA NULA
		if senha is null then 
			RAISE EXCEPTION 'senha = %', senha
				USING HINT = 'Field senha must be not null';
		end if;
	 
	-- LOOKUP
		-- USUARIO
		IF PutUsuario.internalid IS NULL 
		THEN PutUsuario.internalid = (SELECT IDUSUARIO FROM USUARIO WHERE CODIGOERP = PutUsuario.externalid);
		END IF;
	
		-- PERFILACESSO
		IF PutUsuario.idperfilacesso IS NULL AND PutUsuario.idperfilacesso_externalid IS NOT NULL
			THEN PutUsuario.idperfilacesso = (SELECT C2.idperfilacesso FROM perfilacesso C2 WHERE C2.CODIGOERP = PutUsuario.idperfilacesso_externalid);
		END IF;

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

update usuario set 
		login = case when PutUsuario.login = 'NOVALUEWS' then usuario.login else PutUsuario.login end, 
		nome = case when PutUsuario.nome = 'NOVALUEWS' then usuario.nome else PutUsuario.nome end, 
		senha = case when PutUsuario.senha = 'NOVALUEWS' then usuario.senha else substr(encode(digest(cast(cast(PutUsuario.senha as text) as bytea), cast('sha1' as text)), 'hex'),0,31) end, 
		email = case when PutUsuario.email = 'NOVALUEWS' then usuario.email else PutUsuario.email end, 
		idnativo = case when PutUsuario.idnativo = -99999 then usuario.idnativo else PutUsuario.idnativo end, 
		endereco = case when PutUsuario.endereco = 'NOVALUEWS' then usuario.endereco else PutUsuario.endereco end, 
		cep = case when PutUsuario.cep = 'NOVALUEWS' then usuario.cep else PutUsuario.cep end, 
		idperfilacesso = case when PutUsuario.idperfilacesso = -99999 then usuario.idperfilacesso else PutUsuario.idperfilacesso end,
		codigoerp = case when PutUsuario.externalid = 'NOVALUEWS' then codigoerp else PutUsuario.externalid end
	where idusuario = internalid ;
	
	return query select internalid;
END;

putusuario(integer, character varying, character varying, character varying, character varying, integer, character varying, character varying, integer, character varying, character varying)

Parameters

Definition