TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
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

declare	
	internalid integer;
begin
	--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 PostLocalTipoPedido.idtipopedido IS NULL AND PostLocalTipoPedido.idtipopedido_externalid IS NOT NULL
		THEN PostLocalTipoPedido.idtipopedido = (SELECT C2.idtipopedido FROM TIPOPEDIDO C2 WHERE C2.CODIGOERP = PostLocalTipoPedido.idtipopedido_externalid);
	END IF;

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

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

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

--LOOKUP SEGMENTO
	IF PostLocalTipoPedido.idsegmento IS NULL AND PostLocalTipoPedido.idsegmento_externalid IS NOT NULL
		THEN PostLocalTipoPedido.idsegmento = (SELECT C2.idsegmento FROM SEGMENTO C2 WHERE C2.CODIGOERP = PostLocalTipoPedido.idsegmento_externalid);
	END IF;		
	
	--LOOKUP USUARIO
	IF PostLocalTipoPedido.idusuario IS NULL AND PostLocalTipoPedido.idusuario_externalid IS NOT NULL
		THEN PostLocalTipoPedido.idusuario = (SELECT C2.idusuario FROM USUARIO C2 WHERE C2.CODIGOERP = PostLocalTipoPedido.idusuario_externalid);
	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; 
	 
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM LOCALTIPOPEDIDO WHERE CODIGOERP = PostLocalTipoPedido.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostLocalTipoPedido.externalid 
				USING HINT = 'The record (externalid = '|| PostLocalTipoPedido.externalid ||') already exists, it was not possible to insert it.';
		ELSE 
		
		insert into LOCALTIPOPEDIDO (idlocaltipopedido, idlocalfilial, idlocal, idnpadrao, idsegmento, idtipopedido, idusuario, valorminimo, codigoerp) values (nextval('seqpklocaltipopedido'), idfiliallocal, idclientelocal, idnpadrao, idsegmento, idtipopedido, idusuario, valorminimo, externalid) returning idlocaltipopedido into internalid;
		
	end if;
	
	return query select internalid;

END;

postlocaltipopedido(integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, integer, character varying, numeric)

Parameters

Definition