TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idusuario	integer	IN
idusuario_externalid	character varying	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
externalid	character varying	IN

Definition

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

-- LOOKUP
		-- USUARIOLOCAL
		IF PutUsuarioLocal.internalid IS NULL 
		THEN PutUsuarioLocal.internalid = (SELECT IDUSUARIOLOCAL FROM USUARIOLOCAL WHERE CODIGOERP = PutUsuarioLocal.externalid);
		END IF;
		
		-- IDUSUARIO
		IF PutUsuarioLocal.idusuario IS NULL AND PutUsuarioLocal.idusuario_externalid IS NOT NULL
			THEN PutUsuarioLocal.idusuario = (SELECT C2.idusuario FROM usuario C2 WHERE C2.CODIGOERP = PutUsuarioLocal.idusuario_externalid);
		END IF;

if PutUsuarioLocal.idusuario is null then 
			RAISE EXCEPTION 'idusuario = %', PutUsuarioLocal.idusuario
				USING HINT = 'Field idusuario must be not null';
		end if; 
		
		-- IDCLIENTELOCAL
		IF PutUsuarioLocal.idclientelocal IS NULL AND PutUsuarioLocal.idclientelocal_externalid IS NOT NULL
			THEN PutUsuarioLocal.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutUsuarioLocal.idclientelocal_externalid);
		END IF;

if PutUsuarioLocal.idclientelocal is null then 
			RAISE EXCEPTION 'idclientelocal = %', PutUsuarioLocal.idclientelocal
				USING HINT = 'Field idclientelocal must be not null';
		end if; 	 
		
			-- CLIENTE
			idparceiro_ = (SELECT distinct C2.idparceiro FROM parceirolocal C2 WHERE C2.idlocal = PutUsuarioLocal.idclientelocal);
			
	-- UPDATE
	update usuariolocal set 
		idusuario = case when PutUsuarioLocal.idusuario = -99999 then usuariolocal.idusuario else PutUsuarioLocal.idusuario end, 
		idparceiro = case when PutUsuarioLocal.idclientelocal = -99999 then usuariolocal.idparceiro else idparceiro_ end, 
		idlocal = case when PutUsuarioLocal.idclientelocal = -99999 then usuariolocal.idlocal else PutUsuarioLocal.idclientelocal end,
		codigoerp = case when PutUsuarioLocal.externalid = 'NOVALUEWS' then codigoerp else PutUsuarioLocal.externalid end
	where usuariolocal.idusuariolocal = internalid ;

return query select internalid;
END;

putusuariolocal(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition