TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idtipocobranca	integer	IN
idtipocobranca_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN

Definition

declare	
	idparceiro_ integer;
begin   
	-- VALIDACAO	
		-- EXTERNALID E INTERNALID NAO INFORMADOS
		if coalesce(PutLocalTipoCobranca.externalid,'')='' and PutLocalTipoCobranca.internalid is null then 
		RAISE EXCEPTION 'externalid = % and internalid = %', PutLocalTipoCobranca.externalid, PutLocalTipoCobranca.internalid
			USING HINT = 'Fields internalid and externalid must be not null';
		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
		-- LOCALTIPOCOBRANCA
		IF PutLocalTipoCobranca.internalid IS NULL 
		THEN PutLocalTipoCobranca.internalid = (SELECT localtipocobranca.idlocaltipocobranca FROM localtipocobranca WHERE localtipocobranca.CODIGOERP = PutLocalTipoCobranca.externalid);
		END IF;
	
		-- CLIENTELOCAL
		IF PutLocalTipoCobranca.idclientelocal IS NULL AND PutLocalTipoCobranca.idclientelocal_externalid IS NOT NULL
			THEN PutLocalTipoCobranca.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PutLocalTipoCobranca.idclientelocal_externalid);
		END IF;

if PutLocalTipoCobranca.idclientelocal is null then 
			RAISE EXCEPTION 'idclientelocal = %', PutLocalTipoCobranca.idclientelocal
				USING HINT = 'Field idclientelocal must be not null';
		end if;
			-- CLIENTE
			idparceiro_ = (SELECT distinct C2.idparceiro FROM parceirolocal C2 WHERE C2.idlocal = PutLocalTipoCobranca.idclientelocal);	 
		
		-- TIPOCOBRANCA
		IF PutLocalTipoCobranca.idtipocobranca IS NULL AND PutLocalTipoCobranca.idtipocobranca_externalid IS NOT NULL
			THEN PutLocalTipoCobranca.idtipocobranca = (SELECT C2.idtipocobranca FROM TIPOCOBRANCA C2 WHERE C2.CODIGOERP = PutLocalTipoCobranca.idtipocobranca_externalid);
		END IF;

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

-- UPDATE
	update localtipocobranca set 
		idparceiro = case when PutLocalTipoCobranca.idclientelocal = -99999 then localtipocobranca.idparceiro else idparceiro_ end, 
		idlocal = case when PutLocalTipoCobranca.idclientelocal = -99999 then localtipocobranca.idlocal else PutLocalTipoCobranca.idclientelocal end, 
		idtipocobranca = case when PutLocalTipoCobranca.idtipocobranca = -99999 then localtipocobranca.idtipocobranca else PutLocalTipoCobranca.idtipocobranca end, 
		idnpadrao = case when PutLocalTipoCobranca.idnpadrao = -99999 then localtipocobranca.idnpadrao else PutLocalTipoCobranca.idnpadrao end,
		codigoerp = case when PutLocalTipoCobranca.externalid = 'NOVALUEWS' then codigoerp else PutLocalTipoCobranca.externalid end
	where idlocaltipocobranca = internalid ;

return query select internalid;	
END;

putlocaltipocobranca(integer, integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition