TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
idtipopedido	integer	IN
idtipopedido_externalid	character varying	IN
idcondicaopagamento	integer	IN
idcondicaopagamento_externalid	character varying	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
begin

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

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

--LINHA NULA
	 if PostTipoPedCondPagamento.idcondicaopagamento is null then 
		RAISE EXCEPTION 'idcondicaopagamento = %', PostTipoPedCondPagamento.idcondicaopagamento
      		USING HINT = 'Field idcondicaopagamento 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; 	 
	 
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM TIPOPEDCONDPAGAMENTO WHERE CODIGOERP = PostTipoPedCondPagamento.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostTipoPedCondPagamento.externalid 
				USING HINT = 'The record (externalid = '|| PostTipoPedCondPagamento.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into TIPOPEDCONDPAGAMENTO (IDTIPOPEDCONDPAGAMENTO, idtipopedido, idcondicaopagamento, codigoerp) values (nextval('seqpktipopedcondpagamento'),idtipopedido, idcondicaopagamento, externalid) returning IDTIPOPEDCONDPAGAMENTO into internalid;
    end if;
	 
	return query select internalid;
END;

posttipopedcondpagamento(integer, character varying, integer, character varying, character varying)

Parameters

Definition