quinta-feira, 21 de setembro de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #16
Como montar uma intranet com Windows 2000
Publicado: 05/02/2004

Dicas

Identificador da Agencia e tipo do CEP
Autor:  Marcelo Santos do Nascimento (marcelosn@ig.com.br)
Publicado:  29/05/2005
Visitas: 4732
 
De: 'Marcelosn - IG - SP' Enviado: Thu May 5 9:20
Para: Prioridade: Normal
Assunto: Saber Agencia e tipo do CEP Tipo: Embeded HTML/Text

Segue uma função que montei para os Correios:

A mesma identifica o local centralizador / Recebedor dos Correios.
Identificar o tipo de CEP: Cx. Postal / CEP Normal / CEP Promocional / CEP Especial.....

Neste caso podemos informar ao usuário a origem do CEP e qual são os estado que os correios atendem e até
saber (noção) do tempo para entrega da correspondência


Function IdCEP(CEP As String)
Dim AA, BB, CC, DD
AA = Left$(cep, 1)
BB = Right$(cep, 3)
Select Case AA ' Avalia Número.
Case 0
CC = "Grande São Paulo - Sede SP"
Case 1
CC = "São Paulo - Sede: Santos"
Case 2
CC = "Rio de Janeiro / Espirito Santos - "
Case 3
CC = "Minas Gerais - Sede: BH"
Case 4
CC = "Bahia / Sergipe - Sede Sobrado"
Case 5
CC = "PE /AL / PB / RN - Sede Recife"
Case 6
CC = "CE / PI / MA / AM / AC / AP / RR :Sede: Fortaleza"
Case 7
CC = "DF / GO / TO / MT / MS / RO :Sede: Brasilia"
Case 8
CC = "PR / SC :Sede: CURITIBA"
Case 9
CC = "RS :Sede: POA"
Case Else ' Outros valores.
MsgBox "Sem Rerefencia do Estado"
End Select

Select Case BB ' Avalia Número.
Case 0 To 899
DD = "Faixa de CEP Normal"
Case 900 To 959
DD = "Cep Especiais"
Case 960 To 969
DD = "Cep Promocionais"
Case 970 To 989
DD = "Unidades dos Correios"
Case 999
DD = "Unidades dos Correios"
Case 990 To 998
DD = "Caixa Postal"
Case Else ' Outros valores.
MsgBox "Sem referencia do final do CEP"
End Select
MsgBox "Local recebedor dos Correios para distribuir: " & CC & vbCrLf & "Refer. " & DD
End Function

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco