TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
razaosocial	character varying	IN
nomefantasia	character varying	IN
cnpj	character varying	IN
homepage	character varying	IN
idnativo	integer	IN
externalid	character varying	IN

Definition

declare	
	curdate date;
begin
	curdate = current_date;

-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutTransportadora.externalid,'')='' and PutTransportadora.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutTransportadora.externalid, PutTransportadora.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if;

--IDNATIVO FORA DO PADRAO 
		if 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;  
			
		--DESCRICAO NULA
		if razaosocial is null then 
			RAISE EXCEPTION 'razaosocial = %', razaosocial
				USING HINT = 'Field razaosocial must be not null';
		end if;

-- LOOKUP
		-- TRANSPORTADORA
		IF PutTransportadora.internalid IS NULL 
		THEN PutTransportadora.internalid = (SELECT IDPARCEIRO FROM PARCEIRO WHERE CODIGOERP = PutTransportadora.externalid);
		END IF;
	
	-- UPDATE
	update parceiro set 
		nomeparceiro = case when PutTransportadora.razaosocial = 'NOVALUEWS' then parceiro.nomeparceiro else PutTransportadora.razaosocial end, 
		nomeparceirofantasia = case when PutTransportadora.nomefantasia = 'NOVALUEWS' then parceiro.nomeparceirofantasia else PutTransportadora.nomefantasia end, 
		idnativo = case when PutTransportadora.idnativo = -99999 then parceiro.idnativo else PutTransportadora.idnativo end, 
		dataultimaatualizacao = curdate, 
		homepage = case when PutTransportadora.homepage = 'NOVALUEWS' then parceiro.homepage else PutTransportadora.homepage end,
		codigoerp = case when PutTransportadora.externalid = 'NOVALUEWS' then codigoerp else PutTransportadora.externalid end
	where idparceiro = internalid ;
	
	update pessoajuridica set 
		cnpjprincipal = case when PutTransportadora.cnpj = 'NOVALUEWS' then pessoajuridica.cnpjprincipal else PutTransportadora.cnpj end, 
		documentoidentificacao = case when PutTransportadora.cnpj = 'NOVALUEWS' then pessoajuridica.documentoidentificacao else PutTransportadora.cnpj end,
		codigoerp = case when PutTransportadora.externalid = 'NOVALUEWS' then codigoerp else PutTransportadora.externalid end
	where idpessoajuridica = internalid ;
	
	return query select internalid ;	
END;

puttransportadora(integer, character varying, character varying, character varying, character varying, integer, character varying)

Parameters

Definition