postclientelocal(integer, integer, integer, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, character varying, integer, character varying, integer, character varying)

declare 

    idparceiro_ integer;

    sgltipopessoa_ varchar(10); 

    internalid integer;

    idcidade_ integer;

    idunidadefederativa integer;    

    curdate date;

begin        

    if idnativo is null then 

        RAISE EXCEPTION 'idnativo = %', idnativo

            USING HINT = 'Field idnativo must be not null';

    end if;      

    select into idparceiro_, sgltipopessoa_

        idparceiro,sgltipopessoa  from parceiro where idparceiro = idcliente ;

    IF NOT FOUND THEN 

        RAISE EXCEPTION 'idcliente = %', idcliente

            USING HINT = 'There is no idcliente in cliente';

    end if;         

    if  PostClienteLocal.idcidade is not null then

        select into idcidade_,idunidadefederativa 

            c.idcidade,c.idunidadefederativa from cidade c where c.idcidade = PostClienteLocal.idcidade ;   

        IF NOT FOUND THEN 

            RAISE EXCEPTION 'idcidade = %', idcidade

                USING HINT = 'There is no idcidade in cidade';

        end if; 

    end if;

    if  PostClienteLocal.idcidade is null and PostClienteLocal.idcidade_externalid is not null then

        select into idcidade_,idunidadefederativa 

            c.idcidade,c.idunidadefederativa from cidade c where c.codigoerp = PostClienteLocal.idcidade_externalid ;   

        IF NOT FOUND THEN 

            RAISE EXCEPTION 'idcidade = %', idcidade

                USING HINT = 'There is no idcidade in cidade';

        end if; 

    end if;

    curdate := 'now';    

​

    insert into local (idlocal,idnsuframa,idnipi,idnativo,idnrequerdataentrega,idnrequernumeropedidocliente,numeromatricula,bairro,cnpj,documentoidentificacao,cep,inscricaoestadual,descricao,inscricaomunicipal,logradouro,numerologradouro,complemento,dataultimaatualizacao,datacadastro,idnexportadoerp,idcidade,idunidadefederativafiscal,codigoerp) values (nextval('seqpklocal'),0,0,idnativo,0,0,numeromatricula,bairro,cgc,rg,cep,inscricaoestadual,descricao,inscricaomunicipal,logradouro,numerologradouro,complemento,curdate,curdate,1,idcidade_,idunidadefederativa,externalid) returning idlocal into internalid;

​

    insert into localidentificacao (idlocalidentificacao,idlocal,documentoidentificacao,idtipoidentificacao,idnexportadoerp,codigoerp) values (nextval('seqpklocalidentificacao'),internalid,cgc,(select idtipoidentificacao from tipoidentificacao where sigla = CASE WHEN sgltipopessoa_ = 'PJ' THEN 'cnpj' ELSE 'cpf' END),1,externalid) ;

​

    insert into parceirolocal (idparceirolocal,idparceiro,idlocal,idnexportadoerp,codigoerp) values (nextval('seqpkparceirolocal'),idparceiro_,internalid,1,externalid) ;

    insert into localfilial (idlocalfilial,idlocal,idfilial,idnpadrao,codigoerp) values (nextval('seqpklocalfilial'),internalid,idfiliallocal,1,externalid) ;

​

    insert into localtipolocal (idlocaltipolocal,idlocal,idtipolocal,idnativo,idnpadrao,idnexportadoerp,codigoerp) values (nextval('seqpklocaltipolocal'),internalid,idtipolocal,idnativo,1,1,externalid) ; 

​

    return query select internalid;

END;