Ir para conteúdo
Fórum Script Brasil

AlexMunhoz

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    329

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que AlexMunhoz postou

  1. AlexMunhoz
    vlw brother :rolleyes:
  2. AlexMunhoz
    Ola amigos, estou precisando de um script de boleto bancário, banco do Brasil ou somente o script do código de barras para o boleto. Quem tiver se puder compartilhar agradeço caso tenham para vender podemos negociar.
  3. AlexMunhoz
    Ola pessoal, estou a algum tempo afastado do nosso fórum de ASP mas estou retornando novamente, e deixo uma contribuição que anda esquentando a cabeça de muita gente. RSS. Inclusive a minha. Depois de muita pesquisa fui catando um pouco ali, um pouco aqui e montei esse script bem simples e funcional. Agora chega de bla bla bla e vamos ao que interessa. Tabela de Serviço dos correios. 41106 - PAC 40010 – SEDEX 40215 - SEDEX 10 40290 - SEDEX HOJE 81019 - e-SEDEX 44105 - MALOTE Vamos La. Crie uma pagina chamada Default.asp e nela coloque o seguinte código. Default.asp <% If Request("busca")=1 Then Dim UrlResposta 'URL De resposta, coloque o caminho onde está o seu arequivo de resposta. UrlResposta = "http://luizcesarengenheiro.com.br/correios/respostacorreios.asp" '------------------------------------------------------------------ ssql = empty ssql = ssql & "http://www.correios.com.br/encomendas/precos/calculo.cfm" ssql = ssql & "?cepOrigem=" & Request("cepOrigem") & "" ssql = ssql & "&cepDestino=" & Request("cepDestino") & "" ssql = ssql & "&peso=" & Request("peso") & "" ssql = ssql & "&servico=" & Mid(Request("servico"),1,5) & "" ssql = ssql & "&valorDeclarado=" & Request("valor") & "" ssql = ssql & "&MaoPropria=n" ssql = ssql & "&avisoRecebimento=n" ssql = ssql & "&resposta=" & UrlResposta & "" Response.Redirect(ssql) End if %> <html> <head> </head> <body> <form action="<%Request.ServerVariables("SCRIPT_NAME")%>" method="get" name="form1" ID="Form1"> Cep Origem:<br> <input type="text" name="cepOrigem" value="" ID="Text1"><br> Cep Destino:<br> <input type="text" name="cepDestino" value="" ID="Text2"><br> Peso:<br> <input type="text" name="peso" value="" ID="Text3"><br> Serviço:<br> <select name="servico" class="frmtextcmb"> <option Selected> -- ESCOLHA O SERVIÇO -- </option> <option> 41106 - PAC</option> <option> 40010 - SEDEX</option> <option> 40215 - SEDEX 10 </option> <option> 40290 - SEDEX HOJE </option> <option> 81019 - e-SEDEX </option> <option> 44105 - MALOTE </option> </select><br /> Valor:<br> <input type="text" name="valor" value="" ID="Text4"><br> <input type="hidden" name="busca" value="1" ID="Hidden1"><br> <input type="submit" name="Submit" value="Enviar" ID="Submit1"> </form> </body> </html> Agora a sua pagina de resposta. Respostacorreios.asp <html> <head> <title>Cálculo de Preços</title> <% iF Request.QueryString("erro") = empty then Response.Write("Serviço: " & Request.QueryString("Servico") & "<br>") Response.Write("Cep de Origem: " &Request.QueryString("cepOrigem") & "<br>") Response.Write(Request.QueryString("UFOrigem") & "-") Response.Write(Request.QueryString("LocalOrigem")& "<br>") Response.Write("Cep de Destino: " &Request.QueryString("cepDestino") & "<br>") Response.Write(Request.QueryString("UFDestino") & "-") Response.Write(Request.QueryString("LocalDestino")& "<br>") Response.Write("Peso: " &FormatNumber(Replace(Request.QueryString("peso"),".",",")) & " Kg<br>") Response.Write("Mão Propria: " &FormatCurrency(Replace(Request.QueryString("MaoPropria"),".",",")) & "<br>") Response.Write("Aviso de Recebimento: " &FormatCurrency(Replace(Request.QueryString("avisoRecebimento"),".",",")) & "<br>") Response.Write("Valor Total: " &FormatCurrency(Replace(Request.QueryString("tarifa"),".",","))& "<br>") else response.Write(request.QueryString("erro")) end if %> </head> </html> Observem que já estou trocando as, por pontos para que não retorne erro na sua consulta, Bom Proveito. Abraços... ;)
  4. AlexMunhoz
    bacana amigão, vou tentar fazer, qualquer duvida corro aqui novamente. abração
  5. AlexMunhoz
    Ola, gostaria de saber qual é o aplicativoq que uso para quando eu clicar em uma imagen ela escurecer o fundo do meu navegador e abrir no centro da pagina, e se alguém tem esse script para me enviar. garto ;) acmmunhoz@hotmail.com
  6. AlexMunhoz
    Ola meus amigos, decidi enfrentar um desafio monstruoso.. Rss. Programo em ASP a 4 anos e resolvi migrar para JavaScript. Sei que não é uma tarefa muito fácil, devido os vícios que ser adquire ao utilizar uma determinada linguagem aos longos. Mas vamos que vamos... A duvida é... O que devo fazer para iniciar essa jornada? Por favor, enviem dicas de como começar, o que deve ser estudado primeiro... Muito grado e certo da colaboração de todos... Obrigado :blush:
  7. AlexMunhoz
    bom, se voce está utilizando o metodo execute do objeto connection, a operação do select não tem vinculo com o comando de cadastro. Portanto você deve estar prendento a operação com um select anterior... verifique se não tem nenhum select antes.. caso tenha feche-o se não tem esperimente colocar um rs.close antes do proximo select... ;) abraço....
  8. AlexMunhoz
    ola eu consegui configurar tudo certinho, mas não esta deixando eu marcar a opção de dos pacotes o IIS... alguém poderia me ajudar?
  9. AlexMunhoz
    Ola, estou iniciando em VB.Net “VS2005” e ao mesmo tempo enfrentando varias dificuldades. Ex: Manipulação de dados por conexão ADO, no vb6 é bem mais simples. Se alguém tiver algum ex, apostila ou tutorial, que possa me fornecer, fico muito agradecido. Consultar, Incluir, Alterar e Excluir. :blink: Grato, Alex Munhoz
  10. AlexMunhoz

    Dados Do Excel

    pergunta respondeu ao Diogovb6 de AlexMunhoz em Visual Basic

    Brother já postei essa resposta... mas vamos lá. Talvez ajude. http://scriptbrasil.com.br/forum/index.php...03&hl=excel Antes de postar faça uma busca no fórum...
  11. AlexMunhoz
    Bom segue a resposta do tópico.... No Modulo: Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" _ (ByVal lpszSoundName _ As String, ByVal uFlags As Long) As Long Global Const SND_SYNC = &H0 Global Const SND_ASYNC = &H1 Global Const SND_NODEFAULT = &H2 Global Const SND_LOOP = &H8 Global Const SND_NOSTOP = &H9 Global Const SND_USUAL = SND_ASYNC Comando para executar o som. Dim x As Long x = sndPlaySound("recado.wav", SND_USUAL) t+ Brothers podem fechar o tópico. Abraço.. ;)
  12. AlexMunhoz
    Ola brother Gostaria de uma ajudo para substituir o comando Beep por um som no formato .wav ex: Ao invés de usar o alerta com o comando Beep, eu gostaria de rodar um arquivo no formato .wav que tenho junto ao arquivo .exe. Alguém poderia me ajudar? Grato,
  13. AlexMunhoz
    No VB. Para criar uma pasta, primeiro você registra a dll Scrrun.dll No seu projeto você deve criar uma referência para poder utilizar o FSO, Para isto selecione no menu Project->References... procure por 'Microsoft Scripting Runtime' Em um botão coloque as linhas. Dim fso As New FileSystemObject If Not fso.FolderExists("c:\Nome da Pasta") = True Then ' Verifica se a pasta existe. fso.CreateFolder ("c:\Nome da Pasta") ' caso não exista, cria a pasta end if abraço... ;)
  14. AlexMunhoz

    Tela Cheia

    pergunta respondeu ao BrunoVeríssimo de AlexMunhoz em Visual Basic

    P/ o MDI eu não conheço outro código não... Esse que o colega te passou funciona bem. abraço.. ;)
  15. AlexMunhoz

    Random No Vb6

    pergunta respondeu ao zerebeu de AlexMunhoz em Visual Basic

    Você diz tipo um sorteio? abraço... ;)
  16. AlexMunhoz

    Tela Cheia

    pergunta respondeu ao BrunoVeríssimo de AlexMunhoz em Visual Basic

    Altere as seguintes propriedades: BorderStyle = 0 - None WindowState = 2 - Maximized Rode o programa e veja se é isso que você precisa. "Tela cheia" abraço... ;)
  17. AlexMunhoz
    Amigão, o conteúdo desse controle Combo1 é exatamente igual ao que você tem cadastrado no campo produto?
  18. AlexMunhoz
    Obs. Onde o campo de seu banco de dados for definido como Numérico não te necessidade da “aspa simples” ‘ Nesse caso você pode referenciar os próprios objetos. Ex: Set rq = cn.Execute("UPDATE tb_estoq_emb SET quantidade=' " & Text1.Text & " ' where produtos=' " & Combo1.Text & " ' ") Suponha que o campo quantidade é numérico, então fica assim: Set rq = cn.Execute("UPDATE tb_estoq_emb SET quantidade= " & Text1.Text & " where produtos=' " & Combo1.Text & " ' ") Acho que ajuda... abraço... ;)
  19. AlexMunhoz
    PODE SER FEITO ASSIM. ESSA OPÇÃO VOCÊ SÓ TRAZ AS QUE ESTÃO COM MAIS DE 30 DIAS A PARTIR DA DO CAMPO QUE DEFINIR COMO BASE. “CAMPO DA DATA” SELECT * FROM SUATABELA WHERE CAMPO DA DATA < NOW() -30 ORDER BY CAMPODADATA ASC T+
  20. AlexMunhoz
    Olha esse tópico... http://scriptbrasil.com.br/forum/index.php...AR+O+COMPUTADOR Abraço... ;)
  21. AlexMunhoz

    Datagrid

    pergunta respondeu ao zerebeu de AlexMunhoz em Visual Basic

    Boas, no DataGrid eu desconheço essa propriedade. Você pode usar o MSFlexGrid para fazer isso e muito mais, ele pode ser preenchido a mão é totalmente flexível. ;) Abraço.
  22. AlexMunhoz
    e um icone dentro de um textbox?
  23. AlexMunhoz

    Visual Basic 9

    pergunta respondeu ao AlexMunhoz de AlexMunhoz em Visual Basic

    Olhem esses links http://www.baboo.com.br/absolutenm/templat...2&zoneid=19 http://www.baboo.com.br/absolutenm/templat...61&zoneid=6 Não entendi muito bem do que se trata realmente, mas se alguém puder deixar algum comentário seria bom. Grato,
  24. AlexMunhoz
    Bom dia Ouvi falar que a Microsoft está para lançar o Visual Basic 9. Alguém tem alguma informação sobre isso?
  25. AlexMunhoz
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\NomeBanco.mdb;Jet OLEDB:Database Password=Senha;"
×
×
  • Criar Novo...