Ir para conteúdo
Fórum Script Brasil

Alessandro

Membros
  • Total de itens

    160
  • Registro em

  • Última visita

Posts postados por Alessandro

  1. Bom, como não encotrei outra solução o jeito foi fazer um gato para resolver meu problema

    function validarRelacionarDoc(listbox1, listbox2)
    {
        for (i = 0; i < listbox1.options.length; i++){
            listbox1.options[i].selected = true;
        }
        for (i = 0; i < listbox2.options.length; i++){
            listbox2.options[i].selected = true;
        }
        frmDocumentos.action = 'NDUpdateDocRelacionados.asp';
        frmDocumentos.method = 'GET';
        frmDocumentos.btnSalvar.disabled = true;
        frmDocumentos.submit();
    }
    Assim eu pego os dados das duas listbox pelo Request.QueryString Mas agora me deparei com outro problema... Sempre que faço passar mais do que 141 registros dá pau no submit do formulário... Se eu coloco para mostrar
    ROWNUM <= 141

    , funciona numa boa...o bd é ORACLE

    Qual a capacidade do Request.QueryString, se é que ele estoura???

    Alguém sabe porque??? :)

  2. Olá pessoal, estou com um problema e gostaria de saber se alguém já teve ou pode me ajudar.

    É o seguinte:

    Tenho duas listbox

    list1 e list2

    Consigo passar o valores de uma para a outra normalmente, o problema é que quando eu submeto o formulário, preciso saber quais são os valores de cada uma e assim atualiza a base de dados...

    Já tentei exemplos que encontrei como:

    for i=1 to Request.QueryString("list1").count
    listboxvalue=Request.QueryString("list1").item(i)
    Response.write listboxvalue & "<br>"
    next
    mas neste caso só me retornam os valores da listbox que forem selecionados ou seja, que estiverem "selected". Tentei também:
    for i=1 to Request.form("listbox name").count
    listboxvalue=Request.form("listbox name").item(i)
    Response.write listboxvalue & "<br>"
    next

    Mas não me retorna nada...

    1º Como gambiarra, pensei em fazer um javascript antes de submeter o formulário e deixar as duas lists "selected", assim o primeiro exemplo daria certo...

    2º Pensei também em fazer a atualização no momento em que o usuário passar os valores de uma list para a outra, assim o primeiro exemplo daria certo também...

    3º Pensei que alguém já deve ter tido ste problema, assim estou aqui para ver se vocês podem me ajudar...pois a 1ª opção seria um gato e a 2ª deixaria o banco com muitas requisições.

    A pergunta é: Alguém sabe como faço para pegar os valores de uma listbox em ASP...

    Att,

    Alessandro F. Silva

  3. Não deu, pois os dados gerados em htm aparece. O problema é quando vai para o Excel.

    Não tem problema em mostrar com a máscara, assim eu coloquei para que o Excel entenda que é uma String e não Numérico.

    <%
    num = Len(rs("cpfcnpj_cli"))
      if (num = 11) then    
        cpf = rs("cpfcnpj_cli")
        cpfcnpj = Mid(cpf,1,3) & "." & Mid(cpf,4,3) & "." & Mid(cpf,7,3) & "-" & Mid(cpf,10,2)
      else if (num = 14) then
        cnpj = rs("cpfcnpj_cli")
        cpfcnpj = Mid(cnpj,1,2) & "." & Mid(cnpj,3,3) & "." & Mid(cnpj,6,3) & "/" & Mid(cnpj,9,4) & "-" & Mid(cnpj,13,2)
      end if
      end if
    %>
    

    Muito obrigado pela atenção Andrea....pode fechar, pois o meu problema não é mais um problema.....rs :P

  4. Exatamente Andrea....

    <% On Error Resume Next%>
    <!--#include file="../conexao2.asp"-->
    <%
    Response.ContentType="application/vnd.ms-excel"
    %>
    <html>
    <head>
    </head>
    <body>
    <table width="100%"  border="1" cellpadding="1" cellspacing="1">
      <tr bgcolor="#076BA7"> 
        <td width="4%" align="center" class="branco"><div align="left"><strong>Favorecido</strong></div></td>
        <td width="4%" align="center" class="branco"><div align="left"><strong>CPF/CNPJ</strong></div></td>
      </tr>
      <%
    Dim Conexao, sql, rs
    
    varData_ini = Request("dataInicial")
    varData_fim = Request("dataFinal")  
    Call converte_data
    
    Call abre_conexao
      sql = "SELECT C.*, S.*, P.*, T.*, E.* FROM tb_cliente C, tb_solicitacao S, tb_prioridade P, tb_at T, tb_escritorio E"
      sql = sql & " WHERE C.id_cli = S.id_cli AND P.id_prioridade = S.id_prioridade AND S.id_at = T.id_at AND S.id_e = E.id_e"
      sql = sql & " AND S.status_s = 'PENDENTE DE PAGAMENTO' AND S.data_s BETWEEN #"& d1&"# AND #"& d2&"# ORDER BY S.data_s, S.horario_s"
    
    Set rs = Conexao.Execute(sql)
    if not rs.EOF then    
         while not rs.EOF
        %>
      <tr bgcolor='#ffffff'> 
        <td class='small'><%=rs("nome_cli")%></td>
        <td class='small'><%=rs("cpfcnpj_cli")%></td>
      </tr>
      <%      
        contador = contador + 1
        rs.MoveNext
        Wend
    %>
    </table>
    </body>
    </html>
    <%    
    else
      Response.Write "<script>java script:alert('Nenhuma SOLICITAÇÃO DE RESSARCIMENTO pendente de recebimento!');window.close();</script>"  
    end if
    %>
    <%Call fecha_conexao%>
    <!--#include file="../rodape_erro.asp"-->

  5. Boa tarde pessoal, estou com um probleminha ao exportar dados de uma tabela para o excel.

    Resumindo, eu tenho dados de uma empresa, e o campo CNPJ é do tipo texto na base de dados. Ao exportar para o Excel, os dados que possuem no início o dígito "0" o Excel retira automaticamente.

    Exemplo: O CNPJ 01417593000159 fica sendo 1417593000159.

    Alguém sabe se o ASP possui alguma forma de evitar isso, ou até mesmo formatar estes dados antes de gerar o arquivo?

    Obrigado... :)

    Att,

    Alessandro F. Silva

  6. Olá pessoal, estou aqui um tanto quanto desesperado, pois já procurei no nosso google de cada dia e não encontrei.

    Tenho um formulário de cadastro onde é necessário selecionar o Estado e a Cidade. Já ví em diversos sites uma funcionalidade, onde o usuário clica no combo estado >> abre um popup >> seleciona o estado e a cidade >> e ao fechar a janela o combo do formulário é preenchido.

    Preciso saber se alguém pode me dar um help esclarecendo se é AJAX, JAVASCRIPT, etc, pois a intenção é não carregar tudo no combbo quando a página for solicitada, pois são milhares de registros na tabela de cidade e fica inviável quando o número de usuários é grande.

    Caso tenha algum exemplo com refresh, ajuda e muito...pois posso fazer efetuando a consulta na nova janela >> armazenar em uma Session e posteriormente carregar o form atualizado.

    Bom, resumindo eu preciso saber como capturar os dados de uma janela secundária na janela principal com ou sem refresh no formulário principal.

  7. Exato, pois o onUnload vai ficar chamando sempre que eu clicar em algum link....

    De qualquer forma obrigado pela ajuda "Amon-Rá_Beraldo".

    "::frenetico::", valeu pelo esclarecimento....

    Farô...

  8. Olá pessoal, estou com uma dificuldade em gravar o log do usuário que ao invés de clicar no botão "Sair do Sistema" clica no "x" da janela do browser.

    Resumindo, eu registro a data, hora e código do usuário ao efetuar o login. O mesmo acontece quando ele efetuar o logoff.

    Minha dúvida é, como fazer para gravar a saída do usuário caso ele feche no "x" da janela?

    Já ví em muitas páginas da web, popups que se abrem quando fechamos a janela no "x". Outras páginas redirecionam para outro link...

    Obrigado...

  9. Olá pessoal, estou com uma dificuldade em gravar o log do usuário que ao invés de clicar no botão "Sair do Sistema" clica no "x" da janela do browser.

    Resumindo, eu registro a data, hora e código do usuário ao efetuar o login. O mesmo acontece quando ele efetuar o logoff.

    Minha dúvida é, como fazer para gravar a saída do usuário caso ele feche no "x" da janela?

    Já ví em muitas páginas da web, popups que se abrem quando fechamos a janela no "x". Outras páginas redirecionam para outro link...

    Caso alguém saiba esse script, por favor responda este tópico, pois já ajuda muito.

    Obrigado!!! :)

    Att,

    Alessandro F. Silva

  10. CorN_Sk8....muito obrigado pela ajuda, consegui fazer e agora meu tcc vai começar a andar de novo....obrigado mesmo.

    :)

    PS. Só acescentei uma coisinha no final para adicionar "zero"

    if ($hr_rs < 9){
        $hr_rs = ("0".$hr_rs);
      }
      if ($nn_rs < 9){
        $nn_rs = ("0".$nn_rs);
      }
      if ($ss_rs < 9){
        $ss_rs = ("0".$ss_rs);
      }
      return $hr_rs . ":" . $nn_rs . ":" . $ss_rs;

    Assim ao invés de ficar 1:1:47 vai ficar 01:01:47, etc...

    Pode fechar o tópico.

  11. Olá pessoal, preciso de uma ajudinha...

    Tenho uma tabela com três atributos do tipo time

    inicio

    fim

    total

    O incício e o fim são preenchidos pelo usuário, mas o total precisa contabilizar a diferença entre os dois, por exemplo:

    total = (fim - inicio);

    inicio 14:00:00

    fim 15:30:00

    total 01:30:00

    A dúvida é: Como eu faço essa conta quando se trata de tempo?

    Preciso saber a diferemça...

    Se alguém souber como faço para fazer a subtração por favor "postaí"...

    Agradeço a atenção...

    Att,

    Alessandro F. Silva

  12. Olá galera, meu sistema irá funcionar em uma única máquina que será um servidor.

    Irei deixar que as outras máquinas utilize o sistemas através de atalhos que irei criar em seus desktops.

    Até aqui td bem, o problema é que no momento em que eu solicito a data e hora, essas informações estão sendo puxadas do computador do usuário e não do servidor, onde o sistema está instalado.

    Usei aquele velho comando

    var Data : TdateTime;

    Data := Now;

    Como posso resolver isso ???

    Ou seja, qual o comando que posso usar que não pegue a hora do computador do usuário, pois se isso acontecer o próprio usuário pode mudar a data e hora e as informações serão incosnsistentes.

    Abraços.....

  13. cyberalexxx deu certo cara.....era exatamente isso......resoveram meu problema como sempre......

    muitississimo obrigado......

    forte abraço......

    PS. prra cara, eu já estava ficando sem esperanças...... biggrin.gif

    Fechou

  14. Tipo de erro:
    Microsoft JET Database Engine (0x80004005)
    Não foi possível encontrar o arquivo 'c:\inetpub\wwwroot\PortalMS\adm\at\PortalMS.mdb'.
    /PortalMS/conexao.asp, line 9

    Dá erro na string de conexão...

    Ele tenta achar o arquivo na mesma pasta onde eu estou requerindo ele, mas o conexao.asp está na pasta raiz PortalMS

  15. <%
    Dim strConexao
    sub abre_conexao
    
     set Conexao = Server.CreateObject("ADODB.Connection")
     strConexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\PortalMS\PortalMS.mdb"
    
     Conexao.Open strConexao
    
    end sub
    
    sub fecha_conexao
      Conexao.close
      Set Conexao = nothing
    end sub
    %>
    Olá pessoal, eu fiz essa sub rotina onde eu chamo em todas as minhas páginas com o seguinte comando:
    <!--#include virtual="PortalMS/conexao.asp"-->
    Está funcionando sem problemas. Agora, quando eu estou jogando para a web, não consigo fazer a conexao funcionar, pois ele não consegue encontrar o arquivo. Eu mudei a string de conexão para:
    strConexao = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("PortalMS.mdb")

    Mas não obtive sucesso...

    Alguém já teve esse tipo de problema ou sabe a solução....

    Obs. Estou trabalhando com várias pastas:

    Tenho a pasta raiz chamada PortalMS, e dentro desta pasta tenho outras pastas com vários arquivos dentro...assim a manutenção dos arquivos é mais fácil.

    Muito obrigado.....abraços.... biggrin.gif

×
×
  • Criar Novo...