agregado procesos y bd clases

guia/Extensiones/codigospostales.vb

@@ -0,0 +1,12 @@
+Public Class codigospostales
+    Public ReadOnly Property NombreMunicipio As String
+        Get
+            If DescripcionAdicional IsNot Nothing AndAlso DescripcionAdicional <> "" Then
+                Return DescripcionAdicional & " (" & Me.municipios.Nombre & ")"
+            Else
+                Return Me.municipios.Nombre
+            End If
+        End Get
+    End Property
+
+End Class