Validação

[Guest - Jackson -]

Olá Pessoal,

Estou tentando validar uma página em ASP, através da passagem de 4 parametros.

Estes parametros servem como filtro para uma consulta em um formulário.

É gerada uma consulta e após a consulta é disparado uma impressão através de um botão.

A consulta está sendo gerada normalmente, porém quando clica-se no botão Imprimir me é reportada a seguinte mensagem de erro:

<< APOLICE

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'sesssion'

/MBOnLine/2ViaApolice/Impressao2Via.asp, line 68 >>

Já testei todas as variáveis session que está nesta página, e o erro persiste.

Se alguém puder me ajudar, ficarei muito grato.

Atenciosamente,

Jackson Arruda

[pgmador]

O script não está reconhecendo a variável session.

Precisa declarar.

[]'s

Nelson Soares

http://www.ondagospel.com.br

[resopi]

coloque a linha 68 pra eu dar uma olhada =)

:D

[AnalistaMG]

Pessoal,

Descobri o erro anterior... A questão estava no 's'

A variável é 'session', e eu havia digitado 'sesssion' (com 3 s).

Mas agora surgiu outro erro... Este erro vou ter que explicar o

relacionamento dele.

Os eventos consulta e impressao estão sendo ativados por um

componente, ou seja, uma DLL.

No caso da consulta, o componente está fazendo a consulta e

retornando os valores para uma Recordset normalmente, mas

quando o evento impressao vai buscar os dados do componente

para gerar a apólice, está ocorrendo o erro. Já recompilei o

componente e pedi para registrarem aqui na empresa.

As variáveis estão declaradas corretamente, pelo menos, aparentemente,

e os parametros estão sendo passados por valor.

Estou transcrevendo o código do componente logo abaixo, caso alguém

tenha alguma sugestão, será muito bem vinda.

<< Início - Código:

Option Explicit

Dim SQL As String

Dim PARCELA As String

Dim CLAUSULA As String

Dim ACESSORIO As String

Dim SUCURSAL As Integer

Dim CARTEIRA As String

Dim SUBCARTEIRA As String

Dim PERFIL As String

Dim USO As String

Dim Erro As Boolean

Public Function FBuscaDados(ByVal APOLICE As Integer, _

                            ByVal ENDOSSO As Integer, _

                            ByVal CERTIFICADO As Integer, _

                            ByVal ITEM As Integer) As ADODB.Recordset

    On Error GoTo TrataErro

    Dim Erro As String

   

    Call sConectaDBMBOL

    SQL = " SELECT"

    SQL = SQL & " A.COD_SUCURSAL,A.COD_CARTEIRA,A.COD_SUBCARTEIRA, A.DTA_INICIO_VIGENCIA, A.DTA_TERMINO_VIGENCIA,"

    SQL = SQL & " A.NUM_APOLICE,A.NUM_ENDOSSO,A.NUM_CERTIFICADO,"

    SQL = SQL & " B.NUM_ITEM,B.COD_CATEGORIA,B.DESCR_CATEGORIA,"

    SQL = SQL & " B.COD_MARCA,B.DESCR_MARCA,B.COD_MODELO,B.DESCR_MODELO,"

    SQL = SQL & " B.ANO,B.PLACA,B.CHASSI,B.BONUS,"

    SQL = SQL & " C.NOME_SEGURADO,C.ENDERECO_SEGURADO,C.BAIRRO_SEGURADO,"

    SQL = SQL & " C.CIDADE_SEGURADO , C.UF_SEGURADO, C.CEP_SEGURADO, C.CPF_CNPJ_SEGURADO"

    SQL = SQL & " FROM"

    SQL = SQL & " PROPOSTA A,"

    SQL = SQL & " ITEM_AUTOMOVEL B,"

    SQL = SQL & " SEGURADO C"

    SQL = SQL & " WHERE"

    SQL = SQL & " A.COD_SUCURSAL = B.COD_SUCURSAL"

    SQL = SQL & " AND A.COD_CARTEIRA=B.COD_CARTEIRA"

    SQL = SQL & " AND A.COD_SUBCARTEIRA = B.COD_SUBCARTEIRA"

    SQL = SQL & " AND A.NUM_APOLICE = B.NUM_APOLICE"

    SQL = SQL & " AND A.NUM_ENDOSSO = B.NUM_ENDOSSO"

    SQL = SQL & " AND A.NUM_CERTIFICADO = B.NUM_CERTIFICADO"

    SQL = SQL & " AND A.COD_SEGURADO = C.COD_SEGURADO"

    SQL = SQL & " AND A.NUM_APOLICE = " & APOLICE

    SQL = SQL & " AND A.NUM_ENDOSSO = " & ENDOSSO

    SQL = SQL & " AND A.NUM_CERTIFICADO = " & CERTIFICADO

    SQL = SQL & " AND B.NUM_ITEM = " & ITEM

   

    Dim Rs As Object

    Set Rs = CreateObject("ADODB.recordset")

    Rs.Open SQL, cnMBOL

   

    Set Rs.ActiveConnection = Nothing

   

    Set FBuscaDados = Rs

   

    SUCURSAL = Trim(Rs!COD_SUCURSAL)

    CARTEIRA = Trim(Rs!COD_CARTEIRA)

    SUBCARTEIRA = Trim(Rs!COD_SUBCARTEIRA)

   

    Call sDesconectaDBMBOL

   

    Exit Function

       

