TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idnativo	bigint	IN
externalid	character varying	IN
sgltipolocal	character varying	IN
descricao	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;
	 
	--SGLTIPOLOCAL NULA
	if sgltipolocal is null then 
		RAISE EXCEPTION 'sgltipolocal = %', sgltipolocal
      		USING HINT = 'Field sgltipolocal must be not null';
     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 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; 
 
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM TIPOLOCAL WHERE CODIGOERP = PostTipoLocal.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostTipoLocal.externalid 
				USING HINT = 'The record (externalid = '|| PostTipoLocal.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into tipolocal (idtipolocal, idnativo, codigoerp, sgltipolocal, descricao, idndisponivelcadastro) values (nextval('seqpktipolocal'),idnativo, externalid, sgltipolocal , descricao, 1 ) returning idtipolocal into internalid;	
     end if;
	 
	return query select internalid;
END;

posttipolocal(bigint, character varying, character varying, character varying)

Parameters

Definition