Ir para conteúdo
Fórum Script Brasil

EvandroSP

Membros
  • Total de itens

    8
  • Registro em

  • Última visita

Sobre EvandroSP

EvandroSP's Achievements

0

Reputação

  1. Olá, preciso saber como somar um campo "FORMULA".. no caso seria um relatorio tipo Extrato de Banco, com debitos e Creditos de valores e o Saldo... Data..............Valor......Tipo........FUNCAO1 05/01/2007....500,00....CRED.....500,00 07/01/2007....100,00....CRED.....600,00 10/01/2007....150,00....DEBI.....450,00 //Essa FORMULA seria o Campo SALDO.... FUNCAO1 apresentado acima If PreviousValue ({CONTALAN.TIPO}) = 'CRED' Then //SE FOR CREDITO SOMAR formula = PreviousValue ({@FUNCAO1}) + {CONTALAN.VALOR} Else //Se for DEBITO SUBTRAIR formula = PreviousValue ({@FUNCAO1}) - {CONTALAN.VALOR} End If só que não esta funcionando essa operação pois o operador PreviousValue não está conseguindo capturar o valor anterior de um campo FORMULA (que no caso seria a coluna FUNCAO1) da esse erro.. a formula cannot refer to itself, either directly or indirectly. alguém sabe o que está errado ou tem alguma outra idéia de como se fazer esse procedimento ? obrigado, evandro.
  2. olha, Não funcionou ainda, alguém pode me ajudar ?? segue a URL do projeto http://testes/asp_firebird/index.asp Código Completo <% set strConexao = CreateObject("ADODB.Connection") strConexao.Open("DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA;PWD=masterkey; DBNAME=localhost:C:\Inetpub\wwwroot\testes\asp_firebird\sgrep.gdb") Set Clientes = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * FROM grpro " IF request("id_table") <> "" THEN Sql = Sql & " where marca = '" & Request("id_table") & "'" end if set Clientes = strConexao.Execute(Sql)%> <html> <head> <title>Conectando</title> </head> <body> <form NAME=Form1 method="POST"> <button name=filtrar onclick='Form1.submit()'>Filtrar</button> </form> <br> <BR> <SELECT NAME="id_table"> <OPTION selected>TODOS</OPTION> <%Set Marcas = Server.CreateObject("ADODB.Recordset") Set Marcas = strConexao.Execute("SELECT Distinct Marca FROM grpro")%> <%While Not Marcas.EOF%> <OPTION value=<%=Marcas("marca")%>><%=Marcas("marca")%></OPTION> <%Marcas.MoveNext Wend Marcas.MoveFirst%> </SELECT>&nbsp; <br> <table border="1" width="100%" height="26"> <tr> ..... as demais linhas é só o preenchimento da table!!!
  3. Olha, fiz as mudanças mais ainda não deu certo... vê se você entende ai, Abraços!!!! <% set strConexao = CreateObject("ADODB.Connection") strConexao.Open("DRIVER=Firebird/InterBase® driver; UID=SYSDBA;PWD=masterkey; DBNAME=localhost:C:\Inetpub\wwwroot\testes\asp_firebird\sgrep.gdb") Set Clientes = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * FROM grpro " IF request("id_table") <> "" THEN Sql = Sql & " where marca = '" & Request("id_table") & "'" end if set Clientes = strConexao.Execute(Sql)%> <html> <body> <form NAME=Form1 method="POST"> <button name=enviar onclick='Form1.submit()'>Enviar</button> </form> <br> <BR> <SELECT NAME="id_table"> <OPTION selected>TODOS</OPTION> <%Set Marcas = Server.CreateObject("ADODB.Recordset") Set Marcas = strConexao.Execute("SELECT Distinct Marca FROM grpro")%> <%While Not Marcas.EOF%> <OPTION><%=Marcas("marca")%></OPTION> <%Marcas.MoveNext Wend Marcas.MoveFirst%> </SELECT>&nbsp; <b><a href="index.asp?Fmarca="&id_table.Value>APLICAR</a></b> <br> <table border="1" width="100%" height="26"> <% cont = 1 Clientes.MoveFirst for i = 1 to 100 etc....................................
  4. Olha, desculpem minhas perguntas infantis, sou programador Delphi e começei a me aventurar em Asp faz 4 dias, to com outra duvida agora, preciso que ao clicar no Link "APLICAR" seja executado um filtro de marcas que está selecionado no Combo... por enquanto eu deixei a Marca "ROLINE" como Default... olhe /testes/asp_firebird/index.asp a questão é simples, como pegar o valor selecionado num ComboBox (Menu Suspenso)??? e uma outra pergunta.. se eu inserir comandos em java Script consigo abrir em todos os tipos de Navegadores ?? Muito Obrigado!!
  5. Qual rotina uso pra carregar um Combo Box de Cidade pegando de meu banco de dados em Access....... Abraços!!
  6. EvandroSP

    Consulta Avançada

    Olá, to com dificuldade pra fazer uma pesquisa de produtos avançadas, com possibilidade de varios filtros, ordenação, e quando a consulta der mais de 30 itens fazer um link pra ver a proxima página.. alguém sabe de um fonte que tenho uma consulta parecida, procurei no site e não achei!! abraços!!
  7. EvandroSP

    Ordenar Tabela

    Muito Obrigado, deu certinho!!
  8. EvandroSP

    Ordenar Tabela

    Olá, tenho um banco de dados com clientes.. exibo eles numa tabela, só que queria que ao clicasse nos titulos (fiz os titulos com Botões em cima de cada coluna) das colunas dessa tabela, ele classificasse (ordenasse) pelo campo clicado! alguém tem um exemplo da uma forma facil de se fazer isso ? Obrigado!!
×
×
  • Criar Novo...