TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idfiliallocal	integer	IN
idfiliallocal_externalid	character varying	IN
idsegmento	integer	IN
idsegmento_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idtipopedido	integer	IN
idtipopedido_externalid	character varying	IN
idusuario	integer	IN
idusuario_externalid	character varying	IN
valorminimo	numeric	IN

Definition

begin

-- EXTERNALID E INTERNALID NAO INFORMADOS
	if coalesce(PutLocalTipoPedido.externalid,'') = '' and PutLocalTipoPedido.internalid is null then 
	RAISE EXCEPTION 'externalid = % and internalid = %', PutLocalTipoPedido.externalid, PutLocalTipoPedido.internalid
		USING HINT = 'Fields internalid and externalid must be not null';
	end if; 
	
	-- LOOKUP INTERNALID
	IF PutLocalTipoPedido.internalid IS NULL 
	THEN PutLocalTipoPedido.internalid = (SELECT L.IDLOCALTIPOPEDIDO FROM LOCALTIPOPEDIDO L WHERE L.CODIGOERP = PutLocalTipoPedido.externalid);
	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 must not be null or different from 1 or 0.';
     end if;

--LOOKUP TIPOPEDIDO
	IF PutLocalTipoPedido.idtipopedido IS NULL AND PutLocalTipoPedido.idtipopedido_externalid IS NOT NULL
		THEN PutLocalTipoPedido.idtipopedido = (SELECT C2.idtipopedido FROM TIPOPEDIDO C2 WHERE C2.CODIGOERP = PutLocalTipoPedido.idtipopedido_externalid);
	END IF;

--TIPOPEDIDO NULO
	if PutLocalTipoPedido.idtipopedido is null then 
		RAISE EXCEPTION 'idtipopedido = %', PutLocalTipoPedido.idtipopedido
      		USING HINT = 'Field idtipopedido must be not null';
    end if;	 
	
	--LOOKUP LOCAL
	IF PutLocalTipoPedido.idclientelocal IS NULL AND PutLocalTipoPedido.idclientelocal_externalid IS NOT NULL
		THEN PutLocalTipoPedido.idclientelocal = (SELECT C2.idlocal FROM LOCAL C2 WHERE C2.CODIGOERP = PutLocalTipoPedido.idclientelocal_externalid);
	END IF;

--LOCAL NULO
	--if PutLocalTipoPedido.idclientelocal is null then 
	--	RAISE EXCEPTION 'idclientelocal = %', PutLocalTipoPedido.idclientelocal
    --  		USING HINT = 'Field idclientelocal must be not null';
    --end if;

--LOOKUPS NÃO OBRIGATÓRIOS
	--LOOKUP IDFILIALLOCAL
	IF PutLocalTipoPedido.idfiliallocal IS NULL AND PutLocalTipoPedido.idfiliallocal_externalid IS NOT NULL
		THEN PutLocalTipoPedido.idfiliallocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutLocalTipoPedido.idfiliallocal_externalid);
	END IF;

--LOOKUP SEGMENTO
	IF PutLocalTipoPedido.idsegmento IS NULL AND PutLocalTipoPedido.idsegmento_externalid IS NOT NULL
		THEN PutLocalTipoPedido.idsegmento = (SELECT C2.idsegmento FROM SEGMENTO C2 WHERE C2.CODIGOERP = PutLocalTipoPedido.idsegmento_externalid);
	END IF;		
	
	--LOOKUP USUARIO
	IF PutLocalTipoPedido.idusuario IS NULL AND PutLocalTipoPedido.idusuario_externalid IS NOT NULL
		THEN PutLocalTipoPedido.idusuario = (SELECT C2.idusuario FROM USUARIO C2 WHERE C2.CODIGOERP = PutLocalTipoPedido.idusuario_externalid);
	END IF;		
	 
	-- UPDATE
	update localtipopedido set 
		idlocalfilial = case when PutLocalTipoPedido.idfiliallocal = -99999 then localtipopedido.idlocalfilial else PutLocalTipoPedido.idfiliallocal end,
		idlocal = case when PutLocalTipoPedido.idclientelocal = -99999 then localtipopedido.idlocal else PutLocalTipoPedido.idclientelocal end,
		idnpadrao = case when PutLocalTipoPedido.idnpadrao = -99999 then localtipopedido.idnpadrao else PutLocalTipoPedido.idnpadrao end,
		idsegmento = case when PutLocalTipoPedido.idsegmento = -99999 then localtipopedido.idsegmento else PutLocalTipoPedido.idsegmento end,
		idtipopedido = case when PutLocalTipoPedido.idtipopedido = -99999 then localtipopedido.idtipopedido else PutLocalTipoPedido.idtipopedido end,
		idusuario = case when PutLocalTipoPedido.idusuario = -99999 then localtipopedido.idusuario else PutLocalTipoPedido.idusuario end,
		valorminimo = case when PutLocalTipoPedido.valorminimo = -99999 then localtipopedido.valorminimo else PutLocalTipoPedido.valorminimo end,
		codigoerp = case when PutLocalTipoPedido.externalid = 'NOVALUEWS' then localtipopedido.codigoerp else PutLocalTipoPedido.externalid end	
	where idlocaltipopedido = internalid;
	
	return query select internalid;

END;

putlocaltipopedido(integer, integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, numeric)

Parameters

Definition