TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
idnativo	integer	IN
codigo	character varying	IN
sgltipobloqueio	character varying	IN
sgltiposemaforo	character varying	IN
idnbloqueiapedido	integer	IN
idnrequeraprovacao	integer	IN
idnpermiteiniciarpedido	integer	IN
idnpermitefinalizapedido	integer	IN
idnrequerautorizacao	integer	IN
observacao	character varying	IN
cortexto	character varying	IN
corfundo	character varying	IN
ordem	integer	IN
externalid	character varying	IN

Definition

BEGIN

--DESCRICAO NULA
	IF descricao IS NULL THEN 
		RAISE EXCEPTION 'descricao = %', descricao
      		USING HINT = 'Field descricao must be not null';
     END IF;

--CODIGO NULO
	IF codigo IS NULL THEN 
		RAISE EXCEPTION 'codigo = %', codigo
      		USING HINT = 'Field codigo must be not null';
     END IF;	 
	 
	--SGLTIPOBLOQUEIO NULO
	IF sgltipobloqueio IS NULL THEN 
		RAISE EXCEPTION 'sgltipobloqueio = %', sgltipobloqueio
      		USING HINT = 'Field sgltipobloqueio must be not null';
     END IF;

--SGLTIPOSEMAFORO NULO
	IF sgltiposemaforo IS NULL AND sgltiposemaforo NOT IN ('VM','AM','VE') THEN 
		RAISE EXCEPTION 'sgltiposemaforo = %', sgltiposemaforo
      		USING HINT = 'Field sgltiposemaforo must be not null or differente from VM, AM or VE. VM = RED, AM = YELLOW, VE = GREEN';
     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 idnativo must not be null or different from 1 or 0.';
     END IF; 
	 
	--IDNBLOQUEIAPEDIDO NULO OU FORA DO PADRAO 
	IF idnbloqueiapedido IS NULL OR idnbloqueiapedido NOT IN (0,1,-99999) THEN 
		RAISE EXCEPTION 'idnbloqueiapedido = %', idnbloqueiapedido
      		USING HINT = 'Field idnbloqueiapedido must not be null or different from 1 or 0.';
     END IF; 	 
	 
	--IDNREQUERAPROVACAO NULO OU FORA DO PADRAO 
	IF idnrequeraprovacao IS NULL OR idnrequeraprovacao NOT IN (0,1,-99999) THEN 
		RAISE EXCEPTION 'idnrequeraprovacao = %', idnrequeraprovacao
      		USING HINT = 'Field idnrequeraprovacao must not be null or different from 1 or 0.';
     END IF;

--IDNPERMITEINICIARPEDIDO NULO OU FORA DO PADRAO 
	IF idnpermiteiniciarpedido IS NULL OR idnpermiteiniciarpedido NOT IN (0,1,-99999) THEN 
		RAISE EXCEPTION 'idnpermiteiniciarpedido = %', idnpermiteiniciarpedido
      		USING HINT = 'Field idnpermiteiniciarpedido must not be null or different from 1 or 0.';
     END IF;

--IDNPERMITEFINALIZAPEDIDO NULO OU FORA DO PADRAO 
	IF idnpermitefinalizapedido IS NULL OR idnpermitefinalizapedido NOT IN (0,1,-99999) THEN 
		RAISE EXCEPTION 'idnpermitefinalizapedido = %', idnpermitefinalizapedido
      		USING HINT = 'Field idnpermitefinalizapedido must not be null or different from 1 or 0.';
     END IF;