TrataErro:

    Erro = "Erro (FBuscaDados)" & " "

            Err.Number = " & Err.Number & "

            Err.Description = " & Err.Description"

    Err.Raise Erro

End Function

Public Function FBuscaParcela(ByVal APOLICE As Integer, _

                            ByVal ENDOSSO As Integer, _

                            ByVal CERTIFICADO As Integer, _

                            ByVal ITEM As Integer) As ADODB.Recordset

   

    On Error GoTo TrataErro

   

    Dim Erro As String

   

    Call sConectaDBMBOL

   

    PARCELA = " SELECT "

    PARCELA = PARCELA & " D.NUM_PARCELA,D.DTA_VENCTO_PARCELA,D.VLR_PARCELA"

    PARCELA = PARCELA & " FROM PARCELA D"

    PARCELA = PARCELA & " WHERE"

    PARCELA = PARCELA & " D.COD_SUCURSAL = " & SUCURSAL

    PARCELA = PARCELA & " AND D.COD_CARTEIRA =" & CARTEIRA

    PARCELA = PARCELA & " AND D.COD_SUBCARTEIRA =" & SUBCARTEIRA

    PARCELA = PARCELA & " AND D.NUM_APOLICE=" & APOLICE

    PARCELA = PARCELA & " AND D.NUM_ENDOSSO=" & ENDOSSO

    PARCELA = PARCELA & " AND D.NUM_CERTIFICADO=" & CERTIFICADO

    Dim RsParcela As Object

    Set RsParcela = CreateObject("ADODB.recordset")

    RsParcela.Open PARCELA, cnMBOL

   

    Set RsParcela.ActiveConnection = Nothing

   

    Set FBuscaParcela = RsParcela

   

    Exit Function

TrataErro:

    Erro = "Erro (FBuscaParcela)" & " "

            Err.Number = " & Err.Number & "

            Err.Description = " & Err.Description"

    Err.Raise Erro

   

End Function

Public Function FBuscaClausula(ByVal APOLICE As Integer, _

                            ByVal ENDOSSO As Integer, _

                            ByVal CERTIFICADO As Integer, _

                            ByVal ITEM As Integer) As ADODB.Recordset

   

    On Error GoTo TrataErro

   

    Call sConectaDBMBOL

   

    CLAUSULA = " SELECT F.COD_CLAUSULA,F.DESCR_CLAUSULA"

    CLAUSULA = CLAUSULA & " FROM CLAUSULA_AUTOMOVEL F"

    CLAUSULA = CLAUSULA & " WHERE"

    CLAUSULA = CLAUSULA & " F.COD_SUCURSAL = " & SUCURSAL

    CLAUSULA = CLAUSULA & " AND F.COD_CARTEIRA=" & CARTEIRA

    CLAUSULA = CLAUSULA & " AND F.COD_SUBCARTEIRA=" & SUBCARTEIRA

    CLAUSULA = CLAUSULA & " AND F.NUM_APOLICE =" & APOLICE

    CLAUSULA = CLAUSULA & " AND F.NUM_ENDOSSO=" & ENDOSSO

    CLAUSULA = CLAUSULA & " AND F.NUM_CERTIFICADO=" & CERTIFICADO

    CLAUSULA = CLAUSULA & " AND F.NUM_ITEM=" & ITEM

       

    Dim RsClausula As Object

    Set RsClausula = CreateObject("ADODB.recordset")

    RsClausula.Open CLAUSULA, cnMBOL

   

    Set RsClausula.ActiveConnection = Nothing

   

    Set FBuscaClausula = RsClausula

       

    Exit Function

    Call sDesconectaDBMBOL

TrataErro:

    Erro = "Erro (FBuscaClausula)" & " "

            Err.Number = " & Err.Number & "

            Err.Description = " & Err.Description"

    Err.Raise Erro

 

End Function

