TOTVS CRM | SFA - 12.1.2501

Parameters

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

Definition

declare	
	internalid integer;
begin

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

--IDNPADRAO NULO OU FORA DO PADRAO 
	if idnpadrao is null or idnpadrao not in (0,1) then 
		RAISE EXCEPTION 'idnpadrao = %', idnpadrao
      		USING HINT = 'Field idnpadrao must not be null or different from 1 or 0.';
     end if;

--CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if;

--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PARCEIROTRANSPORTADOR WHERE CODIGOERP = PostClienteTransportador.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostClienteTransportador.externalid 
				USING HINT = 'The record (externalid = '|| PostClienteTransportador.externalid ||') already exists, it was not possible to insert it.';
		ELSE 
			insert into parceirotransportador (idparceirotransportador,idparceiro,idtransportador,idnpadrao,codigoerp) values (nextval('seqpkparceirotransportador'),idcliente,idtransportador,idnpadrao,externalid) returning idparceirotransportador into internalid;
	end if;	
	
	return query select internalid;
END;

postclientetransportador(integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition