TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
descricao	character varying	IN
idndisponivelparapedido	integer	IN
sgltipopedido	character varying	IN
idnativo	integer	IN
externalid	character varying	IN
sgltipotes	character varying	IN

Definition

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

--IDNATIVO FORA DO PADRAO 
		if idnativo not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnativo = %', idnativo
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;  
		
		--DESCRICAO NULA
		if descricao is null then 
			RAISE EXCEPTION 'descricao = %', descricao
				USING HINT = 'Field descricao must be not null';
		end if;

-- LOOKUP
		-- TIPO PEDIDO
		IF PutTipoPedido.internalid IS NULL 
		THEN PutTipoPedido.internalid = (SELECT IDTIPOPEDIDO FROM TIPOPEDIDO WHERE CODIGOERP = PutTipoPedido.externalid);
		END IF;

-- UPDATE
	update tipopedido set 
		descricao = case when PutTipoPedido.descricao = 'NOVALUEWS' then tipopedido.descricao else PutTipoPedido.descricao end, 
		idndisponivelparapedido = case when PutTipoPedido.idndisponivelparapedido = -99999 then tipopedido.idndisponivelparapedido else PutTipoPedido.idndisponivelparapedido end, 
		sgltipopedido = case when PutTipoPedido.sgltipopedido = 'NOVALUEWS' then tipopedido.sgltipopedido else PutTipoPedido.sgltipopedido end, 
		idnativo = case when PutTipoPedido.idnativo = -99999 then tipopedido.idnativo else PutTipoPedido.idnativo end, 
		sgltipotes = case when Puttipopedido.sgltipotes = 'NOVALUEWS' then tipopedido.sgltipotes else Puttipopedido.sgltipotes end,
		codigoerp = case when Puttipopedido.externalid = 'NOVALUEWS' then codigoerp else Puttipopedido.externalid end
	where idtipopedido = internalid ;

return query select internalid;
END;

puttipopedido(integer, character varying, integer, character varying, integer, character varying, character varying)

Parameters

Definition