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
idnativo	integer	IN
externalid	character varying	IN

Definition

declare	
	internalid integer;
	curdate date;
begin
	if razaosocial is null then 
		RAISE EXCEPTION 'razaosocial = %', razaosocial
      		USING HINT = 'Field razaosocial must be not null';
    end if;  		 
	if idnativo is null then 
		RAISE EXCEPTION 'idnativo = %', idnativo
      		USING HINT = 'Field idnativo must be not null';
    end if;  	 	 
	 
	curdate := 'now';	 
	 
	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,externalid,curdate,curdate,email,homepage,observacao,idclassificacaoparceiro,1,externalid) returning idparceiro into internalid;

	if sgltipopessoa = 'PJ' then
		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
		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;

	insert into parceirotipoparceiro (idparceirotipoparceiro,idtipoparceiro,idparceiro,codigoerp) values (nextval('seqpkparceirotipoparceiro'),(select idtipoparceiro from tipoparceiro where codigoerp = 'CLI'),internalid,externalid) ;

	return query select internalid;
END;

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

Parameters

Definition