Ir para conteúdo
Fórum CódigoFonte.net

Nicolviski

Membros
  • Total de itens

    8
  • Registro em

  • Última visita

  1. 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>
  2. 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
  3. 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>
  4. Nicolviski

    Calculo de Frete

    Por favor, alguém sabe me dizer qual é nome da variável que retorno o prazo em nr de dias quando vem do site do correio?
  5. Pessoal, Estou usando a rotina abaixo para calcular o fator de vencimento para ser utilizado na linha digitável do código de barras, mas esta rotina dá o resultado = 971 quando deveria ser 1000. Alguém sabe me dizer o que estou fazendo de errado? <% '=======>ROTINA DO FATOR VENCIMENTO 'Declarando variáveis Dim data1, data2, Ddata data1 = #07/10/1997# data2 = #03/07/2000# 'Conta a quantidade de dias de diferença entre Data Atual e Data Definida Ddata = DateDiff("d", data1, data2) Fator = Ddata %> <p><%=(Fator)%></p>
  6. Nicolviski

    urgente ajuda

    Amigo, Crie no seu BD a tabela com os campos/dados que você vai manter atualizados. Crie uma página que vai abrir como alerta (pop-up) para receber os dados da tabela (use um select para buscar os dados na tabela) Crie na pagina inicial um java script para abrir a pagina de alerta. Voce pode ainda colocar algumas condições na tela inicial para buscar determinado dado na tabela e só mostrar o alerta do que você quer. Espero ter ajudado.
  7. Nicolviski

    Como habilitar session

    Pessoal, Utilizo algumas aplicações em ASP no meu próprio computador configurado com ISS para se tornar um Servidor de intranet. Mas não consigo fazer com que uma variável definida com session passe para outra página. Uso o IE 7.0 e já configurei todas as permissões para utilizar cookies. Será que tem mais alguma configuração a ser alterada? Alguém em ajuda por favor... Segue o código das páginas (bem simples) pagina 1 (teste.asp) <% Dim codpedtemp codpedtemp = "Deu certo!" Session("codpedtemp") = codpedtemp Session.Timeout = 30 %> <p><a href="teste2.asp">aqui</a></p> pagina 2 (teste2.asp) <% Dim codpedtemp codpedtempvem = Request.QueryString("codpedtemp") %> <p>Resposta:<%=(codpedtempvem)%></p> O que tem de errado? O valor da variável, no caso a palavra "Deu certo" nunca aparece. Mas usei o mesmo código em outro servidor e funciona.
  8. Nicolviski

    Inserir dados no Access

    Preciso de um exemplo simples de código em JavaScript que insere os dados (2 campos apenas) de um formulario em um Banco de dados Access após incluir o dado no campo (acredito que deverá ser acionado por OnClick). Obrigado.
×
×
  • Criar Novo...