Error In Package

Question

is giving this error:
107/20 PLS-00103: Encountered the symbol "(" when one of the following
         symbols was expected:
         : =), Default character varying large
         The symbol ": =" has been replaced by "(" to continue.Why?
this line in my editor, is not refering to this...
How can I locate the correct line??
thanks

Answer 1

Friends, please, I´m having difficult to resolve the errors in package... Please help me;;
Package:
--  Package : pkg_frota_empresa
--  Descrição:
--    Este package contém as funções para implementação do módulo frota, para todos os processos
--    e telas que são referente a Cadastro de Empresas para o Módulo de Frota
--  Definir os PKG utilizado no módulo:
--  Histórico:
--    28/12/2009 - André - Implementação.
-- @D:\RepositNovo\FwCard\Des\Modulos\Card_Frota\Package\pkg_frota_empresa.sql
-- @C:\CARD_DES\Modulos\Card_Frota\Package\pkg_frota_empresa_teste.sql
CREATE OR REPLACE PACKAGE pkg_frota_empresa_teste
IS
-- Definicao dos Tipos de Tabelas Dinamicas
-- Definicao de constantes
-- Definição de Variaveis globais
g_frota_cliente    frota_cliente%ROWTYPE;
g_contrato_cliente contrato_cliente%ROWTYPE;
TYPE regemprec_type IS RECORD
    (  id_frota_cliente        NUMBER
     , id_cliente              VARCHAR2(50)
     , id_pessoa_juridica      VARCHAR2(50)
     , cnpj                    VARCHAR2(50)
     , id_tipo_documento       VARCHAR2(50)
     , ie                      VARCHAR2(50)
     , im                      VARCHAR2(50)
     , razao_social            VARCHAR2(50)
     , nome_fantasia           VARCHAR2(50)
     , ddd                     VARCHAR2(50)
     , telefone                VARCHAR2(50)
     , fax                     VARCHAR2(50)
     , ddd_cel                 VARCHAR2(50)
     , fone_cel                VARCHAR2(50)
     , email                   VARCHAR2(50)
     , nome_impresso           VARCHAR2(50)
     , id_ramo_atividade       VARCHAR2(50)
     , fatura_enviada          VARCHAR2(50)
     , id_estado_cartao        VARCHAR2(50)
     , id_matriz               VARCHAR2(50)
     , id_cliente_categoria    VARCHAR2(50)
     , end_extrato_cnv_empresa VARCHAR2(50)
     , id_agente               VARCHAR2(50)
     , aceitar_cpf_nulo        VARCHAR2(1));
