TOTVS CRM | SFA - 12.1.2501

Parameters

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

Definition

begin
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutTipoPedCondPagamento.externalid,'')='' and PutTipoPedCondPagamento.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutTipoPedCondPagamento.externalid, PutTipoPedCondPagamento.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		end if;

-- LOOKUP TIPOPEDCONDPAGAMENTO
		IF PutTipoPedCondPagamento.internalid IS NULL 
		THEN PutTipoPedCondPagamento.internalid = (SELECT IDTIPOPEDCONDPAGAMENTO FROM TIPOPEDCONDPAGAMENTO WHERE CODIGOERP = PutTipoPedCondPagamento.externalid);
		END IF;

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

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

if PutTipoPedCondPagamento.idcondicaopagamento is null then 
			RAISE EXCEPTION 'idcondicaopagamento = %', PutTipoPedCondPagamento.idcondicaopagamento
				USING HINT = 'Field idcondicaopagamento must be not null';
		end if;

-- UPDATE 
	update TIPOPEDCONDPAGAMENTO set 
		idtipopedido = case when PutTipoPedCondPagamento.idtipopedido = -99999 then TIPOPEDCONDPAGAMENTO.idtipopedido else PutTipoPedCondPagamento.idtipopedido end, 
		idcondicaopagamento = case when PutTipoPedCondPagamento.idcondicaopagamento = -99999 then TIPOPEDCONDPAGAMENTO.idcondicaopagamento else PutTipoPedCondPagamento.idcondicaopagamento end, 
		codigoerp = case when PutTipoPedCondPagamento.externalid = 'NOVALUEWS' then TIPOPEDCONDPAGAMENTO.codigoerp else PutTipoPedCondPagamento.externalid end
	where IDTIPOPEDCONDPAGAMENTO = internalid ;

return query select internalid;
END;

puttipopedcondpagamento(integer, integer, character varying, integer, character varying, character varying)

Parameters

Definition