TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idcondicaopagamento	integer	IN
idcondicaopagamento_externalid	character varying	IN
idnativo	integer	IN
idnpadrao	integer	IN
externalid	character varying	IN
idtipocobranca	integer	IN
idtipocobranca_externalid	character varying	IN

Definition

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

--IDNATIVO FORA DO PADRAO 
		if idnativo not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnativo = %', idnativo
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;

--IDNPADRAO NULO OU FORA DO PADRAO 
		if idnpadrao not in (0,1,-99999) then 
			RAISE EXCEPTION 'idnpadrao = %', idnpadrao
				USING HINT = 'Field must not be null or different from 1 or 0.';
		end if;

-- LOOKUP
		-- TIPOCOBRACONDPAGAMENTO
		IF PutTipoCobraCondPagamento.internalid IS NULL 
		THEN PutTipoCobraCondPagamento.internalid = (SELECT tipocobracondpagamento.idtipocobracondpagamento FROM tipocobracondpagamento WHERE tipocobracondpagamento.CODIGOERP = PutTipoCobraCondPagamento.externalid);
		END IF;
 
		-- CONDICAOPAGAMENTO
		IF PutTipoCobraCondPagamento.idcondicaopagamento IS NULL AND PutTipoCobraCondPagamento.idcondicaopagamento_externalid IS NOT NULL
			THEN PutTipoCobraCondPagamento.idcondicaopagamento = (SELECT C2.IDCONDICAOPAGAMENTO FROM CONDICAOPAGAMENTO C2 WHERE C2.CODIGOERP = PutTipoCobraCondPagamento.idcondicaopagamento_externalid);
		END IF;

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

-- TIPOCOBRANCA
		IF PutTipoCobraCondPagamento.idtipocobranca IS NULL AND PutTipoCobraCondPagamento.idtipocobranca_externalid IS NOT NULL
			THEN PutTipoCobraCondPagamento.idtipocobranca = (SELECT C2.IDTIPOCOBRANCA FROM TIPOCOBRANCA C2 WHERE C2.CODIGOERP = PutTipoCobraCondPagamento.idtipocobranca_externalid);
		END IF;

if PutTipoCobraCondPagamento.idtipocobranca is null then 
			RAISE EXCEPTION 'idtipocobranca = %', PutTipoCobraCondPagamento.idtipocobranca
				USING HINT = 'Field idtipocobranca must be not null';
		end if;
		
	-- UPDATE
	update tipocobracondpagamento set 
		idtipocobranca = case when PutTipoCobraCondPagamento.idtipocobranca = -99999 then tipocobracondpagamento.idtipocobranca else PutTipoCobraCondPagamento.idtipocobranca end, 
		idcondicaopagamento = case when PutTipoCobraCondPagamento.idcondicaopagamento = -99999 then tipocobracondpagamento.idcondicaopagamento else PutTipoCobraCondPagamento.idcondicaopagamento end, 
		idnpadrao = case when PutTipoCobraCondPagamento.idnpadrao = -99999 then tipocobracondpagamento.idnpadrao else PutTipoCobraCondPagamento.idnpadrao end, 
		idnativo = case when PutTipoCobraCondPagamento.idnativo = -99999 then tipocobracondpagamento.idnativo else PutTipoCobraCondPagamento.idnativo end,
		codigoerp = case when PutTipoCobraCondPagamento.externalid = 'NOVALUEWS' then codigoerp else PutTipoCobraCondPagamento.externalid end
	where idtipocobracondpagamento = internalid ;

return query select internalid;
END;

puttipocobracondpagamento(integer, integer, character varying, integer, integer, character varying, integer, character varying)

Parameters

Definition