Public Function FBuscaAcessorio(ByVal APOLICE As Integer, _

                            ByVal ENDOSSO As Integer, _

                            ByVal CERTIFICADO As Integer, _

                            ByVal ITEM As Integer) As ADODB.Recordset

   

    On Error GoTo TrataErro

   

    Call sConectaDBMBOL

   

    ACESSORIO = " SELECT "

    ACESSORIO = ACESSORIO & " E.DESCR_ACESSORIO,"

    ACESSORIO = ACESSORIO & " E.IMP_SEG_ACESSORIO,E.VLR_FRANQUIA,E.PREMIO_ACESSORIO"

    ACESSORIO = ACESSORIO & " FROM ACESSORIO_AUTOMOVEL E"

    ACESSORIO = ACESSORIO & " WHERE"

    ACESSORIO = ACESSORIO & " E.COD_SUCURSAL = " & SUCURSAL

    ACESSORIO = ACESSORIO & " AND E.COD_CARTEIRA=" & CARTEIRA

    ACESSORIO = ACESSORIO & " AND E.COD_SUBCARTEIRA=" & SUBCARTEIRA

    ACESSORIO = ACESSORIO & " AND E.NUM_APOLICE =" & APOLICE

    ACESSORIO = ACESSORIO & " AND E.NUM_ENDOSSO=" & ENDOSSO

    ACESSORIO = ACESSORIO & " AND E.NUM_CERTIFICADO=" & CERTIFICADO

    ACESSORIO = ACESSORIO & " AND E.NUM_ITEM=" & ITEM

   

    Dim RsAcessorio As Object

    Set RsAcessorio = CreateObject("ADODB.recordset")

    RsAcessorio.Open ACESSORIO, cnMBOL

   

    Set RsAcessorio.ActiveConnection = Nothing

   

    Set FBuscaAcessorio = RsAcessorio

   

    Exit Function

 

    Call sDesconectaDBMBOL

TrataErro:

    Erro = "Erro (FBuscaAcessorio)" & " "

            Err.Number = " & Err.Number & "

            Err.Description = " & Err.Description"

    Err.Raise Erro

End Function

Public Function FBuscaPerfil(ByVal APOLICE As Integer, _

                            ByVal CERTIFICADO As Integer, _

                            ByVal ENDOSSO As Integer, _

                            ByVal ITEM As Integer) As ADODB.Recordset

   

    On Error GoTo TrataErro

   

    Call sConectaDBMBOL

   

    PERFIL = " SELECT *"

    PERFIL = PERFIL & " FROM PERFIL_AUTOMOVEL"

    PERFIL = PERFIL & " WHERE"

    PERFIL = PERFIL & " SUCURSAL = " & SUCURSAL

    PERFIL = PERFIL & " AND RAMO = " & CARTEIRA

    PERFIL = PERFIL & " AND NUMERO =" & APOLICE

    PERFIL = PERFIL & " AND NUM_ENDOSSO=" & ENDOSSO

    PERFIL = PERFIL & " AND NUM_CERTIFICADO=" & CERTIFICADO

    PERFIL = PERFIL & " AND NUM_ITEM=" & ITEM

    Dim RsPerfil As Object

    Set RsPerfil = CreateObject("ADODB.recordset")

    RsPerfil.Open PERFIL, cnMBOL

   

    Set RsPerfil.ActiveConnection = Nothing

   

    Set FBuscaPerfil = RsPerfil

   

    Exit Function

    Call sDesconectaDBMBOL

   

TrataErro:

    Erro = "Erro (FBuscaPerfil)" & " "

            Err.Number = " & Err.Number & "

            Err.Description = " & Err.Description"

    Err.Raise Erro

End Function

Public Function FBuscaUsoAuto(ByVal APOLICE As Integer, _

                            ByVal CERTIFICADO As Integer, _

                            ByVal ENDOSSO As Integer, _

                            ByVal ITEM As Integer) As ADODB.Recordset

    On Error GoTo TrataErro

   

    Call sConectaDBMBOL

   

    USO = " SELECT H.CodUso, H.DescUso"

    USO = USO & " FROM USO_AUTOMOVEL G"

    USO = USO & " DESC_USO_AUTOMOVEL H,"

    USO = USO & " WHERE"

    USO = USO & " G.CodUso = H.CodUso"

    USO = USO & " SUCURSAL = " & SUCURSAL

    USO = USO & " AND RAMO = " & CARTEIRA

    USO = USO & " AND NUMERO =" & APOLICE

    USO = USO & " AND NUM_ENDOSSO=" & ENDOSSO

    USO = USO & " AND NUM_CERTIFICADO=" & CERTIFICADO

    USO = USO & " AND NUM_ITEM=" & ITEM

    Dim RsUsoAuto As Object

    Set RsUsoAuto = CreateObject("ADODB.recordset")

    RsUsoAuto.Open PERFIL, cnMBOL

   

    Set RsUsoAuto.ActiveConnection = Nothing

   

    Set FBuscaUsoAuto = RsUsoAuto

   

    Exit Function

    Call sDesconectaDBMBOL

   

TrataErro:

    Erro = "Erro (FBuscaUsoAuto)" & " "

            Err.Number = " & Err.Number & "

            Err.Description = " & Err.Description"

    Err.Raise Erro

End Function

Fim - Código >>

Obrigado a todos que puderem me ajudar

Jackson Arruda

Analista de Sistemas

Minas Brasil Seguradora