TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
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

DECLARE	
	internalid INTEGER;
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; 		 
	 
	 --CODIGOERP NULO
	 IF externalid IS NULL OR externalid = '' THEN 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     END IF; 
	 
	 --CORTEXTO HEXADEXIMAL
	 IF (cortexto ~* '^#[a-f0-9]{6}$' OR cortexto IS NULL OR trim(cortexto)='') = 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}$' OR corfundo IS NULL OR trim(corfundo)='') = 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 = PostTipoBloqueio.ordem) = 1 THEN
		RAISE EXCEPTION 'ordem = %', ordem
     		USING HINT = 'The record (ordem = '|| PostTipoBloqueio.ordem ||') already exists, it was not possible to insert it.';
     END IF; 		 
	 
	--CODIGOERP EXISTENTE
	IF (SELECT DISTINCT 1 FROM TIPOBLOQUEIO WHERE CODIGOERP = PostTipoBloqueio.externalid) = 1 THEN 
		RAISE EXCEPTION 'externalid = %', PostTipoBloqueio.externalid 
			USING HINT = 'The record (externalid = '|| PostTipoBloqueio.externalid ||') already exists, it was not possible to insert it.';
		ELSE 
			INSERT INTO TIPOBLOQUEIO (idtipobloqueio, idnativo, idnbloqueiapedido, idnrequeraprovacao, idnrequerautorizacao, 
				idnpermiteiniciarpedido, idnpermitefinalizapedido, descricao, sgltipobloqueio, codigo, sgltiposemaforo, 
				cortexto, corfundo, ordem, codigoerp, observacao) 
			VALUES 
				(nextval('seqpktipobloqueio'), idnativo, idnbloqueiapedido, idnrequeraprovacao, idnrequerautorizacao, idnpermiteiniciarpedido, 
				idnpermitefinalizapedido, descricao, sgltipobloqueio, codigo, sgltiposemaforo, cortexto, corfundo, ordem, externalid, observacao) 
			RETURNING idtipobloqueio INTO internalid;
	END IF;		
			
	RETURN query SELECT internalid;

END;

posttipobloqueio(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