CREATE OR REPLACE TYPE BODY fisica_cliente_tp AS
CONSTRUCTOR FUNCTION fisica_cliente_tp (cpf_i VARCHAR, nome_i VARCHAR, log_i VARCHAR, num_i INTEGER, cep_i VARCHAR, tipo_i INTEGER, telefone_i VARCHAR)
RETURN SELF AS RESULT IS
BEGIN
    INSERT INTO endereco_tb VALUES (ENDERECO_TP(cep_i, log_i, num_i, NULL));

    id := SEQ_CLIENTE.NEXTVAL;
    cpf := cpf_i;
    nome := nome_i;
    tipo := tipo_i;
    telefones := LIST_TELEFONE(telefone_tp(telefone_i));
    endereco := ENDERECO_TP(cep_i, log_i, num_i, NULL);--(SELECT REF(E) FROM endereco_tb E
                --WHERE cep = cep_i AND logradouro = log_i AND numero = num_i and complemento = NULL);
    RETURN;
END;
/