TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idfiliallocal	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	
	idlocal_ 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 idlocal_ 
		idlocal from local where idlocal = internalid ;
	IF NOT FOUND THEN 
		RAISE EXCEPTION 'idlocal = %', internalid
      		USING HINT = 'There is no idlocal in local';
    end if; 	 
	 
	if  PutTransportadoraLocal.idcidade is not null then
		select into idcidade_,idunidadefederativa c.idcidade,c.idunidadefederativa from cidade c where c.idcidade = PutTransportadoraLocal.idcidade ;
	end if;
	
	if  PutTransportadoraLocal.idcidade is null and PutTransportadoraLocal.idcidade_externalid is not null then
		select into idcidade_,idunidadefederativa c.idcidade,c.idunidadefederativa from cidade c where c.codigoerp = PutTransportadoraLocal.idcidade_externalid ;
	end if;
	
	curdate := 'now';	 
	
	update local set 
		idnativo = case when PutTransportadoraLocal.idnativo = -99999 then local.idnativo else PutTransportadoraLocal.idnativo end, 
		descricao = case when PutTransportadoraLocal.descricao = 'NOVALUEWS' then local.descricao else PutTransportadoraLocal.descricao end, 
		numeromatricula = case when PutTransportadoraLocal.numeromatricula = 'NOVALUEWS' then local.numeromatricula else PutTransportadoraLocal.numeromatricula end, 
		bairro = case when PutTransportadoraLocal.bairro = 'NOVALUEWS' then local.bairro else PutTransportadoraLocal.bairro end, 
		cnpj = case when PutTransportadoraLocal.cnpj = 'NOVALUEWS' then local.cnpj else PutTransportadoraLocal.cnpj end, 
		cep = case when PutTransportadoraLocal.cep = 'NOVALUEWS' then local.cep else PutTransportadoraLocal.cep end, 
		inscricaoestadual = case when PutTransportadoraLocal.inscricaoestadual = 'NOVALUEWS' then local.inscricaoestadual else PutTransportadoraLocal.inscricaoestadual end, 
		inscricaomunicipal = case when PutTransportadoraLocal.inscricaomunicipal = 'NOVALUEWS' then local.inscricaomunicipal else PutTransportadoraLocal.inscricaomunicipal end, 
		logradouro = case when PutTransportadoraLocal.logradouro = 'NOVALUEWS' then local.logradouro else PutTransportadoraLocal.logradouro end, 
		numerologradouro = case when PutTransportadoraLocal.numerologradouro = 'NOVALUEWS' then local.numerologradouro else PutTransportadoraLocal.numerologradouro end, 
		complemento = case when PutTransportadoraLocal.complemento = 'NOVALUEWS' then local.complemento else PutTransportadoraLocal.complemento end,
		dataultimaatualizacao = curdate, 
		idcidade = case when PutTransportadoraLocal.idcidade = -99999 then local.idcidade else idcidade_ end, 
		idunidadefederativafiscal = case when PutTransportadoraLocal.idcidade = -99999 then local.idunidadefederativafiscal else idunidadefederativa end,
		codigoerp = case when PutTransportadoraLocal.externalid = 'NOVALUEWS' then local.codigoerp else PutTransportadoraLocal.externalid end 
	where idlocal = internalid ;

	update parceirolocal set 
		codigoerp = case when PutTransportadoraLocal.externalid = 'NOVALUEWS' then parceirolocal.codigoerp else PutTransportadoraLocal.externalid end 
	where idlocal = internalid ;

	update localfilial set 
		idfilial = case when idfiliallocal = -99999 then localfilial.idfilial else idfiliallocal end,
		codigoerp = case when PutTransportadoraLocal.externalid = 'NOVALUEWS' then localfilial.codigoerp else PutTransportadoraLocal.externalid end 
	where idlocal = internalid ;
	
	update localtipolocal set 
		idnativo = case when PutTransportadoraLocal.idnativo = -99999 then localtipolocal.idnativo else PutTransportadoraLocal.idnativo end, 
		codigoerp = case when PutTransportadoraLocal.externalid = 'NOVALUEWS' then localtipolocal.codigoerp else PutTransportadoraLocal.externalid end 
	where idlocal = internalid ;
	
	return query select internalid ;	
END;

puttransportadoralocal(integer, 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