Valor do campo não é reconhecido - URGENTE

[nosliwde]

Boa tarde.

No relatório que estou criando, cada linha do relatório possui:

01 CheckBox, Nome do Funcionário, DropDown Evento, DwopDown Jornada, campo Serviço e Descrição de Serviço , Qtde Horas e opção de Salvar a alteração de dados na linha.

Veja o meu código:

<form name="form" method="post" action="">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                              <td colspan="4" align="RIGHT">N&ordm; de registros encontrados: <b><%=rsLotados.RecordCount%></b>
                &nbsp;&nbsp;&nbsp;&nbsp;P&aacute;gina <%'=pagina%> de <%'=ultpagina%></td>
                    </tr>
                    <tr bgcolor="#0672a7"> 

                      <td width="37" class="titulo" nowrap>&nbsp;&nbsp;<a href='java script:Selecionar_Todos(form.Check,quantidade.value)'><img src="../../Imagens/selecionar00.gif" border=0 alt="Marcar / Desmarcar Todos"></a>&nbsp;&nbsp;</td>
                      <td class="titulo">Funcionário</td>
                      <td class="titulo">Evento</td>
                      <td class="titulo">Jornada</td>
                      <td width="63" class="titulo">Serviço</td>
                      <td width="258"></td>
                      <td width="87" class="titulo">Qtde Hrs</td>
                      <td width="30" class="titulo"></td>
                    </tr>

                     <% rsLotados.MoveFirst
                     Do While not(rsLotados.EOF)
                     %>

                     <td align="left"><input type="Checkbox" name="prog" value="<%=rsLotados("FunCodigo")%>" onClick="MudarLinha(this)"></td>
                     <td align="left" width="97" %>
                     <%=rsLotados("UsuNome")%></td>
<td width="60" align="left" %><select name="inIndice" class="entrada" >
                                    <option value="">&nbsp;</option>

                        <% rsEvento.MoveFirst
                        Do while not(rsEvento.EOF)%>
                        
                        <option value="<%=rsEvento("EveCodigo")%>"><%=rsEvento("EveDescricao")%></option>
                        <%rsEvento.MoveNext
                        Loop%>
                       </select>
                       <% if Request.QueryString("Evento")&"" <> "" then %>
                        <script>Seleciona_Option(<%=Request.QueryString("Evento")%>,form.inIndice)</script>
                      <% end if %>
                       </td>
<td width="54" align="left" %><select name="inJornada" class="entrada">
                        <% rsJornada.MoveFirst
                        Do while not(rsJornada.EOF)
                        
                            if rsJornada("MININICIAL")<10 then
                                horario = rsJornada("HORAINICIAL") &":0"&rsJornada("MININICIAL")
                            else
                                horario = rsJornada("HORAINICIAL") &":"&rsJornada("MININICIAL")
                            end if
                            
                            if rsJornada("JORHORAFINAL")&"" <> ""  then
                                if rsJornada("MINFINAL")<10 then
                                    horario = horario & " às " & rsJornada("HORAFINAL") &":0"&rsJornada("MINFINAL")
                                else
                                    horario = horario & " às " & rsJornada("HORAFINAL") &":"&rsJornada("MINFINAL")
                                end if
                            end if
                        %>
                                    <option value="<%=rsJornada("JorCodigo")%>"><%=horario%></option>
                                    
<%'if rsJornada("JorHoraFinal")&"" <> "" then response.write " - ("&FormatNumber(rsJornada("JorQtd"),2)&")"%>
                                    
                        <%rsJornada.MoveNext
                        Loop%>
                       </select>
                       <% if Request.QueryString("Jornada")&"" <> "" then %>
                        <script>Seleciona_Option(<%=Request.QueryString("Jornada")%>,form.inJornada)</script>
                       <% end if %>
                       </td>
                     <td width="63" align="left" %><input type="text" name="inServico" size="10" maxlength="20" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=Request.QueryString("inSerIndice")%>"></td>
                     <td width="290" align="left" %><input type="text" name="inSerDescricao" size="38" maxlength="50" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=Request.QueryString("inSerDescricao")%>"> 
                     
<a href="java script:Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', form.inSerDescricao.value, form.inServico.value);"><img src="../../Imagens/Lupa00.gif" border=0 alt="Pesquisar Serviço"></a>
<img src="../../imagens/borracha.gif" onClick="java script: document.form.inServico.value=''; document.form.inSerDescricao.value='';" style="cursor:hand" alt="Limpar Campo">                     
                     </td>  
                     <td width="87" align="left" %><input type="text" name="inQtde" size="8" maxlength="8"  onKeyDown="FormataValor(this, 15, event)" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=quantidade%>"></td>
                    <td><a href="java script:Gravar();"><img src="../../Imagens/salvar.gif" border=0 alt="(Ctrl + Shift + F)"</a></td>                                          

                    </tr>
                    <%  rsLotados.MoveNext
                        cont=cont+1
                        Loop 
                        %>
                  </table>
                  </form>

Bom, no relatório aparecem o nome de 10 pessoas.

Quando clico o desenho (link) da lupa, ele aciona o seguinte código:

<a href="java script:Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', form.inSerDescricao.value, form.inServico.value);"><img src="../../Imagens/Lupa00.gif" border=0 alt="Pesquisar Serviço"></a>

Chama a página PesServicos.asp e teria q passar o valores do campo inSerDescricao e inServico.

Mas não está passando os valores dos 2 campos. A página dá um erro tipo assim:

form.inSerdescricao.value é nulo ou não é um objeto

Mesmo com os campos inSerDescricao e inServico preenchidos, a mensagem persiste.

O que pode estar acontecendo?

Cada linha deste relatório deverias ser armazenado em um Array?

Me deem um Help, pois fiquei o dia inteiro preso neste problema e já não sei mais como resolver.

[Jonathan Queiroz]

Ao invés de:

Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', form.inSerDescricao.value, form.inServico.value)

Tente assim:

Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', document.form.inSerDescricao.value, document.form.inServico.value)

Ou então você pode remover o "document.form", já que o código está dentro do formulário (eu prefiro não fazer isso, já que há o risco de você mover o link para fora da função e seuu código parar de funcionar)

[nosliwde]

Jonathan, acabei de tentar o que você me sugeriu.

Apresentou de novo o mesmo erro.

Alguém aí tem outra sugestão?