TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idparceiro	integer	IN
idparceiro_externalid	character varying	IN
idsegmento	integer	IN
idsegmento_externalid	character varying	IN
idlocal	integer	IN
idlocal_externalid	character varying	IN
idfilial	integer	IN
idfilial_externalid	character varying	IN
idtipobloqueio	integer	IN
idtipobloqueio_externalid	character varying	IN
idusuario	integer	IN
idusuario_externalid	character varying	IN
observacao	character varying	IN
externalid	character varying	IN

Definition

DECLARE	
	internalid INTEGER;
BEGIN

--CODIGOERP VAZIO
	 IF TRIM(COALESCE(externalid,'')) = '' THEN 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     END IF;

-- LOOKUP 
	-- TIPOBLOQUEIO
	IF PostBloqueio.idtipobloqueio IS NULL AND PostBloqueio.idtipobloqueio_externalid IS NOT NULL THEN 
		PostBloqueio.idtipobloqueio := (SELECT TB.IDTIPOBLOQUEIO FROM TIPOBLOQUEIO TB WHERE TB.CODIGOERP = PostBloqueio.idtipobloqueio_externalid LIMIT 1);
	END IF;	 
	
	-- PARCEIRO
	IF PostBloqueio.idparceiro IS NULL AND PostBloqueio.idparceiro_externalid IS NOT NULL THEN 
		PostBloqueio.idparceiro := (SELECT P.IDPARCEIRO FROM PARCEIRO P WHERE P.CODIGOERP = PostBloqueio.idparceiro_externalid LIMIT 1);
	END IF;	
	
	-- LOCAL
	IF PostBloqueio.idlocal IS NULL AND PostBloqueio.idlocal_externalid IS NOT NULL THEN 
		PostBloqueio.idlocal := (SELECT L.IDLOCAL FROM LOCAL L WHERE L.CODIGOERP = PostBloqueio.idlocal_externalid LIMIT 1);
	END IF;

-- FILIAL
	IF PostBloqueio.idfilial IS NULL AND PostBloqueio.idfilial_externalid IS NOT NULL THEN 
		PostBloqueio.idfilial := (SELECT FL.IDLOCAL FROM LOCAL FL WHERE FL.CODIGOERP = PostBloqueio.idfilial_externalid LIMIT 1);
	END IF;

-- SEGMENTO
	IF PostBloqueio.idsegmento IS NULL AND PostBloqueio.idsegmento_externalid IS NOT NULL THEN 
		PostBloqueio.idsegmento := (SELECT S.IDSEGMENTO FROM SEGMENTO S WHERE S.CODIGOERP = PostBloqueio.idsegmento_externalid LIMIT 1);
	END IF;

-- USUARIO
	IF PostBloqueio.idusuario IS NULL AND PostBloqueio.idusuario_externalid IS NOT NULL THEN 
		PostBloqueio.idusuario := (SELECT U.IDUSUARIO FROM USUARIO U WHERE U.CODIGOERP = PostBloqueio.idusuario_externalid LIMIT 1);
	END IF;

--TIPOBLOQUEIO NULO
	IF PostBloqueio.idtipobloqueio IS NULL THEN
		RAISE EXCEPTION 'idtipobloqueio_externalid = % and idtipobloqueio = %', idtipobloqueio_externalid, idtipobloqueio
      		USING HINT = 'Fields idtipobloqueio_externalid and idtipobloqueio must be not null';
     END IF;	
	
	--VALIDA CONDICAO DE BLOQUEIO
	IF  PostBloqueio.idparceiro IS NULL AND PostBloqueio.idsegmento IS NULL AND 
		PostBloqueio.idlocal IS NULL AND PostBloqueio.idfilial IS NULL AND 
		PostBloqueio.idusuario IS NULL 
	THEN 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'You must report at least one valid blocking condition: '||
				'(idusuario_externalid = ' || COALESCE(idusuario_externalid,'?') ||'), '||
				'(idparceiro_externalid = ' || COALESCE(idparceiro_externalid,'?') ||'), '||
				'(idlocal_externalid = ' || COALESCE(idlocal_externalid,'?') ||'), '||
				'(idfilial_externalid = ' || COALESCE(idfilial_externalid,'?') ||') or '||
				'(idsegmento_externalid = ' || COALESCE(idsegmento_externalid,'?') ||') ';
     END IF;	
	 
	--CODIGOERP EXISTENTE
	IF (SELECT DISTINCT 1 FROM BLOQUEIO WHERE CODIGOERP = PostBloqueio.externalid) = 1 THEN 
		RAISE EXCEPTION 'externalid = %', PostBloqueio.externalid 
			USING HINT = 'The record (externalid = '|| PostBloqueio.externalid ||') already exists, it was not possible to insert it.';
		ELSE 
			INSERT INTO BLOQUEIO (idbloqueio, idparceiro, idsegmento, idlocal, idfilial, idtipobloqueio, idusuario, observacao, codigoerp) 
			VALUES 
				(nextval('seqpkbloqueio'), idparceiro, idsegmento, idlocal, idfilial, idtipobloqueio, idusuario, observacao, externalid) 
			RETURNING idbloqueio INTO internalid;
	END IF;		
			
	RETURN query SELECT internalid;

END;

postbloqueio(integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, character varying, character varying)

Parameters

Definition