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 FAO 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 clssico. O que voc est querendo fazer no possvel, pois o cdigo HTML+javascript est no client, enquanto sua rotina pegaCep est no server e o browser no pode v-la. Talvez e somente talvez voc possa colocar o cdigo ASP em um arquivo ASP separado e chamar por AJAX.

_______________________________________________________________________
Virei Orculo!
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 fao 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, no sei se pode ser aplicado ao cenrio aqui. Possivelmente o que ele tem s ASP clssico mesmo

_______________________________________________________________________
Virei Orculo!
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 no queria em ASP, seno nem teria postado. Um mal entendido. Calma l. risadinha debochada aqui no fica bem, vamos se respeitar, no 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 atravs de uma aplicao .net por que vc no usa o webservice do endereo abaixo

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

No endereo http://www.byjg.com.br/site/ pode-se obter ajuda

Se algum precisar de ajuda, posso disponibilizar o cdigo fonte da funo 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