TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idsegmento	integer	IN
idsegmento_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN

Definition

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

-- CLIENTELOCAL
		IF PutLocalSegmento.idclientelocal IS NULL AND PutLocalSegmento.idclientelocal_externalid IS NOT NULL
			THEN PutLocalSegmento.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutLocalSegmento.idclientelocal_externalid);
		END IF;

if PutLocalSegmento.idclientelocal is null then 
		RAISE EXCEPTION 'idclientelocal = %', PutLocalSegmento.idclientelocal
			USING HINT = 'Field idclientelocal must be not null';
		end if;
			--LOOKUP CLIENTE
			idparceiro_ = (SELECT distinct C2.idparceiro FROM parceirolocal C2 WHERE C2.idlocal = PutLocalSegmento.idclientelocal);	 
	 
		-- SEGMENTO
		IF PutLocalSegmento.idsegmento IS NULL AND PutLocalSegmento.idsegmento_externalid IS NOT NULL
			THEN PutLocalSegmento.idsegmento = (SELECT C2.idsegmento FROM SEGMENTO C2 WHERE C2.CODIGOERP = PutLocalSegmento.idsegmento_externalid);
		END IF;

if PutLocalSegmento.idsegmento is null then 
			RAISE EXCEPTION 'idsegmento = %', PutLocalSegmento.idsegmento
				USING HINT = 'Field idsegmento must be not null';
		end if;	 
	 
	-- UPDATE
	update localsegmento set 
		idparceiro = case when PutLocalSegmento.idclientelocal = -99999 then localsegmento.idparceiro else idparceiro_ end, 
		idlocal = case when PutLocalSegmento.idclientelocal = -99999 then localsegmento.idlocal else PutLocalSegmento.idclientelocal end, 
		idsegmento = case when PutLocalSegmento.idsegmento = -99999 then localsegmento.idsegmento else PutLocalSegmento.idsegmento end, 
		idnpadrao = case when PutLocalSegmento.idnpadrao = -99999 then localsegmento.idnpadrao else PutLocalSegmento.idnpadrao end,
		codigoerp = case when PutLocalSegmento.externalid = 'NOVALUEWS' then codigoerp else PutLocalSegmento.externalid end
	where idlocalsegmento = internalid ;

return query select internalid;
END;

putlocalsegmento(integer, integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition