TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
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

BEGIN
	-- EXTERNALID E INTERNALID NAO INFORMADOS
	IF TRIM(COALESCE(externalid,''))='' AND internalid IS NULL THEN 
		RAISE EXCEPTION 'externalid = % and internalid = %', externalid, internalid
			USING HINT = 'Fields internalid and externalid must be not null';
	END IF; 
	 
	-- LOOKUP 
	-- BLOQUEIO
	IF (internalid IS NULL OR internalid = -99999) AND (externalid IS NOT NULL AND externalid <> 'NOVALUEWS') THEN 
		internalid := (SELECT B.IDBLOQUEIO FROM BLOQUEIO B WHERE B.CODIGOERP = PutBloqueio.externalid LIMIT 1);
	END IF;	 	
	
	-- TIPOBLOQUEIO
	IF (idtipobloqueio IS NULL OR idtipobloqueio = -99999) AND (idtipobloqueio_externalid IS NOT NULL AND idtipobloqueio_externalid <> 'NOVALUEWS') THEN 
		idtipobloqueio := (SELECT TB.IDTIPOBLOQUEIO FROM TIPOBLOQUEIO TB WHERE TB.CODIGOERP = PutBloqueio.idtipobloqueio_externalid LIMIT 1);
	END IF;	 
	
	-- PARCEIRO
	IF (idparceiro IS NULL OR idparceiro = -99999) AND (idparceiro_externalid IS NOT NULL AND idparceiro_externalid <> 'NOVALUEWS') THEN 
		idparceiro := (SELECT P.IDPARCEIRO FROM PARCEIRO P WHERE P.CODIGOERP = PutBloqueio.idparceiro_externalid LIMIT 1);
	END IF;	
	
	-- LOCAL
	IF (idlocal IS NULL OR idlocal = -99999) AND (idlocal_externalid IS NOT NULL AND idlocal_externalid <> 'NOVALUEWS') THEN 
		idlocal := (SELECT L.IDLOCAL FROM LOCAL L WHERE L.CODIGOERP = PutBloqueio.idlocal_externalid LIMIT 1);
	END IF;

-- FILIAL
	IF (idfilial IS NULL OR idfilial = -99999) AND (idfilial_externalid IS NOT NULL AND idfilial_externalid <> 'NOVALUEWS') THEN 
		idfilial := (SELECT FL.IDLOCAL FROM LOCAL FL WHERE FL.CODIGOERP = PutBloqueio.idfilial_externalid LIMIT 1);
	END IF;

-- SEGMENTO
	IF (idsegmento IS NULL OR idsegmento = -99999) AND (idsegmento_externalid IS NOT NULL AND idsegmento_externalid <> 'NOVALUEWS') THEN 
		idsegmento := (SELECT S.IDSEGMENTO FROM SEGMENTO S WHERE S.CODIGOERP = PutBloqueio.idsegmento_externalid LIMIT 1);
	END IF;

-- USUARIO
	IF (idusuario IS NULL OR idusuario = -99999) AND (idusuario_externalid IS NOT NULL AND idusuario_externalid <> 'NOVALUEWS') THEN 
		idusuario := (SELECT U.IDUSUARIO FROM USUARIO U WHERE U.CODIGOERP = PutBloqueio.idusuario_externalid LIMIT 1);
	END IF;		
	 
	-- EXTERNALID E INTERNALID NAO INFORMADOS
	IF TRIM(COALESCE(PutBloqueio.externalid,''))='' AND PutBloqueio.internalid IS NULL THEN 
		RAISE EXCEPTION 'externalid = % and internalid = %', externalid, internalid
			USING HINT = 'Fields internalid and externalid must be not null';
	END IF;

--TIPOBLOQUEIO NULO
	IF idtipobloqueio IS NULL OR idtipobloqueio = -99999 THEN
		RAISE EXCEPTION 'idtipobloqueio_externalid = % and idtipobloqueio = %', idtipobloqueio_externalid, idtipobloqueio
      		USING HINT = 'Fields idtipobloqueio_externalid and idtipobloqueio_externalid must be not null';
     END IF;	
	 
	--VALIDA CONDICAO DE BLOQUEIO
	IF  (idparceiro IS NULL OR idparceiro = -99999) AND 
		(idsegmento IS NULL OR idsegmento = -99999) AND  
		(idlocal IS NULL OR idlocal = -99999) AND  
		(idfilial IS NULL OR idfilial = -99999) AND  
		(idusuario IS NULL OR idusuario = -99999)
	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;	 
	
	 --EXTERNALID EXISTENTE
	 IF 
	 	(SELECT DISTINCT 1 FROM BLOQUEIO B WHERE B.CODIGOERP = PutBloqueio.externalid) = 1  AND 
	 	(SELECT B.IDBLOQUEIO FROM BLOQUEIO B WHERE B.CODIGOERP = PutBloqueio.externalid LIMIT 1) <> PutBloqueio.internalid
	 THEN
		RAISE EXCEPTION 'externalid = %', externalid
     		USING HINT = 'The record (externalid = '|| externalid ||') already exists in (id = '|| 
			(SELECT IDBLOQUEIO FROM BLOQUEIO B WHERE B.CODIGOERP = PutBloqueio.externalid LIMIT 1) ||'), it was not possible to update it.';
     END IF; 	
	
	-- UPDATE	
	UPDATE BLOQUEIO SET 
		IDPARCEIRO = CASE WHEN PutBloqueio.idparceiro = -99999 THEN BLOQUEIO.IDPARCEIRO ELSE PutBloqueio.idparceiro END, 
		IDSEGMENTO = CASE WHEN PutBloqueio.idsegmento = -99999 THEN BLOQUEIO.IDSEGMENTO ELSE PutBloqueio.idsegmento END, 
		IDLOCAL = CASE WHEN PutBloqueio.idlocal = -99999 THEN BLOQUEIO.IDLOCAL ELSE PutBloqueio.idlocal END, 
		IDFILIAL = CASE WHEN PutBloqueio.idfilial = -99999 THEN BLOQUEIO.IDFILIAL ELSE PutBloqueio.idfilial END, 
		IDTIPOBLOQUEIO = CASE WHEN PutBloqueio.idtipobloqueio = -99999 THEN BLOQUEIO.IDTIPOBLOQUEIO ELSE PutBloqueio.idtipobloqueio END, 
		IDUSUARIO = CASE WHEN PutBloqueio.idusuario = -99999 THEN BLOQUEIO.IDUSUARIO ELSE PutBloqueio.idusuario END, 
		observacao = CASE WHEN PutBloqueio.observacao = 'NOVALUEWS' THEN BLOQUEIO.OBSERVACAO ELSE PutBloqueio.observacao END, 
		CODIGOERP = CASE WHEN PutBloqueio.externalid = 'NOVALUEWS' THEN BLOQUEIO.CODIGOERP ELSE PutBloqueio.externalid END
	WHERE BLOQUEIO.IDBLOQUEIO = PutBloqueio.internalid;	
			
	RETURN query SELECT internalid;

END;

putbloqueio(integer, integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, character varying, character varying)

Parameters

Definition