Ir para conteúdo
Fórum Script Brasil

Romero Dias

Membros
  • Total de itens

    591
  • Registro em

  • Última visita

Tudo que Romero Dias postou

  1. Romero Dias

    Sistema De Cheque

    Vlw Bicicleta, Meu sistema roda em uma intranet mesmo, me da uma luz ai. como faço esse componente? não tenho nem ideia... vlw.. aguardo.
  2. cara, eu tava com problema parecido, eu fiz o seguinte, eu usava Banco Access, na coluna de fotos eu coloquei valor padrão: no_photo.gif se, não fosse gravado nada, o campo ficava por default: no_photo.gif espero ter ajudado.. falou
  3. Romero Dias

    Sistema De Cheque

    A impressao é feita em Navegador IE, vo pesquisar, fazer desta forma com Open Mas se tiver outra sugestao, poste ai.. vlw
  4. Romero Dias

    Sistema De Cheque

    Boa tarde pessoal, tenho um sistema de controle de cheques, que esta funcionado ok, meu problem é na hora de imprimir, gostaria de parar os eixos da impressora quando ela terminar de imprimir um cheque, pois, se o usuario imprimir dois cheques ele tem que voltar a folha, para imprimir o proximo, (os cheques são impressos um por um) esse procedimento esta danificando a impressora pois, o usuario tem que voltar a folha no rolete. Modelo da impressora: Epson Lx 300 se alguém puder me ajudar... vlw...
  5. Romero Dias

    Criptografar Asp

    Pessoal, beleza? puxa, tambem estava atraz de um programa para criptografgar arquivos .ASP podem mandar para mim ??? email: romero@festanovale.com.br vlw
  6. amigo, acredito que seu erro esteja aqui, Set oRS = Server.CreateObject("ADODB.Recordset") conex = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("Tribunal.mdb") &"; Jet OLEDB:Database Password=1234" oRs.Open conex da uma olhada.. falou
  7. Essa string de conexao abaixo é usuada quando o accessa esta com senha, testa ai !! Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:Database Password=MyDbPassword; falou
  8. Bom pessoal, tenho um relatorio onde uma linha é branca e a outra e cinza e assim por diante, mas o problema é que na hora que vou imprimir, a linha cinza sai branca tambem, ou seja não sai a cor de fundo da linha. como faço para sair essa cor de fundo na impressao? Exemplo . . . . <tr> <td bgcolor="#ffffff">&nbsp;</td> </tr> <tr> <td bgcolor="#cccccc">&nbsp;</td> </tr> . . . . . Obrigado!
  9. X-MAN, assim vai funcionar, da uma olhada ai, <script Language="JavaScript"> function teste(numero){ if (numero == "0") alert('nada'); else alert('teste efetuado') } </Script> <form id="form1" name="form1" method="post" action=""> <label> <input name="radiobutton" type="radio" value="radiobutton" onclick="teste('<%=teste(1)%>');">Click </label> </form> falou
  10. py2tz, eu axei algo nesse link ai http://forum.imasters.com.br/index.php?showtopic=156071 vlw
  11. C@rimbeiro, você não vai conseguir fazer um GROUP BY com valores diferentes ou seja debito.valor = 52,20 debito.valor = 63,23 não tem jeito de agrupar dados diferentes, desse jeito abaixo deve dar certo CMD.CommandText ="SELECT clientes.id,clientes.empresa FROM clientes INNER JOIN debito ON clientes.id = debito.idcliente GROUP BY clientes.id,clientes.empresa" falou..abraçao
  12. vlw, Beraldo, minha duvida foi esclarecida, obrigado.
  13. Bom pessoal, estava programando e me ocorreu a seguinte duvida, teria alguam diferença entre os codigos abaixo? qual o melhor? <td width=20& height=10% align=center> ou <td width="20&" height="10%" align="center"> se eu deixar de colocar aspas nos atributos perdera a performance da pagina? é uma duvida cruel que venho me perguntando se alguém souber.. me da um aluz vlw
  14. Romero Dias

    Tratamento De Dízima

    Acredito que a funççao FormatNumber() irá resolver seu problema, valor = 945.2933333333 response.write (FormatNumber(valor),2)
  15. aqui no serviço, eu fiz um esquema de permissao tipo no DB Tabella: Login Nome: Romero User: ui0121 pass: ***** perm: 1 Ai quando o cara logar, você guarda em uma session o que estiver em perm. session("perm") = Rs("pem") 'aplicando a permissao, a pessoa so vai ter acess se ela tiver permissao 1 se não volta para default.asp if session("perm") = "1" then else response.redirect "default.asp" response.end end if qualquer duvida, poste ai
  16. Romero Dias

    Ordenar E Somar :(

    Bom, Eu, resolveria esse problema da seguinte forma, acredito que não seria a forma mais inteligente de resolver, mas funciona, 'aqui pega todos os codigos dos produtos strSql = "SELECT id_produtos FROM tabela_pedidos_produtos GROUP BY id_produtos" Set ObjRs = ObjConn.Execute (strSql) WHILE NOT ObjRs.Eof 'aqui soma os valores pelo produto selecionado strSqlTotais = "SELECT SUM(valor) as total WHERE id_produtos = " &ObjRs("id_produtos") &" " Set ObjRsTotais = ObjConn.Execute (strSqlTotais) Response.Write "Produto : " & ObjRs("id_produtos")&" ,Total : " & ObjRsTotais("total") & "<br>" ObjRs.MoveNext WEND
  17. tenta assim, acredito que possa funcionar ! <html> <head> <title>Pesquisa</title> </head> <body> <% Option Explicit Dim Filtro Filtro = Cstr(Trim((Request.Form("Criterio"))) Dim Sql Set BdWeb = Server.CreateObject("ADODB.Connection") BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Pesquisa.mdb") If Filtro = "NumeroMedauto" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroMedauto LIKE '%" &Filtro& "%'" End If If Filtro = "NumeroOriginal" Then Sql = "SELECT * FROM Pesquisa WHERE NumeroOriginal LIKE '%" &Filtro& "%'" End If If Filtro = "Sinonimo" Then Sql = "SELECT * FROM Pesquisa WHERE Sinonimo LIKE '%" &Filtro& "%'" End If If Filtro = "NomedoProduto" Then Sql = "SELECT * FROM Pesquisa WHERE NomedoProduto LIKE '%" &Filtro& "%'" End If Set RsWeb = Server.CreateObject("ADODB.Recordset") RsWeb.Open Sql, BdWeb, 3 %> <% If RsWeb.BOF and RsWeb.EOF Then%> <h2 align="center">Nenhuma informação localizada ! </h2> <hr> <center><a href="busca.htm">Retorna</a></center> <%Else%> <%If Not RsWeb.BOF Then%> <h2>Resultado da Busca:</h2> <hr> <table BORDER="0" width="100%" cellpadding="3"> <% Do While Not RsWeb.EOF %> <td> <tr><b>Número Medauto :</b> <%=RsWeb("NumeroMedauto")%>&#32 </tr><tr><b>Número Original :</b> <%=RsWeb("NumeroOriginal")%> </tr><tr><b>Sinonimo:</b> <br> <%=RsWeb("Sinonimo")%> </tr><tr><b>Nome do Produto:</b> <br> <%=RsWeb("NomedoProduto")%> </tr> <hr> <tr> </td> <p> <%RsWeb.MoveNext Loop%> <center><a href="busca.htm">Retorna</a></center> </table> <%End If%> <%End If%> <% RsWeb.Close BdWeb.Close %> </body> </html>
  18. Romero Dias

    Ajuda Com Select.

    Bom pelo que eu pude perceber, o erro estava depois do MoveNext ":" para ver o erro da pagina if err <> 0 then Response.Write "Erro " & err.Description end if Set objCategorias = Server.CreateObject("ADODB.Connection") objCategorias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\informenet\banco\noticias.mdb" objCategorias = "SELECT ID, categorias FROM categorias ORDER BY categorias ASC" <form name="form1" method="post" action="Busca.asp"> <table width="242" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="144"><input name="Buscar" type="text" class="Form120x20" id="Buscar"></td> <td width="5">&nbsp;</td> <td width="41"><select name="Categoria" size="1" class="Form120x20"> <% Response.Write "<option selected value='0'>Todas categorias</option>" While Not objCategorias.EOF Response.Write "<option value='"& objCategorias("ID") &"'>"& objCategorias("categorias") &"</option>" objCategorias.MoveNext [color=#FF0000]<----------- Erro estava aqui [/color] Wend %> </select></td> <td width="13">&nbsp;</td> <td width="39"><input name="imageField" type="image" src="Images/BotBuscar.gif" width="43" height="19" border="0"></td> </tr> </table> </form>
  19. Romero Dias

    Efetuando Um Login

    Amigo, eu já tive uma situação parecida, o IFRAME resolveu meu problema, voce tem duas paginas uma de dormulario e a outra para cadastrar não é? na pagina do formulario você coloca um iframe FomularioLogin.asp . . . <form method=post action=ValidaLogin.asp target=insert> <input name=usuario> <input type=password name=senha> <input type=submit value=entrar> <form> <iframe name=insert width=0px height=0px></iframe> . . . . ValidaLogin.asp <% AbreConexao Dim Sql Dim RS login = Request.Form("usuario") senha = Request.Form("senha") Sql = "SELECT * FROM Admin WHERE login = '" & login & "' " Sql = Sql & "AND senha='" & senha & "' " set Rs = Conexao.Execute(Sql) if not rs.eof then Session("login") = RS("login") Session("email") = RS("email") Session("nivel") = Rs("nivel") Session("idlogin") = RS("idlogin") %> <script language=javascript> alert("Usuario OK"); </script> else %> <script language=javascript> alert("Usuario Errado"): </script> <% end if FechaConexao
  20. Romero Dias

    Usuario - Perfil

    Caro Sr. Filipe Lima Muito Obrigado pelas dicas, o Sr. se mostrou muito atencioso, Bom eu fiz de outro jeito coloquei Usuario: Romero Senha: ****** Cheques:R - somente leitura Funcionarios: RW - leitura e escrita Fornecedores : RWD - leitura, escriota e exclusao não sei se foi a melhor forma, mas está funfando file.. falou.. grande abraço,
  21. vai ter que usar JavaScript. window.status = 'http://meusite.com.br' essa função vai imprimir no rodape do browser o que estiver entre as aspas. falou
  22. Romero Dias

    Usuario - Perfil

    E ai filipe tudo bem? cara, minha necessidade é a seguinte, tenho que implementar um perfil por exemplo: no financeiro a pesso só pode cadastrar cheque, mas também no financeiro ela pode modificar um lançamento de credito.. ou seja.. tenho que criar um pefil para cada aplicação do sistema e ai, qual a melhor forma, e que fique com uma melhor perdormance ! já ajudou muito obrigado abraço
  23. Quando você usa GROUP BY, não podera agrupar informaçoes diferentes.. o erro esta aqui debito.valor
  24. Romero Dias

    Usuario - Perfil

    Bom pessoal to precisando implementar em meus sistema um perfil para usuarios por exemplo Financeiro o usuario so pode ler modificar ou excluir, hoje eu tenho uma tabela de usuarios ond faço um perfil com somente 3 criterios por exemplo: um usuario pode ser do tipo 1, 2 ou 3 mas agora precizo detalhar mais isso, qual seria a melhor forma de implementar perfil para usuario? vlw,
  25. Romero Dias

    Salvando Dados No Bd

    para ver o erro da sua pagina if err <> o then response.write err.description end if
×
×
  • Criar Novo...