Ir para conteúdo
Fórum Script Brasil

webdotx

Membros
  • Total de itens

    34
  • Registro em

  • Última visita

Tudo que webdotx postou

  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
  16. webdotx

    Diferente Tipos

    Ai galera eu tenho um banco de dados com duas tabelas 1 - tem informações do tipo de movimento do cooperado, ou seja, o cooperado tem capitalização, emprestimo, celular, entre outros cada movimento tem nome e numero... assim Capital = 01 Emprestimo = 02 Celular =03 entre outros = ......102.....500 eu gostaria de fazer assim uma tela onde organiza por tipo de movimento em ordem e mude automaticamente para o proximo movimento daquele cooperado, ou seja se na tabela estiver cadastrado pro cooperado XYZ - Capital, Emprestimo apareça apenas os emprestimos e as capitalizações deu pra entender galera....??? Fico muito agradecido desde já pela ajuda OK
  17. webdotx

    Asp.net

    Caramba que surra eu too tomando com Webmatrix pra conectar uma datagrid pra exibir os dados de uma determinada tabela do BD access - tem alguém ai que sabe desvendar essa façanha rs... Eu já consegui localizar meu BD atravez da janelinha workspace - Data ...mais num sai disso - ... eu coloquei a grid na tela e a janelinha Properties fica com a opção Data Source fica selecionada - mais a lista fica vazia Me ajuda ahe galera - estou querendo aprender um pouco sobre ASP.NET
  18. Ai galera estou procurando um exemplo daquele script que faz o texto ficar subindo - o que eu queria fazer é colocar um sisteminha de noticias subindo - parecido com aquele do ultimo segundo... Onde posso encontra um ???
  19. webdotx

    Tabela Price

    É assim o cara faz um emprestimo de 300,00 e parcela em duas vezes com juros de 4% as parcelas e os juros ficam assim 1ª Parcela 147,06 - juros de 12,00 2ª Parcela 152,94 - Juros de 6,12 ai ficaduas parcelas fixas de 159,06 deu pra entender ????
  20. webdotx

    Tabela Price

    Olá galera vocês sabem Onde eu posso arrumar a formula para a Tabela Price?
  21. webdotx

    Dias Uteis - Como Faço?

    Olá dark eu não estou conseguindo de jeito nenhum dar um resultado pelomenos proximo da ideai que eu dei no inicio do tópico que é de gerar uma listagem de parcelas que os vencimentos sempre caiam no segundo dia do mês - o maximo que consegui foi - fazer o loop de 30 e 30 dias veja abaixo <% Dim semana'dias não úteis(Sábado e Domingo) Dim diferenca 'número de dias entre a data inicial e a final data_inicial = #05/01/03# data_final = #05/30/03# dias_uteis = 0 semana= 0 Function datas(data_inicial,data_final) diferenca = DateDiff("d",data_inicial,data_final) dia = Weekday(data_inicial) For contador = 0 to diferenca If dia = 1 Then semana= semana+ 1 If dia = 7 Then semana= semana+ 1 dia = dia + 1 If dia > 7 Then dia = 1 Next dias_uteis = diferenca - semana meu = weekday(dias_uteis) response.Write(meu) End Function datas data_inicial,data_final %> <BODY> <BR> <%=dia %> '<%=dias_uteis %> dias úteis entre <%= data_inicial %> e <%= data_final %> ' </BODY> </HTML> tem como você me dar uma força nesse codigo pra chegar pelo menos proximo da ideia?
  22. webdotx

    Dias Uteis - Como Faço?

    Vou terminar de fazer o codigo aqui e mando pra galera me ajudar - pode ser?
  23. Como faço para minha aplicação contar 30 dias uteis (Ou seja pulando fins de semana). Já aproveitando essa brecha, me ajudem a raciocinar, minha venda é feita no dia 31/03, os vencimentos sá serão pagos no 5 dia util após um mês (ou seja 5/5) como eu faço pro meu prog reconhecer isso pulando os finais de semana (por ex. dia cinco cai no sábado então ele, o sistema, manda, a cobrança direto para o dia 7, no caso o primeiro dia util subsequente???
  24. consegui resolver galera - obrigado pela atenção
  25. sim claro... eu quero enviar pro banco de dados o valor que esta na variavel temp sendo que nessa variavel tem um valor de 1,2 quando eu tento enviar pro BD Acces da erro assim Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Número de valores da consulta e campos de destino não coincidem já verifique o nome, e esta certo só não tenho certeza se o tipo esta correto - no Acces eu coloquei assim Campo -> temp Tipo -> numero onde pode esta o erro en enviar valores desse tipo 1,2
×
×
  • Criar Novo...