TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
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	
	internalid integer;
	idparceiro integer;
begin    
    
	--IDNPADRAO NULO OU FORA DO PADRAO 
	if idnpadrao is null or idnpadrao not in (0,1) then 
		RAISE EXCEPTION 'idnpadrao = %', idnpadrao
      		USING HINT = 'Field must not be null or different from 1 or 0.';
     end if;

--LOOKUP CLIENTELOCAL
	IF PostLocalTipoFrete.idclientelocal IS NULL AND PostLocalTipoFrete.idclientelocal_externalid IS NOT NULL
		THEN PostLocalTipoFrete.idclientelocal = (SELECT C2.idlocal FROM local C2 WHERE C2.CODIGOERP = PostLocalTipoFrete.idclientelocal_externalid);
	END IF;

--CLIENTELOCAL NULO
	 if PostLocalTipoFrete.idclientelocal is null then 
		RAISE EXCEPTION 'idclientelocal = %', PostLocalTipoFrete.idclientelocal
      		USING HINT = 'Field idclientelocal must be not null';
     end if;

--LOOKUP TIPOFRETE
	IF PostLocalTipoFrete.idtipofrete IS NULL AND PostLocalTipoFrete.idtipofrete_externalid IS NOT NULL
		THEN PostLocalTipoFrete.idtipofrete = (SELECT C2.idtipofrete FROM TIPOFRETE C2 WHERE C2.CODIGOERP = PostLocalTipoFrete.idtipofrete_externalid);
	END IF;

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

--LOOKUP CLIENTE
	 idparceiro = (SELECT distinct C2.idparceiro FROM parceirolocal C2 WHERE C2.idlocal = PostLocalTipoFrete.idclientelocal);	 
	
	 --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 LOCALTIPOFRETE WHERE CODIGOERP = PostLocalTipoFrete.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostLocalTipoFrete.externalid 
				USING HINT = 'The record (externalid = '|| PostLocalTipoFrete.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into LOCALTIPOFRETE (IDLOCALTIPOFRETE,idlocal, idtipofrete, idnpadrao, codigoerp, idparceiro) values (nextval('seqpklocaltipofrete'), idclientelocal, idtipofrete, idnpadrao, externalid, idparceiro) returning IDLOCALTIPOFRETE into internalid;	
	end if;	
	
	return query select internalid;
END;

postlocaltipofrete(integer, character varying, integer, character varying, integer, character varying)

Parameters

Definition