agregado procesos y bd clases

guia/Extensiones/tiposgestionsiniestros.vb

@@ -0,0 +1,13 @@
+Partial Public Class tiposgestionsiniestros
+    Public ReadOnly Property DescripcionDetallada As String
+        Get
+            Dim sDescripcion
+            sDescripcion = Me.Descripcion & " *" & Me.Codigo & " * "
+            If Me.idDestinatario.HasValue Then
+                sDescripcion &= "(DESTINATARIO: " & Me.enumeraciones1.Descripcion & ")"
+            End If
+            Return sDescripcion
+        End Get
+    End Property
+
+End Class