SUFIXO_CEP

FERRAZ 20/08/2009 09:11:31
#320382
Rapaziada dia, olha, eu tenho um campo texto em um banco MySQL que serve para gravar CEP, esta funcionando bem, o problema eh o seguinte: Estou montando um arquivo de remessa para o banco do brasil e no layout existe um campo que se chama [Ô]Sufixo Cep[Ô] de 3 posicoes, que na verdade eh os 3 ultimos numeros do cep. Pergunta: como eu posso pegar em meu BD estes 3 ultimos numeros ?

Desde ja, fico grato a todos do VbMania, valeu.
ROBIU 20/08/2009 09:21:17
#320385
Usa a Função Right() ou Mid():

Dim CEP As String
CEP = [Ô]43800-123[Ô]

Para Testar: Forma 01
MsgBox [Ô]CEP COM RIGHT =[Ô] & Right(CEP, 3)


ou Forma 02:
[ô]Ou pode ser assim: O replace é para eliminar o [Ô]-[Ô], caso exista. 
MsgBox [Ô]CEP COM MID = [Ô] & Mid(Replace(CEP, [Ô]-[Ô], [Ô][Ô]), 6)
FERRAZ 20/08/2009 09:32:29
#320386
Roberto Martins, tudo bem, viu eu havia visto em minhas pesquisas algo assim como vc me sugere, agora eu estou chamando minha funcao assim:

Call = (TratarString(rs.fields([Ô]CEP[Ô]), TratarString(rs.fields([Ô]Bairro[Ô]), e assim vai...

Como eu usaria sua dica, desculpa, eu nao entendi onde eu escrevo [Ô]MsgBox Rigth([Ô]43800-123[Ô], 3) e como funciona, vc poderia me dizer ?

Valeu Roberto.
LCSD 20/08/2009 09:38:29
#320388
Caro FERRAZ, atualmente, como que este campo está sendo gravado em sua tabela???

AMBAS as situações que o ROBERTO sugeriu atendem a sua necessidade....
ROBIU 20/08/2009 09:44:12
#320391 Resposta escolhida
Se sua rotina retorna o cep completo, faz assim:
Call = RIGHT(TratarString(rs.fields([Ô]CEP[Ô])),3)


ou assim:

Call = TratarString(RIGHT(rs.fields([Ô]CEP[Ô]),3))
FERRAZ 20/08/2009 09:47:54
#320392
Luiz Cesar, eu estou gravando em minha tabela usando os campos do tipo [Ô]Varchar[Ô].

Roberto valeu, irei fazer os testes la em casa, onde tenho o projeto completo e depois falo como ficou.

Valeu Roberto, valeu Luiz.
TECLA 20/08/2009 10:07:30
#320394
Aproveite e tente o seguinte:
SELECT RIGHT(campoCEP, 3) FROM tabela;

Retorna para a aplicação somente os 3 últimos dígitos do CEP.
FERRAZ 20/08/2009 10:10:26
#320396
Oi, Tecla, belesma tbem testaria sua sugestao.

Valeu.
MARCELO.TREZE 20/08/2009 11:33:00
#320405
só pra completar atualmente vc está fazendoa chamada assim

Call = (TratarString(rs.fields([Ô]CEP[Ô]), TratarString(rs.fields([Ô]Bairro[Ô]), e assim vai...


então poderia testar desta forma

Call = (TratarString(Right(rs.fields([Ô]CEP[Ô]),3), TratarString(rs.fields([Ô]Bairro[Ô]), e assim vai...
FERRAZ 20/08/2009 13:12:41
#320424
Oi Marcelo, belesma, amigo. Obrigado por sua sugestao tbem, fico grato, la em casa, vou fazer os testes e usarei sua dica tbem.

Valeu.
FERRAZ 20/08/2009 20:03:21
#320469
Citação:

Rapaziada, noite, todas as maneiras que vcs me sugeriram, simplesmente funcionaram, atendeu o que eu queria, ficou muito bom, vou continuar a escrever minha rotina para o layout banco do brasil, que nossa, da um trabalhao, mais eh muito legal ver funcionar, show.

Fico grato a todos, valeu.
Tópico encerrado , respostas não são mais permitidas
Voltar