TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idtipolocal	integer	IN
idfiliallocal	integer	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	
	idparceiro_ integer;
	idlocal_ integer;
	sgltipopessoa_ varchar(10);	
	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_, idlocal_ 
		idparceiro, idlocal from parceirolocal where idlocal = internalid ;
	 
	if  PutClienteLocal.idcidade is not null then
		select into idcidade_,idunidadefederativa c.idcidade,c.idunidadefederativa from cidade c where c.idcidade = PutClienteLocal.idcidade ;
	end if;
	
	if  PutClienteLocal.idcidade is null and PutClienteLocal.idcidade_externalid is not null then
		select into idcidade_,idunidadefederativa c.idcidade,c.idunidadefederativa from cidade c where c.codigoerp = PutClienteLocal.idcidade_externalid ;
	end if;
	
	select into sgltipopessoa_ sgltipopessoa from parceiro where idparceiro = idparceiro_ ;
	 
	curdate := 'now';	 
	
	update local set 
		idnativo = case when PutClienteLocal.idnativo = -99999 then local.idnativo else PutClienteLocal.idnativo end, 
		descricao = case when PutClienteLocal.descricao = 'NOVALUEWS' then local.descricao else PutClienteLocal.descricao end, 
		numeromatricula = case when PutClienteLocal.numeromatricula = 'NOVALUEWS' then local.numeromatricula else PutClienteLocal.numeromatricula end, 
		bairro = case when PutClienteLocal.bairro = 'NOVALUEWS' then local.bairro else PutClienteLocal.bairro end, 
		cnpj = case when PutClienteLocal.cgc = 'NOVALUEWS' then local.cnpj else PutClienteLocal.cgc end, 
		documentoidentificacao = case when PutClienteLocal.rg = 'NOVALUEWS' then local.documentoidentificacao else PutClienteLocal.rg end, 
		cep = case when PutClienteLocal.cep = 'NOVALUEWS' then local.cep else PutClienteLocal.cep end, 
		inscricaoestadual = case when PutClienteLocal.inscricaoestadual = 'NOVALUEWS' then local.inscricaoestadual else PutClienteLocal.inscricaoestadual end, 
		inscricaomunicipal = case when PutClienteLocal.inscricaomunicipal = 'NOVALUEWS' then local.inscricaomunicipal else PutClienteLocal.inscricaomunicipal end, 
		logradouro = case when PutClienteLocal.logradouro = 'NOVALUEWS' then local.logradouro else PutClienteLocal.logradouro end, 
		numerologradouro = case when PutClienteLocal.numerologradouro = 'NOVALUEWS' then local.numerologradouro else PutClienteLocal.numerologradouro end, 
		complemento = case when PutClienteLocal.complemento = 'NOVALUEWS' then local.complemento else PutClienteLocal.complemento end,
		dataultimaatualizacao = curdate, 
		idcidade = case when PutClienteLocal.idcidade = -99999 then local.idcidade else idcidade_ end, 
		idunidadefederativafiscal = case when PutClienteLocal.idcidade = -99999 then local.idunidadefederativafiscal else idunidadefederativa end,
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then local.codigoerp else PutClienteLocal.externalid end 
	where idlocal = internalid ;

	update localidentificacao set 
		documentoidentificacao = case when PutClienteLocal.cgc = 'NOVALUEWS' then localidentificacao.documentoidentificacao else PutClienteLocal.cgc end, 
		idtipoidentificacao = (select idtipoidentificacao from tipoidentificacao where sigla = CASE WHEN sgltipopessoa_ = 'PJ' THEN 'cnpj' ELSE 'cpf' END), 
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then localidentificacao.codigoerp else PutClienteLocal.externalid end 
	where idlocal = internalid ;
	
	update parceirolocal set 
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then parceirolocal.codigoerp else PutClienteLocal.externalid end 
	where idlocal = internalid ;
	
	update localfilial set 
		idfilial = case when PutClienteLocal.idfiliallocal = -99999 then localfilial.idfilial else idfiliallocal end,
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then localfilial.codigoerp else PutClienteLocal.externalid end 
	where idlocal = internalid ;
	
	update localtipolocal set 
		idtipolocal = case when PutClienteLocal.idtipolocal = -99999 then localtipolocal.idtipolocal else PutClienteLocal.idtipolocal end, 
		idnativo = case when PutClienteLocal.idnativo = -99999 then localtipolocal.idnativo else PutClienteLocal.idnativo end, 
		codigoerp = case when PutClienteLocal.externalid = 'NOVALUEWS' then localtipolocal.codigoerp else PutClienteLocal.externalid end 
	where idlocal = internalid ;

	return query select idlocal_;
END;