--IDNREQUERAUTORIZACAO NULO OU FORA DO PADRAO 
	IF idnrequerautorizacao IS NULL OR idnrequerautorizacao NOT IN (0,1,-99999) THEN 
		RAISE EXCEPTION 'idnrequerautorizacao = %', idnrequerautorizacao
      		USING HINT = 'Field idnrequerautorizacao must not be null or different from 1 or 0.';
     END IF; 		 
	 
	 --CORTEXTO = NULL CASO VAZIO
	 IF(trim(cortexto) = '' OR cortexto = 'NOVALUEWS') THEN 
		cortexto := null;
	 END IF;
	 
	 --CORFUNDO = NULL CASO VAZIO
	 IF(trim(corfundo) = '' OR corfundo = 'NOVALUEWS') THEN 
		corfundo := null;
	 END IF;	 
	 
	 --CORTEXTO HEXADEXIMAL
	 IF (cortexto ~* '^#[a-f0-9]{6}$') = FALSE THEN
		RAISE EXCEPTION 'cortexto = %', cortexto
      		USING HINT = 'Field cortexto accepts hexadecimal or NULL only, example #000000 = Black';
     END IF;

--CORFUNDO HEXADEXIMAL
	 IF (corfundo ~* '^#[a-f0-9]{6}$') = FALSE THEN
		RAISE EXCEPTION 'corfundo = %', corfundo
      		USING HINT = 'Field corfundo accepts hexadecimal or NULL only, example #000000 = Black';
     END IF; 	
	 
	--ORDEM NAO NUMERICO 
	IF ordem IS NOT NULL AND ordem NOT BETWEEN -2147483648 AND 2147483647 THEN 
		RAISE EXCEPTION 'ordem = %', ordem
      		USING HINT = 'Field ordem can be null but, not different from BIGINT (-2147483648 AND 2147483647)';
     END IF;  
	 
	 --ORDEM EXISTENTE
	 IF 
	 	(SELECT DISTINCT 1 FROM TIPOBLOQUEIO TB WHERE TB.ORDEM = PutTipoBloqueio.ordem) = 1  AND 
	 	(SELECT TB.CODIGOERP FROM TIPOBLOQUEIO TB WHERE TB.ORDEM = PutTipoBloqueio.ordem LIMIT 1) <> PutTipoBloqueio.externalid
	 THEN
		RAISE EXCEPTION 'ordem = %', ordem
     		USING HINT = 'The record (ordem = '|| ordem ||') already exists, it was not possible to update it.';
     END IF; 	
	 
	-- EXTERNALID E INTERNALID NAO INFORMADOS
	IF TRIM(COALESCE(PutTipoBloqueio.externalid,''))='' AND PutTipoBloqueio.internalid IS NULL THEN 
		RAISE EXCEPTION 'externalid = % and internalid = %', externalid, internalid
			USING HINT = 'Fields internalid and externalid must be not null';
	END IF; 	 
	
	-- LOOKUP 
	-- TIPOBLOQUEIO
	IF PutTipoBloqueio.internalid IS NULL THEN 
		PutTipoBloqueio.internalid := (SELECT TB.IDTIPOBLOQUEIO FROM TIPOBLOQUEIO TB WHERE TB.CODIGOERP = PutTipoBloqueio.externalid LIMIT 1);
	END IF;
	
	 --EXTERNALID EXISTENTE
	 IF 
	 	(SELECT DISTINCT 1 FROM TIPOBLOQUEIO TB WHERE TB.CODIGOERP = PutTipoBloqueio.externalid) = 1  AND 
	 	(SELECT TB.IDTIPOBLOQUEIO FROM TIPOBLOQUEIO TB WHERE TB.CODIGOERP = PutTipoBloqueio.externalid LIMIT 1) <> PutTipoBloqueio.internalid
	 THEN
		RAISE EXCEPTION 'externalid = %', externalid
     		USING HINT = 'The record (externalid = '|| externalid ||') already exists in (id = '|| 
			(SELECT IDTIPOBLOQUEIO FROM TIPOBLOQUEIO TB WHERE TB.CODIGOERP = PutTipoBloqueio.externalid LIMIT 1) ||'), it was not possible to update it.';
     END IF; 	
	
	-- UPDATE	
	UPDATE TIPOBLOQUEIO SET 
		DESCRICAO = CASE WHEN PutTipoBloqueio.descricao = 'NOVALUEWS' THEN TIPOBLOQUEIO.DESCRICAO ELSE PutTipoBloqueio.descricao END, 
		IDNATIVO = CASE WHEN PutTipoBloqueio.idnativo = -99999 THEN TIPOBLOQUEIO.IDNATIVO ELSE PutTipoBloqueio.idnativo END, 
		CODIGO = CASE WHEN PutTipoBloqueio.codigo = 'NOVALUEWS' THEN TIPOBLOQUEIO.CODIGO ELSE PutTipoBloqueio.codigo END, 
		SGLTIPOBLOQUEIO = CASE WHEN PutTipoBloqueio.sgltipobloqueio = 'NOVALUEWS' THEN TIPOBLOQUEIO.SGLTIPOBLOQUEIO ELSE PutTipoBloqueio.sgltipobloqueio END, 
		SGLTIPOSEMAFORO = CASE WHEN PutTipoBloqueio.sgltiposemaforo = 'NOVALUEWS' THEN TIPOBLOQUEIO.SGLTIPOSEMAFORO ELSE PutTipoBloqueio.sgltiposemaforo END, 
		IDNBLOQUEIAPEDIDO = CASE WHEN PutTipoBloqueio.idnbloqueiapedido = -99999 THEN TIPOBLOQUEIO.IDNBLOQUEIAPEDIDO ELSE PutTipoBloqueio.idnbloqueiapedido END, 
		IDNREQUERAPROVACAO = CASE WHEN PutTipoBloqueio.idnrequeraprovacao = -99999 THEN TIPOBLOQUEIO.IDNREQUERAPROVACAO ELSE PutTipoBloqueio.idnrequeraprovacao END, 
		IDNPERMITEINICIARPEDIDO = CASE WHEN PutTipoBloqueio.idnpermiteiniciarpedido = -99999 THEN TIPOBLOQUEIO.IDNPERMITEINICIARPEDIDO ELSE PutTipoBloqueio.idnpermiteiniciarpedido END, 
		IDNPERMITEFINALIZAPEDIDO = CASE WHEN PutTipoBloqueio.idnpermitefinalizapedido = -99999 THEN TIPOBLOQUEIO.IDNPERMITEFINALIZAPEDIDO ELSE PutTipoBloqueio.idnpermitefinalizapedido END, 
		IDNREQUERAUTORIZACAO = CASE WHEN PutTipoBloqueio.idnrequerautorizacao = -99999 THEN TIPOBLOQUEIO.IDNREQUERAUTORIZACAO ELSE PutTipoBloqueio.idnrequerautorizacao END, 
		OBSERVACAO = CASE WHEN PutTipoBloqueio.observacao = 'NOVALUEWS' THEN TIPOBLOQUEIO.OBSERVACAO ELSE PutTipoBloqueio.observacao END, 
		CORTEXTO = CASE WHEN PutTipoBloqueio.cortexto = 'NOVALUEWS' THEN TIPOBLOQUEIO.CORTEXTO ELSE PutTipoBloqueio.cortexto END, 
		CORFUNDO = CASE WHEN PutTipoBloqueio.corfundo = 'NOVALUEWS' THEN TIPOBLOQUEIO.CORFUNDO ELSE PutTipoBloqueio.corfundo END, 
		ORDEM = CASE WHEN PutTipoBloqueio.ordem = -99999 THEN TIPOBLOQUEIO.ORDEM ELSE PutTipoBloqueio.ordem END, 
		CODIGOERP = CASE WHEN PutTipoBloqueio.externalid = 'NOVALUEWS' THEN TIPOBLOQUEIO.CODIGOERP ELSE PutTipoBloqueio.externalid END
	WHERE TIPOBLOQUEIO.IDTIPOBLOQUEIO = PutTipoBloqueio.internalid;	
			
	RETURN query SELECT internalid;

END;

puttipobloqueio(integer, character varying, integer, character varying, character varying, character varying, integer, integer, integer, integer, integer, character varying, character varying, character varying, integer, character varying)

Parameters

Definition