agregado procesos y bd clases

2026-04-28 11:52:16 +02:00
parent 59a774c397
commit cd2e8b8530
251 changed files with 56881 additions and 49 deletions
--- a/guia/Extensiones/companias.vb
+++ b/guia/Extensiones/companias.vb
@@ -0,0 +1,165 @@
+Imports tsl5.Extensiones
+
+Partial Public Class companias
+    Public ReadOnly Property Direccion As direcciones
+        Get
+            If Me.idDireccion.HasValue AndAlso Me.idDireccion.Value > 0 Then
+                Return Me.direcciones
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+
+
+    Private _CodigoPostalTmpEsNulo As Boolean = True
+    Private _CodigoPostalTmp As String
+    Public Property CodigoPostalTmp As String
+        Get
+            If _CodigoPostalTmpEsNulo Then
+                If Direccion Is Nothing Then
+                    Return ""
+                Else
+                    _CodigoPostalTmp = Me.Direccion.CodigoPostal
+                    _CodigoPostalTmpEsNulo = False
+                    Return Me.Direccion.CodigoPostal
+                End If
+            Else
+                Return _CodigoPostalTmp
+            End If
+        End Get
+        Set(value As String)
+            _CodigoPostalTmp = value
+            _CodigoPostalTmpEsNulo = False
+            If Direccion IsNot Nothing Then
+                Direccion.CodigoPostal = value
+            End If
+            Me.OnPropertyChanged("CodigoPostalTmp")
+        End Set
+    End Property
+
+    Private _DomicilioTmpEsNulo As Boolean = True
+    Private _DomicilioTmp As String
+    Public Property DomicilioTmp As String
+        Get
+            If _DomicilioTmpEsNulo Then
+                If Direccion Is Nothing Then
+                    Return ""
+                Else
+                    _DomicilioTmp = Direccion.Direccion
+                    _DomicilioTmpEsNulo = False
+                    Return Direccion.Direccion
+                End If
+            Else
+                Return _DomicilioTmp
+            End If
+        End Get
+        Set(value As String)
+            _DomicilioTmp = value
+            _DomicilioTmpEsNulo = False
+            If Direccion IsNot Nothing Then
+                Direccion.Direccion = value
+            End If
+            Me.OnPropertyChanged("DomicilioTmp")
+        End Set
+    End Property
+
+
+    Private _CodigoPoblacionTmpEsNulo As Boolean = True
+    Private _CodigoPoblacionTmp As String
+    Public Property CodigoPoblacionTmp As String
+        Get
+            If _CodigoPoblacionTmpEsNulo Then
+
+                If Direccion Is Nothing OrElse Direccion.municipios Is Nothing Then
+                    If Direccion IsNot Nothing AndAlso Direccion.municipios Is Nothing Then
+                        If Direccion.CodigoPostal.NothingAVacio <> "" Then
+                            Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
+                            Dim pob = bd.codigospostales.FirstOrDefault(Function(x) x.CodigoPostal = Direccion.CodigoPostal)
+                            If pob Is Nothing Then
+                                Return "CP.ERRONEO"
+                            Else
+                                Direccion.CodigoMunicipio = pob.CodigoMunicipio
+                                _CodigoPoblacionTmp = pob.CodigoMunicipio
+                                _CodigoPoblacionTmpEsNulo = False
+                                Return _CodigoPoblacionTmp
+                            End If
+                        Else
+                            Return ""
+                        End If
+                    Else
+                        Return ""
+                    End If
+                Else
+                    _CodigoPoblacionTmp = Direccion.CodigoMunicipio
+                    _CodigoPoblacionTmpEsNulo = False
+                    Return Direccion.CodigoMunicipio
+                End If
+            Else
+                Return _CodigoPoblacionTmp
+            End If
+        End Get
+        Set(value As String)
+            _CodigoPoblacionTmp = value
+            _CodigoPoblacionTmpEsNulo = False
+            If Direccion IsNot Nothing Then
+                Direccion.CodigoMunicipio = value
+            End If
+            Me.OnPropertyChanged("CodigoPoblacionTmp")
+            ProvinciaTmp = municipios.ObtieneProvincia(_CodigoPoblacionTmp)
+            PoblacionTmp = municipios.ObtienePoblacion(_CodigoPoblacionTmp)
+        End Set
+    End Property
+
+    Private _PoblacionTmp As String
+    Private _PoblacionTmpEsNulo As Boolean = True
+    Public Property PoblacionTmp As String
+        Get
+            If _PoblacionTmpEsNulo Then _PoblacionTmp = municipios.ObtienePoblacion(CodigoPoblacionTmp)
+            Return _PoblacionTmp
+        End Get
+        Set(value As String)
+            _PoblacionTmp = value
+            Me.OnPropertyChanged("PoblacionTmp")
+        End Set
+    End Property
+
+    Private _ProvinciaTmp As String
+    Private _ProvinciaTmpEsNulo As Boolean = True
+    Public Property ProvinciaTmp As String
+        Get
+            If _ProvinciaTmpEsNulo Then _ProvinciaTmp = municipios.ObtieneProvincia(CodigoPoblacionTmp)
+            Return _ProvinciaTmp
+        End Get
+        Set(value As String)
+            _ProvinciaTmp = value
+            Me.OnPropertyChanged("ProvinciaTmp")
+        End Set
+    End Property
+    Public ReadOnly Property DescripcionFormaLiquidacion As String
+        Get
+            Return DirectCast(Me.FormaLiquidacion, FormaLiquidacionEnum).ToString
+        End Get
+    End Property
+    Public ReadOnly Property CodigoNombre As String
+        Get
+            Return Me.Codigo & " " & Me.Nombre
+        End Get
+    End Property
+    Public Enum FormaLiquidacionEnum
+        TRANSFERENCIA = 0
+        RECIBO = 1
+    End Enum
+
+    Public Shared Function ListadoFormaLiquidacion() As List(Of FormaLiquidacion)
+        Dim listFormaLiquidacion As New List(Of FormaLiquidacion)
+        For Each Enumeracion As FormaLiquidacionEnum In System.Enum.GetValues(GetType(FormaLiquidacionEnum))
+            listFormaLiquidacion.Add(New FormaLiquidacion With {.id = CInt(Enumeracion), .Descripcion = Enumeracion.ToString})
+        Next
+        Return listFormaLiquidacion
+    End Function
+End Class
+Public Class FormaLiquidacion
+    Property id As Integer
+    Property Descripcion As String
+End Class