agregado procesos y bd clases

guia/Extensiones/entidadespolizas.vb

@@ -0,0 +1,23 @@
+Imports tsl5.Extensiones
+
+Public Class entidadespolizas
+    Public Property AEliminar_tmp As Boolean
+
+    Public ReadOnly Property Domicilio As String
+        Get
+            If Me.idDireccion.HasValue Then
+                If Me.direcciones.municipios Is Nothing OrElse Me.direcciones.Direccion.NothingAVacio = "" OrElse Me.direcciones.CodigoPostal.NothingAVacio = "" Then
+                    Return "** DOMICILIO INCORRECTO **"
+                Else
+                    If Me.direcciones.municipios.provincias.Nombre = Me.direcciones.municipios.Nombre Then
+                        Return Me.direcciones.Direccion & " - " & Me.direcciones.CodigoPostal & " " & Me.direcciones.municipios.Nombre
+                    Else
+                        Return Me.direcciones.Direccion & " - " & Me.direcciones.CodigoPostal & " " & Me.direcciones.municipios.Nombre & " (" & Me.direcciones.municipios.provincias.Nombre & ")"
+                    End If
+                End If
+            Else
+                Return "** DOMICILIO INCORRECTO **"
+            End If
+        End Get
+    End Property
+End Class