TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
descricao	character varying	IN
numeromatricula	character varying	IN
cnpj	character varying	IN
bairro	character varying	IN
cep	character varying	IN
inscricaoestadual	character varying	IN
inscricaomunicipal	character varying	IN
logradouro	character varying	IN
numero	character varying	IN
complemento	character varying	IN
idcidade	integer	IN
idcidade_externalid	character varying	IN
idnativo	integer	IN
externalid	character varying	IN
homepage	character varying	IN
nomefantasia	character varying	IN
razaosocial	character varying	IN

Definition

declare	
	idparceiro_ integer;
	internalid integer;	
	idunidadefederativa integer;	
	curdate date;
begin  	
	--RAZAO SOCIAL NULA
	if razaosocial is null then 
		RAISE EXCEPTION 'razaosocial = %', razaosocial
      		USING HINT = 'Field razaosocial must be not null';
    end if; 
	
	--NOME FANTASIA NULO
	if nomefantasia is null then 
		RAISE EXCEPTION 'nomefantasia = %', nomefantasia
      		USING HINT = 'Field nomefantasia must be not null';
    end if;

--DESCRICAO NULA
	 if descricao is null or descricao = '' then 
		RAISE EXCEPTION 'descricao = %', descricao
      		USING HINT = 'Field descricao 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 CIDADE
	IF PostFilialLocal.idcidade IS NULL AND PostFilialLocal.idcidade_externalid IS NOT NULL
		THEN PostFilialLocal.idcidade = (SELECT C2.idcidade FROM cidade C2 WHERE C2.CODIGOERP = PostFilialLocal.idcidade_externalid);
	END IF;

--CIDADE NULA
	 if PostFilialLocal.idcidade is null then 
		RAISE EXCEPTION 'idcidade = %', PostFilialLocal.idcidade
      		USING HINT = 'Field idcidade must be not null';
     end if;

--LOOKUP UF
	idunidadefederativa = (SELECT C2.idunidadefederativa FROM cidade C2 WHERE C2.idcidade = PostFilialLocal.idcidade);	 
	
	--CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if;
	  
	curdate = current_date;

--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM LOCAL WHERE CODIGOERP = PostFilialLocal.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostFilialLocal.externalid 
				USING HINT = 'The record (externalid = '|| PostFilialLocal.externalid ||') already exists, it was not possible to insert it.';
		ELSE 	
			insert into parceiro (idparceiro,nomeparceiro,nomeparceirofantasia,sgltipopessoa,idnativo,idncontribuinte,numeromatricula,dataultimaatualizacao,datacadastro,homepage,idnexportadoerp,codigoerp) values (nextval('seqpkparceiro'),razaosocial,nomefantasia,'PJ',idnativo,1,numeromatricula,curdate,curdate,homepage,1,externalid) returning idparceiro into idparceiro_;
			
			insert into parceirotipoparceiro (idparceirotipoparceiro,idtipoparceiro,idparceiro,codigoerp) values (nextval('seqpkparceirotipoparceiro'),(select idtipoparceiro from tipoparceiro where codigoerp = 'EMP'),idparceiro_,externalid) ;

insert into local (idlocal,idnsuframa,idnipi,idnativo,idnrequerdataentrega,idnrequernumeropedidocliente,numeromatricula,bairro,cnpj,cep,inscricaoestadual,descricao,inscricaomunicipal,logradouro,numerologradouro,complemento,dataultimaatualizacao,datacadastro,idnexportadoerp,idcidade,idunidadefederativafiscal,codigoerp) values (nextval('seqpklocal'),0,0,idnativo,0,0,numeromatricula,bairro,cnpj,cep,inscricaoestadual,descricao,inscricaomunicipal,logradouro,numero,complemento,curdate,curdate,1,idcidade,idunidadefederativa,externalid) returning idlocal into internalid;

insert into parceirolocal (idparceirolocal,idparceiro,idlocal,idnexportadoerp,codigoerp) values (nextval('seqpkparceirolocal'),idparceiro_,internalid,1,externalid) ;

insert into localtipolocal (idlocaltipolocal,idlocal,idtipolocal,idnativo,idnpadrao,idnexportadoerp,codigoerp) values (nextval('seqpklocaltipolocal'),internalid,(select idtipolocal from tipolocal where codigoerp = 'UEM'),idnativo,1,1,externalid) ;	
	end if;	
	
	return query select internalid;
END;