TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
descricao	character varying	IN
sigla	character varying	IN
idnativo	integer	IN
idpais	integer	IN
idpais_externalid	character varying	IN
externalid	character varying	IN
codigo	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;
	 
	--SIGLA NULA
	if sigla is null then 
		RAISE EXCEPTION 'sigla = %', sigla
			USING HINT = 'Field sigla 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;

--LOOKUP PAIS
	IF PostUnidadeFederativa.idpais IS NULL AND PostUnidadeFederativa.idpais_externalid IS NOT NULL
		THEN PostUnidadeFederativa.idpais = (SELECT C2.idpais FROM pais C2 WHERE C2.CODIGOERP = PostUnidadeFederativa.idpais_externalid);
	END IF;

--PAIS NULA
	 if PostUnidadeFederativa.idpais is null then 
		RAISE EXCEPTION 'idpais = %', PostUnidadeFederativa.idpais
      		USING HINT = 'Field idpais must be not null';
     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 unidadefederativa WHERE CODIGOERP = PostUnidadeFederativa.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostUnidadeFederativa.externalid 
				USING HINT = 'The record (externalid = '|| PostUnidadeFederativa.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into unidadefederativa (idunidadefederativa,descricao, sigla, idnativo, idpais, codigo, codigoerp) values (nextval('seqpkunidadefederativa'),descricao, sigla, idnativo, idpais, codigo, externalid) returning idunidadefederativa into internalid;	
	end if;	
	
	return query select internalid;
END;

postunidadefederativa(character varying, character varying, integer, integer, character varying, character varying, character varying)

Parameters

Definition