TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
numeropedido	character varying	IN
numeropedidoerp	character varying	IN
sglorigempedido	character varying	IN
horatransmissao	character varying	IN
datatransmissao	character varying	IN
observacaopedido	character varying	IN
observacaonotafiscal	character varying	IN
datapedido	character varying	IN
idfiliallocalfaturamento	integer	IN
idfiliallocalfaturamento_externalid	character varying	IN
idfiliallocalvenda	integer	IN
idfiliallocalvenda_externalid	character varying	IN
idtabelapreco	integer	IN
idtabelapreco_externalid	character varying	IN
idcondicaopagamento	integer	IN
idcondicaopagamento_externalid	character varying	IN
idtiposituacaopedido	integer	IN
idtiposituacaopedido_externalid	character varying	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idcliente	integer	IN
idcliente_externalid	character varying	IN
idusuario	integer	IN
idusuario_externalid	character varying	IN
valortotal	numeric	IN
quantidadetotal	numeric	IN
idtipopedido	integer	IN
idtipopedido_externalid	character varying	IN
externalid	character varying	IN
observacaointegracao	character varying	IN
idnexportadoerp	bigint	IN

Definition

begin	
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutPedido.externalid,'')='' and PutPedido.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutPedido.externalid, PutPedido.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if; 	

		--IDNEXPORTADOERP NULO OU FORA DO PADRAO 
		if idnexportadoerp not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnexportadoerp = %', idnexportadoerp
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;  
	
		--DATAPEDIDO NULO
		if PutPedido.datapedido is null then 
			RAISE EXCEPTION 'datapedido = %', PutPedido.datapedido
				USING HINT = 'Field datapedido must be not null';
		end if;
		
		--NUMEROPEDIDO NULO
		if PutPedido.numeropedido is null then 
			RAISE EXCEPTION 'numeropedido = %', PutPedido.numeropedido
				USING HINT = 'Field numeropedido must be not null';
		end if;	

		--SGLORIGEMPEDIDO NULO
		if PutPedido.sglorigempedido is null then 
			RAISE EXCEPTION 'sglorigempedido = %', PutPedido.sglorigempedido
				USING HINT = 'Field sglorigempedido must be not null';
		end if;

	-- LOOKUP
		-- PEDIDO
		IF PutPedido.internalid IS NULL 
		THEN PutPedido.internalid = (SELECT IDPEDIDO FROM PEDIDO WHERE CODIGOERP = PutPedido.externalid);
		END IF; 
	
		-- TIPOSITUACAOPEDIDO
		IF PutPedido.idtiposituacaopedido IS NULL AND PutPedido.idtiposituacaopedido_externalid IS NOT NULL
			THEN PutPedido.idtiposituacaopedido = (SELECT C2.idtiposituacaopedido FROM tiposituacaopedido C2 WHERE C2.CODIGOERP = PutPedido.idtiposituacaopedido_externalid);
		END IF;	

		if PutPedido.idtiposituacaopedido is null then 
			RAISE EXCEPTION 'idtiposituacaopedido = %', PutPedido.idtiposituacaopedido
				USING HINT = 'Field idtiposituacaopedido must be not null';
		end if;

		-- CLIENTELOCAL
		IF PutPedido.idclientelocal IS NULL AND PutPedido.idclientelocal_externalid IS NOT NULL
			THEN PutPedido.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutPedido.idclientelocal_externalid);
		END IF;	

		if PutPedido.idclientelocal is null then 
			RAISE EXCEPTION 'idclientelocal = %', PutPedido.idclientelocal
				USING HINT = 'Field idclientelocal must be not null';
		end if;

		-- CLIENTE
		IF PutPedido.idcliente IS NULL AND PutPedido.idcliente_externalid IS NOT NULL
			THEN PutPedido.idcliente = (SELECT C2.idparceiro FROM parceiro C2 WHERE C2.CODIGOERP = PutPedido.idcliente_externalid);
		END IF;	

		if PutPedido.idcliente is null then 
			RAISE EXCEPTION 'idcliente = %', PutPedido.idcliente
				USING HINT = 'Field idcliente must be not null';
		end if;

		-- USUARIO
		IF PutPedido.idusuario IS NULL AND PutPedido.idusuario_externalid IS NOT NULL
			THEN PutPedido.idusuario = (SELECT C2.idusuario FROM USUARIO C2 WHERE C2.CODIGOERP = PutPedido.idusuario_externalid);
		END IF;	

		if PutPedido.idusuario is null then 
			RAISE EXCEPTION 'idusuario = %', PutPedido.idusuario
				USING HINT = 'Field idusuario must be not null';
		end if;
		
		-- FILIALFATURAMENTO
		IF PutPedido.idfiliallocalfaturamento IS NULL AND PutPedido.idfiliallocalfaturamento_externalid IS NOT NULL
			THEN PutPedido.idfiliallocalfaturamento = (SELECT C2.idlocal FROM LOCAL C2 WHERE C2.CODIGOERP = PutPedido.idfiliallocalfaturamento_externalid);
		END IF;	
		
		-- FILIALVENDA
		IF PutPedido.idfiliallocalvenda IS NULL AND PutPedido.idfiliallocalvenda_externalid IS NOT NULL
			THEN PutPedido.idfiliallocalvenda = (SELECT C2.idlocal FROM LOCAL C2 WHERE C2.CODIGOERP = PutPedido.idfiliallocalvenda_externalid);
		END IF;		
		
		-- CONDICAOPAGAMENTO
		IF PutPedido.idcondicaopagamento IS NULL AND PutPedido.idcondicaopagamento_externalid IS NOT NULL
			THEN PutPedido.idcondicaopagamento = (SELECT C2.idcondicaopagamento FROM condicaopagamento C2 WHERE C2.CODIGOERP = PutPedido.idcondicaopagamento_externalid);
		END IF;	

		-- TABELAPRECO
		IF PutPedido.idtabelapreco IS NULL AND PutPedido.idtabelapreco_externalid IS NOT NULL
			THEN PutPedido.idtabelapreco = (SELECT C2.idtabelapreco FROM tabelapreco C2 WHERE C2.CODIGOERP = PutPedido.idtabelapreco_externalid);
		END IF;	

		-- TIPOPEDIDO
		IF PutPedido.idtipopedido IS NULL AND PutPedido.idtipopedido_externalid IS NOT NULL
			THEN PutPedido.idtipopedido = (SELECT C2.idtipopedido FROM tipopedido C2 WHERE C2.CODIGOERP = PutPedido.idtipopedido_externalid);
		END IF;	

	-- UPDATE
	update pedido set 
		numeropedido = case when PutPedido.numeropedido = 'NOVALUEWS' then pedido.numeropedido else PutPedido.numeropedido end, 
		numeropedidoerp = case when PutPedido.numeropedidoerp = 'NOVALUEWS' then pedido.numeropedidoerp else PutPedido.numeropedidoerp end, 
		sglorigempedido = case when PutPedido.sglorigempedido = 'NOVALUEWS' then pedido.sglorigempedido else PutPedido.sglorigempedido end, 
		horatransmissao = case when PutPedido.horatransmissao = 'NOVALUEWS' then pedido.horatransmissao else PutPedido.horatransmissao end, 
		datatransmissao = case when PutPedido.datatransmissao = 'NOVALUEWS' then pedido.datatransmissao else TO_DATE(PutPedido.datatransmissao,'YYYY-MM-DD') end, 
		observacaopedido = case when PutPedido.observacaopedido = 'NOVALUEWS' then pedido.observacaopedido else PutPedido.observacaopedido end, 
		observacaonotafiscal = case when PutPedido.observacaonotafiscal = 'NOVALUEWS' then pedido.observacaonotafiscal else PutPedido.observacaonotafiscal end, 
		datapedido = case when PutPedido.datapedido = 'NOVALUEWS' then pedido.datapedido else TO_DATE(PutPedido.datapedido,'YYYY-MM-DD') end, 
		idlocalfilialfaturamento = case when PutPedido.idfiliallocalfaturamento = -99999 then pedido.idlocalfilialfaturamento else PutPedido.idfiliallocalfaturamento end, 
		idlocalfilialvenda = case when PutPedido.idfiliallocalvenda = -99999 then pedido.idlocalfilialvenda else PutPedido.idfiliallocalvenda end, 
		idtabelapreco = case when PutPedido.idtabelapreco = -99999 then pedido.idtabelapreco else PutPedido.idtabelapreco end, 
		idcondicaopagamento = case when PutPedido.idcondicaopagamento = -99999 then pedido.idcondicaopagamento else PutPedido.idcondicaopagamento end, 
		idtiposituacaopedido = case when PutPedido.idtiposituacaopedido = -99999 then pedido.idtiposituacaopedido else PutPedido.idtiposituacaopedido end, 
		idlocal = case when PutPedido.idclientelocal = -99999 then pedido.idlocal else PutPedido.idclientelocal end, 
		idparceiro = case when PutPedido.idcliente = -99999 then pedido.idparceiro else PutPedido.idcliente end, 
		idusuarioprofissional = case when PutPedido.idusuario = -99999 then pedido.idusuarioprofissional else PutPedido.idusuario end, 
		valortotal = case when PutPedido.valortotal = -99999 then pedido.valortotal else PutPedido.valortotal end, 
		quantidadetotal = case when PutPedido.quantidadetotal = -99999 then pedido.quantidadetotal else PutPedido.quantidadetotal end, 
		idtipopedido = case when PutPedido.idtipopedido = -99999 then pedido.idtipopedido else PutPedido.idtipopedido end, 
		observacaointegracao = case when Putpedido.observacaointegracao = 'NOVALUEWS' then pedido.observacaointegracao else Putpedido.observacaointegracao end,
		idnexportadoerp = case when Putpedido.idnexportadoerp = -99999 then pedido.idnexportadoerp else Putpedido.idnexportadoerp end,
		codigoerp = case when Putpedido.externalid = 'NOVALUEWS' then codigoerp else Putpedido.externalid end
	where idpedido = internalid ;

	return query select internalid;
END;