TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
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

declare	
	internalid 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;

--IDNATIVO NULO OU FORA DO PADRAO 
	if idnativo is null or 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;

--LOOKUP CONDICAOPAGAMENTO
	IF PostTipoCobraCondPagamento.idcondicaopagamento IS NULL AND PostTipoCobraCondPagamento.idcondicaopagamento_externalid IS NOT NULL
		THEN PostTipoCobraCondPagamento.idcondicaopagamento = (SELECT C2.IDCONDICAOPAGAMENTO FROM CONDICAOPAGAMENTO C2 WHERE C2.CODIGOERP = PostTipoCobraCondPagamento.idcondicaopagamento_externalid);
	END IF;

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

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

--TIPOCOBRANCA NULA
	 if PostTipoCobraCondPagamento.idtipocobranca is null then 
		RAISE EXCEPTION 'idtipocobranca = %', PostTipoCobraCondPagamento.idtipocobranca
      		USING HINT = 'Field idtipocobranca must be not null';
     end if;
	 
	 --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 tipocobracondpagamento WHERE CODIGOERP = PostTipoCobraCondPagamento.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostTipoCobraCondPagamento.externalid 
				USING HINT = 'The record (externalid = '|| PostTipoCobraCondPagamento.externalid ||') already exists, it was not possible to insert it.';
		ELSE insert into tipocobracondpagamento (idtipocobracondpagamento,idnativo, idcondicaopagamento, idnpadrao, codigoerp, idtipocobranca) values (nextval('seqpktipocobracondpagamento'), idnativo, idcondicaopagamento, idnpadrao, externalid, idtipocobranca) returning idtipocobracondpagamento into internalid;	
	end if;	
	
	return query select internalid;
END;

posttipocobracondpagamento(integer, character varying, integer, integer, character varying, integer, character varying)

Parameters

Definition