Leaderboard

Opa, caso alguem queira testar , baixe os arquivos em anexo que baxei do site do correio fiz alteração no cep.php Coloque os arquivos dentro de seu servidor web; pode usar nosso servidor web que vai continuar por 30 dias para vocês usarem . caso alguém queira utilizar fique a vontade os arquivos em anexo tem que ser colocado dentro de seu provedor web dentro da pasta public_html (qualquer servidor web que vc possa subir os mesmos) serve os arquivos CEP,PHP e phpQuery-onefile.php' não subiu aqui no site se alguém quiser e só colocar o email aqui que envio na hora //COLOQUE ESSES REDEFINE DENTRO DA SUA DIALOG REDEFINE GET oCepcli VAR cCepcli PICTURE "99999-999" ID 103 oF oDlg; VALID TCepweb():New(oEndcli,oBaicli,oCidcli,oEstcli,cCepcli,oNumcli) FONT oFont oCepcli:bGotFocus := {|| oCepcli:SetPos( 1 ) } REDEFINE GET oEndcli VAR cEndcli PICTURE "@!" ID 104 oF oDlg ; FONT oFont REDEFINE GET oNumcli VAR cNumcli PICTURE "@!" ID 105 oF oDlg ; FONT oFont REDEFINE GET oComcli VAR cComcli PICTURE "@!" ID 106 oF oDlg ; FONT oFont REDEFINE GET oBaicli VAR cBaicli PICTURE "@!" ID 107 oF oDlg ; FONT oFont REDEFINE GET oCidcli VAR cCidcli PICTURE "@!" ID 108 oF oDlg ; FONT oFont REDEFINE COMBOBOX oEstcli VAR cEstcli Items iEstcli ID 109 oF oDlg when lOk oEstcli:bKeyChar:={ |nKey, nFlags| If(nKey=VK_RETURN,oDlg:GoNextCtrl( oEstcli:hWnd ),NIL) } oEstcli:oFont:=oFont1 ///////////////////////////////////////////////////////////////////////////////////////////////// Class TCepweb METHOD NEW EndClass METHOD New(oEndere1,oBairro1,oCidade1,oEstado1,cCep,oNumero) CLass TCepweb local oPg, tmp,cBuf,cResult, error_net,oerror,nMySQL local cUrl := "http://republicavirtual.com.br/web_cep.php?cep="//REPUBLICA VIRTUAL O CEPS ESTÃO DESATUALIZADO local cUr2 := "http://impperio.com.br/cep.php?cep=" //DIRETO PELO SITE DO CORREIO local cEstado,cCidade,cBairro,cEndere local cMsgSto:="COLOQUE NOME DA SUA EMPRESA" if!InternetGetConnectedState() MsgStop("Não Há Coneccão com a INTERNET","SEM SINAL PARA CONECÇÃO") TSetfocus():New(oEndere1) Return(.T.) endif oPg = CreateObject("Microsoft.XMLHTTP") oPg:Open("GET",cUr2 + cCep + "&formato=xml",.F.) ERROR_NET:=.T. Try oPg:Send() catch oError msgstop("ERRO AO CONSULTAR C.E.P..!!! " + oError:Description + ". FAÇA MANUALMENTE",cMsgsto) ERROR_NET:=.F. END TRY if ERROR_NET==.T. cBuf = oPg:ResponseBody cResult =substr(cBuf, at('<resultado>',cBuf)+11,1) if left(cBuf,2) # "OK" ERROR_NET :=.T. endif //?cBuf else oPg = CreateObject("Microsoft.XMLHTTP") oPg:Open("GET",cUrl + cCep + "&formato=xml",.F.) ERROR_NET:=.T. Try oPg:Send() catch oError Msgstop("ERRO AO CONSULTAR C.E.P..!!! " + oError:Description + ". FAÇA MANUALMENTE",cMsgsto) ERROR_NET:=.F. END TRY if ERROR_NET==.T. cBuf = oPg:ResponseBody cResult =substr(cBuf, at('<resultado>',cBuf)+11,1) if left(cBuf,2) # "OK" ERROR_NET :=.T. endif endif endif if(cResult<>"1") oPg = CreateObject("Microsoft.XMLHTTP") oPg:Open("GET",cUrl + cCep + "&formato=xml",.F.) ERROR_NET:=.T. Try oPg:Send() catch oError Msgstop("ERRO AO CONSULTAR C.E.P..!!! " + oError:Description + ". FAÇA MANUALMENTE",cMsgsto) ERROR_NET:=.F. END TRY if ERROR_NET==.T. cBuf = oPg:ResponseBody cResult =substr(cBuf, at('<resultado>',cBuf)+11,1) if left(cBuf,2) # "OK" ERROR_NET :=.T. endif endif if(cResult<>"1") MsgStop("CEP Não Existe na base de Dados",cMsgsto) TSetfocus():New(oEndere1) return(.T.) endif endif cEstado =sAcento(substr(cBuf, at('<uf>', cBuf) + 4, 2)) cCidade =sAcento(substr(cBuf, at('<cidade>', cBuf) + 8, at('</cidade>',cBuf) - (at('<cidade>', cBuf) + 8))) cBairro =sAcento(substr(cBuf, at('<bairro>', cBuf) + 8,at('</bairro>', cBuf)- (at('<bairro>', cBuf) + 8))) cEndere:=sAcento(substr(cBuf, at('<tipo_logradouro>', cBuf) + 17, at('</tipo_logradouro>', cBuf) - (at('<tipo_logradouro>', cBuf) + 17))) cEndere+= " "+sAcento(substr(cBuf, at('<logradouro>', cBuf) + 12, at('</logradouro>', cBuf) - (at('<logradouro>', cBuf) + 12))) oEstado1:Varput(substr(cEstado+space(2),1,2)) oCidade1:Varput(substr(cCidade+space(30),1,30)) oBairro1:Varput(substr(cBairro+space(30),1,30)) oEndere1:Varput(substr(cEndere+space(60),1,60)) oEstado1:Refresh() oCidade1:Refresh() oBairro1:Refresh() oEndere1:Refresh() oNumero:Setfocus() return(.T.) static function sAcento(cTes) cTes =strtran(cTes,'ã','A') cTes =strtran(cTes,'á','A') cTes =strtran(cTes,'é','E') cTes =strtran(cTes,'ê','E') cTes =strtran(cTes,'õ','O') cTes =strtran(cTes,'ó','O') cTes =strtran(cTes,'ç','C') cTes =sTrtran(cTes,'ú','U') Return cTes