TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
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	integer	IN
idtipocobranca	integer	IN
idtipocobranca_externalid	character varying	IN
idsegmento	integer	IN
idsegmento_externalid	character varying	IN

Definition

declare	
	internalid integer;
begin

	--IDNEXPORTADOERP NULO OU FORA DO PADRAO 
	if idnexportadoerp is null or idnexportadoerp not in (0,1) then 
		RAISE EXCEPTION 'idnexportadoerp = %', idnexportadoerp
      		USING HINT = 'Field must not be null or different from 1 or 0.';
     end if;  
	 
	 --DATAPEDIDO NULO
	 if PostPedido.datapedido is null then 
		RAISE EXCEPTION 'datapedido = %', PostPedido.datapedido
      		USING HINT = 'Field datapedido must be not null';
     end if;
	 
	 --NUMEROPEDIDO NULO
	 if PostPedido.numeropedido is null then 
		RAISE EXCEPTION 'numeropedido = %', PostPedido.numeropedido
      		USING HINT = 'Field numeropedido must be not null';
     end if;	

	 --SGLORIGEMPEDIDO NULO
	 if PostPedido.sglorigempedido is null then 
		RAISE EXCEPTION 'sglorigempedido = %', PostPedido.sglorigempedido
      		USING HINT = 'Field sglorigempedido must be not null';
     end if;

	--LOOKUP TIPOSITUACAOPEDIDO
	IF PostPedido.idtiposituacaopedido IS NULL AND PostPedido.idtiposituacaopedido_externalid IS NOT NULL
		THEN PostPedido.idtiposituacaopedido = (SELECT C2.idtiposituacaopedido FROM tiposituacaopedido C2 WHERE C2.CODIGOERP = PostPedido.idtiposituacaopedido_externalid);
	END IF;	

	 --TIPOSITUACAOPEDIDO NULO
	 if PostPedido.idtiposituacaopedido is null then 
		RAISE EXCEPTION 'idtiposituacaopedido = %', PostPedido.idtiposituacaopedido
      		USING HINT = 'Field idtiposituacaopedido must be not null';
     end if;

	--LOOKUP CLIENTELOCAL
	IF PostPedido.idclientelocal IS NULL AND PostPedido.idclientelocal_externalid IS NOT NULL
		THEN PostPedido.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PostPedido.idclientelocal_externalid);
	END IF;	

	 --CLIENTELOCAL NULO
	 if PostPedido.idclientelocal is null then 
		RAISE EXCEPTION 'idclientelocal = %', PostPedido.idclientelocal
      		USING HINT = 'Field idclientelocal must be not null';
     end if;

	--LOOKUP CLIENTE
	IF PostPedido.idcliente IS NULL AND PostPedido.idcliente_externalid IS NOT NULL
		THEN PostPedido.idcliente = (SELECT C2.idparceiro FROM parceiro C2 WHERE C2.CODIGOERP = PostPedido.idcliente_externalid);
	END IF;	

	 --CLIENTE NULO
	 if PostPedido.idcliente is null then 
		RAISE EXCEPTION 'idcliente = %', PostPedido.idcliente
      		USING HINT = 'Field idcliente must be not null';
     end if;

	--LOOKUP USUARIO
	IF PostPedido.idusuario IS NULL AND PostPedido.idusuario_externalid IS NOT NULL
		THEN PostPedido.idusuario = (SELECT C2.idusuario FROM USUARIO C2 WHERE C2.CODIGOERP = PostPedido.idusuario_externalid);
	END IF;	

	 --USUARIO NULO
	 if PostPedido.idusuario is null then 
		RAISE EXCEPTION 'idusuario = %', PostPedido.idusuario
      		USING HINT = 'Field idusuario must be not null';
     end if;
	 
	--CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if; 	 

	--LOOKUPS NÃO OBRIGATÓRIOS 
	--LOOKUP FILIALFATURAMENTO
	IF PostPedido.idfiliallocalfaturamento IS NULL AND PostPedido.idfiliallocalfaturamento_externalid IS NOT NULL
		THEN PostPedido.idfiliallocalfaturamento = (SELECT C2.idlocal FROM LOCAL C2 WHERE C2.CODIGOERP = PostPedido.idfiliallocalfaturamento_externalid);
	END IF;	
	
	--LOOKUP FILIALVENDA
	IF PostPedido.idfiliallocalvenda IS NULL AND PostPedido.idfiliallocalvenda_externalid IS NOT NULL
		THEN PostPedido.idfiliallocalvenda = (SELECT C2.idlocal FROM LOCAL C2 WHERE C2.CODIGOERP = PostPedido.idfiliallocalvenda_externalid);
	END IF;		
	
	--LOOKUP CONDICAOPAGAMENTO
	IF PostPedido.idcondicaopagamento IS NULL AND PostPedido.idcondicaopagamento_externalid IS NOT NULL
		THEN PostPedido.idcondicaopagamento = (SELECT C2.idcondicaopagamento FROM condicaopagamento C2 WHERE C2.CODIGOERP = PostPedido.idcondicaopagamento_externalid);
	END IF;	

	--LOOKUP TABELAPRECO
	IF PostPedido.idtabelapreco IS NULL AND PostPedido.idtabelapreco_externalid IS NOT NULL
		THEN PostPedido.idtabelapreco = (SELECT C2.idtabelapreco FROM tabelapreco C2 WHERE C2.CODIGOERP = PostPedido.idtabelapreco_externalid);
	END IF;	

	--LOOKUP TIPOPEDIDO
	IF PostPedido.idtipopedido IS NULL AND PostPedido.idtipopedido_externalid IS NOT NULL
		THEN PostPedido.idtipopedido = (SELECT C2.idtipopedido FROM tipopedido C2 WHERE C2.CODIGOERP = PostPedido.idtipopedido_externalid);
	END IF;		

	--LOOKUP TIPOCOBRANCA
	IF PostPedido.idtipocobranca IS NULL AND PostPedido.idtipocobranca_externalid IS NOT NULL
		THEN PostPedido.idtipocobranca = (SELECT C2.idtipocobranca FROM tipocobranca C2 WHERE C2.CODIGOERP = PostPedido.idtipocobranca_externalid);
	END IF;	

	--LOOKUP SEGMENTO
	IF PostPedido.idsegmento IS NULL AND PostPedido.idsegmento_externalid IS NOT NULL
		THEN PostPedido.idsegmento = (SELECT C2.idsegmento FROM segmento C2 WHERE C2.CODIGOERP = PostPedido.idsegmento_externalid);
	END IF;		

	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PEDIDO WHERE CODIGOERP = PostPedido.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostPedido.externalid 
				USING HINT = 'The record (externalid = '|| PostPedido.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into pedido (idpedido, numeropedido, numeropedidoerp, sglorigempedido, horatransmissao, datatransmissao, observacaopedido, observacaonotafiscal, datapedido, idlocalfilialfaturamento, idlocalfilialvenda, idtabelapreco, idcondicaopagamento, idtiposituacaopedido, idlocal, idparceiro, idusuario, idusuarioprofissional, idnexportadoerp, valortotal, quantidadetotal, idtipopedido, codigoerp, observacaointegracao, idtipocobranca, idsegmento) values (nextval('seqpkpedido'), numeropedido, numeropedidoerp, sglorigempedido, horatransmissao, TO_DATE(datatransmissao,'YYYY-MM-DD'), observacaopedido, observacaonotafiscal, TO_DATE(datapedido,'YYYY-MM-DD'), idfiliallocalfaturamento, idfiliallocalvenda, idtabelapreco, idcondicaopagamento, idtiposituacaopedido, idclientelocal, idcliente, idusuario, idusuario, idnexportadoerp, valortotal, quantidadetotal, idtipopedido, externalid, observacaointegracao, idtipocobranca, idsegmento) returning idpedido into internalid;
	END IF;
	
	return query select internalid;

END;