TOTVS CRM | SFA - 12.1.2501

Parameters

Name	Type	Mode
razaosocial	character varying	IN
nomefantasia	character varying	IN
sgltipopessoa	character varying	IN
cgc	character varying	IN
email	character varying	IN
homepage	character varying	IN
observacao	character varying	IN
datanascimento	character varying	IN
idclassificacaoparceiro	integer	IN
idclassificacaoparceiro_externalid	character varying	IN
idnativo	integer	IN
externalid	character varying	IN
numeromatricula	character varying	IN

Definition

declare	
	internalid integer;
	curdate date;
begin

	--CLASSIFICACAOPARCEIRO
	IF PostCliente.idclassificacaoparceiro IS NULL AND PostCliente.idclassificacaoparceiro_externalid IS NOT NULL
		THEN PostCliente.idclassificacaoparceiro = (SELECT C2.IDCLASSIFICACAOPARCEIRO FROM CLASSIFICACAOPARCEIRO C2 WHERE C2.CODIGOERP = PostCliente.idclassificacaoparceiro_externalid);
	END IF;

	--SGLTIPOPESSOA NULA
	if sgltipopessoa is null then 
		RAISE EXCEPTION 'sgltipopessoa = %', sgltipopessoa
      		USING HINT = 'Field sgltipopessoa must be not null';
     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; 
	 
	 --CODIGOERP NULO
	 if externalid is null or externalid = '' then 
		RAISE EXCEPTION 'externalid = %', externalid
      		USING HINT = 'Field externalid must be not null';
     end if;  	 
	 
	curdate = current_date;	 
	
	--VALIDAÇÃO DE CODIGOERP JÁ EXISTENTE
	IF (select distinct 1 FROM PARCEIRO WHERE CODIGOERP = PostCliente.externalid) = 1
		THEN RAISE EXCEPTION 'externalid = %', PostCliente.externalid 
				USING HINT = 'The record (externalid = '|| PostCliente.externalid ||') already exists, it was not possible to insert it.';
		ELSE 
			--PARCEIRO
			insert into parceiro (idparceiro,nomeparceiro,nomeparceirofantasia,sgltipopessoa,idnativo,idncontribuinte,numeromatricula,dataultimaatualizacao,datacadastro,email,homepage,observacao,idclassificacaoparceiro,idnexportadoerp,codigoerp) values (nextval('seqpkparceiro'),razaosocial,nomefantasia,sgltipopessoa,idnativo,1,case when PostCliente.numeromatricula is not null then numeromatricula else externalid end,curdate,curdate,email,homepage,observacao,idclassificacaoparceiro,1,externalid) returning idparceiro into internalid;

			if sgltipopessoa = 'PJ' then
				--PESSOAJURIDICA
				insert into pessoajuridica (idpessoajuridica,cnpjprincipal,documentoidentificacao,idtipoidentificacao,datafundacao,idnexportadoerp,codigoerp) values (internalid,cgc,cgc,(select idtipoidentificacao from tipoidentificacao where sigla = 'cnpj'),TO_DATE(datanascimento,'YYYY-MM-DD'),1,externalid) ;
			else
				--PESSOAFISICA
				insert into pessoafisica (idpessoafisica,cpf,documentoidentificacao,idtipoidentificacao,dianascimento,mesnascimento,anonascimento,idnexportadoerp,codigoerp) values (internalid,cgc,cgc,(select idtipoidentificacao from tipoidentificacao where sigla = 'cpf'),EXTRACT(DAY from TO_DATE(datanascimento,'YYYY-MM-DD')),EXTRACT(MONTH from TO_DATE(datanascimento,'YYYY-MM-DD')),EXTRACT(YEAR from TO_DATE(datanascimento,'YYYY-MM-DD')),1,externalid) ;
			end if;

			--PARCEIROTIPOPARCEIRO
			insert into parceirotipoparceiro (idparceirotipoparceiro,idtipoparceiro,idparceiro,codigoerp) values (nextval('seqpkparceirotipoparceiro'),(select idtipoparceiro from tipoparceiro where codigoerp = 'CLI'),internalid,externalid) ;

	end if;		 

	return query select internalid;
END;

postcliente(character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, integer, character varying, integer, character varying, character varying)

Parameters

Definition