BUSCA DE CEP

DIONISIO 23/10/2015 17:57:06
#452977

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
%>
KERPLUNK 23/10/2015 19:23:59
#452981
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.
JCM0867 23/10/2015 20:20:06
#452983
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
KERPLUNK 23/10/2015 20:29:34
#452986
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
JCM0867 23/10/2015 21:05:51
#452987
está dentro do VB.net
e funciona 100% nos Windows forms
KURTGU 23/10/2015 22:50:16
#452989
JCM0867 e o que tem que funciona dentro do windows form o cara precisa em asp kkkkk
JCM0867 23/10/2015 23:15:29
#452991
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á.
KURTGU 24/10/2015 00:27:12
#452998
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
PLUGSOFTSM 27/10/2015 20:07:17
#453176
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 encerrado , respostas não são mais permitidas
Voltar