TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idusuario	integer	IN
idusuario_externalid	character varying	IN
idfiliallocal	integer	IN
idfiliallocal_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN

Definition

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

--IDNPADRAO NULO OU FORA DO PADRAO 
		if idnpadrao not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnpadrao = %', idnpadrao
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;

-- LOOKUP
		-- USUARIO FILIAL
		IF PutUsuarioFilial.internalid IS NULL 
		THEN PutUsuarioFilial.internalid = (SELECT IDUSUARIOFILIAL FROM USUARIOFILIAL WHERE CODIGOERP = PutUsuarioFilial.externalid);
		END IF;

-- IDUSUARIO
		IF PutUsuarioFilial.idusuario IS NULL AND PutUsuarioFilial.idusuario_externalid IS NOT NULL
			THEN PutUsuarioFilial.idusuario = (SELECT C2.idusuario FROM usuario C2 WHERE C2.CODIGOERP = PutUsuarioFilial.idusuario_externalid);
		END IF;

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

-- IDFILIALLOCAL
		IF PutUsuarioFilial.idfiliallocal IS NULL AND PutUsuarioFilial.idfiliallocal_externalid IS NOT NULL
			THEN PutUsuarioFilial.idfiliallocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutUsuarioFilial.idfiliallocal_externalid);
		END IF;

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

-- UPDATE
	update usuariofilial set 
		idusuario = case when PutUsuarioFilial.idusuario = -99999 then usuariofilial.idusuario else PutUsuarioFilial.idusuario end, 
		idlocalfilial = case when PutUsuarioFilial.idfiliallocal = -99999 then usuariofilial.idlocalfilial else PutUsuarioFilial.idfiliallocal end, 
		idnpadrao = case when PutUsuarioFilial.idnpadrao = -99999 then usuariofilial.idnpadrao else PutUsuarioFilial.idnpadrao end,
		codigoerp = case when PutUsuarioFilial.externalid = 'NOVALUEWS' then codigoerp else PutUsuarioFilial.externalid end
	where usuariofilial.idusuariofilial = internalid ;

return query select internalid;
END;

putusuariofilial(integer, integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition