TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idcliente	integer	IN
idcliente_externalid	character varying	IN
idtipolocal	integer	IN
idtipolocal_externalid	character varying	IN
idfiliallocal	integer	IN
idfiliallocal_externalid	character varying	IN
descricao	character varying	IN
numeromatricula	character varying	IN
cgc	character varying	IN
rg	character varying	IN
bairro	character varying	IN
cep	character varying	IN
inscricaoestadual	character varying	IN
inscricaomunicipal	character varying	IN
logradouro	character varying	IN
numerologradouro	character varying	IN
complemento	character varying	IN
idcidade	integer	IN
idcidade_externalid	character varying	IN
idnativo	integer	IN
externalid	character varying	IN

Definition

declare	
	sgltipopessoa varchar(10);	
	internalid integer;
	idunidadefederativa integer;	
	curdate date;
begin  		 
	--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 TIPOLOCAL
	IF PostClienteLocal.idtipolocal IS NULL AND PostClienteLocal.idtipolocal_externalid IS NOT NULL
		THEN PostClienteLocal.idtipolocal = (SELECT C2.idtipolocal FROM tipolocal C2 WHERE C2.CODIGOERP = PostClienteLocal.idtipolocal_externalid);
	END IF;	

	 --TIPOLOCAL NULO
	 if PostClienteLocal.idtipolocal is null then 
		RAISE EXCEPTION 'idtipolocal = %', PostClienteLocal.idtipolocal
      		USING HINT = 'Field idtipolocal must be not null';
     end if; 

	 --LOOKUP LOCALFILIAL
	IF PostClienteLocal.idfiliallocal IS NULL AND PostClienteLocal.idfiliallocal_externalid IS NOT NULL
		THEN PostClienteLocal.idfiliallocal = (SELECT C2.IDLOCAL FROM local C2 WHERE C2.CODIGOERP = PostClienteLocal.idfiliallocal_externalid);
	END IF;	

	--LOOKUP CIDADE
	IF PostClienteLocal.idcidade IS NULL AND PostClienteLocal.idcidade_externalid IS NOT NULL
		THEN PostClienteLocal.idcidade = (SELECT C2.idcidade FROM cidade C2 WHERE C2.CODIGOERP = PostClienteLocal.idcidade_externalid);
	END IF;	

	 --CIDADE NULA
	 if PostClienteLocal.idcidade is null then 
		RAISE EXCEPTION 'idcidade = %', PostClienteLocal.idcidade
      		USING HINT = 'Field idcidade must be not null';
     end if; 	
	 
	 --LOOKUP UF
	idunidadefederativa = (SELECT C2.idunidadefederativa FROM cidade C2 WHERE C2.idcidade = PostClienteLocal.idcidade);
	 
	--LOOKUP CLIENTE
	IF PostClienteLocal.idcliente IS NULL AND PostClienteLocal.idcliente_externalid IS NOT NULL
		THEN PostClienteLocal.idcliente = (SELECT C2.idparceiro FROM parceiro C2 WHERE C2.CODIGOERP = PostClienteLocal.idcliente_externalid);
	END IF;	

	--CLIENTE NULO
	 if PostClienteLocal.idcliente is null then 
		RAISE EXCEPTION 'idcliente = %', idcliente
      		USING HINT = 'Field idcliente must be not null';
     end if; 	

	sgltipopessoa = (SELECT C2.sgltipopessoa FROM parceiro C2 WHERE C2.idparceiro = PostClienteLocal.idcliente);	

	--CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if; 	
	
	curdate := 'now';	 

	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM LOCAL WHERE CODIGOERP = PostClienteLocal.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostClienteLocal.externalid 
				USING HINT = 'The record (externalid = '|| PostClienteLocal.externalid ||') already exists, it was not possible to insert it.';
		ELSE 
		
			insert into local (idlocal,idnsuframa,idnipi,idnativo,idnrequerdataentrega,idnrequernumeropedidocliente,numeromatricula,bairro,cnpj,documentoidentificacao,cep,inscricaoestadual,descricao,inscricaomunicipal,logradouro,numerologradouro,complemento,dataultimaatualizacao,datacadastro,idnexportadoerp,idcidade,idunidadefederativafiscal,codigoerp) values (nextval('seqpklocal'),0,0,idnativo,0,0,numeromatricula,bairro,cgc,rg,cep,inscricaoestadual,descricao,inscricaomunicipal,logradouro,numerologradouro,complemento,curdate,curdate,1,PostClienteLocal.idcidade,idunidadefederativa,externalid) returning idlocal into internalid;

			insert into localidentificacao (idlocalidentificacao,idlocal,documentoidentificacao,idtipoidentificacao,idnexportadoerp,codigoerp) values (nextval('seqpklocalidentificacao'),internalid,cgc,(select idtipoidentificacao from tipoidentificacao where sigla = CASE WHEN sgltipopessoa = 'PJ' THEN 'cnpj' ELSE 'cpf' END),1,externalid) ;

			insert into parceirolocal (idparceirolocal,idparceiro,idlocal,idnexportadoerp,codigoerp) values (nextval('seqpkparceirolocal'),PostClienteLocal.idcliente,internalid,1,externalid) ;
			
			insert into localfilial (idlocalfilial,idlocal,idfilial,idnpadrao,codigoerp) values (nextval('seqpklocalfilial'),internalid,idfiliallocal,1,externalid) ;

			insert into localtipolocal (idlocaltipolocal,idlocal,idtipolocal,idnativo,idnpadrao,idnexportadoerp,codigoerp) values (nextval('seqpklocaltipolocal'),internalid,idtipolocal,idnativo,1,1,externalid) ;	
	end if;	
	
	return query select internalid;
END;