TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
internalid	integer	IN
idclientelocal	integer	IN
idclientelocal_externalid	character varying	IN
idtipofrete	integer	IN
idtipofrete_externalid	character varying	IN
idnpadrao	integer	IN
externalid	character varying	IN

Definition

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

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

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

-- UPDATE
	update LOCALTIPOFRETE set 
		idparceiro = case when PutLocalTipoFrete.idclientelocal = -99999 then LOCALTIPOFRETE.idparceiro else idparceiro_ end, 
		idlocal = case when PutLocalTipoFrete.idclientelocal = -99999 then LOCALTIPOFRETE.idlocal else PutLocalTipoFrete.idclientelocal end, 
		idtipofrete = case when PutLocalTipoFrete.idtipofrete = -99999 then LOCALTIPOFRETE.idtipofrete else PutLocalTipoFrete.idtipofrete end, 
		idnpadrao = case when PutLocalTipoFrete.idnpadrao = -99999 then LOCALTIPOFRETE.idnpadrao else PutLocalTipoFrete.idnpadrao end,
		codigoerp = case when PutLocalTipoFrete.externalid = 'NOVALUEWS' then codigoerp else PutLocalTipoFrete.externalid end
	where IDLOCALTIPOFRETE = internalid ;

return query select internalid;
END;

putlocaltipofrete(integer, integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition