TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idcliente	integer	IN
idcliente_externalid	character varying	IN
idtransportador	integer	IN
idtransportador_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN

Definition

begin    
	
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutClienteTransportador.externalid,'')='' and PutClienteTransportador.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutClienteTransportador.externalid, PutClienteTransportador.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
		-- PARCEIROTRANSPORTADOR
		IF PutClienteTransportador.internalid IS NULL 
		THEN PutClienteTransportador.internalid = (SELECT IDPARCEIROTRANSPORTADOR FROM PARCEIROTRANSPORTADOR WHERE CODIGOERP = PutClienteTransportador.externalid);
		END IF;

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

if PutClienteTransportador.idcliente IS NULL then 
			RAISE EXCEPTION 'idcliente = %', idcliente
				USING HINT = 'Field idcliente must be not null';
		end if; 
	
		--TRANSPORTADOR
		IF PutClienteTransportador.idtransportador IS NULL AND PutClienteTransportador.idtransportador_externalid IS NOT NULL
			THEN PutClienteTransportador.idtransportador = (SELECT C2.IDPARCEIRO FROM PARCEIRO C2 WHERE C2.CODIGOERP = PutClienteTransportador.idtransportador_externalid);
		END IF;

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

-- UPDATE
	update parceirotransportador set 
		idparceiro = case when PutClienteTransportador.idcliente = -99999 then parceirotransportador.idparceiro else PutClienteTransportador.idcliente end, 
		idtransportador = case when PutClienteTransportador.idtransportador = -99999 then parceirotransportador.idtransportador else PutClienteTransportador.idtransportador end, 
		idnpadrao = case when PutClienteTransportador.idnpadrao = -99999 then parceirotransportador.idnpadrao else PutClienteTransportador.idnpadrao end,
		codigoerp = case when PutClienteTransportador.externalid = 'NOVALUEWS' then codigoerp else PutClienteTransportador.externalid end
	where idparceirotransportador = internalid ;

return query select internalid;
END;

putclientetransportador(integer, integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition