agregado procesos y bd clases

This commit is contained in:
2026-04-28 11:52:16 +02:00
parent 59a774c397
commit cd2e8b8530
251 changed files with 56881 additions and 49 deletions

View File

@@ -0,0 +1,486 @@
<Serializable>
Public Class RCSociosZurich
Private _tomadorCIF As String
Public Property TomadorCIF() As String
Get
Return _tomadorCIF
End Get
Set(ByVal value As String)
_tomadorCIF = value
End Set
End Property
Private _tomadorNombre As String
Public Property TomadorNombre() As String
Get
Return _tomadorNombre
End Get
Set(ByVal value As String)
_tomadorNombre = value
End Set
End Property
Private _tomadorApellidos As String
Public Property TomadorApellidos() As String
Get
Return _tomadorApellidos
End Get
Set(ByVal value As String)
_tomadorApellidos = value
End Set
End Property
Private _tomadorTelefono As String
Public Property TomadorTelefono() As String
Get
Return _tomadorTelefono
End Get
Set(ByVal value As String)
_tomadorTelefono = value
End Set
End Property
Private _tomadorTelefono2 As String
Public Property TomadorTelefono2() As String
Get
Return _tomadorTelefono2
End Get
Set(ByVal value As String)
_tomadorTelefono2 = value
End Set
End Property
Private _tomadorEmail As String
Public Property TomadorEmail() As String
Get
Return _tomadorEmail
End Get
Set(ByVal value As String)
_tomadorEmail = value
End Set
End Property
Private _tomadorDomicilio As String
Public Property TomadorDomicilio() As String
Get
Return _tomadorDomicilio
End Get
Set(ByVal value As String)
_tomadorDomicilio = value
End Set
End Property
Private _tomadorCodigoPostal As String
Public Property TomadorCodigoPostal() As String
Get
Return _tomadorCodigoPostal
End Get
Set(ByVal value As String)
_tomadorCodigoPostal = value
End Set
End Property
Private _tomadorPoblacion As String
Public Property TomadorPoblacion() As String
Get
Return _tomadorPoblacion
End Get
Set(ByVal value As String)
_tomadorPoblacion = value
End Set
End Property
Private _tomadorProvincia As String
Public Property TomadorProvincia() As String
Get
Return _tomadorProvincia
End Get
Set(ByVal value As String)
_tomadorProvincia = value
End Set
End Property
Private _tomadorCodigoMunicipio As String
Public Property TomadorCodigoMunicipio() As String
Get
Return _tomadorCodigoMunicipio
End Get
Set(ByVal value As String)
_tomadorCodigoMunicipio = value
End Set
End Property
Private _propietarioCIF As String
Public Property PropietarioCIF() As String
Get
Return _propietarioCIF
End Get
Set(ByVal value As String)
_propietarioCIF = value
End Set
End Property
Private _propietarioNombre As String
Public Property PropietarioNombre() As String
Get
Return _propietarioNombre
End Get
Set(ByVal value As String)
_propietarioNombre = value
End Set
End Property
Private _propietarioApellidos As String
Public Property PropietarioApellidos() As String
Get
Return _propietarioApellidos
End Get
Set(ByVal value As String)
_propietarioApellidos = value
End Set
End Property
Private _propietarioTelefono As String
Public Property PropietarioTelefono() As String
Get
Return _propietarioTelefono
End Get
Set(ByVal value As String)
_propietarioTelefono = value
End Set
End Property
Private _propietarioTelefono2 As String
Public Property PropietarioTelefono2() As String
Get
Return _propietarioTelefono2
End Get
Set(ByVal value As String)
_propietarioTelefono2 = value
End Set
End Property
Private _propietarioEmail As String
Public Property PropietarioEmail() As String
Get
Return _propietarioEmail
End Get
Set(ByVal value As String)
_propietarioEmail = value
End Set
End Property
Private _propietarioDomicilio As String
Public Property PropietarioDomicilio() As String
Get
Return _propietarioDomicilio
End Get
Set(ByVal value As String)
_propietarioDomicilio = value
End Set
End Property
Private _propietarioCodigoPostal As String
Public Property PropietarioCodigoPostal() As String
Get
Return _propietarioCodigoPostal
End Get
Set(ByVal value As String)
_propietarioCodigoPostal = value
End Set
End Property
Private _propietarioPoblacion As String
Public Property PropietarioPoblacion() As String
Get
Return _propietarioPoblacion
End Get
Set(ByVal value As String)
_propietarioPoblacion = value
End Set
End Property
Private _propietarioProvincia As String
Public Property PropietarioProvincia() As String
Get
Return _propietarioProvincia
End Get
Set(ByVal value As String)
_propietarioProvincia = value
End Set
End Property
Private _propietarioCodigoMunicipio As String
Public Property PropietarioCodigoMunicipio() As String
Get
Return _propietarioCodigoMunicipio
End Get
Set(ByVal value As String)
_propietarioCodigoMunicipio = value
End Set
End Property
Private _dehesa As Double
Public Property Dehesa() As Double
Get
Return _dehesa
End Get
Set(ByVal value As Double)
_dehesa = value
End Set
End Property
Private _superficieCosechable As Double
Public Property SuperficieCosechable() As Double
Get
Return _superficieCosechable
End Get
Set(ByVal value As Double)
_superficieCosechable = value
End Set
End Property
Private _cotoDeCaza As Double
Public Property CotoDeCaza() As Double
Get
Return _cotoDeCaza
End Get
Set(ByVal value As Double)
_cotoDeCaza = value
End Set
End Property
Private _vidaPrivada As Double
Public Property VidaPrivada() As Double
Get
Return _vidaPrivada
End Get
Set(ByVal value As Double)
_vidaPrivada = value
End Set
End Property
Private _cabezasVacuno As Double
Public Property CabezasVacuno() As Integer
Get
Return _cabezasVacuno
End Get
Set(ByVal value As Integer)
_cabezasVacuno = value
End Set
End Property
Private _cabezasOvino As Integer
Public Property CabezasOvino() As Integer
Get
Return _cabezasOvino
End Get
Set(ByVal value As Integer)
_cabezasOvino = value
End Set
End Property
Private _cabezasPorcino As Integer
Public Property CabezasPorcino() As Integer
Get
Return _cabezasPorcino
End Get
Set(ByVal value As Integer)
_cabezasPorcino = value
End Set
End Property
Private _cabezasEquino As Integer
Public Property CabezasEquino() As Integer
Get
Return _cabezasEquino
End Get
Set(ByVal value As Integer)
_cabezasEquino = value
End Set
End Property
Private _cabezasGanadoBravo As Integer
Public Property CabezasGanadoBravo() As Integer
Get
Return _cabezasGanadoBravo
End Get
Set(ByVal value As Integer)
_cabezasGanadoBravo = value
End Set
End Property
Private _numeroRega As String
Public Property NumeroRega() As String
Get
Return _numeroRega
End Get
Set(ByVal value As String)
_numeroRega = value
End Set
End Property
Private _codGanadero As String
Public Property CodigoGanadero() As String
Get
Return _codGanadero
End Get
Set(ByVal value As String)
_codGanadero = value
End Set
End Property
Private _observaciones As String
Public Property Observaciones() As String
Get
Return _observaciones
End Get
Set(ByVal value As String)
_observaciones = value
End Set
End Property
Private _sumaContratar As String
Public Property SumaContratar() As String
Get
Return _sumaContratar
End Get
Set(ByVal value As String)
_sumaContratar = value
End Set
End Property
Private _IBAN As String
Public Property IBAN() As String
Get
Return _IBAN
End Get
Set(ByVal value As String)
_IBAN = value
End Set
End Property
Private _fechaEfecto As Date
Public Property FechaEfecto() As Date
Get
Return _fechaEfecto
End Get
Set(ByVal value As Date)
_fechaEfecto = value
End Set
End Property
Private _fechaVencimiento As Date
Public Property FechaVencimiento() As Date
Get
Return _fechaVencimiento
End Get
Set(ByVal value As Date)
_fechaVencimiento = value
End Set
End Property
Private _formaPago As String
Public Property FormaPago() As String
Get
Return _formaPago
End Get
Set(ByVal value As String)
_formaPago = value
End Set
End Property
Private _TipoRC As String
Public Property TipoRC() As String
Get
Return _TipoRC
End Get
Set(ByVal value As String)
_TipoRC = value
End Set
End Property
Private _opcionA As Double
Public Property OpcionA() As Double
Get
Return _opcionA
End Get
Set(ByVal value As Double)
_opcionA = value
End Set
End Property
Private _opcionB As Double
Public Property OpcionB() As Double
Get
Return _opcionB
End Get
Set(ByVal value As Double)
_opcionB = value
End Set
End Property
Private _opcionC As Double
Public Property OpcionC() As Double
Get
Return _opcionC
End Get
Set(ByVal value As Double)
_opcionC = value
End Set
End Property
Private _pnetaA As Double
Public Property PrimaNetaA() As Double
Get
Return _pnetaA
End Get
Set(ByVal value As Double)
_pnetaA = value
End Set
End Property
Private _pnetaB As Double
Public Property PrimaNetaB() As Double
Get
Return _pnetaB
End Get
Set(ByVal value As Double)
_pnetaB = value
End Set
End Property
Private _pnetaC As Double
Public Property PrimaNetaC() As Double
Get
Return _pnetaC
End Get
Set(ByVal value As Double)
_pnetaC = value
End Set
End Property
Private _impuestosA As Double
Public Property ImpuestosA() As Double
Get
Return _impuestosA
End Get
Set(ByVal value As Double)
_impuestosA = value
End Set
End Property
Private _impuestoB As Double
Public Property ImpuestosB() As Double
Get
Return _impuestoB
End Get
Set(ByVal value As Double)
_impuestoB = value
End Set
End Property
Private _impuestosC As String
Public Property ImpuestosC() As String
Get
Return _impuestosC
End Get
Set(ByVal value As String)
_impuestosC = value
End Set
End Property
Private _pTotalA As Double
Public Property PrimaTotalA() As Double
Get
Return _pTotalA
End Get
Set(ByVal value As Double)
_pTotalA = value
End Set
End Property
Private _pTotalB As Double
Public Property PrimaTotalB() As Double
Get
Return _pTotalB
End Get
Set(ByVal value As Double)
_pTotalB = value
End Set
End Property
Private _pTotalC As Double
Public Property PrimaTotalC() As Double
Get
Return _pTotalC
End Get
Set(ByVal value As Double)
_pTotalC = value
End Set
End Property
End Class