TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
razaosocial	character varying	IN
nomefantasia	character varying	IN
sgltipopessoa	character varying	IN
cgc	character varying	IN
email	character varying	IN
homepage	character varying	IN
observacao	character varying	IN
datanascimento	character varying	IN
idclassificacaoparceiro	integer	IN
idclassificacaoparceiro_externalid	character varying	IN
idnativo	integer	IN
externalid	character varying	IN
numeromatricula	character varying	IN
idusuario	integer	IN
idusuario_externalid	character varying	IN

Definition

declare	
	idparceiro_ integer;
	curdate date;
begin
	
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutCliente.externalid,'')='' and PutCliente.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutCliente.externalid, PutCliente.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;

--SGLTIPOPESSOA NULA
		if sgltipopessoa is null then 
			RAISE EXCEPTION 'sgltipopessoa = %', sgltipopessoa
				USING HINT = 'Field sgltipopessoa must be not null';
		end if;

-- LOOKUP
		-- CLIENTE
		IF PutCliente.internalid IS NULL 
		THEN PutCliente.internalid = (SELECT IDPARCEIRO FROM PARCEIRO WHERE CODIGOERP = PutCliente.externalid);
		END IF;

select into idparceiro_ idparceiro from parceiro where idparceiro = internalid ;
		IF NOT FOUND THEN
			RAISE EXCEPTION 'idcliente = %', internalid
				USING HINT = 'There is no idcliente in cliente';
		end if;

-- CLASSIFICACAOPARCEIRO
		IF PutCliente.idclassificacaoparceiro IS NULL AND PutCliente.idclassificacaoparceiro_externalid <> 'NOVALUEWS'
			THEN PutCliente.idclassificacaoparceiro = (SELECT C2.IDCLASSIFICACAOPARCEIRO FROM CLASSIFICACAOPARCEIRO C2 WHERE C2.CODIGOERP = PutCliente.idclassificacaoparceiro_externalid);
		END IF;
		
		--IDUSUARIO
		IF PutCliente.idusuario IS NULL AND PutCliente.idusuario_externalid IS NOT NULL
			THEN PutCliente.idusuario = (SELECT C2.IDUSUARIO FROM USUARIO C2 WHERE C2.CODIGOERP = PutCliente.idusuario_externalid);
		END IF;	 
	
	curdate = current_date;	 
	
	update parceiro set 
		nomeparceiro = case when PutCliente.razaosocial = 'NOVALUEWS' then parceiro.nomeparceiro else PutCliente.razaosocial end, 
		nomeparceirofantasia = case when PutCliente.nomefantasia = 'NOVALUEWS' then parceiro.nomeparceirofantasia else PutCliente.nomefantasia end, 
		sgltipopessoa = case when PutCliente.sgltipopessoa = 'NOVALUEWS' then parceiro.sgltipopessoa else PutCliente.sgltipopessoa end, 
		idnativo = case when PutCliente.idnativo = -99999 then parceiro.idnativo else PutCliente.idnativo end, 
		dataultimaatualizacao = curdate, 
		email = case when PutCliente.email = 'NOVALUEWS' then parceiro.email else PutCliente.email end, 
		homepage = case when PutCliente.homepage = 'NOVALUEWS' then parceiro.homepage else PutCliente.homepage end, 
		observacao = case when PutCliente.observacao = 'NOVALUEWS' then parceiro.observacao else PutCliente.observacao end, 
		idclassificacaoparceiro = case when PutCliente.idclassificacaoparceiro = -99999 then parceiro.idclassificacaoparceiro else PutCliente.idclassificacaoparceiro end,
		codigoerp = case when PutCliente.externalid = 'NOVALUEWS' then parceiro.codigoerp else PutCliente.externalid end,
		numeromatricula = case when PutCliente.numeromatricula = 'NOVALUEWS' then parceiro.numeromatricula else PutCliente.numeromatricula end,
		idusuariogerador = case when PutCliente.idusuario = -99999 then parceiro.idusuariogerador else PutCliente.idusuario end
	where idparceiro = internalid ;
	
	if sgltipopessoa = 'PJ' then	
		update pessoajuridica set 
			cnpjprincipal = case when PutCliente.cgc = 'NOVALUEWS' then pessoajuridica.cnpjprincipal else PutCliente.cgc end, 
			documentoidentificacao = case when PutCliente.cgc = 'NOVALUEWS' then pessoajuridica.documentoidentificacao else PutCliente.cgc end, 
			datafundacao = case when PutCliente.datanascimento = 'NOVALUEWS' then pessoajuridica.datafundacao else TO_DATE(datanascimento,'YYYY-MM-DD') end,
		codigoerp = case when PutCliente.externalid = 'NOVALUEWS' then codigoerp else PutCliente.externalid end
		where idpessoajuridica = internalid ;
	else
		update pessoafisica set 
			cpf = case when PutCliente.cgc = 'NOVALUEWS' then pessoafisica.cpf else PutCliente.cgc end, 
			documentoidentificacao = case when PutCliente.cgc = 'NOVALUEWS' then pessoafisica.documentoidentificacao else PutCliente.cgc end, 
			dianascimento = EXTRACT(DAY from TO_DATE(datanascimento,'YYYY-MM-DD')), 
			mesnascimento = EXTRACT(MONTH from TO_DATE(datanascimento,'YYYY-MM-DD')), 
			anonascimento = EXTRACT(YEAR from TO_DATE(datanascimento,'YYYY-MM-DD')),
		codigoerp = case when PutCliente.externalid = 'NOVALUEWS' then codigoerp else PutCliente.externalid end
		where idpessoafisica = internalid ;
	end if;

return query select internalid ;	
END;

putcliente(integer, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, integer, character varying, integer, character varying, character varying, integer, character varying)

Parameters

Definition