TYPE regemp_type IS TABLE OF regemprec_type INDEX BY BINARY_INTEGER;
-- Definição de Procedures e Funçoes que deverão ser publica, acesso de outras funçoes
PROCEDURE inicializar;
--Frota Cliente
PROCEDURE inc_altfrotacliente(
   p_reg frota_cliente%ROWTYPE
--Frota Cliente
/*PROCEDURE inc_alt_frotacliente_exec(
  p_id_frota_cliente         IN OUT frota_cliente.id_frota_cliente%TYPE,
  p_id_cliente               IN     frota_cliente.id_cliente%TYPE,
  p_limite_mensal            IN     frota_cliente.limite_mensal%TYPE        DEFAULT 0,
  p_limite_trans             IN     frota_cliente.limite_trans%TYPE         DEFAULT 0,
  p_qtd_max_litros           IN     frota_cliente.qtd_max_litros%TYPE       DEFAULT 0,
  p_valor_max                IN     frota_cliente.valor_max%TYPE            DEFAULT 0,
  p_ver_agenda_condutor      IN     frota_cliente.ver_agenda_condutor%TYPE  DEFAULT '0',
  p_ver_km                   IN     frota_cliente.ver_km%TYPE               DEFAULT '0',
  p_ver_valor_max            IN     frota_cliente.ver_valor_max%TYPE        DEFAULT '0',
  p_diaval_carta_credito     IN     frota_cliente.diaval_carta_credito%TYPE DEFAULT 0
-- Empresa+Frota_Cliente+Frota_Cliente_Veiculo
PROCEDURE excluir(
   p_id_frota_cliente         IN  frota_cliente.id_frota_cliente%TYPE
-- Chama o procedimento acima
PROCEDURE excluirexec(
  p_id_frota_centro_custo IN frota_centro_custo.id_frota_centro_custo%TYPE
--Empresa
PROCEDURE inc_alt(
   p_reg  RegEmp_type
--Chama o procedimento acima
PROCEDURE inc_altexec(
   p_id_frota_cliente        IN OUT VARCHAR2,
   p_id_empresa              IN OUT VARCHAR2,
   p_id_pessoa_juridica      IN OUT VARCHAR2,
   p_cnpj                    IN VARCHAR2,
   p_id_tipo_documento       IN VARCHAR2,
   p_ie                      IN VARCHAR2,
   p_im                      IN VARCHAR2,
   p_razaosocial             IN VARCHAR2,
   p_fantasia                IN VARCHAR2,
   p_ddd                     IN VARCHAR2,
   p_telefone                IN VARCHAR2,
   p_fax                     IN VARCHAR2,
   p_ddd_cel                 IN VARCHAR2,
   p_fone_cel                IN VARCHAR2,
   p_email                   IN VARCHAR2,
   p_nome_impresso           IN VARCHAR2,
   p_ramo                    IN VARCHAR2,
   p_fatura_enviada          IN VARCHAR2,
   p_id_estado_cartao        IN VARCHAR2,
   p_id_matriz               IN VARCHAR2,
   p_cliente_categoria       IN VARCHAR2,
   p_end_extrato_cnv_empresa IN VARCHAR2,
   p_agente                  IN VARCHAR2,
   p_cpf_nulo                IN VARCHAR2
PROCEDURE vrf_empresa(
   p_cnpj IN VARCHAR2,
   p_id_tipo_documento IN tipo_documento.id_tipo_documento%TYPE
PROCEDURE inc_alt_contrato(
    p_operacao CHAR(1),
    p_reg contrato_cliente%ROWTYPE
PROCEDURE inc_alt_contratoexec(
    p_operacao                 IN VARCHAR(1),
    p_id_cliente               IN contrato_cliente.id_cliente%TYPE,
    p_id_produto               IN produto.id_produto%TYPE,
    p_data_inicio              IN contrato_cliente.data_inicio%TYPE,
    p_data_fim                 IN contrato_cliente.data_fim%TYPE,
    p_comissao_1               IN contrato_cliente.comissao1%TYPE,
    p_comissao_2               IN contrato_cliente.comissao2%TYPE,
    p_forma_comissao1          IN contrato_cliente.forma_comissao1%TYPE,
    p_forma_comissao2          IN contrato_cliente.forma_comissao2%TYPE,
    p_dia_entrega              IN contrato_cliente.dia_entrega%TYPE,
    p_agente                   IN contrato_cliente.id_agente%TYPE
END;
SHOW ERRORS
--------------------------Inicio das Definições dos Procedimento e Funçoes ------------------------------
-- Os Procedimentos e Funçoes devem ter um cabeçalho explicando a função os parametros de entrada e saida
-- As Definições das Variaveis de parametros de funcao e procedures devem iniciar com: p_
-- As Definições de Variaveis locais deve sempre iniciar com: v_
CREATE OR REPLACE PACKAGE BODY pkg_frota_empresa
IS
-- Function :  inicializar
-- Descrição: Função que inicializa variaveis do PKG
PROCEDURE inicializar
IS
BEGIN
  RETURN;
END;
-- Procedimento : inc_alt_frotacliente
-- Descrição: Cadastro de Empresa
-- Entrada
--   p_reg : Valores a serem operados
-- OBS:  Sem Commit e tratamento de excessão
-- Histórico
-- DATA       - DESENVOLVIMENTO - REQUISITO - INFORMAÇÃO
-- 20/01/2010 - [ATILIO]        - #79165    - Implementação
PROCEDURE inc_alt_frotacliente(
   p_reg frota_cliente%ROWTYPE
IS
BEGIN
  IF p_reg.id_frota_cliente IS NULL THEN
    SELECT SEQ_FROTA_CLIENTE.NEXTVAL INTO p_reg.id_frota_cliente FROM DUAL;
    INSERT INTO FROTA_CLIENTE VALUES p_reg;
  ELSE
    UPDATE FROTA_CLIENTE
    SET  id_cliente          = p_reg.id_cliente,
         limite_mensal       = p_reg.limite_mensal,
         limite_trans        = p_reg.limite_trans,
         qtd_max_litros      = p_reg.qtd_max_litros,
         valor_max           = p_reg.valor_max,
         ver_agenda_condutor = p_reg.ver_agenda_condutor,
         ver_km              = p_reg.ver_km,
         ver_valor_max       = p_reg.ver_valor_max,
         diaval_carta_credito= p_reg.diaval_carta_credito
    WHERE id_frota_cliente   = p_reg.id_frota_cliente;
  END IF;
END;
-- Procedimento : inc_alt_frotacliente_exec
-- Descrição    : Incluir ou Alterar um registro referente a tabela: FROTA_CLIENTE
-- Entrada:  p_id_frota_cliente     - Identificador do frota_cliente, quando( =NULL -> Incluir  <>NULL -> Alterar)
--           p_id_cliente           - Identificador do cliente
--           p_limite_mensal        - Limite mensal por veiculo
--           p_limite_trans         - Limite por transação por veiculo
--           p_qtd_max_litros       - Quantidade maxima de litros por abestecimento
--           p_valor_max            - Valor máximo por abastecimento
--           p_ver_agenda_condutor  - Configuração se deve ser verificado o agendamento para permitir abastecimento
--           p_ver_km               - Configuração se deve verificar a KM no abastecimento
--           p_ver_valor_max        - Configuração se deve ser verificado o valor máximo no abastecimento
--           p_diaval_carta_credito - Configura o maximo de dias para vigencia de uma carta frete
-- Historico
--   DATA       - DESENVOLVEDOR - REQUISITO - INFORMAÇÃO
--   20/01/2010 - Atilio - Implementação de Defaults
/*PROCEDURE inc_alt_frotacliente_exec(
  p_id_frota_cliente         IN OUT frota_cliente.id_frota_cliente%TYPE,
  p_id_cliente               IN     frota_cliente.id_cliente%TYPE,
  p_limite_mensal            IN     frota_cliente.limite_mensal%TYPE        DEFAULT 0,
  p_limite_trans             IN     frota_cliente.limite_trans%TYPE         DEFAULT 0,
  p_qtd_max_litros           IN     frota_cliente.qtd_max_litros%TYPE       DEFAULT 0,
  p_valor_max                IN     frota_cliente.valor_max%TYPE            DEFAULT 0,
  p_ver_agenda_condutor      IN     frota_cliente.ver_agenda_condutor%TYPE  DEFAULT '0',
  p_ver_km                   IN     frota_cliente.ver_km%TYPE               DEFAULT '0',
  p_ver_valor_max            IN     frota_cliente.ver_valor_max%TYPE        DEFAULT '0',
  p_diaval_carta_credito     IN     frota_cliente.diaval_carta_credito%TYPE DEFAULT 0
IS
BEGIN
  --preencho o type
  g_frota_cliente.id_frota_cliente         := p_id_frota_cliente;
  g_frota_cliente.id_cliente               := p_id_cliente;
  g_frota_cliente.limite_mensal            := nvl(p_limite_mensal,0);
  g_frota_cliente.limite_trans             := nvl(p_limite_trans,0);
  g_frota_cliente.qtd_max_litros           := p_qtd_max_litros;
  g_frota_cliente.valor_max                := p_valor_max;
  g_frota_cliente.ver_agenda_condutor      := p_ver_agenda_condutor;
  g_frota_cliente.ver_km                   := p_ver_km;
  g_frota_cliente.ver_valor_max            := p_ver_valor_max;
  g_frota_cliente.diaval_carta_credito     := p_diaval_carta_credito;
  inc_alt_frotacliente(g_frota_cliente);
  COMMIT;
  EXCEPTION
  WHEN OTHERS THEN
    fwerr.gerar_exception(p_procedimento => 'pkg_frota_empresa.inc_alt_frotacliente');
END;*/
-- Procedimento : excluir
-- Descrição    : Excluir um registro referente a tabela: FROTA_CLIENTE
-- Entrada:  p_id_frota_cliente   - Identificador do frota_cliente
-- OBS: Este procedimento não gera COMMIT, deixando para a função que chama esta responsabilidade
-- Historico
--   DATA       - DESENVOLVEDOR - REQUISITO - INFORMAÇÃO
--   12/01/2010 - JOAO   -                  - Implementação
--   20/01/2010 - ATILIO -
PROCEDURE excluir(
  p_id_frota_cliente         IN  frota_cliente.id_frota_cliente%TYPE
IS
BEGIN
  DELETE FROTA_CLIENTE_VEICULO WHERE id_frota_cliente = p_id_frota_cliente;
  DELETE FROTA_CLIENTE WHERE id_frota_cliente = p_id_frota_cliente;
END;
-- Procedimento : excluirexec
-- Descrição    : Excluir um registro referente a tabela: FROTA_CLIENTE
-- Entrada:  p_id_frota_cliente   - Identificador de frota_cliente
-- OBS:
-- Historico
--   DATA       - DESENVOLVEDOR - REQUISITO - INFORMAÇÃO
--   20/01/2010 - ATILIO   -                  - Implementação
PROCEDURE excluirexec(
  p_id_frota_cliente  IN  frota_cliente.id_frota_cliente%TYPE DEFAULT NULL
IS
  v_ret  PLS_INTEGER;
  v_id_cliente NUMBER;
BEGIN
  IF p_id_frota_cliente IS NULL THEN
    FOR i IN 1..htmldb_application.g_f01.COUNT LOOP
      SELECT id_cliente INTO v_id_cliente FROM frota_cliente WHERE id_frota_cliente = htmldb_application.g_f01(i);
      excluir(p_id_frota_cliente => htmldb_application.g_f01(i));
      v_ret := pkg_limpeza.lmp_empresa(v_id_cliente);
      fwerr.verificar(v_ret=0,v_ret);
    END LOOP;
  ELSE
    SELECT id_cliente INTO v_id_cliente FROM frota_cliente WHERE id_frota_cliente = p_id_frota_cliente;
    excluir(p_id_frota_cliente => p_id_frota_cliente);
    v_ret := pkg_limpeza.lmp_empresa(v_id_cliente);
    fwerr.verificar(v_ret=0,v_ret);
  END IF;
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    fwerr.gerar_exception(p_procedimento => 'excluirexec');
END;
-- Procedimento : inc_alt
-- Descrição    : Inclusão/Alteração Empresa
-- Entrada:  p_reg   - Referência a tabela temporária
-- OBS:
-- Historico
--   DATA       - DESENVOLVEDOR - REQUISITO - INFORMAÇÃO
--   20/01/2010 - ATILIO   -                  - Implementação
PROCEDURE inc_alt(
   p_reg regemp_type
IS
  v_id_emp  NUMBER;
  v_encontrou BOOLEAN DEFAULT TRUE;
BEGIN
  IF p_reg(2) IS NULL THEN
    v_encontrou := FALSE;
  ELSE
    BEGIN
      SELECT id_cliente INTO v_id_emp FROM frota_cliente WHERE id_cliente = p_reg(2);
    EXCEPTION
      WHEN NO_DATA_FOUND THEN
      v_encontrou:=FALSE;
    END;
  END IF;
  IF NOT v_encontrou THEN
    ca_empresa_incluir_alterar(p_reg(2) ,p_reg(3) ,p_reg(4) ,p_reg(5) ,p_reg(6) ,p_reg(7) ,p_reg(8) ,p_reg(9) ,p_reg(10),
                               p_reg(11),p_reg(12),p_reg(13),p_reg(14),p_reg(15),p_reg(16),p_reg(17),p_reg(18),p_reg(19),
                               p_reg(20),p_reg(21),p_reg(22),p_reg(23),p_reg(24));
    --Constraint - com tab cliente
    SELECT id_cliente INTO v_id_emp FROM cliente WHERE id_cliente = p_reg(2);
    inc_altfrotacliente(p_id_frota_cliente => p_reg(1),
                        p_id_cliente       => v_id_emp);
  ELSE
    ca_empresa_incluir_alterar(p_reg(2) ,p_reg(3) ,p_reg(4) ,p_reg(5) ,p_reg(6) ,p_reg(7) ,p_reg(8) ,p_reg(9) ,p_reg(10),
                               p_reg(11),p_reg(12),p_reg(13),p_reg(14),p_reg(15),p_reg(16),p_reg(17),p_reg(18),p_reg(19),
                               p_reg(20),p_reg(21),p_reg(22),p_reg(23),p_reg(24));
  END IF;
END;
--  Procedure: inc_altexec
--  Descrição:
--    Incluir ou Alterar cadastro de empresa (FROTA)
--  Entrada:
--    cadastro de empresa
--    p_id_frota_cliente     : identificação da empresa dentro do módulo
--    p_id_empresa           : Identificador da empresa
--    p_id_pessoa_juridica   : Identificador da empresa
--    p_cnpj                 : CNPJ da empresa
--    p_id_tipo_documento    : Indica o tipo de documento
--    p_ie                   : Inscrição Estadual
--    p_im                   : Inscrição Municipal
--    p_razaosocial          : Razão Social
--    p_fantasia             : Nome Fantasia
--    p_ddd                  : DDD do telefone
--    p_telefone             : Número do telefone
--    p_fax                  : Número do fax
--    p_ddd_cel              : DDD do celular
--    p_fone_cel             : Número do celular
--    p_email                : Email da empresa
--    p_nome_impresso        : Nome que será impresa na fatura
--    p_ramo                 : Ramo de Atividade
--    p_fatura_enviada       : Idicador se a empresa pode reimprimir fatura pelo portal que já
--                             foram enviada para o banco
--    p_id_estado_cartao     : Estado que ficará o cartão após ser confeccionado
--    p_id_matriz            : Identificador da empresa matriz
--    p_cliente_categoria    : Categoria do Cliente
--    p_end_extrato_cnv_empresa : Endereço Extrato Conferência
--    p_agente               : Agente relacionado
--    p_cpf_nulo             : Cpf nulo
--  Histórico:
-- 20/01/2010 - Atílio - Implementação
PROCEDURE inc_altexec(
    p_id_frota_cliente        IN OUT VARCHAR2,
    p_id_empresa              IN OUT VARCHAR2,
    p_id_pessoa_juridica      IN OUT VARCHAR2,
    p_cnpj                    IN VARCHAR2,
    p_id_tipo_documento       IN VARCHAR2,
    p_ie                      IN VARCHAR2,
    p_im                      IN VARCHAR2,
    p_razaosocial             IN VARCHAR2,
    p_fantasia                IN VARCHAR2,
    p_ddd                     IN VARCHAR2,
    p_telefone                IN VARCHAR2,
    p_fax                     IN VARCHAR2,
    p_ddd_cel                 IN VARCHAR2,
    p_fone_cel                IN VARCHAR2,
    p_email                   IN VARCHAR2,
    p_nome_impresso           IN VARCHAR2,
    p_ramo                    IN VARCHAR2,
    p_fatura_enviada          IN VARCHAR2,
    p_id_estado_cartao        IN VARCHAR2,
    p_id_matriz               IN VARCHAR2,
    p_cliente_categoria       IN VARCHAR2,
    p_end_extrato_cnv_empresa IN VARCHAR2,
    p_agente                  IN VARCHAR2,
    p_cpf_nulo                IN VARCHAR2
IS
BEGIN
  RegEmp_type(1)  := p_id_frota_cliente;
  RegEmp_type(2)  := p_id_empresa;
  RegEmp_type(3)  := p_id_pessoa_juridica;
  RegEmp_type(4)  := p_cnpj;
  RegEmp_type(5)  := p_id_tipo_documento;
  RegEmp_type(6)  := p_ie;
  RegEmp_type(7)  := p_im;
  RegEmp_type(8)  := p_razaosocial;
  RegEmp_type(9)  := p_fantasia;
  RegEmp_type(10) := p_ddd;
  RegEmp_type(11) := p_telefone;
  RegEmp_type(12) := p_fax;
  RegEmp_type(13) := p_ddd_cel;
  RegEmp_type(14) := p_fone_cel;
  RegEmp_type(15) := p_email;
  RegEmp_type(16) := p_nome_impresso;
  RegEmp_type(17) := p_ramo;
  RegEmp_type(18) := p_fatura_enviada;
  RegEmp_type(19) := p_id_estado_cartao;
  RegEmp_type(20) := p_id_matriz;
  RegEmp_type(21) := p_cliente_categoria;
  RegEmp_type(22) := p_end_extrato_cnv_empresa;
  RegEmp_type(23) := p_agente;
  RegEmp_type(24) := p_cpf_nulo;
  inc_alt(RegEmp_type);
EXCEPTION
  WHEN OTHERS THEN
    fwerr.gerar_exception(p_procedimento => 'inc_altexec');
END;
-- Procedimento : vrf_empresa
-- Descrição : Procedimento responsável por verificar se o documento que esta sendo
--             incluído já não pertence a uma empresa ou pessoa juridica, e para qual
--             página do sistema será redirecionado.
-- Entrada p_cnpj              - Documento
--         p_id_tipo_documento - Tipo do documento da tabela TIPO_DOCUMENTO
-- Histórico
-- DATA       - DESENVOLVEDOR - REQUISITO - INFORMAÇÃO
-- 15/01/2010 - ATILIO   -  #79229        - Implementação
PROCEDURE vrf_empresa(
    p_cnpj IN VARCHAR2,
    p_id_tipo_documento IN tipo_documento.id_tipo_documento%TYPE)
IS
  v_cnpj                pessoa_juridica.cnpj%TYPE;
  v_id_empresa          cliente.id_cliente%TYPE DEFAULT NULL;
BEGIN
  v_cnpj:= fwutl.limpar_numero(p_cnpj);
  FOR lst IN ( SELECT fc.id_cliente as "Cliente",c.id_cliente, pj.id_pessoa_juridica
                 FROM cliente c, pessoa_juridica pj, frota_cliente fc
                WHERE pj.id_pessoa_juridica = c.id_pessoa_juridica(+)
                  AND c.id_cliente = fc.id_cliente
                  AND pj.cnpj      = v_cnpj)
  LOOP
    v_id_empresa         := lst.id_cliente;
    EXIT;
  END LOOP;
  IF ( v_id_empresa IS NOT NULL ) THEN
    fwapl.redirecionar('f?p='||v('APP_ID')||':15011:'||v('APP_SESSION')||
      '::NO::P15011_CODIGO:'||v_id_empresa);
  ELSE
    fwapl.redirecionar('f?p='||v('APP_ID')||':15013:'||v('APP_SESSION')||
      '::NO:15013:P15013_PAGINA,P15013_CNPJ,P15013_ID_TIPO_DOCUMENTO:15012,'||formatar_docto(v_cnpj,p_id_tipo_documento)||','||p_id_tipo_documento);
  END IF;
  RETURN;
EXCEPTION
  WHEN OTHERS THEN
    fwerr.gerar_exception(p_procedimento => 'pkg_frota_empresa.vrf_empresa');
END;
-- Procedimento : inc_alt_contrato
-- Descrição    : Incluir/Alterar contrato para a empresa
-- Histórico
-- 18/01/2010 - Atilio - (79234) - Implementação
PROCEDURE inc_alt_contrato(
    p_operacao CHAR(1),
    p_reg contrato_cliente%ROWTYPE
IS
BEGIN
  IF p_operacao = 'I' THEN
    ca_empresa_contrato_incluir(p_reg.id_cliente,p_reg.id_produto,p_reg.data_inicio,p_reg.data_fim,p_reg.comissao1,p_reg.comissao2,
                                p_reg.forma_comissao1,p_reg.forma_comissao2,p_reg.dia_entrega,p_reg.id_agente);
  ELSE
    ca_empresa_contrato_incluir(p_reg.id_cliente,p_reg.id_produto,p_reg.data_inicio,p_reg.data_fim,p_reg.comissao1,p_reg.comissao2,
                                p_reg.forma_comissao1,p_reg.forma_comissao2,p_reg.dia_entrega,p_reg.id_agente);
  END IF;
END;
-- Procedimento : inc_alt_contratoexec
-- Descrição    : Incluir/Alterar contrato para a empresa
-- Histórico
-- 18/01/2010 - Atilio - (79234) - Implementação
PROCEDURE inc_alt_contratoexec(
    p_operacao                 IN VARCHAR(1),
    p_id_cliente               IN contrato_cliente.id_cliente%TYPE,
    p_id_produto               IN produto.id_produto%TYPE,
    p_data_inicio              IN contrato_cliente.data_inicio%TYPE,
    p_data_fim                 IN contrato_cliente.data_fim%TYPE,
    p_comissao_1               IN contrato_cliente.comissao1%TYPE,
    p_comissao_2               IN contrato_cliente.comissao2%TYPE,
    p_forma_comissao1          IN contrato_cliente.forma_comissao1%TYPE,
    p_forma_comissao2          IN contrato_cliente.forma_comissao2%TYPE,
    p_dia_entrega              IN contrato_cliente.dia_entrega%TYPE,
    p_agente                   IN contrato_cliente.id_agente%TYPE
IS
BEGIN
  g_contrato_cliente.p_id_cliente     :=  p_id_cliente;
  g_contrato_cliente.p_id_produto     :=  p_id_produto;
  g_contrato_cliente.p_data_inicio    :=  p_data_inicio;
  g_contrato_cliente.p_data_fim       :=  p_data_fim;
  g_contrato_cliente.p_comissao_1     :=  p_comissao_1;
  g_contrato_cliente.p_comissao_2     :=  p_comissao_2;
  g_contrato_cliente.p_forma_comissao1:=  p_forma_comissao1;
  g_contrato_cliente.p_forma_comissao2:=  p_forma_comissao2;
  g_contrato_cliente.p_dia_entrega    :=  p_dia_entrega;
  g_contrato_cliente.p_agente         :=  p_agente;
  inc_alt_contrato(p_operacao => p_operacao
                  ,p_reg => g_contrato_cliente);
EXCEPTION
  WHEN OTHERS THEN
    fwerr.gerar_exception(p_procedimento => 'pkg_frota_empresa.inc_alt_contratoexec');
END;
---------------------------Final das Definições dos Procedimento e Funçoes ------------------------------
BEGIN
  inicializar;
END;
SHOW ERRORSERRORS:
105/20 PLS-00103: Encountered the symbol "(" when one of the following
         symbols was expected:
         : =), Default character varying large
         The symbol ": =" has been replaced by "(" to continue.
110/42 PLS-00103: Encountered the symbol "(" when one of the following
         symbols was expected:
         : =. ), @% Default character
         The symbol ": =" has been replaced by "(" to continue.
Warning: Package Body created with compilation errors.
PROCEDURE inc_alt (
ERROR at line 1:
ORA-00900: invalid SQL statement
Errors for PACKAGE BODY PKG_FROTA_EMPRESA:
LINE / COL ERROR
169 / 4 PLS-00103: Encountered the symbol "end-of-file" when one of
         following symbols was expected:
         begin end function package pragma procedure form