TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
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

declare	
	internalid integer;
	curdate date;
begin  
    curdate = current_date;
	
	--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;
	 
	--IDNATIVO NULO OU FORA DO PADRAO 
	if idnativo is null or 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;

--LOOKUP PERFILACESSO
	IF PostUsuario.idperfilacesso IS NULL AND PostUsuario.idperfilacesso_externalid IS NOT NULL
		THEN PostUsuario.idperfilacesso = (SELECT C2.idperfilacesso FROM perfilacesso C2 WHERE C2.CODIGOERP = PostUsuario.idperfilacesso_externalid);
	END IF;

--PERFILACESSO NUL0
	 if PostUsuario.idperfilacesso is null then 
		RAISE EXCEPTION 'idperfilacesso = %', PostUsuario.idperfilacesso
      		USING HINT = 'Field idperfilacesso 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 USUARIO WHERE CODIGOERP = PostUsuario.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostUsuario.externalid 
				USING HINT = 'The record (externalid = '|| PostUsuario.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into usuario (idusuario,login, nome, senha, email, datacadastro, idnativo, endereco, cep, idperfilacesso, idnexigealfanumerico, idnexportadoerp, idnpermitirintegracao, idnhabilitarldap, codigoerp) values (nextval('seqpkusuario'),login, nome, substr(encode(digest(cast(cast(senha as text)as bytea), cast('sha1' as text)), 'hex'),0,31), email, curdate, idnativo, endereco, cep, idperfilacesso, 0, 1, 1, 0, externalid) returning idusuario into internalid;

end if;
	 
	return query select internalid;
END;

postusuario(character varying, character varying, character varying, character varying, integer, character varying, character varying, integer, character varying, character varying)

Parameters

Definition