TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idfilial	integer	IN
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
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	
	idparceiro_ integer;
	internalid integer;	
	idcidade_ integer;
	idunidadefederativa integer;	
	curdate date;
begin  		 
	if idnativo is null then 
		RAISE EXCEPTION 'idnativo = %', idnativo
      		USING HINT = 'Field idnativo must be not null';
    end if;  	 
	 
	select into idparceiro_ 
		idparceiro from parceiro where idparceiro = idfilial ;
	IF NOT FOUND THEN 
		RAISE EXCEPTION 'idfilial = %', idfilial
      		USING HINT = 'There is no idfilial in filial';
    end if; 	 
	 
	if  PostFilialLocal.idcidade is not null then
		select into idcidade_,idunidadefederativa 
			c.idcidade,c.idunidadefederativa from cidade c where c.idcidade = PostFilialLocal.idcidade ;	
		IF NOT FOUND THEN 
			RAISE EXCEPTION 'idcidade = %', idcidade
				USING HINT = 'There is no idcidade in cidade';
		end if; 
	end if;
	
	if  PostFilialLocal.idcidade is null and PostFilialLocal.idcidade_externalid is not null then
		select into idcidade_,idunidadefederativa 
			c.idcidade,c.idunidadefederativa from cidade c where c.codigoerp = PostFilialLocal.idcidade_externalid ;	
		IF NOT FOUND THEN 
			RAISE EXCEPTION 'idcidade = %', idcidade
				USING HINT = 'There is no idcidade in cidade';
		end if; 
	end if;
	 
	curdate := 'now';	 

	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,numerologradouro,complemento,curdate,curdate,1,idcidade_,idunidadefederativa,externalid) returning idlocal into internalid;

	insert into parceirolocal (idparceirolocal,idparceiro,idlocal,idnexportadoerp,codigoerp) values (nextval('seqpkparceirolocal'),idfilial,internalid,1,externalid) ;

	insert into localfilial (idlocalfilial,idlocal,idfilial,idnpadrao,codigoerp) values (nextval('seqpklocalfilial'),internalid,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) ;	

	return query select internalid;
END;

postfiliallocal(integer, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, integer, character varying, integer, character varying)

Parameters

Definition