TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idcliente	integer	IN
idcliente_externalid	character varying	IN
idgrupocliente	integer	IN
idgrupocliente_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN

Definition

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

--IDNPADRAO NULO OU FORA DO PADRAO 
		if idnpadrao not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnpadrao = %', idnpadrao
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;
	
	-- LOOKUP
		-- PARCEIROGRUPOPARCEIRO
		IF PutClienteGrupoCliente.internalid IS NULL 
		THEN PutClienteGrupoCliente.internalid = (SELECT IDPARCEIROGRUPOPARCEIRO FROM PARCEIROGRUPOPARCEIRO WHERE CODIGOERP = PutClienteGrupoCliente.externalid);
		END IF;

--CLIENTE
		IF PutClienteGrupoCliente.idcliente IS NULL AND PutClienteGrupoCliente.idcliente_externalid IS NOT NULL
			THEN PutClienteGrupoCliente.idcliente = (SELECT C2.IDPARCEIRO FROM PARCEIRO C2 WHERE C2.CODIGOERP = PutClienteGrupoCliente.idcliente_externalid);
		END IF;

if PutClienteGrupoCliente.idcliente IS NULL then 
			RAISE EXCEPTION 'idcliente = %', idcliente
				USING HINT = 'Field idcliente must be not null';
		end if; 
	
		--GRUPOPARCEIRO
		IF PutClienteGrupoCliente.idgrupocliente IS NULL AND PutClienteGrupoCliente.idgrupocliente_externalid IS NOT NULL
			THEN PutClienteGrupoCliente.idgrupocliente = (SELECT C2.IDGRUPOPARCEIRO FROM GRUPOPARCEIRO C2 WHERE C2.CODIGOERP = PutClienteGrupoCliente.idgrupocliente_externalid);
		END IF;

if PutClienteGrupoCliente.idgrupocliente IS NULL then 
			RAISE EXCEPTION 'idgrupocliente = %', idgrupocliente
				USING HINT = 'Field idgrupocliente must be not null';
		end if;

-- UPDATE
	update PARCEIROGRUPOPARCEIRO set 
		idparceiro = case when PutClienteGrupoCliente.idcliente = -99999 then PARCEIROGRUPOPARCEIRO.idparceiro else PutClienteGrupoCliente.idcliente end, 
		idgrupoparceiro = case when PutClienteGrupoCliente.idgrupocliente = -99999 then PARCEIROGRUPOPARCEIRO.idgrupoparceiro else PutClienteGrupoCliente.idgrupocliente end, 
		idnpadrao = case when PutClienteGrupoCliente.idnpadrao = -99999 then PARCEIROGRUPOPARCEIRO.idnpadrao else PutClienteGrupoCliente.idnpadrao end,
		codigoerp = case when PutClienteGrupoCliente.externalid = 'NOVALUEWS' then PARCEIROGRUPOPARCEIRO.codigoerp else PutClienteGrupoCliente.externalid end
	where IDPARCEIROGRUPOPARCEIRO = internalid ;

return query select internalid;
END;

putclientegrupocliente(integer, integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition