TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idregiao	integer	IN
idregiao_externalid	character varying	IN
externalid	character varying	IN

Definition

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

-- LOOKUP
		-- LOCALREGIAO
		IF PutLocalRegiao.internalid IS NULL 
		THEN PutLocalRegiao.internalid = (SELECT IDLOCALREGIAO FROM LOCALREGIAO WHERE CODIGOERP = PutLocalRegiao.externalid);
		END IF;
	
		-- CLIENTELOCAL
		IF PutLocalRegiao.idclientelocal IS NULL AND PutLocalRegiao.idclientelocal_externalid IS NOT NULL
			THEN PutLocalRegiao.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutLocalRegiao.idclientelocal_externalid);
		END IF;

if PutLocalRegiao.idclientelocal is null then 
		RAISE EXCEPTION 'idclientelocal = %', PutLocalRegiao.idclientelocal
			USING HINT = 'Field idclientelocal must be not null';
		end if;
		
		-- REGIAO
		IF PutLocalRegiao.idregiao IS NULL AND PutLocalRegiao.idregiao_externalid IS NOT NULL
			THEN PutLocalRegiao.idregiao = (SELECT C2.idregiao FROM REGIAO C2 WHERE C2.CODIGOERP = PutLocalRegiao.idregiao_externalid);
		END IF;

if PutLocalRegiao.idregiao is null then 
		RAISE EXCEPTION 'idregiao = %', PutLocalRegiao.idregiao
			USING HINT = 'Field idregiao must be not null';
		end if;	 
	 	
    -- UPDATE
	update localregiao set 
		idlocal = case when PutLocalRegiao.idclientelocal = -99999 then localregiao.idlocal else PutLocalRegiao.idclientelocal end, 
		idregiao = case when PutLocalRegiao.idregiao = -99999 then localregiao.idregiao else PutLocalRegiao.idregiao end,
		codigoerp = case when PutLocalRegiao.externalid = 'NOVALUEWS' then codigoerp else PutLocalRegiao.externalid end
	where idlocalregiao = internalid ;

return query select internalid;
END;

putlocalregiao(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition