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,413 @@
<Serializable>
Public Class RCPerros
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 _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 _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 _coberturaElegida As String
Public Property CoberturaElegida() As String
Get
Return _coberturaElegida
End Get
Set(ByVal value As String)
_coberturaElegida = value
End Set
End Property
Private _precioCobertura As String
Public Property PrecioCobertura() As String
Get
Return _precioCobertura
End Get
Set(ByVal value As String)
_precioCobertura = value
End Set
End Property
Private _numeroPerrosPeligrosos As Integer
Public Property NumeroPerrosPeligrosos() As Integer
Get
Return _numeroPerrosPeligrosos
End Get
Set(ByVal value As Integer)
_numeroPerrosPeligrosos = value
End Set
End Property
Private _numeroPerrosNoPeligrosos As Integer
Public Property NumeroPerrosNoPeligrosos() As Integer
Get
Return _numeroPerrosNoPeligrosos
End Get
Set(ByVal value As Integer)
_numeroPerrosNoPeligrosos = value
End Set
End Property
Private _primaPerroPeligrosos As Double
Public Property PrimaPerrosPeligrosos() As Double
Get
Return _primaPerroPeligrosos
End Get
Set(ByVal value As Double)
_primaPerroPeligrosos = value
End Set
End Property
Private _primaPerrosNoPeligrosos As Double
Public Property PrimaPerrosNoPeligrosos() As Double
Get
Return _primaPerrosNoPeligrosos
End Get
Set(ByVal value As Double)
_primaPerrosNoPeligrosos = value
End Set
End Property
Private _precioPerrosPeligrosos As Double
Public Property PrecioPerrosPeligrosos() As Double
Get
Return _precioPerrosPeligrosos
End Get
Set(ByVal value As Double)
_precioPerrosPeligrosos = value
End Set
End Property
Private _precioPerrosNoPeligrosos As Double
Public Property PrecioPerrosNoPeligrosos() As Double
Get
Return _precioPerrosNoPeligrosos
End Get
Set(ByVal value As Double)
_precioPerrosNoPeligrosos = value
End Set
End Property
Private _primeroRaza As String
Public Property PrimeroRaza() As String
Get
Return _primeroRaza
End Get
Set(ByVal value As String)
_primeroRaza = value
End Set
End Property
Private _primeroMicrochip As String
Public Property PrimeroMicrochip() As String
Get
Return _primeroMicrochip
End Get
Set(ByVal value As String)
_primeroMicrochip = value
End Set
End Property
Private _primeroNombre As String
Public Property PrimeroNombre() As String
Get
Return _primeroNombre
End Get
Set(ByVal value As String)
_primeroNombre = value
End Set
End Property
Private _primeroFechaNacimiento As Date
Public Property PrimeroFechaNacimiento() As Date
Get
Return _primeroFechaNacimiento
End Get
Set(ByVal value As Date)
_primeroFechaNacimiento = value
End Set
End Property
Private _segundoRaza As String
Public Property SegundoRaza() As String
Get
Return _segundoRaza
End Get
Set(ByVal value As String)
_segundoRaza = value
End Set
End Property
Private _segundoMicrochip As String
Public Property SegundoMicrochip() As String
Get
Return _segundoMicrochip
End Get
Set(ByVal value As String)
_segundoMicrochip = value
End Set
End Property
Private _segundoNombre As String
Public Property SegundoNombre() As String
Get
Return _segundoNombre
End Get
Set(ByVal value As String)
_segundoNombre = value
End Set
End Property
Private _segundoFechaNacimiento As Date
Public Property SegundoFechaNacimiento() As Date
Get
Return _segundoFechaNacimiento
End Get
Set(ByVal value As Date)
_segundoFechaNacimiento = value
End Set
End Property
Private _terceroRaza As String
Public Property TerceroRaza() As String
Get
Return _terceroRaza
End Get
Set(ByVal value As String)
_terceroRaza = value
End Set
End Property
Private _terceroMicrochip As String
Public Property TerceroMicrochip() As String
Get
Return _terceroMicrochip
End Get
Set(ByVal value As String)
_terceroMicrochip = value
End Set
End Property
Private _terceroNombre As String
Public Property TerceroNombre() As String
Get
Return _terceroNombre
End Get
Set(ByVal value As String)
_terceroNombre = value
End Set
End Property
Private _terceroFechaNacimiento As Date
Public Property TerceroFechaNacimiento() As Date
Get
Return _terceroFechaNacimiento
End Get
Set(ByVal value As Date)
_terceroFechaNacimiento = 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 _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 _tipoPerro As String
Public Property TipoPerro() As String
Get
Return _tipoPerro
End Get
Set(ByVal value As String)
_tipoPerro = value
End Set
End Property
End Class