Ir para conteúdo
Fórum Script Brasil

webdotx

Membros
  • Total de itens

    34
  • Registro em

  • Última visita

Sobre webdotx

webdotx's Achievements

0

Reputação

  1. webdotx

    Uso De Arrays Em Asp

    Como eu faria para aparecer no array o que esta escrito no campo de um form tipo assim Nome:"Leanderson" Valor:"1500" As informações estão entre aspas - essas que eu quero que apareça na possição no array apois eu clicar em ok- e ficar aparecendo na tela - e assim por diate ou seja conforme eu vou preechendo e dando ok no botão ele vai listandona tela pra mim - assim Teria como?
  2. webdotx

    Abater No Esoque

    \Veja só o codigo pois posso esta digitando alguma coisa errada <% 'Funcao para tratamento de virgula e ponto Function MudaNumero(pNumero,pFormato) Select Case pFormato Case 1 ' converte de nacional para o formato americano pNumero = Replace(pNumero,",","") pNumero = Replace(pNumero,",",",") Case 2 ' Converte de americano para o formato nacional pNumero = Replace(pNumero,".",",") End Select MudaNumero = pNumero End Function DB = "Data Source=" & Server.Mappath("estocar.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Set objConn = Server.CreateObject("AdoDb.Connection") objConn.provider="Microsoft.Jet.OLEDB.4.0" objConn.connectionstring=Server.Mappath("estocar.mdb") objConn.open dim nome,idgrupo,estqmm,valor ' Criamos a connection Set objConexao = Server.CreateObject("ADODB.Connection") ' Abrimos objConexao.Open DB 'Form SQL_Cat = "select * from tab_entrada order by codmaterial desc" Set RS_Cat = objConn.Execute(SQL_Cat) 'codgrupo = request.Form("codgrupo") quant = rs_cat("quantentra") 'Criamos a linha SQL para inserir 'SQL = "INSERT INTO tab_material(nomematerial,valordevenda,codgrupo) VALUES ('" & nome & "','" & valor & "','" & codgrupo & "')" 'Executamos a SQL de INSERÇÂO response.Write("quant") objConexao.Execute SQL objConexao.Close set objConexao = Nothing set rs_cat = Nothing %>
  3. webdotx

    Abater No Esoque

    objConexao.Execute SQL
  4. webdotx

    Abater No Esoque

    Coloquei esse comando e deu esse erro abaixo Tipo de erro: Microsoft JET Database Engine (0x80040E0C) O comando de texto não foi definido para o objeto de comando. /wesley/exe_teste.asp, line 37
  5. webdotx

    Abater No Esoque

    Ola galera eu já tenho metade do sistema pronto sendo que eu parei em uma parte que esta tirando meu sono e não SEI COMO FAZER PORFAVOR PEÇO A AJUDA DE VC´S eu gostari de colocar uma informação dizendo pro cliente que o valor que ele esta digitando é acima do que tem no estoque e se caso ele digite o valor certo o sistema faça o abatimento no BD eu vasculhei aqui no forum e achei um exemplo mais ou menos do que quero fazer só não estou sabendo como utilizar - acho que estou ficando louco veja abaixo o codigo <html> <head> <title>x</title> <script language="javascript"> function compara(){ if (document.frm.valor.value > document.frm.quantidade_bd.value){ alert("Valor acima do esperado."); document.frm.valor.value=""; document.frm.valor.focus(); return false; } } </script> </head> <body> <form name=frm method=post> <input type="hidden" value="320" name="quantidade_bd"> <input type="text" name="valor" size=20> <input type="submit" onclick="return compara()"> </form> </body> </html> Eu gostaria de saber como utilizar e se caso alguém tenha uma ideia de como eu devo fazer essa critica Não sei se fui bem claro... Agradeço pela atenção despençada amigos
  6. webdotx

    Sistema De Estoque

    Ai galera eu gostaria de colocar um aviso - Quando o cliente escolhe um produto e digita um valor acima do que tem no estoque o sistema retornar dizendo que uma Msg pra ele - deu pra entender
  7. webdotx

    Sistema De Estoque

    Ai galera Brigadão pela força - vou colocar abaixo o jeito que eu fiz Primeiro eu tenho um BD com os seguintes campos Tabentrada CondGrupo - CodMaterial - Nome - QutEntra - Data Essa tabela esta relacionada a TabGrupo - e TabMaterial ai criei dois forms um entrada e outro saida sendo que na pagina que processa as infos para cadastrar no BD eu fiz assim cadentra.asp <% 'Funcao para tratamento de virgula e ponto Function MudaNumero(pNumero,pFormato) Select Case pFormato Case 1 ' converte de nacional para o formato americano pNumero = Replace(pNumero,",","") pNumero = Replace(pNumero,",",",") Case 2 ' Converte de americano para o formato nacional pNumero = Replace(pNumero,".",",") End Select MudaNumero = pNumero End Function DB = "Data Source=" & Server.Mappath("estocar.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Set objConn = Server.CreateObject("AdoDb.Connection") objConn.provider="Microsoft.Jet.OLEDB.4.0" objConn.connectionstring=Server.Mappath("estocar.mdb") objConn.open dim nome,entra,data ' Criamos a connection Set objConexao = Server.CreateObject("ADODB.Connection") ' Abrimos objConexao.Open DB 'Form SQL_Cat = "select * from tabentrada order by codmaterial desc" Set RS_Cat = objConn.Execute(SQL_Cat) cod = TRIM(Request.Form("material")) entra = TRIM(Request.Form("quantentra")) data = Date() 'Criamos a linha SQL para inserir SQL = "INSERT INTO tabentrada(codmaterial,quantentra,data) VALUES ('" & cod & "','" & entra & "','" & data & "')" 'Executamos a SQL de INSERÇÂO objConexao.Execute SQL objConexao.Close set objConexao = Nothing set rs_cat = Nothing response.redirect("index.asp") %> Esse dai entra com as informações na tabentrada e usando o mesmo codigo e a mesma tabela eu apenas mudei essa linha abaixo entra = - TRIM(Request.Form("quantentra")) e chamei de cadsai.asp pra visualizar o saldo no estoque fiz este select SELECT tabgrupo.nome, tabmaterial.nomematerial, Sum(tabentrada.Quantentra) AS numclassific FROM tabgrupo INNER JOIN (tabmaterial INNER JOIN tabentrada ON tabmaterial.codmaterial = tabentrada.CodMaterial) ON tabgrupo.codgrupo = tabmaterial.codgrupo GROUP BY tabgrupo.nome, tabmaterial.nomematerial, tabentrada.CodMaterial ORDER BY Sum(tabentrada.Quantentra) DESC; pronto o meu estoque esta pronto vou aperfeiçoar algumas coisas e organizar a casa e perguntar ai a galera do Forum se posso publicar esse sisteminha pra comunidade daqui do forum - se vc´s permite
  8. webdotx

    Sistema De Estoque

    Ai galera eu estou desenvolvendo um sisteminha de estoque em ASp e estou com a maior duvida sobre a estrutura da tabela de entrada, saida e saldo. Pois o que eu quero é que além do BD guardar as informações de entrada e saida durante o mês ou ano inteiro eu gostaria de ver o saldo do produto no estoque . Tem como vc´s me da uma luz de como devo fazer pois já estou perdendo a cabeça com a estrutura desse BD
  9. Ai galera eu achei um codigo em javascript que pode auxiliar muito a galera que desenvolve sisteminha de busca. eu gostaria de colocar esse codigo junto com uma conxao com BD Access mais não consigo se alguém ai poder dar uma refinada no codigo fiarei muito feliz A ideia é digitar num text box e conforme você vai digitando vai aparecendo as informação num list box. veja o codigo abaixo <!-- THREE STEPS TO INSTALL LIST CHOOSER: 1. Copy the coding into the HEAD of your HTML document 2. Add the onLoad event handler into the BODY tag 3. Put the last coding into the BODY of your HTML document --> <!-- STEP ONE: Paste this code into the HEAD of your HTML document --> <HEAD> <script LANGUAGE="JavaScript"> <!-- Original: Anand Raman (anand_raman@poboxes.com) --> <!-- Web Site: http://www.angelfire.com/ar/diduknow --> <!-- This script and many more are available free online at --> <!-- The JavaScript Source!! http://javascript.internet.com --> <!-- Begin function SelObj(formname,selname,textname,str) { this.formname = formname; this.selname = selname; this.textname = textname; this.select_str = str || ''; this.selectArr = new Array(); this.initialize = initialize; this.bldInitial = bldInitial; this.bldUpdate = bldUpdate; } function initialize() { if (this.select_str =='') { for(var i=0;i<document.forms[this.formname][this.selname].options.length;i++) { this.selectArr[i] = document.forms[this.formname][this.selname].options[i]; this.select_str += document.forms[this.formname][this.selname].options[i].value+":"+ document.forms[this.formname][this.selname].options[i].text+","; } } else { var tempArr = this.select_str.split(','); for(var i=0;i<tempArr.length;i++) { var prop = tempArr[i].split(':'); this.selectArr[i] = new Option(prop[1],prop[0]); } } return; } function bldInitial() { this.initialize(); for(var i=0;i<this.selectArr.length;i++) document.forms[this.formname][this.selname].options[i] = this.selectArr[i]; document.forms[this.formname][this.selname].options.length = this.selectArr.length; return; } function bldUpdate() { var str = document.forms[this.formname][this.textname].value.replace('^\\s*',''); if(str == '') {this.bldInitial();return;} this.initialize(); var j = 0; pattern1 = new RegExp("^"+str,"i"); for(var i=0;i<this.selectArr.length;i++) if(pattern1.test(this.selectArr[i].text)) document.forms[this.formname][this.selname].options[j++] = this.selectArr[i]; document.forms[this.formname][this.selname].options.length = j; if(j==1){ document.forms[this.formname][this.selname].options[0].selected = true; //document.forms[this.formname][this.textname].value = document.forms[this.formname][this.selname].options[0].text; } } function setUp() { obj1 = new SelObj('menuform','itemlist','entry'); // menuform is the name of the form you use // itemlist is the name of the select pulldown menu you use // entry is the name of text box you use for typing in obj1.bldInitial(); } // End --> </script> </HEAD> <!-- STEP TWO: Insert the onLoad event handler into your BODY tag --> <BODY OnLoad="javascript:setUp()"> <!-- STEP THREE: Copy this code into the BODY of your HTML document --> <center> <form name="menuform" onSubmit="javascript:window.location = document.menuform.itemlist.options[document.menuform.itemlist.selectedI ndex].value;return false;"> <font face="arial, helvetica" size="-1">Please enter the first few letters of the item you are looking for.</font> <br><br> <input type="text" name="entry" size="30" onKeyUp="javascript:obj1.bldUpdate();"> <br> <select name="itemlist" size=5> <option value="page.html">ALL <option value="page.html">ALL CATALOG <option value="page.html">ALL CLUSTERS <option value="page.html">ALL CLUSTERS HASH EXPRESSIONS <option value="page.html">ALL COL COMMENTS <option value="page.html">ALL COL PRIVS <option value="page.html">ALL COL PRIVS MADE <option value="page.html">ALL COL PRIVS SENT <option value="page.html">ALL CONSTRAINTS <option value="page.html">ALL CONS COLUMNS <option value="page.html">ALL DB LINKS <option value="page.html">ALL DEF AUDIT <option value="page.html">ALL DEPENDENCIES <option value="page.html">ALL ERRORS <option value="page.html">ALL HISTOGRAMS <option value="page.html">ALL INDEXES <option value="page.html">ALL IND COLUMNS <option value="page.html">ALL JOBS <option value="page.html">ALL OBJECTS <option value="page.html">ALL REFRESH <option value="page.html">ALL REFRESH NOW <option value="page.html">ALL USERS <option value="page.html">ALL VIEWS <option value="page.html">AUDIT ACTIONS <option value="page.html">BOOKS <option value="page.html">CLIENTS <option value="page.html">CLOSED <option value="page.html">COLUMN PRIVILEGES <option value="page.html">DBA ANALYZE COST <option value="page.html">DBA FROM CLIENTS <option value="page.html">DBA FROM NEIGHBORS <option value="page.html">DBA PROFILES <option value="page.html">DBA REFRESH ALL <option value="page.html">DBA REFRESH PAGE <option value="page.html">DBA REPORT <option value="page.html">DBA RGROUP <option value="page.html">DBA ROLE <option value="page.html">DBA ROLE SUMMARY <option value="page.html">DBA ROLLBACK SEGS </select> </form> </center> <p><center> <font face="arial, helvetica" size="-2">Free JavaScripts provided<br> by <a href="http://javascriptsource.com">The JavaScript Source</a></font> </center><p> <!-- Script Size: 4.83 KB --> ai eu não estou sabendo colocar o BD para aparecer conforme eu vou digitando na text se tiver alguém ai expert - será mole mole
  10. Eu estou querendo exportar ou importar umas informações que esta em mum banco de dados access para um arquivo em TXT que tem um layout de posição de informações ou seja da coluna 1 até a coluna 5 entra o codigo do cooperado da coluna 6 a coluna 50 entra o nome e assim por diante como eu faço fazer isso via ASP
  11. já resolvi aqui o problema e depois eu disponibilizo pra galera OK?
  12. Cara num funciona de jeito nenhum sera que pode fazer isso que estou querendo? veja abaixo o codigo que eu fiz pra enviar as infos pro BD Não esta dando nenhum erro mais quando eu chego no ACCESS não tem informações cadastradas eu até coloquei um response.write no insert pra ver mais não aparece... essa variavel vezes ela aparece no formulario anterior pois ela coleta o numero de parcelas do usuario mais não funciona - me ajuda ahee galera???? <% dim numero,valro,data,vezes Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "DBQ=" & Server.MapPath("sitemacoop.mdb") &";driver={microsoft Access Driver (*.mdb)}" for i = 1 to vezes parcela=i movimento&i = Request.Form("movimento"&i) valor&i = Request.Form("valor"&i) data&i = Request.Form("data"&i) strSQL = "INSERT INTO emp (movimento,valor,data) VALUES ('"&movimento&"','"&valor&"','#"&data&"#')" conexao.execute strSQL next end if response.Write("Dados Enviados com Sucesso") response.write("<a href='lanca.asp'>Voltar</a>") Set strsql = Nothing Set Conexao = Nothing response.End %>
  13. ai galera tem como vocês me ajudarem eu tenho um formulario de emprestimo e cada text recebe como name o numero da parcela desejada ou seja <body> <div align="center"><span class="data"><strong><font size="+1">SISTEMA DE LAN&Ccedil;AMENTOS</font></strong></span> </div> <center> <form method="post" name="form1"> <div align="center" class="lanca"><br> <br> Quantidade de Parcelas <select name="numero" size="1" class="lanca"> <option value="2">À vista</option> <option value="3">Em até 2x</option> <option value="4">Em até 3x</option> <option value="5">Em até 4x</option> <option value="6">Em até 5x</option> <option value="7">Em até 6x</option> </select> <br> Data de Inicio <input type="text" name="dt" value="<%=Day(02)%>/<%=Month(now)%>/<%=Year(now)%>" class="lanca"> <br> Cod. Movimento <input type="text" name="movimento" value="0" class="lanca"> <br> Valor <input type="text" name="capital" value="0" class="lanca"> </div> <div align="center"><span class="lanca"> <input name="enviar" type="submit" class="bts" value="Gerar Lista"> </span> </div> </form> </center> <% valor = request.Form("capital") movimento = request.Form("movimento") vezes = request.Form("numero") For i = 2 to vezes %> <% qtdParcela = i dtInicial = request.Form("dt") '// Verifico qual o mês (posso simplesmente fazer um loop de 1 até 12) For x = 0 To (qtdParcela - 1) if x = 0 Then ' Response.write "entrada: "& dtInicial &"<br>" else '// Monto uma data referente ao mês e ano desejados (01/01/2004 / 01/02/2004 / 01/03/2004, etc...) dtParcela = DateAdd("m",x,dtInicial) dtVencimento = CDate("02/"& Month(dtParcela) &"/"& Year(dtParcela)) '// Verifico que dia da semana esta data é ( WeekDay("01/01/2004) ) diasemana = WeekDay(dtVencimento) '// Se a data for domingo? ( if dia da semana + 2 ) if diasemana = 7 then dtVencimento = DateAdd("d",2,dtVencimento) '// Se a data for sábado? (if dia da semana + 1 ) if diasemana = 1 then dtVencimento = DateAdd("d",1,dtVencimento) '// ALTERAÇÃO PARA O SEGUNDO DIA ÚTIL DO MÊS '=============================================================== if diasemana = 7 then dtVencimento = DateAdd("d",1,dtVencimento) 'SÁBADO if diasemana = 1 then dtVencimento = DateAdd("d", 1,dtVencimento) 'DOMINGO if diasemana = 2 then dtVencimento = DateAdd("d",1,dtVencimento) 'SEGUNDA 'response.write "parcelas: "& (x) 'response.write "&nbsp;&nbsp; data base: "& dtParcela &"<br>" '// Qual o resultado desta verificação, segunda feira dia = FormatDateTime(dtVencimento,2) 'response.write "<br>" '// Senão for sábado nem domingo a data já é um dia útil.<br> '// ou seja a data não entrará nos ifs '// Para ser o segundo dia útil no caso, basta fazer algumas alterações '=============================================================== '. se for sábado acrescenta + 3 '. se for domingo acrescenta + 2 '. se for segunda acrescenta + 1 end if Next %> <center> <form action="exe.asp" method="post"> <table width="42%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#FFFFFF"> <thead> <tr> <th width="13%" class="lanca">Parcelas</th> <th width="44%" class="lanca">Movimento</th> <th width="20%" class="lanca">valor</th> <th width="23%" class="lanca">data</th> </tr> </thead> <tr> <td align="center" bordercolor="#FFFFFF" class="lanca"><%=i - 1%></td> <td align="center" bordercolor="#FFFFFF" class="lanca"> <input type='text' name="movimento" size='15' value="<%=movimento%>" class="lanca"> </td> <td align="center" bordercolor="#FFFFFF" class="lanca"> <input type='text' name='valor<%=i%>' size='10' value="<%=valor%>" class="lanca"> </td> <td align="center" bordercolor="#FFFFFF" class="lanca"> <input type='text' name='data<%=i%>' size="10" value="<%=dtvencimento%>" class="lanca"> </td> </tr> </table> <% next %> <span class="lanca">Matricula <input type="text" name="matricula" value="0" class="lanca"> - <input name="enviar" type="submit" class="bts" value="Enviar para o banco de dados"> </span> </form> </center> ai eu coleto as informações e envio pro BD sendo que se for parcelado da erro veja o codigo de envio <% response.expires = 0 response.expiresabsolute = Now() - 1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.CacheControl = "no-cache" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=C:\coopsx\cooperativa.mdb;Driver={Microsoft Access Driver (*.mdb)};" 'Coletando informações do Formulario' vezes = request.Form("numero") matricula = Request.Form("matricula") movimento = Request.Form("movimento") strSQL = "INSERT INTO test (matricula,movimento) VALUES ('" & matricula & "','" & movimento & "')" conexao.execute strSQL Response.Write(strsql) Response.Write("<br>") Response.Write("<br>") Response.Write("Dados enviados com sucesso !!!") Set strsql = Nothing Set Conexao = Nothing response.End %> eu acho que tem que colocar um for ai no insert pra ele gerar X insert conforme o numero de parcelas, sendo que não estou sabendo como fazer tem como vc´s me ajudarem?
  14. webdotx

    Nao Estou Encontrando

    Como eu faria pra popular as comos com infos do BD?
  15. webdotx

    Nao Estou Encontrando

    Ai galera aqui no forum tinha um exemplo de um select onde continha informações e quando eu seleconava por exemplo um nome da lista ele colocava em uma text o valor correspondente aquele nome que eu selecione - mais sem dar refresh na pagina tipo assim tem uma lista de cidades Rio de Janeiro são Paulo Minas Gerais ai eu cliquei no iten Rio de Janeiro na text ao lado da lista aparece - Cidade maravilhosa ta dando pra entender??? eu lembro que aqui no forum tinha um exemplo desse mais não estou achando
×
×
  • Criar Novo...