BUSCA DE CEP

 Tópico anterior Próximo tópico Novo tópico

BUSCA DE CEP

ASP CLASSICO

 Compartilhe  Compartilhe  Compartilhe
#452977 - 23/10/2015 17:57:06

DIONISIO
RIO DE JANEIRO
Cadast. em:Fevereiro/2006



BOA TARDE A TODOS, ALGUEM PODE ME AJUDAR, COMO EU FAÇO PARA EXECUTAR A FUNCTION fazBuscaCep(cepRespEco)
APARTIR DO BOTAO ABAIXO? POR FAVOR ME AJUDEM


<input TYPE="button" NAME="submit" value="Busca Cep" onclick=""/>



<%
Function fazBuscaCep(cepRespEco)
          Dim recebeCep
          Dim pegaEnd, pegaBai, pegaCid, pegaEsp, pegaCep
          
          recebeCep = Rtrim(cepRespEco)
          recebeCep = Ltrim(recebeCep)
          Response.write(recebeCep)
          Response.write("  /// ")
      
          TabCep.MoveFirst
          
          Do While not TabCep.eof

            If recebeCep = Trim(TabCep.Fields("cep1")) Then
                                
               pegaEnd=Trim(TabCep.Fields("rua"))
               pegaBai=Trim(TabCep.Fields("bairro"))
               pegaCid=Trim(TabCep.Fields("cidade"))
               pegaEst=Trim(TabCep.Fields("uf"))
               pegaCep=Trim(TabCep.Fields("cep3"))
               If len(pegaCep)=8 Then
                  pegaCep = Left(pegaCep, 5) + "-" + Right(pegaCep, 3)
               end if
              
               'If id="submitEco" Then
                  ruaRespEco = pegaEnd
                  baiRespEco = pegaBai
                  cidRespEco = pegaCid
                  cepRespEco = pegaCep
               'End if

               'Response.write(id)
               'Response.write("  /// ")
               Exit do
              
            End if
            TabCep.MoveNext
          Loop


End Function
%>



#452981 - 23/10/2015 19:23:59

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Isto está me parecendo um script ASP clássico. O que você está querendo fazer não é possível, pois o código HTML+javascript está no client, enquanto sua rotina pegaCep está no server e o browser não pode vê-la. Talvez e somente talvez você possa colocar o código ASP em um arquivo ASP separado e chamar por AJAX.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#452983 - 23/10/2015 20:20:06

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 23/10/2015 20:24:18 por JCM0867

Eu faço assim, busca o CEP na WEB. Ve se entende:

Private Sub cmdLocalizaCep_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLocalizaCep.Click
        CEP(mskAluCep.Text)
        cboAluEstado.Text = DDCep(0)
        txtAluCidade.Text = DDCep(1)
        txtAluBairro.Text =  DDCep(2)
        txtAluEndereco.Text = DDCep(3) + " " + DDCep(4)
        txtAluEndereco.Focus()
        txtAluEndereco.Select(txtAluEndereco.Text.Length, 0)
    End Sub

Coloque em um Modulo:
Public Sub CEP(ByVal pCEP As String)
        Dim dsCep As DataSet
        Dim ResultadoCep As String = String.Empty

        Try
            dsCep = New DataSet()
            dsCep.ReadXml("http://cep.republicavirtual.com.br/web_cep.php?cep=" + pCEP.Replace("-", "").Trim() + "&formato=xml")

            If Not IsNothing(dsCep) Then
                If (dsCep.Tables(0).Rows.Count > 0) Then
                    ResultadoCep = dsCep.Tables(0).Rows(0).Item("resultado").ToString()

                    Select Case ResultadoCep
                        Case "1"
                            DDCepEstado = (dsCep.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DDCep(0) = (dsCep.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DDCep(1) = (dsCep.Tables(0).Rows(0).Item("cidade").ToString().Trim())
                            DDCep(2) = (dsCep.Tables(0).Rows(0).Item("bairro").ToString().Trim())
                            DDCep(3) = (dsCep.Tables(0).Rows(0).Item("tipo_logradouro").ToString().Trim())
                            If DDCep(3) = "Avenida" Then DDCep(3) = "Av."
                            DDCep(4) = (dsCep.Tables(0).Rows(0).Item("logradouro").ToString().Trim())
                        Case "2"
                            DDCep(0) = (dsCep.Tables(0).Rows(0).Item("uf").ToString().Trim())
                            DDCep(1) = (dsCep.Tables(0).Rows(0).Item("cidade").ToString().Trim())
                            DDCep(2) = String.Empty
                            DDCep(3) = String.Empty
                            DDCep(4) = String.Empty
                        Case Else
                            DDCep(0) = String.Empty
                            DDCep(1) = String.Empty
                            DDCep(2) = String.Empty
                            DDCep(3) = String.Empty
                            DDCep(4) = String.Empty
                    End Select
                End If
            End If
        Catch ex As Exception
            MessageBox.Show("Falha ao Buscar o Cep" & vbCrLf & ex.Message & vbCrLf & ex.Source)
        End Try
    End Sub




#452986 - 23/10/2015 20:29:34

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
JCM0867, isso que você postou é ASP.NET, não sei se pode ser aplicado ao cenário aqui. Possivelmente o que ele tem é só ASP clássico mesmo

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#452987 - 23/10/2015 21:05:51

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 23/10/2015 21:07:49 por JCM0867

está dentro do VB.net
e funciona 100% nos Windows forms




#452989 - 23/10/2015 22:50:16

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


JCM0867 e o que tem que funciona dentro do windows form o cara precisa em asp kkkkk



#452991 - 23/10/2015 23:15:29

JCM0867
BALNEARIO CAMBORIU
Cadast. em:Março/2012


Última edição em 23/10/2015 23:26:25 por JCM0867

Citação:
:
JCM0867 e o que tem que funciona dentro do windows form o cara precisa em asp kkkkk


Eu pensei que ele não queria em ASP, senão nem teria postado. Um mal entendido. Calma lá. risadinha debochada aqui não fica bem, vamos se respeitar, não sou piá.





#452998 - 24/10/2015 00:27:12

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


nao estou debochando de voce amigo se nao gostou fazer o que, toda vez que voce pensar em responder em um post e so olha em cima que vai estar especificado pra que area foi pedido a ajuda fica a dica..

Boa sorte ao dono do post espero que consiga resolver o problema...

BUSCA DE CEP
ASP CLASSICO



#453176 - 27/10/2015 20:07:17

PLUGSOFTSM
SANTA MARIA
Cadast. em:Julho/2015


Amigo... Se vc quer buscar CEP na internet através de uma aplicação .net por que vc não usa o webservice do endereço abaixo

http://www.byjg.com.br/site/webservice.php/ws/cep?WSDL

No endereço http://www.byjg.com.br/site/ pode-se obter ajuda

Se alguém precisar de ajuda, posso disponibilizar o código fonte da função que desenvolvi. Ela está em vb.net, mas pode ser adaptada facilmente para qualquer outra linguagem





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por DIONISIO em 30/10/2015 19:36:13