Ir para conteúdo
Fórum Script Brasil

Nicolviski

Membros
  • Total de itens

    14
  • Registro em

  • Última visita

Tudo que Nicolviski postou

  1. Pessoal, Não estou conseguindo calcular o subtotal quando faço o select de um banco de dados. Como o select sum está dentro do loop ele traz sempre o subtotal em cada linha por registro, mas eu preciso que o subtotal seja mostrado somente na ultimo linha de cada registro. Alguém pode me ajudar? Segue abaixo o código: <% do while NOT RecSet.EOF%> <% nomeplanow = RecSet("nomeplano") valor = RecSet("valor") %> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="50%"><%=(nomeplanow)%></td> <td width="50%"><%=(valor)%></td> </tr> </table> <% Subtotal="SELECT SUM(valor) as valort FROM tab_movimento WHERE nomeplano='"&nomeplanow&"'" set RS=conexao.Execute(Subtotal) valort = (RS("valort")) %> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="50%">SUBTOTAL:)%></td> <td width="50%"><%=(valort)%></td> </tr> </table> <%RecSet.Movenext%> <%loop%> <%end if%><%conexao.close%>
  2. Pessoal, Preciso comparar o campo "desconto" com o campo "valor do título". O valor do desconto não pode ser maior que o valor do título, mas as vezes ele considera 0,10 maior que 10,00. alguém me ajuda? Segue o script: <script language="javascript"> function Critica(form1,desconto,valorcr) { if (desconto.value >= valorcr.value) { alert('O valor do Desconto não pode ser igual ou maior que o valor do título!') desconto.focus() AllOk = false return } else { AllOk = true } form1.submit() } </script>
  3. Alguém conhece algum script que busca os dados de um CNPJ no site da Receita Federal e traz os dados ou no mínimo a imagem em html do documento onde eu possa varrer o código e obter dados específicos? Como: - Razão Social - Data de abertura da empresa - CNAE
  4. Bareta, Desculpe minha ignorância, mas é que sou autodidata e estou começando. Será que você poderia colocar um exemplo de como fazer isso que voce sugeriu? Desde já agradeço.
  5. Pessoal tenho o código abaixo que tem um script java que soma o valor de alguns campos e coloca este valor no campo total. Ele funciona, mas só no primeiro loop, depois no próximo loop já não funciona mais. Alguém tem como me ajudar? Segue o código: <tag> <% 'Declaração das arrays Dim arrproduto() Dim arrun() empresa = "nova" 'Declarando a Conexao com o Banco de Dados Set Conexao = Server.CreateObject("ADODB.Connection") 'Caminho do Banco de Dados Conexao.Open "DBQ=c:\inetpub\wwwroot\_private\geral2.mdb;Driver={Microsoft Access Driver (*.mdb)};" 'Cláusula SQL de pesquisa PESQUISAR = "SELECT * FROM tab_produtos WHERE empresa LIKE'%" & empresa & "%' ORDER by produto " 'Criação do arquivo que conterá o resultado da pesquisa Set RecSet=Conexao.Execute(PESQUISAR) %> <%'Caso chegue ao final do RecordSet e não encontre nenhum registro IF RecSet.EOF then %> <p>Não há Produtos Cadastrados</pd> <% Else x = 0 Do While Not RecSet.EOF ReDim Preserve arrproduto(x) ReDim Preserve arrun(x) arrproduto(x) = RecSet("produto") arrun(x) = RecSet("un") %> <script language="javascript"> function soma1() { var f = document.forms[0]; var valor1 = parseFloat(f.qtd1.value.replace('.','').replace(',','.')); var valor2 = parseFloat(f.qtd2.value.replace('.','').replace(',','.')); var valor3 = (valor1||0) + (valor2||0); f.total.value = (valor3); } </script> <body oncontextmenu="return false"> <form method="POST" name="form1" action="provaris2d.asp"> <p>PRODUTO:<input type="hidden" name="arrproduto(x)" value="<%=(arrproduto(x))%>"><%=(arrproduto(x))%> ==<input type="hidden" name="arrun(x)" value="<%=(arrun(x))%>"><%=(arrun(x))%> ==QTD1<input type="text" name="qtd1" value="0,00" onkeyup="soma1()" size="5"> ==QTD2<input type="text" name="qtd2" value="0,00" onkeyup="soma1()" size="5"> ==TOTAL<input type="text" name="total" value="0,00" readonly="readonly" size="6"></p> </form> <% x = x + 1 RecSet.MoveNext Loop RecSet.Close Conexao.Close Set RecSet = Nothing Set Connexao = Nothing %> <% End If %> </tag>
  6. Pessoal, Não sei como anexar o formulário para ver se alguém pode me ajudar. Ocorre neste form que existe uma lista na parte de cima do form que mostra todos os registros do BD e logo abaixo os campos do form. O que eu preciso é que ao clicar (selecionar) um registro qualquer nesta lista, os dados deste registro seja exibidos nos respectivos campos do form e que o usuário possa alterar os dados e gravar a alteração ou excluir este registro. Após clicar no botão "alterar" ou "excluir" o registro deve ser alterado ou excluído e a lista deve ser atualizada. Tem como fazer isso?
  7. Ok, obrigado pela dica. Vou tentar e se não der certo vou postar o formulário.
  8. Pessoal, Preciso de um formulário em access que mostre uma lista com todos os registros da tabela clientes e ao clicar em um destes registros na lista, os dados são mostrados nos respectivos campos para edição no mesmo formuário. Aí eu posso alterar ou excluir este registro. Alguém pode me ajudar nisso? Um exemplo ou algo parecido? Desde já agradeço
  9. Quero no nome da variável. Por exemplo o cep de destino o correio retorna (CepDestino), o valor da tarifa o correio retorna (Tarifa), a cidade de destino, retorna (LocalDestino) e o prazo em dias eu preciso saber. Se alguém souber por fazor me informe. Obrigado
  10. Pessoal, alguém sabe me dizer qual é o nome da variável que retorna o prazo de um calculo de frete dos correios em número de dias?
  11. Tentei, mas deu este erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. /teste.asp, line 34
  12. Pessoal, Apos consultar uma tabela e tentar incluir dados em outra tabela aparece essa mensagem: ADODB.Recordset erro '800a0e78' Operação não permitida quando o objeto está fechado. /gravadados.asp, line 34 O script está abaixo. Será que alguém me ajuda? <% Dim cliente, banco, ano 'Declaração de Conexão com banco de dados Set Conexao = Server.CreateObject("ADODB.Connection") 'Altere o caminho do DBQ adequadamente Conexao.Open "DBQ=c:\inetpub\wwwroot\_private\geral.mdb;Driver={Microsoft Access Driver (*.mdb)};" 'Selecionando os registros do Banco de Dados 'Cláusula SQL de pesquisa PESQUISAR = "SELECT * FROM clientes ORDER by cliente" 'Criação do arquivo que conterá o resultado da pesquisa Set RecSet=Conexao.Execute(PESQUISAR) %> <%'Caso chegue ao final do RecordSet e não encontre nenhum registro IF RecSet.EOF then %> <p> Não há clientes cadastrados para gravar dados!</p> <%else 'ou seja, se encontrar algum registro... %> <% do while NOT RecSet.EOF%> <% 'AQUI COMECA A GRAVAR OS DADOS cliente = RecSet("cliente") banco = RecSet("banco") ano = replace(request.form("ano"), "'", "''") 'Cláusula SQL para inserção de dados no BD ADICIONAR="INSERT INTO fatur (cliente, banco, ano)" & "VALUES('" & cliente & "','" & banco & "','" & ano &"')" 'Pedido de execução da cláusula Set RecSet = Conexao.Execute(ADICIONAR) %> <%RecSet.Movenext%><%loop%> <%end if%>
  13. Pessoal, Tenho um relatório que gera uma lista com uma ordem decrescente com valores em percentual. ocorre que quando o valor é maior do que 1.000% ele considera como se fosse 100%. Exemplo: Cliente 244% Cliente 215% Cliente 1.138% Cliente 196% Cliente 183% O correto deveria ser assim: Cliente 1.138% Cliente 244% Cliente 215% Cliente 196% Cliente 183% O que está acontecendo? Porquê o valor mil está sendo considerado cem?
  14. Pessoal, Tenho o seguinte problema: Preciso totalizar valores de grupos de variáveis diferentes e gerar um relatório. Mas não sei como fazer isso; Tenho uma tabela chamada (grupos) codgrupo Grupo 1 Honorários 2 Extras 3 Reembolso 4 Curso E tenho uma tabela chamada (custos) codcusto Grup1 Vlr1 Grup2 Vlr2 Grup3 Vlr3 1 Extras 10 Curso 20 Reembolso 5 2 Curso 20 Extras 10 --- 0 3 Reembolso 5 ---- 0 Honorários 80 4 --- 0 Curso 20 Extras 10 Preciso desenvolver um código que consulte todos os (grupo) existentes na tabela (grupos), depois verifique qual é o valor total para cada um destes (grupo) na tabela (custos). E depois gere um relatório. Assim, o resultado seria o seguinte: RELATÓRIO DE CUSTOS POR GRUPO Grupo Valor Total Honorários 80,00 Extras 30,00 Reembolso 10,00 Curso 60,00 Se alguém puder me enviar o código eu agradeço.
×
×
  • Criar Novo...